Changeset 152 for trunk/SRC/ToBeReviewed/PLOTS/DESSINE/tvplus.pro

Timestamp:

08/10/06 09:01:35 (18 years ago)

Author:

smasson

Message:

introduce pltv.pro

File:

• trunk/SRC/ToBeReviewed/PLOTS/DESSINE/tvplus.pro (modified) (6 diffs)

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

@@ -24 +24 @@
 ; are not coded for "scrolling window" case...
 ;
-; @keyword BOTTOM
-; The lowest color index of the colors to be loaded in
-; the bar. default is 0.
-;
-; @keyword C_NAN
+; @keyword BOTTOM {default=1}
+; The lowest color index of the colors to be used
+;
+; @keyword C_NAN {default=!d.n_colors < 255}
 ; The color number that should be used for the NaN values.
-; default value is !d.n_colors < 255
-;
-; @keyword C_MASK
+;
+; @keyword C_MASK {default=0}
 ; The color number that should be used for the mask values.
-; default value is 0
 ;
 ; @keyword OFFSET 
@@ -47 +44 @@
 ; abs(mask)/10. This is necessary to avoid the rounding errors
 ;
-; @keyword MIN 
-; Scalar used to specify the min value of the color bar. default is 0
+; @keyword MIN
+; Scalar used to specify the min value to be drawn.
 ;
 ; @keyword MAX
-; Scalar used to specify the max value of the color bar. default is !d.n_colors < 255
-;
-; @keyword NCOLORS
-; This is the number of colors in the color bar. default is !d.n_colors<255 -1
+; Scalar used to specify the max value to be drawn.
+;
+; @keyword NCOLORS {default=(d.n_colors < 256) - 1 - bottom}
+; number of colors to be used.
 ;
 ; @keyword NOINTERP
 ; Used this keyword if you don't whant that the values
-; are interpolated between 0 (or min) and !d.n_colors < 255 (or max).
+; are interpolated from BOTTOM using NCOLORS colors.
 ; This can be for example usefull when working on byte type arrays.
 ;
@@ -68 +65 @@
 ; default is window number 0.
 ;
+; @keyword _EXTRA
+; used to pass keywords to TV, PLOT, COLORBAR
+; 
 ; @restrictions 
 ; use your mouse to scan the array values...
@@ -112 +112 @@
 ;------------------------------------------------------------
   ncolmax = !d.n_colors < 256
-  IF N_ELEMENTS(bottom) EQ 0 THEN bottom = 0
-  if NOT keyword_set(ncolors) then ncolors = ncolmax-bottom
+  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)
 ;------------------------------------------------------------
@@ -177 +177 @@
     m = 1.*(ncolors-1)/(truemax-truemin)
     p = bottom-1.*truemin*m
-    arr = round(1.*m*arr+p) 
+    arr = round(m*temporary(arr)+p) 
   endif
 ; set c_nan for NaN values 
@@ -188 +188 @@
     arr[masked] = c_mask < (ncolmax -1)
 ; use byte type to save memory
-  arr = byte(arr)
+  arr = byte(temporary(arr))
 ; increase the size of the array in order to be displayed
 ; with the suitable size 
-  arr = congridseb(arr, (size(arr))[1]*cellsize, (size(arr))[2]*cellsize)
+  szarr = size(arr, /dimensions)
+  arr = congrid(temporary(arr), szarr[0]*cellsize, szarr[1]*cellsize)
 ;------------------------------------------------------------
 ; open a window with the correct size