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