Re: help please

new topic     » goto parent     » topic index » view thread      » older message » newer message 

Hi Brent

This will draw a rectangle.

Euphoria code starts

include graphics.e
sequence startpoint

atom gr, l, w
gr=graphics_mode(18)


procedure recdraw(sequence sp, atom l, atom w)
  draw_line (WHITE, {sp, sp+{l,0}, sp+{l,w}, sp+{0,w}, sp})
end procedure

startpoint = {50,50} -- startpoint of rectangle
l=100                -- length of rectangle
w=50                 -- width of rectangle

recdraw(startpoint, l, w)

End of Euphoria code

Bye
Martin

new topic     » goto parent     » topic index » view thread      » older message » newer message

Search



Quick Links

User menu

Not signed in.

Misc Menu