500 linee
500 pallini
250 linee e pallini
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
DIMX=800 DIMY=450 spazio=25 spazio2=2*spazio spazioX=DIMX-spazio2 spazioY=DIMY-spazio2 w2=DIMX/2 h2=DIMy/2 GraphicsWindow.Width =DIMX GraphicsWindow.Height=DIMY For i=1 To 500 x=Math.GetRandomNumber(spazioX)+spazio y=Math.GetRandomNumber(spazioY)+spazio c=GraphicsWindow.GetRandomColor() GraphicsWindow.PenColor= c GraphicsWindow.DrawLine(w2, h2, x, y) Endfor |