pro setdef
@pltdat.h
;
flnm = !datname
finderspec = '/d/foster/xidl'
ludat = -1
ifileframe = 0
wxoffset = 625
wyoffset = 15
Wwidth = 450
Wheight = 450
black = 0 & white = !d.table_size-1
spval = 1.e36
imscale = 8
contline = 0 ; 0->solid, 1->dotted, 2->dashed contour lines
imcon = 1
iframe = 1
ut = 0.
cgmname = !tmpdir + '/tgcmidl.cgm' ; default ncgm metacode file name
sunname = !tmpdir + '/tgcmidl.sun' ; default sun raster file name
ifrcgm = 1 & ifrsun = 1
opencgm = 0
writecgm = 0
;
; Postscript device:
;
psdev = {				$
  psname: !tmpdir + '/tgcmidl.ps',	$; default postscript file name
  ifrps:1,				$; number of frames in current ps file
  openps:0,				$; open flag
  writeps:0,				$; close flag
  encap:0				}; encapsulate toggle
;
if !clrtabfile eq '/usr/local/pkg/idl/colors1.tbl' then idlct = 33 else $
  idlct = 38
loadct,idlct,file=!clrtabfile
fixclrtab
;
; Main frame structure:
;
  frame = {		$
    hdr:strarr(4),	$
    nx:0,		$
    xx:0.,		$
    xlab:'',		$
    ny:0,		$
    yy:0.,		$
    ylab:'',		$
    zz:0.,		$
    toplab:'',		$
    botlab:''		}
;
; Frame structures for U and V:
;
  uframe = {		$
    hdr:strarr(4),	$
    nx:0,		$
    xx:0.,		$
    xlab:'',		$
    ny:0,		$
    yy:0.,		$
    ylab:'',		$
    zz:0.,		$
    toplab:'',		$
    botlab:''		}
;
  vframe = {		$
    hdr:strarr(4),	$
    nx:0,		$
    xx:0.,		$
    xlab:'',		$
    ny:0,		$
    yy:0.,		$
    ylab:'',		$
    zz:0.,		$
    toplab:'',		$
    botlab:''		}
;
; Custom contouring structure:
;
cont = {contstruct,     $
  nlev:12,              $
  nthlab:2,             $
  conclr:white,         $
  prntcon:1,            $
  imapply:0,		$
  cmin:0.,              $
  cmax:0.,              $
  cint:0.               }
;
; Maps structure:
;
contline = 0 ; 0->solid, 1->dotted, 2->dashed
map = {mapstruct,	$
  proj:'GLOBAL CYLINDRICAL EQUIDISTANT',$
  projcen:[0.,0.],	$
  stperim:-27.5,	$ ; perimeter lat for polar stereographic 
  erad:7.,		$ ; # earth radii to center of sat view proj
  imcompress:4,		$
  log10:0,		$
  continents:-1,	$
  grid:-1,		$
  sltxax:0 		$
}
conimage_nxticlabs = 0
conimage_xticlabs = ['']
conimage_nyticlabs = 0
conimage_yticlabs = ['']
conimage = {	$
  log10:0	$
}
;
; xy line structure:
;
xyline = {	$
  log10:0	$
}
;
; Vectors structure:
;
vecfile = !vecname	; ascii file with u and v data
luvec = -1
vec = {vecstruct,	$
  ivec:0,		$ ; 0->no vec, 1->vecs alone, 2->overlay vecs
  vmag:0.,		$ ; magnitude of scale arrow (m/s)
  vlen:.07,		$ ; length of scale arrow (normalized)
  vclr:0,		$ ; color index for vector arrows
  uvframes:[1,2]	$ ; frame numbers in vfile for u and v
}
;
; Initialize widgets in common:
;
wtxt_flnm = -1
finderbase = -1
mapbase = -1
vecbase = -1
contbase = -1
helpbase = -1
utbase = -1
wrfilesbase = -1
conimagebase = -1
xylinebase = -1
gotobase = -1
wbut_goto = -1
wbut_next = -1
wbut_prnthdr = -1
return
end