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

Timestamp:

03/16/07 10:22:26 (17 years ago)

Author:

pinsard

Message:

corrections of some misspellings in some *.pro

File:

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

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

@@ -7 +7 @@
 ; Enhanced version of tvscl
 ;
-; @categories quick exploration of 2D arrays 
-;
-; INPUTS: 
+; @categories quick exploration of 2D arrays
 ;
 ; @param Z2D {in}{required}
@@ -21 +19 @@
 ; of cellsize that forces tvplus to create a window larger than
 ; the screen, a "scrolling window" will be displayed instead of a
-; regular window. Unfortunately the nice functionnalities of tvplus
+; regular window. Unfortunately the nice functionalities of tvplus
 ; are not coded for "scrolling window" case...
 ;
@@ -33 +31 @@
 ; The color number that should be used for the mask values.
 ;
-; @keyword OFFSET 
+; @keyword OFFSET
 ; 2 elements vector used by tvplus itself when showing zoom.
 ; It is used to shift the ranges of xaxis and yaxis.
-; For example: tvplus,sst[x1:x2,y1:y2],offest=[x1,y1]
-;
-; @keyword MASK 
+; For example: tvplus,sst[x1:x2,y1:y2],offset=[x1,y1]
+;
+; @keyword MASK
 ; The mask value. Note that if abs(mask) < 1.e6, then the
 ; exact value of the mask is used to find the maskwd point.
@@ -67 +65 @@
 ; @keyword _EXTRA
 ; used to pass keywords to TV, PLOT, COLORBAR
-; 
-; @restrictions 
+;
+; @restrictions
 ; use your mouse to scan the array values...
 ;     left button  : mouse position and associated array value
@@ -74 +72 @@
 ;     right button : quit
 ;
-; the nice functionnalities of tvplus are not coded
+; the nice functionalities of tvplus are not coded
 ; for "scrolling window" case...
 ;
@@ -102 +100 @@
   arr = reform(float(z2d))
 ;------------------------------------------------------------
-; check the size of the input array 
+; check the size of the input array
 ;------------------------------------------------------------
   if (size(arr))[0] NE 2 then begin
@@ -130 +128 @@
 ;------------------------------------------------------------
 ; Compute the size (in pixel) of the square representing 1
-; point of the input array 
+; point of the input array
 ;------------------------------------------------------------
   dimensions = GET_SCREEN_SIZE()
-  if n_elements(cellsize) EQ 0 then BEGIN 
+  if n_elements(cellsize) EQ 0 then BEGIN
     cellsize = min(floor(dimensions/(size(z2d))[1: 2]*.75))
-  ENDIF ELSE $ 
+  ENDIF ELSE $
 ; we need to use a scrolling bar window
   if cellsize GE min(floor(dimensions/(size(z2d))[1: 2]*.75)) then scrolling = 1
@@ -145 +143 @@
 ; Change the value of the masked value for the min of the non-masked values
 ;------------------------------------------------------------
-  if n_elements(mask) then BEGIN 
-    if abs(mask) LT 1e6 then BEGIN 
+  if n_elements(mask) then BEGIN
+    if abs(mask) LT 1e6 then BEGIN
       masked = where(arr EQ mask)
       if masked[0] NE -1 then arr[masked] = min(arr[where(arr NE mask)])
-    ENDIF ELSE BEGIN 
+    ENDIF ELSE BEGIN
       masked = where(abs(arr) GE abs(mask)/10.)
       if masked[0] NE -1 then arr[masked] = min(arr[where(abs(arr) LT abs(mask)/10.)])
@@ -157 +155 @@
 ; apply min/max keywords
 ;------------------------------------------------------------
-  if n_elements(min) NE 0 then BEGIN 
+  if n_elements(min) NE 0 then BEGIN
     arr = min > arr
     truemin = min
   ENDIF ELSE truemin = min(arr)
-  if n_elements(max) NE 0 then BEGIN 
+  if n_elements(max) NE 0 then BEGIN
     arr = arr < max
     truemax = max
@@ -171 +169 @@
   ENDIF
 ;------------------------------------------------------------
-; apply other keywords (nointerp, c_nan, c_mask) 
+; apply other keywords (nointerp, c_nan, c_mask)
 ;------------------------------------------------------------
   if NOT keyword_set(nointerp) then BEGIN
@@ -177 +175 @@
     m = 1.*(ncolors-1)/(truemax-truemin)
     p = bottom-1.*truemin*m
-    arr = round(m*temporary(arr)+p) 
-  endif
-; set c_nan for NaN values 
+    arr = round(m*temporary(arr)+p)
+  endif
+; set c_nan for NaN values
   if keyword_set(nan) then begin
     if n_elements(c_nan) NE 0 THEN arr[nanindex] = c_nan <  (ncolmax -1) $
@@ -190 +188 @@
   arr = byte(temporary(arr))
 ; increase the size of the array in order to be displayed
-; with the suitable size 
+; with the suitable size
   szarr = size(arr, /dimensions)
   arr = congrid(temporary(arr), szarr[0]*cellsize, szarr[1]*cellsize)
@@ -205 +203 @@
     if NOT keyword_set(window) then window = 0
     window, window, xsize = nx+marginpix[0]+marginpix[1] $
-            , ysize = ny+marginpix[2]+marginpix[3] 
+            , ysize = ny+marginpix[2]+marginpix[3]
 ; for 24 bits colors, make sure thate the background color is the good one...
     if !d.n_colors gt 256 then BEGIN
@@ -215 +213 @@
     tv, arr, marginpix[0], marginpix[2], _EXTRA = ex
 ;
-; axis and plot frame 
+; axis and plot frame
 ;
 ; get the normalized position of the tv (we just done above)
@@ -233 +231 @@
     xenvsauve = !x & yenvsauve = !y & penvsauve = !p
 ;
-; draw the colorbar 
+; draw the colorbar
 ;
     IF truemin ne truemax THEN BEGIN
@@ -244 +242 @@
     ENDIF
 ;      !p.position = poscadre
-  ENDIF ELSE BEGIN 
+  ENDIF ELSE BEGIN
 ;------------------------------------------------------------
 ; scrolling bar window case...
@@ -261 +259 @@
                  , yvisible = round(.7*dimensions[1]) < (size(arr))[2], /register, congrid = 0, show_full = 0
     return
-  ENDELSE 
+  ENDELSE
 ;------------------------------------------------------------
 ; Use the mouse to get nice functionalities