1. help please
- Posted by bn <mrsmoo at ES.CO.NZ>
Sep 27, 1998
-
Last edited Sep 28, 1998
------=_NextPart_000_0042_01BDEA52.8BF132E0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
hiya
sorry tis me again
could someone post an example on how to make a rectangle ie:2lines =
together
like this but joint up
=3D=3D=3D=3D
and to form a rectangle
thanx again
brent
------=_NextPart_000_0042_01BDEA52.8BF132E0
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
<HTML>
<HEAD>
<META content=3Dtext/html;charset=3Diso-8859-1 =
http-equiv=3DContent-Type>
<META content=3D'"MSHTML 4.72.3110.7"' name=3DGENERATOR>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV>
<DIV>
<DIV><FONT color=3D#000000 size=3D2>hiya</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2>sorry tis me again</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2>could someone post an example on how =
to make a=20
rectangle ie:2lines together</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2>like this but joint up</FONT></DIV>
<DIV><FONT color=3D#000000 =
=3D=3D=3D=3D=3D=3D=3D</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2>and to form a rectangle</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2>thanx again</FONT></DIV>
<DIV><FONT color=3D#000000 =
------=_NextPart_000_0042_01BDEA52.8BF132E0--
2. Re: help please
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
