Figure casuali

Disegna punti colorati (pixel) con posizione e colore casuale

GraphicsWindow.SetPixel(x,y,c)

---

Disegna linee casuali

GraphicsWindow.DrawLine(x1,y1,x2,y2)

---

Disegna triangoli casuali

GraphicsWindow.FillTriangle(x1,y1,x2,y2,x3,y3)

---

Disegna rettangoli casuali

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