Trenta cerchi concentrici, con colore casuale
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
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
|
1 2 3 4 5 6 7 8 |
lato =10 ... lato2=lato/2 ... GraphicsWindow.DrawRectangle(xc-lato2,yc-lato2, lato,lato) ... lato=lato+passo ... |
Trenta rettangoli
|
1 2 3 4 5 6 7 8 9 10 |
altezza=10 ... base =1.6*altezza base2 =base/2 altezza2=altezza/2 ... GraphicsWindow.DrawRectangle(xc-base2,yc-altezza2, base,altezza) ... altezza=altezza+passo ... |