Da 3 a 25 lati

I poligoni regolari da 3 a 25 lati

DIM=800
GraphicsWindow.Height=DIM
GraphicsWindow.Width =DIM
GraphicsWindow.PenColor="#66000066"

xC=DIM/2
yC=DIM/2
raggio=0.4*DIM

For numeroLati=3 to 25
  deltaAngolo=2*Math.Pi/numeroLati  
  
  angolo=0
  x1=xC+raggio*Math.Cos(angolo)
  y1=yC+raggio*Math.Sin(angolo)  
  For ripeti=1 To numeroLati
     angolo=angolo+deltaAngolo
     x2=xC+raggio*Math.Cos(angolo)
     y2=yC+raggio*Math.Sin(angolo)
     GraphicsWindow.DrawLine(x1,y1,x2,y2) 
     
     x1=x2
     y1=y2    
  EndFor
  
  Program.Delay(500)
EndFor