Changeset 125 for trunk/SRC/Interpolation/clickincell.pro

Timestamp:

07/06/06 16:10:25 (18 years ago)

Author:

pinsard

Message:

improvements of Interpolation/*.pro header

File:

• trunk/SRC/Interpolation/clickincell.pro (modified) (8 diffs)

trunk/SRC/Interpolation/clickincell.pro

@@ -1 +1 @@
 ;+
-; @file_comments click on a map and find in which cell the click was
+; @file_comments 
+; click on a map and find in which cell the click was
 ;
 ; @categories finding where is a point on a grid
@@ -9 +10 @@
 ;     points).
 ;
-; @keyword /DRAWCELL to draw the cell in which we clicked
+; @keyword DRAWCELL to draw the cell in which we clicked
 ;
 ; @keyword COLOR  the color used to draw the cells (Clicking one more
 ;     time in the same cell will draw the cell with the white color)
 ;
-; @keyword /ORIGINAL to get the position of the cell regarding the original
+; @keyword ORIGINAL to get the position of the cell regarding the original
 ;     grid (with no key_shift, ixminmesh, iyminmesh...)
 ;
-; @keyword /IJ see outpus
+; @keyword IJ see outpus
 ;
 ; @keyword _EXTRA to pass extra keywords to inquad and plot (when /drawcell)
@@ -25 +26 @@
 ;     is in memory in the variable of the common. If /ij keyword is
 ;     activated give 2D array (2, n) which are the i,j position of the
-;     n selected cells. 
+;     n selected cells.
 ;
 ; @uses common.pro
 ;
-; @examples 
+; @examples
 ;
-;   IDL> res = clickincell()
+; IDL> res = clickincell()
 ;     Click with the left button to select a cell. Clicking one more
 ;     time in the same cell remove the cell from the selection.
-;     Click on the right button to quit.  
+;     Click on the right button to quit.
 ;
-;   IDL> plt, findgen(jpi,jpj),/nodata,map=[90,0,0],/ortho
-;   IDL> print, clickincell(/draw,color=150,/xy)
+; IDL> plt, findgen(jpi,jpj),/nodata,map=[90,0,0],/ortho
+; IDL> print, clickincell(/draw,color=150,/xy)
 ;
 ; @history
@@ -44 +45 @@
 ;
 ; @version $Id$
-;
 ;
 ;-
@@ -117 +117 @@
           cellnum = [cellnum, cell]
           selected = [selected, 1]
-          already = n_elements(selected)-1 
+          already = n_elements(selected)-1
         ENDIF ELSE selected[already] = 1-selected[already]
         IF keyword_set(drawcell) THEN BEGIN
@@ -129 +129 @@
       2:                        ; middle button
       ELSE:
-    ENDCASE    
+    ENDCASE
 ; get mousse position on the reference map
 outwhile:
@@ -136 +136 @@
 ;
   good = where(selected NE 0)
-  IF good[0] EQ -1 THEN RETURN, -1 
+  IF good[0] EQ -1 THEN RETURN, -1
 ;
   cellnum = cellnum[good]
@@ -183 +183 @@
   ENDIF
 ;
-  ncell = n_elements(xx) 
+  ncell = n_elements(xx)
   IF keyword_set(ij) THEN $
     RETURN, [reform(xx, 1, ncell, /over) $
-             , reform(yy, 1, ncell, /over)] 
+             , reform(yy, 1, ncell, /over)]
 ;
   IF keyword_set(original) THEN RETURN, xx+jpiglo*yy $
-  ELSE RETURN, xx+jpi*yy 
-END 
+  ELSE RETURN, xx+jpi*yy
+END