to draw a rectangle

[1T(T) Leandro Machado]

Eduardo

Change

nx0 = subwrd(result,1)
ny0 = subwrd(result,2)

to

nx0 = subwrd(result,3)
ny0 = subwrd(result,6)

and

nx1 = subwrd(result,1)
ny1 = subwrd(result,2)

On Thu, 27 Mar 2008 07:55:36 -0300, Eduardo Agosta Scarel wrote
> 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.
>

1T(T) Leandro Machado
Ajudante da Seção de Modelagem Atmosférica
Centro de Hidrografia da Marinha
R Barão de Jaceguai, s/n
Ponta da Armação - Niterói
CEP 24.048-900
tel: (21) 2189-3282/3283 fax: (21) 2189-3295

to

nx1 = subwrd(result,3)
ny1 = subwrd(result,6)


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