Cerchi annidati con raggio e colore decrescenti
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
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 i diametri decrescono in modo diverso…
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
DIM=800 GraphicsWindow.Width =DIM GraphicsWindow.Height=DIM xc=DIM/2 yc=DIM/2 diametro1=0.8*DIM diametro2=0.8*DIM For i=1 To 25 raggio1 =diametro1/2 raggio2 =diametro2/2 GraphicsWindow.BrushColor="#2000000f" GraphicsWindow.FillEllipse(xc-raggio1,yc-raggio2, diametro1,diametro2) diametro1=0.9*diametro1 diametro2=0.85*diametro2 Program.Delay(100) EndFor |
I cerchi sono doppi…
|
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.8*DIM raggio =diametro/2 GraphicsWindow.BrushColor="#2000000f" GraphicsWindow.FillEllipse(xc-raggio,yc-raggio,diametro,diametro) diametro=diametro/2 raggio=diametro/2 xc1=xc-raggio xc2=xc+raggio For i=1 To 15 GraphicsWindow.FillEllipse(xc1-raggio,yc-raggio, diametro,diametro) GraphicsWindow.FillEllipse(xc2-raggio,yc-raggio, diametro,diametro) diametro=0.9*diametro raggio=diametro/2 Program.Delay(100) EndFor |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
DIM=800 GraphicsWindow.Width =DIM GraphicsWindow.Height=DIM xc=DIM/2 yc=DIM/2 diametro=0.8*DIM raggio =diametro/2 GraphicsWindow.BrushColor="#2000000f" GraphicsWindow.FillEllipse(xc-raggio,yc-raggio,diametro,diametro) diametro=diametro/2 For i=1 To 15 raggio=diametetro/2 GraphicsWindow.FillEllipse(xc-diametro,yc-raggio,diametro,diametro) GraphicsWindow.FillEllipse(xc ,yc-raggio,diametro,diametro) diametro=0.9*diametro Program.Delay(100) EndFor |