Turtle Academy variation on showcase script

turtle.logo

TO drawcircle :size  
for [radius :size 0 -3] 
  [ 
    filled random 16 [arc random 360 :radius]  
  ] 
END 
 
 
 
TO sphere  
  pu  
  for [xcord -485 485 40] 
  [  
    for [ycord -250 250 40] 
    [ 
      setxy :xcord :ycord  
      drawcircle random 45 
    ] 
  ] 
END  
 
sphere