Created by MicroWorlds
 

Procedures

Author: Rupert Russell
Date: 26 April 2001
email: rupert at rupert dot id dot au
http://www.rupert.id.au

to poly
  repeat sides [fd poly_sz rt 360 / sides]
end

to dothing
   setc "black
   st
   snapshot                               ;save the current screen
   pd
   repeat 20 [pd setc "black poly rt 20]
   repeat 20 [pu poly rt 20 fillit]       ;now repeat and fill
   setc "black
end

to fillit
   pu
   wait 1
   lt 3
   fd poly_sz / 2
   setc random 9999 fill
   bk poly_sz / 2
   rt 3
end