Disegna 60 cerchi con centro sulla linea blu e raggio costante.
Ripete anche in verticale
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
DIM=800 GraphicsWindow.Width =DIM GraphicsWindow.Height=DIM xc=DIM/2 yc=DIM/2 diametro=0.4*DIM raggio =diametro/2 n =60 passo=diametro/n GraphicsWindow.PenWidth=10 GraphicsWindow.PenColor="#660000FF" GraphicsWindow.DrawLine(xc-diametro,yc , xc+diametro,yc ) GraphicsWindow.DrawLine(xc ,yc-diametro, xc ,yc+diametro) GraphicsWindow.PenWidth=1 GraphicsWindow.PenColor="#99000000" For dx=-raggio To raggio Step passo GraphicsWindow.DrawEllipse(xc+dx-raggio,yc-raggio , diametro,diametro) GraphicsWindow.DrawEllipse(xc-raggio ,yc+dx-raggio, diametro,diametro) Program.Delay(50) EndFor |