Vai al contenuto

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 i diametri decrescono in modo diverso…

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…

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

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

Lascia un commento

Il tuo indirizzo email non sarà pubblicato. I campi obbligatori sono contrassegnati *

Questo sito usa Akismet per ridurre lo spam. Scopri come i tuoi dati vengono elaborati.