Graphics 800,600,0,2
SetBuffer BackBuffer()

Type kreis
 Field r
 Field u
 Field ko[2]
 Field no
End Type

Type punkt
 Field ko[2]
 Field no
End Type

For x=0 To 10
 k.kreis=New kreis
 k\r=30
 k\ko[1]=100+x*20
 k\ko[2]=100
 k\u=36
 k\no=x
Next

 For k.kreis=Each kreis
  For x=0 To k\u
   If Not test(k\ko[1]+k\r*Cos(360/k\u*x),k\ko[2]+k\r*Sin(360/k\u*x),k\no)
    p.punkt=New punkt
     p\no=anzpt : anzpt=anzpt+1
     p\ko[1]=k\ko[1]+k\r*Cos(360./k\u*x)
     p\ko[2]=k\ko[2]+k\r*Sin(360./k\u*x)
   EndIf
  Next
 Next

While Not KeyHit(1)
 For p.punkt=Each punkt
  Plot p\ko[1],p\ko[2]
  If p\no<anzpt-1 Then
   p=After p
   tmpx=p\ko[1] : tmpy=p\ko[2]
   p=Before p
   Line p\ko[1],p\ko[2],tmpx,tmpy
  EndIf
 Next
 Flip 0 : Cls
Wend : End

Function test(x,y,no)
 For k.kreis=Each kreis
 If k\no<>no Then ;vergleich mit mittelpunkt koordinaten wirkungslos?!
  If Sqr((x-k\ko[1])^2+(y-k\ko[2])^2)<k\r Then
   tester=1
  EndIf
 EndIf
 Next
 Return tester
End Function