Cerchi annidati
Cerchi annidati con raggio e colore decrescenti DIM=800 GraphicsWindow.Width =DIM GraphicsWindow.Height=DIM xc=DIM/2 yc=DIM/2 diametro=0.8*DIM For i=1 To 25 raggio=diametro/2 GraphicsWindow.BrushColor=”#2000000f” GraphicsWindow.FillEllipse(xc-raggio,yc-raggio,diametro,diametro) diametro=0.9*diametro Program.Delay(100) EndFor Se… Leggi tutto »Cerchi annidati