I poligoni regolari da 3 a 25 lati
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
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 |