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