source: trunk/init_interp.pro @ 2

Last change on this file since 2 was 2, checked in by pinsard, 18 years ago

initial import from /usr/work/fvi/OPA/geomag/

File size: 1.4 KB
Line 
1;------------------------------------------------------------
2; MODIFICATION HISTORY: Sebastien Masson (smasson@lodyc.jussieu.fr)
3;                       26/5/98
4;------------------------------------------------------------
5
6!path=expand_path('+/usr/home/robin/IDL/FRED/TOOLS/INTERP')+':'+expand_path('+/usr/home/smasson/IDL_RD')+':'+expand_path('+'+!dir)
7;------------------------------------------------------------
8@common
9;--------------------------------------------------------
10;   definition par defaut du fichier que l''on traite
11;------------------------------------------------------
12vargrid = 'T'
13varname = ' '
14vardate= '0'
15varexp = ' '
16varunit = ' '
17;----------------------------------------------------------
18; environnement graphique (window et ps)
19;----------------------------------------------------------
20; travail en batch
21; ****************
22; set_plot, 'z'
23;
24; travail en interactif
25; *********************
26window, colors=100 & wdelete
27if !d.n_colors gt 256 then device,  decomposed = 0 $
28ELSE device, pseudo_color=8
29lct, 37
30c_lab=0
31c_cote=0
32c_cont = (!d.n_colors-1) < 255
33tvlct, rouge,vert,bleu, /get
34coefpalit=.3
35key_portrait = 1
36!except = 2
37;----------------------------------------------------------
38grandfeuille = 29.7
39petitfeuille = 21.
40;----------------------------------------------------------
41;----------------------------------------------------------
42sauveimage = 0
43sauveps = 0
44
Note: See TracBrowser for help on using the repository browser.