pro plotsharp,list,sharp,prn,title=title

!p.multi=[0,2,2]
if n_elements(prn) eq 0 then prn=0
if keyword_set(title) then title=title else title=' '
if (prn gt 0) then begin
  printer=['lpr ','lp ','lp -dmdilj4 '] ;print to: LPS20, LN03 or HPLJ4
  set_plot,'ps'
  device,/land,yoffs=10.75,xoffs=0.5,ysize=7.0,xsize=10.5,/in
endif

s=size(sharp)
for i=0,s(2)-1 do begin
  mn=min([min(sharp(0,i,*),max=mx1),min(sharp(1,i,*),max=mx2)])
  mx=max([mx1,mx2])
  if !p.multi(0) eq 3 then begin 
    xyouts,/norm,0,1.05,title
    xyouts,/norm,0,1.01,'solid: in X; dotted: in Y'
  endif
  plot,list,sharp(0,i,*),yran=[mn,mx],xtit='Image number',ytit='Sharpness',$
	tit='Location: '+strtrim(string(i+1),2)
  oplot,list,sharp(1,i,*),linestyle=1
endfor

if (prn gt 0) then begin
  device,/close
  set_plot,'x'
  spawn,printer(prn-1)+'idl.ps'
endif
!p.multi=0

end