!SET MARKER 0 0 .1 
clear plot 
set box /def 
define integer kx kmodel ex ky ey nc i1 i2 
define character xtext*30 ytext*30 atext*30 atype*8 
symbol alimits 'limits' 
! 
if (name.eq." ") then 
  say "Please enter UVfit name (without extension) " 
  let name 
endif 
define image f 'name'.uvfit read 
let nc f%dim[1] 
let i1 max(first,1) 
let i2 last 
if i2.eq.0 then 
  let i2 nc 
endif 
set blanking f%blank[1] f%blank[1]*0.1 
define real x[nc] y[nc] z[nc] 
! 
@ fitheader.graphic 
! 
let kmodel nint(f[i1,6]) 
greg1\set mark 4 0 .2 
if xtype.eq."VELOC" then 
  let kx 4 
  let ex 0 
  let xtext "Velocity" 
else if xtype.eq."RMS" then 
  let kx 1 
  let ex 0 
  let xtext "r.m.s." 
else if xtype.eq."RA" then 
  let kx 8 
  let ex 9 
  let xtext "R.A. Offset" 
else if xtype.eq."DEC" then 
  let kx 10 
  let ex 11 
  let xtext "Dec. offset" 
else if xtype.eq."FLUX" then 
  let kx 12 
  let ex 13 
  let xtext "Flux" 
else if xtype.eq."WIDTH".and.kmodel.eq.3 then 
  let kx 14 
  let ex 15 
  let xtext "Full width" 
else if xtype.eq."ANGLE".and.kmodel.eq.2 then 
  let kx 14 
  let ex 15 
  let xtext "Position angle" 
else if xtype.eq."WIDTH1".and.kmodel.eq.2 then 
  let kx 16 
  let ex 17 
  let xtext "Major axis" 
else if xtype.eq."WIDTH2".and.kmodel.eq.2 then 
  let kx 18 
  let ex 19 
  let xtext "Minor axis" 
else 
  say "Unknown XTYPE: "'xtype' 
  return 
endif 
if ytype.eq."VELOC" then 
  let ky 4 
  let ey 0 
  let ytext "Velocity" 
else if ytype.eq."RMS" then 
  let ky 1 
  let ey 0 
  let ytext "r.m.s." 
else if ytype.eq."RA" then 
  let ky 8 
  let ey 9 
  let ytext "R.A. Offset" 
else if ytype.eq."DEC" then 
  let ky 10 
  let ey 11 
  let ytext "Dec. offset" 
else if ytype.eq."FLUX" then 
  let ky 12 
  let ey 13 
  let ytext "Flux" 
else if ytype.eq."WIDTH".and.kmodel.eq.3 then 
  let ky 14 
  let ey 15 
  let ytext "Full width" 
else if ytype.eq."ANGLE".and.kmodel.eq.2 then 
  let ky 14 
  let ey 15 
  let ytext "Position angle" 
else if ytype.eq."WIDTH1".and.kmodel.eq.2 then 
  let ky 16 
  let ey 17 
  let ytext "Major axis" 
else if ytype.eq."WIDTH2".and.kmodel.eq.2 then 
  let ky 18 
  let ey 19 
  let ytext "Minor axis" 
else 
  say "Unknown YTYPE: "'ytype' 
  return 
endif 
let y f%blank[1] 
set blank f%blank[1] f%blank[2] 
for i i1 to i2 
  let y[i] f[i,ky] 
  let x[i] f[i,kx] 
next 
limits 'alimits' 
points 
connect 
if ex.ne.0 then 
  error x x y f[ex] 
endif 
if ey.ne.0 then 
  error y x y f[ey] 
endif 
box 
label 'xtext' /x 
label 'ytext' /y