  |r|n|c|=|4|0|1000|

  wiederhole bis n=0
  a=fix(360/(c-1)*n)
f=frac(a/2)
wenn f=0
Bld
ohnewenn
0;0
  x=r*cosg(-a+90)
  y=r*sing(-a+90)
  _x;y;;1
0;0
  x=r/1,5*cosg(-a/12+90)
 y=r/1,5*sing(-a/12+90)
_x;y;;10
  n=n+1
  zurck
