Vai al contenuto

Linee e pallini

500 linee

500 pallini

250 linee e pallini

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

Lascia un commento

Il tuo indirizzo email non sarĂ  pubblicato. I campi obbligatori sono contrassegnati *

Questo sito usa Akismet per ridurre lo spam. Scopri come i tuoi dati vengono elaborati.