pro plotiss,sharp,prn,title=title

printer=['lp '] ;print to: HPLJ4
;printer=['lpr ','lp ','lp -dmdilj4 '] ;print to: LPS20, LN03 or HPLJ4
if n_elements(prn) eq 0 then prn=0
if NOT keyword_set(title) then title=' '

ampli=['100 V','400 V','1000 V']
frq=[0,1,10,45]
amp=[0,100,400,1000]
opn100=[1,2,13,14]
opn400=[1,5,10,17]
opn1000=[1,6,9,18]
opnran=[1,25,22,21]
cls100=[0,3,12,15]
cls400=[0,4,11,16]
cls1000=[0,7,8,19]
clsran=[0,24,23,20]

!y.style=16
!p.multi=[0,2,2]
mn=min(sharp,max=mx) & mn=mn/sharp(0,0) & mx=mx/sharp(0,1) 

if (prn gt 0) then begin
  print,'Printing curves...'
  set_plot,'ps'
  pnam=strmid(systime(0),11,8)+'.ps'
  device,/landscape,file=pnam
endif

plot,frq,sharp(0,opn100)/sharp(0,1),tit='SINE-WAVE INPUT; X-sharp.',$
  xtit='Jitter Frequency (Hz)',ytit='Sharpness Ratio',yran=[mn,mx]
oplot,frq,sharp(0,cls100)/sharp(0,0)
oplot,frq,sharp(0,opn400)/sharp(0,1),linestyle=1
oplot,frq,sharp(0,cls400)/sharp(0,0),linestyle=1
oplot,frq,sharp(0,opn1000)/sharp(0,1),linestyle=2
oplot,frq,sharp(0,cls1000)/sharp(0,0),linestyle=2

plot,frq,sharp(1,opn100)/sharp(1,1),tit='SINE-WAVE INPUT; Y-sharp.',$
  xtit='Jitter Frequency (Hz)',ytit='Sharpness Ratio',yran=[mn,mx]
oplot,frq,sharp(1,cls100)/sharp(1,0)
oplot,frq,sharp(1,opn400)/sharp(1,1),linestyle=1
oplot,frq,sharp(1,cls400)/sharp(1,0),linestyle=1
oplot,frq,sharp(1,opn1000)/sharp(1,1),linestyle=2
oplot,frq,sharp(1,cls1000)/sharp(1,0),linestyle=2

plot,amp,sharp(0,opnran)/sharp(0,1),tit='RANDOM INPUT (256Hz limited); X-sharp.',$
  xtit='Jitter Amplitude (Volt)',ytit='Sharpness Ratio',yran=[mn,mx]
oplot,amp,sharp(0,clsran)/sharp(0,0)

plot,amp,sharp(1,opnran)/sharp(1,1),tit='RANDOM INPUT (256Hz limited); Y-sharp.',$
  xtit='Jitter Amplitude (Volt)',ytit='Sharpness Ratio',yran=[mn,mx]
oplot,amp,sharp(1,clsran)/sharp(1,0)

xyouts,/norm,0,1.05,title
for i=0,2 do begin
  plots,/norm,[0+i*0.33,0.1+i*0.33],[-.05,-0.05],linestyle=i
  xyouts,/norm,0.12+i*0.33,-.05,ampli(i)
endfor

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

end