Forum de Programmation en langage PANORAMIC
Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Mots-clés

fichiers  

Derniers sujets
» Useful Dog
Ven 6 Avr - 14:25 par Papydall-Admin

» Les Courbes de Bézier cubiques
Ven 30 Mar - 4:08 par Papydall-Admin

» Animation flash
Mer 14 Mar - 2:50 par Papydall-Admin

» Mega-Strip
Lun 12 Mar - 1:24 par Papydall-Admin

» Les oiseaux de mon jardin
Ven 9 Mar - 1:08 par Papydall-Admin

»  Création et gestion d’un livre
Jeu 8 Mar - 15:37 par Papydall-Admin

» Deux questions d’éthique
Mar 6 Mar - 1:56 par Papydall-Admin

»  La Blague Du Jour
Lun 5 Mar - 2:50 par Papydall-Admin

» Branle-Fesse
Lun 5 Mar - 2:46 par Papydall-Admin

Juillet 2018
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     

Calendrier Calendrier


Arbre fractal

Aller en bas

Arbre fractal

Message par Papydall-Admin le Jeu 13 Oct - 4:38

Code:

rem ============================================================================
rem                     Fractal Tree
rem ============================================================================

dim x1,y1,x2,y2,angle,r,s,n,b,i,cr,cg,cb
width 0,700 : height 0,700 : color 0,0,0,0

2d_fill_on
for i = 1 to 1000
    caption 0,"Fractal Tree ... <CLICK> pour arrêter ....   " + str$(i) + " / 1000"
    x1 = 300 : y1 = 600 : s = 290 : angle = 270
    cr = 127*int(rnd(3)) : cg = 127*int(rnd(3)) : cb = 127*int(rnd(3))
    2d_pen_color cr,cg,cb : 2d_fill_color cr,cg,cb
    for b = 1 to 6
        lines() : s = s * .5 : angle = angle + int(rnd(5)) * 45 - 90
        if scancode <> 0 then FIN()
    next b
next i
caption 0,"Terminé"
end
rem ============================================================================
SUB Lines()
    dim_local x,y,rayon
    r = (angle/180)*pi : y2 = y1 + s * (sin(r)) : x2 = x1 - s * (cos(r))
    for n = 1 to 30
        x = (x2*n+x1*(30-n))/30 : y = (y2*n+y1*(30-n))/30 : rayon = 36/(b*b)
        2d_circle x,y,rayon
    next n
    x1 = x2 : y1 = y2
    display
END_SUB
rem ============================================================================
SUB Fin()
    dim_local h
    for h = height(0) to 10 step -1 : height 0,h : next h
    terminate
END_SUB
rem ============================================================================

_________________
Invité, merci d'être passé par ici.
avatar
Papydall-Admin
Admin

Messages : 94
Réputation : 0
Date d'inscription : 08/09/2015
Age : 67
Localisation : MOKNINE (Tunisie)

Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum