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 d pd
         setHeading 0
         (NoNoSigns size/5)
         setHeading a
         pu bk d 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