I – Circonferenze

Disegna 60 cerchi con centro sulla linea blu e raggio costante.

Ripete anche in verticale

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