aUCBLogo Demos and Tests / nonosigns


to NoNoSigns [size 300]
   
hideTurtle
   
red=rgb 1 0 0
   
blue=rgb 0 0 1
   
black=rgb 0 0 0
   
drawNoNoSigns
end

to drawNoNoSigns
   
local [d a]
   
setpc red
   
setfc red 
   
fillcircle size

   
setpc blue
   
setfc blue
   
fillcircle size*11/15

   
if size>10
   
[   repeat 10
      
[   a=rnd*360
         
setHeading a
         
d=(sqrt rnd)*size*8/15
         
pu fd pd
         
setHeading 0
         
(NoNoSigns size/5)
         
setHeading a
         
pu bk pd
         
setHeading 0         
      
]
   
]

   
rt 45
   
setpc red
   
setfc red
   
fillRect (list -0.14*size -0.9*size)(list 0.14*size 0.9*size)
   
lt 45
end