%@Auteur : Jean-Michel Sarlat %@Année : 2005 input tortue.mp; numeric d,iter; d = 4 ; iter = 15; color marron; marron = (.5,.1,0); def pas(expr x) = x * 0.3mm + .2mm enddef; def epaisseur(expr x) = .1mm * x + .05mm enddef; def couleur(expr x) = (x/iter)[green,marron] enddef; vardef trace(expr a,b) = draw a--b withpen pencircle scaled e withcolor c; enddef; %% lsys4 %% règle A => GS[---A][++MB] %% règle G => GS %% règle B => C %% règle C => A vardef A (expr n,m) = save h,e,c; color c; h := pas(m); e := epaisseur(m); c := couleur(m); if m>0: G(n,m-1); avance(n,h,trace); blop(n,n+1); tourne(n+1,-3*d); A(n+1,m-1); blop(n,n+1); tourne(n+1,2*d); retourne(n+1); B(n+1,m-1); fi enddef; vardef G (expr n,m) = save h; h := pas(m); if m>0: G(n,m-1); avance(n,h,trace); fi enddef; vardef B (expr n,m) = if m>0: C(n,m-1); fi enddef; vardef C (expr n,m) = if m>0: A(n,m-1); fi enddef; beginfig(1); tortue(1,0,0,90,1); A(1,iter); endfig; end