aUCBLogo Demos and Tests / zahlring

be zahlring [ps [0.5 0.5]]
   g=3*5*7
   r=300 ; Radius des Kreises
   setsc 0
   setPenSize ps
   cs ht
   c=rgba 0 .8 1 .04
   setpc c
   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]
      [   setPC HSBA n/g*360 .9 1 .08
         pu
         _setPos xy.f
         i=mod f*n g
         pd
         _setPos xy.i
      ]
   ]
   ;savebmp "zahlring.bmp   ;if refresh then save a hires bmp
end