aUCBLogo Demos and Tests / si

to si
   ; This program creates three equivalent forms using various looping structures
   cs ht
   pu setxy 120 -100 seth 11  pd  setpc 0
   t=timemilli
   image_right 0
   pr timemilli-t
   pu home st
end

to triangle
   lt tilt
   repeat 3
   [   setpc 17-level
      fd size
      fractal size/2 level-1
      rt 120
   ]
   rt tilt
end

to fractal size level
   if level < 1 [stop]
   triangle
end

to image_right tilt
   ; recursive
   rt tilt
   fractal 128 8
end