;------------------------------------------------------------
; MODIFICATION HISTORY: Sebastien Masson (smasson@lodyc.jussieu.fr)
;                       26/5/98
;------------------------------------------------------------

!path=expand_path('+/usr/home/robin/IDL/FRED/TOOLS/INTERP')+':'+expand_path('+/usr/home/smasson/IDL_RD')+':'+expand_path('+'+!dir)
;------------------------------------------------------------
@common
;--------------------------------------------------------
;   definition par defaut du fichier que l''on traite
;------------------------------------------------------
vargrid = 'T'
varname = ' '
vardate= '0'
varexp = ' '
varunit = ' '
;----------------------------------------------------------
; environnement graphique (window et ps)
;----------------------------------------------------------
; travail en batch
; ****************
; set_plot, 'z'
;
; travail en interactif
; *********************
window, colors=100 & wdelete
if !d.n_colors gt 256 then device,  decomposed = 0 $
ELSE device, pseudo_color=8
lct, 37
c_lab=0
c_cote=0
c_cont = (!d.n_colors-1) < 255
tvlct, rouge,vert,bleu, /get
coefpalit=.3
key_portrait = 1
!except = 2
;----------------------------------------------------------
grandfeuille = 29.7
petitfeuille = 21.
;----------------------------------------------------------
;----------------------------------------------------------
sauveimage = 0
sauveps = 0