* title.gs
*
* This is an alternative to the 'draw title' command in GrADS.
* Font characteristics are controlled by five script variables:
* height, width, color, thickness, and font number.
* The sole argument is a string of any length which may
* contain backslashes ("\") to indicate carriage returns.
* Written by Jennifer M. Adams, January 2007
*
function title (arg)
* Set the text characteristics
height=0.20
width=0.18
color=1
thickness=1
fnum=0

* Check for backslashes
nbreaks=0
len=math_strlen(arg)
i=1
while (i<=len)
char=substr(arg,i,1)
if (char = '\')
  nbreaks=nbreaks+1
  break.nbreaks = i
endif
i=i+1
endwhile

* Figure out where the title will go
'q gxinfo'
xlims=sublin(result,3)
ylims=sublin(result,4)
ytop=subwrd(ylims,6)
xleft=subwrd(xlims,4)
xright=subwrd(xlims,6)
xmid=xleft+(xright-xleft)/2

* Set up the string characteristics
'set string 'color' bc 'thickness
'set strsiz 'width' 'height

* Draw the title
if (nbreaks)
arg.1 = substr(arg,1,break.1-1)
if (nbreaks=1)
  arg.2 = substr(arg,break.1+1,len-break.1);* two lines
  nargs=2
else
  i=2
  while (i<=nbreaks)
   s=i-1
   start = break.s
   start = start+1
   e=i
   end = break.e
   length = end-start
   arg.i = substr(arg,start,length)
   i=i+1
  endwhile
  start = break.nbreaks
  start = start+1
  length = len-start+1
  nargs=nbreaks+1
  arg.nargs = substr(arg,start,length)
endif

i=1
while (i<=nargs)
'draw string 'xmid' 'ytop+(height)+((nargs-i)*(1.5*height))'
`'fnum''arg.i
  i=i+1
endwhile

else
'draw string 'xmid' 'ytop+height' `'fnum''arg
endif