1 | ;+ |
---|
2 | ; |
---|
3 | ; MODIFICATION HISTORY: Sebastien Masson (smasson@lodyc.jussieu.fr) |
---|
4 | ; JUne 2005 |
---|
5 | ;- |
---|
6 | ; |
---|
7 | ; common declaration |
---|
8 | ; |
---|
9 | ; check that key_forgetold and keep_compatibility are well defined... |
---|
10 | ; |
---|
11 | IF n_elements(key_forgetold) EQ 0 THEN keep_compatibility |
---|
12 | IF n_elements(myuniquetmpdir) EQ 0 THEN keep_compatibility |
---|
13 | IF NOT file_test(myuniquetmpdir) THEN keep_compatibility, 1b - key_forgetold |
---|
14 | ; |
---|
15 | @oldcm_used |
---|
16 | ; |
---|
17 | key_forgetold = keyword_set(key_forgetold) |
---|
18 | ; |
---|
19 | IF NOT key_forgetold AND n_elements(sauveps) NE 0 THEN archive_ps = sauveps |
---|
20 | ; |
---|
21 | IF NOT key_forgetold AND n_elements(grandfeuille) NE 0 AND n_elements(petitfeuille) NE 0 THEN $ |
---|
22 | page_size = [min([petitfeuille, grandfeuille], max = size_ma), temporary(size_ma)] |
---|
23 | IF NOT key_forgetold AND n_elements(margescadre) NE 0 THEN page_margins = margescadre |
---|
24 | IF NOT key_forgetold AND n_elements(ccwindowsize) NE 0 THEN windowsize_scale = ccwindowsize |
---|
25 | ; |
---|
26 | IF NOT key_forgetold AND n_elements(prof1) NE 0 THEN vert1 = prof1 |
---|
27 | IF NOT key_forgetold AND n_elements(prof2) NE 0 THEN vert2 = prof2 |
---|
28 | ; |
---|
29 | IF NOT key_forgetold AND n_elements(premierxt) NE 0 THEN firstxt = premierxt |
---|
30 | IF NOT key_forgetold AND n_elements(premierxu) NE 0 THEN firstxu = premierxu |
---|
31 | IF NOT key_forgetold AND n_elements(premierxv) NE 0 THEN firstxv = premierxv |
---|
32 | IF NOT key_forgetold AND n_elements(premierxf) NE 0 THEN firstxf = premierxf |
---|
33 | IF NOT key_forgetold AND n_elements(premieryt) NE 0 THEN firstyt = premieryt |
---|
34 | IF NOT key_forgetold AND n_elements(premieryu) NE 0 THEN firstyu = premieryu |
---|
35 | IF NOT key_forgetold AND n_elements(premieryv) NE 0 THEN firstyv = premieryv |
---|
36 | IF NOT key_forgetold AND n_elements(premieryf) NE 0 THEN firstyf = premieryf |
---|
37 | IF NOT key_forgetold AND n_elements(premierzt) NE 0 THEN firstzt = premierzt |
---|
38 | IF NOT key_forgetold AND n_elements(premierzw) NE 0 THEN firstzw = premierzw |
---|
39 | IF NOT key_forgetold AND n_elements(dernierxt) NE 0 THEN lastxt = dernierxt |
---|
40 | IF NOT key_forgetold AND n_elements(dernierxu) NE 0 THEN lastxu = dernierxu |
---|
41 | IF NOT key_forgetold AND n_elements(dernierxv) NE 0 THEN lastxv = dernierxv |
---|
42 | IF NOT key_forgetold AND n_elements(dernierxf) NE 0 THEN lastxf = dernierxf |
---|
43 | IF NOT key_forgetold AND n_elements(dernieryt) NE 0 THEN lastyt = dernieryt |
---|
44 | IF NOT key_forgetold AND n_elements(dernieryu) NE 0 THEN lastyu = dernieryu |
---|
45 | IF NOT key_forgetold AND n_elements(dernieryv) NE 0 THEN lastyv = dernieryv |
---|
46 | IF NOT key_forgetold AND n_elements(dernieryf) NE 0 THEN lastyf = dernieryf |
---|
47 | IF NOT key_forgetold AND n_elements(dernierzt) NE 0 THEN lastzt = dernierzt |
---|
48 | IF NOT key_forgetold AND n_elements(dernierzw) NE 0 THEN lastzw = dernierzw |
---|
49 | ; |
---|
50 | IF NOT key_forgetold AND n_elements(triangles) NE 0 THEN triangles_list = triangles |
---|
51 | IF NOT key_forgetold AND n_elements(cointerremont) NE 0 THEN twin_corners_up = cointerremont |
---|
52 | IF NOT key_forgetold AND n_elements(cointerredesc) NE 0 THEN twin_corners_dn = cointerredesc |
---|
53 | ; |
---|
54 | IF NOT key_forgetold AND n_elements(key_periodique) NE 0 THEN key_periodic = key_periodique |
---|
55 | ; |
---|
56 | IF NOT key_forgetold AND n_elements(coefpalit) NE 0 AND n_elements(Lightness) EQ 0 $ |
---|
57 | THEN Lightness = coefpalit |
---|
58 | ; |
---|