to draw a rectangle

Thu Mar 27 06:55:36 EDT 2008

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.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://gradsusr.org/pipermail/gradsusr/attachments/20080327/3b38890d/attachment.html 