Fichier dragon1.mp (figure 1) — Modifié le 2 Mars 2005 à 00 h 32

dragon1.mp (figure 1)
Source

% lsystem DRAGON1.LS -- Thu Feb 13 00:54:56 CET 2003
%% Fichier de paramètres : DRAGON1.LS
%
% # next step:
% #   theta := theta - 90
% #   leng  := leng / 2
% #   iter  := iter + 2
%
% ratio   1
% seed    L
% rule    L -> L + R +
% rule    R -> - L - R
% delta   90
% theta   0
% leng    6
% iter    12
% x       160
% y       -66
% blue    .3
% green   .3
% red     1
%% FIN du fichier

input tortue;

vardef trace(expr a,b) =
    draw a--b withpen pencircle scaled 1pt
              withcolor (1,.3,.3);
enddef;

vardef deplace(expr a,b) =
enddef;

vardef R(expr n,m) =
   if m>0:
        tourne(n,-90);
        L(n,m-1);
        tourne(n,-90);
        R(n,m-1);
   else:
        avance(n,longueur,trace);
   fi
enddef;

vardef L(expr n,m) =
   if m>0:
        L(n,m-1);
        tourne(n,90);
        R(n,m-1);
        tourne(n,90);
   else:
        avance(n,longueur,trace);
   fi
enddef;

vardef axiome(expr n,m) =
        L(n,m);
enddef;


beginfig(1);
    longueur = 6 / ( 1 ** 12 );
    tortue(1,160,-66,0,1);
    axiome(1,12);
endfig;
end