Changeset 286 for trunk

Timestamp:

09/14/07 15:19:43 (17 years ago)

Author:

smasson

Message:

slight improve of pltv

File:

• trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltv.pro (modified) (7 diffs)

trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltv.pro

@@ -19 +19 @@
 ; @param MAX {in}{optional}{default=max of DATA (on non-masked points)}
 ;
-; @keyword BOTTOM {default=0}
-; The lowest color index of the colors to be used
+; @keyword BOTTOM {default=1}
+; The lowest color index of the colors to be used.
 ;
 ; @keyword BOXZOOM
@@ -40 +40 @@
 ; The color number that should be used for the mask values.
 ;
+; @keyword INV
+; Reverse the color order
+;
 ; @keyword MASKVAL {default=1.e+20}
 ; The mask value. Note that if abs(mask) < 1.e6, then the
@@ -71 +74 @@
 ;
 PRO pltv, data, min, max, BOTTOM = bottom, BOXZOOM = boxzoom $
-          , C_MASK = c_mask, C_NAN = c_nan, MININ = minin, MAXIN = maxin $
+          , C_MASK = c_mask, C_NAN = c_nan, INV = inv,  MININ = minin, MAXIN = maxin $
           , MASKVAL = maskval, NCOLORS = ncolors, NOINTERP = nointerp $
           , _EXTRA = ex
@@ -103 +106 @@
 ;------------------------------------------------------------
   ncolmax = !d.n_colors < 256
-  IF n_elements(bottom) EQ 0 THEN bottom = 1
-  IF NOT keyword_set(ncolors) then ncolors = ncolmax - 1 - bottom
-  topcol = (bottom + ncolors - 1) < (ncolmax - 1)
+  IF n_elements(bottom) EQ 0 THEN bottom = 1 ELSE bottom = 0 > bottom
+  IF NOT keyword_set(ncolors) then topcol = ncolmax - 2 ELSE topcol = (bottom + ncolors - 1) < (ncolmax - 1)
+  ncolors = topcol - bottom + 1
 ;------------------------------------------------------------
 ; Do we have NaN values in z2d???
@@ -153 +156 @@
     z2d[maskind] = cmask
   ENDIF
+; reverse colors (from topcol to bottom instead of bottom to topcol)
+  IF keyword_set(inv) THEN BEGIN
+    m = float(topcol   - bottom  )/float(bottom - topcol)
+    p = float(bottom^2 - topcol^2)/float(bottom - topcol)
+    z2d = m * temporary(z2d) + p
+  ENDIF
+; avoid rounding errors
   z2d = round(temporary(z2d))
 ; use byte type to save memory
@@ -184 +194 @@
             , INTERVALLE = float(max-min)/(topcol-bottom) $
             , _extra = ex
-   plot, [0], [0], /noerase, /nodata, xstyle = 1, ystyle = 1
+   plot, [0], [0], /noerase, /nodata, xstyle = 1, ystyle = 1, _extra = ex
 
    IF keyword_set(masked) THEN tracemask, msk, indgen(dtasize[0]), indgen(dtasize[1])
@@ -190 +200 @@
 ; color bar
 ;------------------------------------------------------------
-   barrecouleur, 0, min,  max, 10, bottom = bottom, position = posbar, ncolors = (topcol-bottom+1), _extra = ex
+   IF keyword_set(inv) THEN colors = topcol - bindgen(ncolors) ELSE colors = bottom + bindgen(ncolors)
+   barrecouleur, colors, min,  max, 10, position = posbar,  _extra = ex
 ; 4) End of drawing
    terminedessin, _extra=ex