aUCBLogo Demos and Tests / butterflies


to butterflies
   
make "XX random 800
   
make "YY random 600
;   setPenSize [1 1]
   
setPenSize [0 0]
   
ht pu setpos (list -400+:XX -300+:YYseth random 360
   
pd setpc RGB rnd rnd rnd
   
repeat random 30 [(butterfly repcount)]
   
updateGraph
   
if key? [stop]
   
butterflies
end