Disegna punti colorati (pixel) con posizione e colore casuale
|
1 |
GraphicsWindow.SetPixel(x,y,c) |
Disegna linee casuali
|
1 |
GraphicsWindow.DrawLine(x1,y1,x2,y2) |
Disegna triangoli casuali
|
1 |
GraphicsWindow.FillTriangle(x1,y1,x2,y2,x3,y3) |
Disegna rettangoli casuali
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
DIMX =800 DIMY =450 spazio =25 spazio2=2*spazio spazioX=DIMX-spazio2 spazioY=DIMY-spazio2 GraphicsWindow.Width =DIMX GraphicsWindow.Height=DIMY While "true" x1=Math.GetRandomNumber(spazioX)+spazio ' vertice N-O y1=Math.GetRandomNumber(spazioY)+spazio x2=Math.GetRandomNumber(spazioX)+spazio ' vertice S-E y2=Math.GetRandomNumber(spazioY)+spazio w=x2-x1 h=y2-y1 If(w > 0) And (h > 0) then ' se è possibile ... GraphicsWindow.BrushColor=GraphicsWindow.GetRandomColor() GraphicsWindow.FillRectangle(x1,y1,w,h) Program.Delay(500) ' 2 rettangoli al secondo EndIf EndWhile |