pro plot_synspec
; IDL Version 6.1, Mac OS X (darwin ppc m32)
; Journal File for viggohan@smyrna-uio-no.local
; Working directory: /Users/viggohan/Documents/solarb/eis/idl/work
; Date: Fri Jan  6 21:49:59 2006
 
obj=obj_new('eis_synspec','b','ar')
obj->getinfo,lambda,spectrum,id=id 
xmin=170.
xmax=200.
plot_io,lambda,spectrum,xr=[xmin,xmax],yr=[1.e3,1.e5]
nlines = n_elements(id.peak) 
for i=0,nlines-1 do begin 
  if id.peak[i] gt 5.e3 then begin
  if id.wvl[i] gt xmin and id.wvl[i] lt xmax then $
    xyouts,id.wvl[i],3.e4,id.snote[i]+' '+strtrim(string(id.wvl[i]),2),orientation=90
  endif
endfor
end