aUCBLogo Demos and Tests / mul1

to mul1
   g=3*5*7
   r=300 ; Radius des Kreises
   cs ht pu
   setsc 0
   c=rgb .0 .02 .03
   xy=(array g 0)
   for [i 0 g-1]
   [   phi=360*i/g
      xy.i=(list sin phi cos phi)*r
   ]
   for [f 0 g-1]
   [   for [n 1 g-1]
      [   _setpos xy.f
         i=mod f*n g
         seth towards xy.i
         fdadd norm xy.f-xy.i c
      ]
      updateGraph
      if keyP [stop]
   ]
end

to fdadd dist c
   repeat int dist
   [   fd 1
      setpc addColors pixel c
      bk 1
      pd fd 1 pu
   ]
end