aUCBLogo Demos and Tests / turtleskin

be turtleskin
   setScreenRange -100 -100 100 100
   setSaveSize [64 64]
   setScreenColor HSB 30 0.4 0.75
   perspective
   cs
   hideTurtle
   setEye {0 0 1160}{0 0 0}{0 1 0}
   setLightPos {10000 10000 10000}
   PenUp
   setZ 0
   size=1000
   repeat 1000
   [   setPC HSBA 30 0.4 0.75 0.2+rnd
      drawWrapped size*(rnd-0.5) size*(rnd-0.5) [Sphere size/10*rnd]
   ]
;   setPS [10 10]
;   drawWrapped -size/2 -size/2 [repeat 4 [fd size rt 90]]
;   saveScreen "turtleskin.png
   setSaveSize [800 600]
;   setScreenRange -400 -300 400 300

   be drawWrapped :x :y :commands
      drawXY :x+:size :y
      drawXY :x       :y+:size
      drawXY :x-:size :y
      drawXY :x       :y-:size
      drawXY :x       :y

      be drawXY :x :y
         pu setXY x y pd run :commands
      end
   end
end