to draw a rectangle

[Sachin Ghude]

Hi,

may be you can try following option.

set line 0 1 6

query w2xy 65 8

xlo=subwrd(result,3)

ylo=subwrd(result,6)

say'(xlo,ylo)=('xlo','ylo')'

query w2xy 95 35

xhi=subwrd(result,3)

yhi=subwrd(result,6)

say'(xhi,yhi)=('xhi','yhi')'

draw rec 'xlo''ylo''xhi''yhi'

Sachin  Ghude

---------- Original Message -----------
From: Eduardo Agosta Scarel <eduardo.agosta at GMAIL.COM>
To: GRADSUSR at LIST.CINECA.IT
Sent: Thu, 27 Mar 2008 07:55:36 -0300
Subject: to draw a rectangle

> Hello Dear Grads' Users
>
> I am trying to draw a rectangle doing as follows:
>
> 'set gxout contour'
> 'set cthick 20'
> 'set cint 5.0'
> 'set ccolor 1'
> 'd hgtcom-hgtc'
>
> x0=-65
> y0=-28
> x1=-70
> y1=-38
> 'q w2xy 'x0' 'y0
> nx0 = subwrd(result,1)
> ny0 = subwrd(result,2)
> 'q w2xy 'x1' 'y1
> nx1 = subwrd(result,1)
> ny1 = subwrd(result,2)
> 'draw rec 'nx0' 'ny0' 'nx1' 'ny1
>
> But it doesn't work!
> What's wrong?
>
> Thanks in advance.
>
> Eduardo.
>
------- End of Original Message -------

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://gradsusr.org/pipermail/gradsusr/attachments/20080327/6b6de480/attachment.html