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+:YY) seth random 360
   pd setpc RGB rnd rnd rnd
   repeat random 30 [(butterfly repcount)]
   updateGraph
   if key? [stop]
   butterflies
end