Arbre fractal

Arbre fractal

Messagepar P.Fradin » 18 Déc 2010 15:42

Cet exemple illustre l'utilisation de la matrice de transformation pour dessiner un arbre fractal (fichier source):

Code: Tout sélectionner
TeXgraph#
{version 1.95-beta-10}
Cmd [Fenetre(-3+4.5*i, 3-0.5*i, 2+2*i), Marges(0,0,0,0), Border(0)];
   [OriginalCoord(1),IdMatrix()];

Var
    anglea = 30*deg;
    angleb = 40*deg;

Mac
    arbre = {arbre(niveau) }
   [$n:=%1,
   FillColor:=MixColor(darkgreen,1,brown,n),
   Drectangle(0,0.125,i*1.05),
   if n>0 then
      SaveAttr(),
      ComposeMatrix( matrix(z*0.75*exp(i*anglea)+i) ),
      arbre(n-1),
      RestoreAttr(),
      SaveAttr(),
      ComposeMatrix( matrix((z-0.125)*0.75*exp(-i*angleb)+i+0.125)),
      arbre(n-1),
      RestoreAttr()
   fi
   ];

Graph fond = [
   background(full,skyblue),
   FillStyle:=full, FillColor:=darkseagreen, LineStyle:=noline,
   Path([ Xmin+i/2, -1+i, 1, Xmax+i/2, curve,
          Xmax+i*Ymin,Xmin+i*Ymin, line],1)
   ];
Graph objet1 = [
   FillStyle:=full, LineStyle:=noline,
   arbre(12)
   ];


Image


L'arbre est dessiné par la macro arbre( niveau) .
P.Fradin
Avatar de l’utilisateur
P.Fradin
Administrateur du site
 
Messages: 1835
Inscription: 29 Oct 2008 15:04

Revenir vers Objets fractals

Qui est en ligne ?

Utilisateurs parcourant ce forum : Aucun utilisateur inscrit et 1 invité

cron