;**Vielecke
;**2003 by Triton
;** www.silizium-net.de
Graphics 640,480,16,1
SetBuffer BackBuffer()

radius = 200
neueecke = 1
Global beta = 90
maxecken = 25


While Not KeyDown(1)
ecken = ecken+neueecke
If ecken = maxecken Or ecken = 0 Then neueecke=-neueecke
radius = ecken*4+50
vieleck(ecken,radius,GraphicsWidth()/2,GraphicsHeight()/2)

Text 10,10,ecken+" Ecken"
Flip
Cls
Delay 100
Wend


;---------------------------------------------------
Function vieleck(ecken,radius,mittelpx,mittelpy)
b = radius
For ecke = 1 To ecken
   alpha# = 360/ecken*ecke:      Xalpha# = 360/ecken*(ecke-1)
   gamma# = 90-alpha#:            Xgamma# = 90-Xalpha#
   h# = b*Sin(alpha#): Xh# = b*Sin(Xalpha#)
   c# = b*Sin(gamma#): Xc# = b*Sin(Xgamma#)

   Color 255,ecke*2,ecke*8
   Line mittelpx,mittelpy,mittelpx+c#,mittelpy+h#
   Line mittelpx+Xc#,mittelpy+Xh#,mittelpx+c#,mittelpy+h#
Next
End Function