Frame Thickness

[Prince K. Xavier]

Hi Eric,

here is a tricky function to do that. hope it helps!

*********************************************
function frame(args)

* function to draw a frame of user defined arguments
* One has to use 'set frame off' before display and use the following
* command after the display
*
* Usage
*
* 'frame color style thickness'
*
* Prince K Xavier (Jan2003)

'q gxinfo'

aa=sublin(result,3)
bb=sublin(result,4)

  x1=subwrd(aa,4)
  x2=subwrd(aa,6)

  y1=subwrd(bb,4)
  y2=subwrd(bb,6)

if(args='')
   say No' 'arguments' 'found' 'for' 'frame
   say 'Using color=1 style=1 thickness=6 as default'
   col=1
   sty=1
   thk=6
else
   col = subwrd(args,1)
   sty = subwrd(args,2)
   thk = subwrd(args,3)
endif

'set line 'col' 'sty' 'thk
'draw rec 'x1' 'y1' 'x2' 'y2

return

*****************************************



On Sun, 13 Mar 2005, Eric Aligo wrote:

> Is there an option to control the frame thickness?  Any information would
> be greatly appreciated.
>
> Eric
>

--
Prince K XAVIER
Centre for Atmospheric and Oceanic Sciences
Indian Institute of Science
Bangalore - 560 012
INDIA
http://caos.iisc.ernet.in/hpg/students/prince.html
__________________________________________________
Phone No.
+91-80-2293 2505(Office)
+91 98808 19172 (Mobile)