summary.pro (Kronos IDL library)

;+
; Contains the summary procedure
;
; :Author:
;    Baptiste Cecconi
;
; :History:
;    2008/05/15: Created
;
;    2011/01/05: Last Edit
;-
;
;+
; summary plots Kronos entre datedeb et datefin, 24h / page, echelle log
; production de PDF et LIS journaliers
;
; :Uses:
;    aj_amj, delpath, dyn, extpath, extrait_mode, liste_comp, plot_spdyn
;
; :Params:
;    datedeb:  in, required, type=sometype
;       A parameter named datedeb
;    datefin:  in, required, type=sometype
;       A parameter named datefin
;
; :Keywords:
;    nblocks:  in, optional, type=sometype
;       A keyword named nblocks
;    print_ps: in, optional, type=sometype
;       A keyword named print_ps
;-
pro SUMMARY, datedeb,datefin, nblocks = nblocks,print_ps=print_ps

printer_name = 'hp5100_bat16' 
;printer_name = 'QMS_2425_Bat_16'
;printer_name = 'phaser8560_bat16_obspm_fr'

if not(keyword_set(nblocks)) then nblocks = 1 

set_plot,'ps'

  device, yoff=27.7, xsize=27., xoff=0.8, ysize=19.5, /landscape    ; sum/gif/pdf
; device, yoff=29., xsize=28.3, xoff=0.8, ysize=19.5, /landscape        ; big
; device, yoff=27., xsize=24.,  xoff=2.,  ysize=17.,  /landscape
; device, yoff=0.7, ysize=28.3, xoff=0.8, xsize=19.5, /portrait         ; big
; device, yoff=2.3, ysize=25.,  xoff=1.5, xsize=18.,  /portrait

device, bits=8
!p.font=0

for i=datedeb,datefin do begin
	
	pFileList=make_file_list(i, 0l, i, 24l, level='k', /noemptyfiles)
	if (ptr_valid(pFileList)) then begin
		FileList=*pFileList
		ptr_free, pFileList
	
		fichier=FileList[0]
		f = DELPATH(fichier)
		faaaajjj = long(strmid(f,1,7))
		path=EXTPATH(fichier)
		path=strmid(path,0,strlen(path)-2)
		nom=strtrim(long(i),2)
		nomlis=path+'lis/'+nom+'.lis'
		LISTE_COMP, i, 0, i, 24, nomlis, 0
		
		nomfich=path+'pdf/'+nom
		device,file=nomfich+'.ps'
		!p.multi=[0,1,2]
		ii=strtrim(aj_amj(i),2)

		PLOT_SPDYN, i,  0,24, 1,1,1, 3.5,16125., 1,0, 90,2, $
		  '     '+strmid(ii,0,4)+'/'+strmid(ii,4,2)+'/'+strmid(ii,6,2), tabx, $
		  nblocks=nblocks, /log
	  
		EXTRAIT_MODE, nomlis, 73, 'Df', aj,hd,hf
		plot, [0,24],[0,0],/noerase,xra=[0,24],xstyle=13,yra=[-0.1,0.1],ystyle=13,$
		  pos=[0.08,0.030,0.88,0.040]
		if aj(0) ne -1 then $
		  for j=0,n_elements(aj)-1 do oplot,[hd(j),hf(j)],[0,0],thick=8.
		xyouts,24.3,-0.05,'df-ABC',charsize=0.7
   
		EXTRAIT_MODE, nomlis, 95, 'Df', aj,hd,hf
		plot, [0,24],[0,0],/noerase,xra=[0,24],xstyle=13,yra=[-0.1,0.1],ystyle=13,$
		  pos=[0.08,0.045,0.88,0.055]
		if aj(0) ne -1 then $
		  for j=0,n_elements(aj)-1 do oplot,[hd(j),hf(j)],[0,0],thick=8.
		xyouts,24.3,-0.05,'df-H1',charsize=0.7
	 
		EXTRAIT_MODE, nomlis, 134, 'Df', aj,hd,hf
		plot, [0,24],[0,0],/noerase,xra=[0,24],xstyle=13,yra=[-0.1,0.1],ystyle=13,$
		  pos=[0.08,0.060,0.88,0.070]
		if aj(0) ne -1 then $
		  for j=0,n_elements(aj)-1 do oplot,[hd(j),hf(j)],[0,0],thick=8.
		xyouts,24.3,-0.05,'df-H2',charsize=0.7
		
		device,/close
		
; Make PDF from temp. PS file.
		spawn,'ps2pdf '+nomfich+'.ps '+nomfich+'.pdf'
  
; Print temp. PS file if keyword '/print_ps' is set.
		if keyword_set(print_ps) then spawn,'lp -c -d '+printer_name+' '+nomfich+'.ps'
		
; Delete temp. PS file.
		spawn,'/rm '+nomfich+'.ps'
		
	endif
endfor

; Update the Kronos Database with the new files
spawn, [getenv('ROOT_RPWS') + '/pro/kronosdb/upsert.sh', '-l', 'pdf', string(format='(I7)', datedeb), string(format='(I7)', datefin)], /NOSHELL

return
end