{ Un arbre en couleurs }

{ Necessite les procedures, la tortue et la couleur }

PROC ARBRE(X) [
  IF X>0 [
    COLOR 0,0.6,0 :
    AV X*10 :
    TD X*5 : ARBRE(X-1) :
    TG X*10 : ARBRE(X-1) :
    UP : TD X*5 : RE X*10 : DOWN
  ] :
  IF X=0 [
    COLOR 0.8,0,0 :
    FOR I=1 TO 8 [ AV 0.5 : TD 45 ]
  ]
] :

TG 90 :
ARBRE(6)