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