procedure mkxdispflat  (image )
 
#
# Procedure to display straightened OSIRIS Spectra 
# by Richard Elston 8/17/93
#

string image  {prompt="input raw image prefix"}
string post   {'sub',prompt="input image post script",mode='h'}


begin

	string inimage
	inimage=image

#
# display the subimages            
#


display (inimage//".k"//post,
1, erase=yes, border_erase=no, select_frame=yes, repeat=no, fill=no,
zscale=yes, contrast=0.25, zrange=yes, nsample_line=5, xcenter=0.5,
ycenter=0.8, xsize=1., ysize=1., xmag=2., ymag=1., order=0, z1=INDEF,
z2=INDEF, ztrans="linear", lutfile="")

display (inimage//".h"//post,
1, erase=no, border_erase=no, select_frame=yes, repeat=no, fill=no,
zscale=yes, contrast=0.25, zrange=yes, nsample_line=5, xcenter=0.5,
ycenter=0.6, xsize=1., ysize=1., xmag=2., ymag=1., order=0, z1=INDEF,
z2=INDEF, ztrans="linear", lutfile="")

display (inimage//".j"//post,
1, erase=no, border_erase=no, select_frame=yes, repeat=no, fill=no,
zscale=yes, contrast=0.25, zrange=yes, nsample_line=5, xcenter=0.5,
ycenter=0.4, xsize=1., ysize=1., xmag=2., ymag=1., order=0, z1=INDEF,
z2=INDEF, ztrans="linear", lutfile="")

display (inimage//".i"//post,
1, erase=no, border_erase=no, select_frame=yes, repeat=no, fill=no,
zscale=yes, contrast=0.25, zrange=yes, nsample_line=5, xcenter=0.5,
ycenter=0.2, xsize=1., ysize=1., xmag=2., ymag=1., order=0, z1=INDEF,
z2=INDEF, ztrans="linear", lutfile="")


end