{ Dessine un joli flocon fractal }

{ Necessite les procedures et la tortue }

PROC FLOC2(X) [ 
  IF X>0 [ FLOC2(X-1) : TG 60 : 
           FLOC2(X-1) : TD 120 : 
           FLOC2(X-1) : TG 60 : 
           FLOC2(X-1) ] :
  IF X=0 [ AV 1 ]
] :
PROC FLOC(X) [ FLOC2(X) : TD 120 : FLOC2(X) : TD 120 : FLOC2(X) ] :

FLOC(5)