01-28-2006, 09:23 AM
Code:
sub EqTri (x as integer, y as integer, s as integer)
line (x,y-s*sqr(3)/2)-(x-s,y+s*sqr(3)/2)
line (x,y-s*sqr(3)/2)-(x+s,y+s*sqr(3)/2)
line (x-s,y+s*sqr(3)/2)-(x+s,y+s*sqr(3)/2)
end sub
screenres 640,480,32
EqTri(320,240,100)
sleep