PRO DIG_JPEG,sph,outpath,measurement,line_name,rok,mesic,den,tfirst,picar
;
;Stores JPEG pictures of the spectroheliogram in different visualization scales to the disk.
;Annotates the JPEG pictures (ANOT_JPEG4)
;INPUTS: sph - spectroheliogram array to be stored
;        outpath - output directory (string)
;        measurement - measurement name incl. date (string)
;        line_name - code of spectral line or continuum (string)
;        rok,mesic,den - year, month, day of observations (integers)
;        tfirst - UT in seconds (float)
;OUTPUT: picar - 3D byte array with pictures to display
;
; Copyright M. Klvana and M. Sobotka, ASU AVCR Ondrejov, Czech Rep., 2008

sph0=float(sph)
picar=bytarr(1200,1000,6)
meas_num=strmid(measurement,6,2)   ;seq.number of measurement

;median filtered
if line_name eq 'K3' or line_name eq 'HA' then begin
    sph1=sqrt(sph0)
    sph1=sph1-0.9*median(sph1,79)
    ANOT_JPEG4,sph1,line_name,rok,mesic,den,tfirst,meas_num,sph2
    write_jpeg,outpath+measurement+line_name+'Z'+'.jpg',sph2
    print,' SAVED  ',outpath+measurement+line_name+'Z'+'.jpg'
    picar(0,0,5)=sph2
endif

;white disk
sph1=sph0^0.25
ANOT_JPEG4,sph1,line_name,rok,mesic,den,tfirst,meas_num,sph2
write_jpeg,outpath+measurement+line_name+'W'+'.jpg',sph2
print,' SAVED  ',outpath+measurement+line_name+'W'+'.jpg'
picar(0,0,4)=sph2

;prominence
sph1=sqrt(sph0)
ANOT_JPEG4,sph1,line_name,rok,mesic,den,tfirst,meas_num,sph2
write_jpeg,outpath+measurement+line_name+'P'+'.jpg',sph2
print,' SAVED  ',outpath+measurement+line_name+'P'+'.jpg'
picar(0,0,3)=sph2

;normal
sph1=sph0
ANOT_JPEG4,sph1,line_name,rok,mesic,den,tfirst,meas_num,sph2
write_jpeg,outpath+measurement+line_name+'N'+'.jpg',sph2
print,' SAVED  ',outpath+measurement+line_name+'N'+'.jpg'
picar(0,0,2)=sph2

;dark disk
sph1=sph0^2
ANOT_JPEG4,sph1,line_name,rok,mesic,den,tfirst,meas_num,sph2
write_jpeg,outpath+measurement+line_name+'D'+'.jpg',sph2
print,' SAVED  ',outpath+measurement+line_name+'D'+'.jpg'
picar(0,0,1)=sph2

;black disk
sph1=sph0^3
ANOT_JPEG4,sph1,line_name,rok,mesic,den,tfirst,meas_num,sph2
write_jpeg,outpath+measurement+line_name+'B'+'.jpg',sph2
print,' SAVED  ',outpath+measurement+line_name+'B'+'.jpg'
picar(0,0,0)=sph2

wdelete,2
END