Changeset 19 for trunk/ToBeReviewed/COULEURS/lct.pro

Timestamp:

05/02/06 11:40:19 (18 years ago)

Author:

pinsard

Message:

upgrade of COULEURS according to cerbere.lodyc.jussieu.fr: /usr/home/smasson/SAXO_RD/ : files

File:

• trunk/ToBeReviewed/COULEURS/lct.pro (copied) (copied from trunk/COULEURS/lct.pro) (3 diffs)

trunk/ToBeReviewed/COULEURS/lct.pro

@@ -15 +15 @@
 ; KEYWORD PARAMETERS: ceux de loadct
 ;
+;        LIGHTNESS: a scalar used to change the Lightness of the color
+;            palette to be abble to adjust according to the printer we use,
+;            the media (paper or slide)... 
+;               lightness < 1 to get lighter colors
+;                         > 1 to get darker colors
+;
 ; rq: si le mot cle file n''est pas specifie, on cherche un fichier
 ; contenant les palette du nom de palette.tbl.
@@ -28 +34 @@
 ;------------------------------------------------------------
 ;------------------------------------------------------------
-PRO lct, numero, GET_NAME = get_name, _EXTRA = ex
+PRO lct, numero, GET_NAME = get_name, LIGHTNESS = Lightness, _EXTRA = ex
 @common
 ; le mot cle file est passe par l''intermediere de EXTRA?
@@ -87 +93 @@
       ENDELSE 
 ;
-      if oldname EQ 'PS' then BEGIN 
-         tvlct,  rouge,  vert, bleu, /get
-         palit,  coefpalit
-      endif
+      if oldname EQ 'PS' AND keyword_set(lightness) then palit, lightness 
+;
       set_plot, oldname
       IF oldname EQ 'X' OR oldname EQ 'MAC' OR oldname EQ 'WIN' then BEGIN