-----------------------------------

Paul

Tue Jun 01, 2004 9:10 pm


Weird Effect with Drawfillpolygon

-----------------------------------

Hm... believe it or not, I just learned the command drawfillpolygon today!  :lol:  I messed with it, and here's what I got, try entering 100 to see the effect I mean. Smaller numbers aren't that outstanding
Note: try using numbers like 50, 100 or 200 or 300, but 500 will probably end up crashing ur environment.
recommended over 25 though lol  :lol: 
I think it gives it an almost 3D look, but more like glassy transparent.

setscreen ("graphics: max;max;offscreenonly")
var number: int
put "How many sides?"
get number
colorback (black)
cls
var x : array 1 .. number of int 
var y : array 1 .. number of int 
var incx: array 1..number of int
var incy: array 1..number of int
for a: 1..number
randint (x(a), 100, maxx-100)
randint (y(a), 100, maxy-100)
incx(a):=3
incy(a):=3
end for
loop
for a: 1..number
x(a)+=incx(a)
y(a)+=incy(a)
end for
drawfillpolygon (x, y, number, 12)
View.Update
cls
for a: 1..number
if y(a)>=maxy or y(a) =maxy or y(a)