Quadrati e cerchi

Trenta cerchi concentrici

Con colore casuale

NUM     =30  ' NUMERO DI FIGURE
RITARDO =100 ' Per l'animazione

diametro=10  ' DIMENSIONE INIZIALE
passo   =10  ' Incremento del diametro

xc=GraphicsWindow.Width/2
yc=GraphicsWindow.Height/2
For i=1 to NUM
   raggio=diametro/2
   
   GraphicsWindow.Title="Cerchio, diametro=" + diametro
   GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor()
   GraphicsWindow.DrawEllipse(xc-raggio,yc-raggio, diametro,diametro)
 
   diametro=diametro+passo 
   Program.Delay(RITARDO)
EndFor

Trenta quadrati concentrici

lato =10
...
lato2=lato/2
...
GraphicsWindow.DrawRectangle(xc-lato2,yc-lato2, lato,lato)
...
lato=lato+passo 
...

Trenta rettangoli

altezza=10
...
base =1.6*altezza
base2   =base/2
altezza2=altezza/2
...
GraphicsWindow.DrawRectangle(xc-base2,yc-altezza2, base,altezza)
...
altezza=altezza+passo 
...

GraphicsWindow.DrawLine( w, 0, 0, h)EndSub