Changeset 223 for trunk/SRC/ToBeReviewed/PLOTS/DESSINE/scontour.pro

Timestamp:

03/14/07 18:13:39 (17 years ago)

Author:

pinsard

Message:

improvements of some *.pro

File:

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

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

@@ -4 +4 @@
 ;+
 ;
-; @File_comments
+; @file_comments
 ; Same thing that contour but compatible with the whole environment (common.pro included)
 ;
-; @categories 
+; @categories
 ; Graphics
 ;
 ; @keyword NOREINITPLT
-; We active it if we do not want environment variables !p, !x, !y, !z 
+; We active it if we do not want environment variables !p, !x, !y, !z
 ; to be reinitilalizated by the procedure reinitplt
-; 
+;
 ; @keyword _EXTRA
 ; used to pass your keywords
@@ -21 +21 @@
 ;
 ; @examples
-;      IDL> z = dist(100) 
+;      IDL> z = dist(100)
 ;      IDL> scontour, z, nlevels=10,small=[1,2,1],xstyle=1,ystyle=1
 ;      IDL> \@ps
 ;
-; @history Sebastien Masson (smasson\@lodyc.jussieu.fr)
-;                      10/10/1999
-; 
+; @history
+; Sebastien Masson (smasson\@lodyc.jussieu.fr)
+; 10/10/1999
+;
 ; @version
 ; $Id$
@@ -40 +41 @@
 ;
 @common
-; 1) I reinitializate the graphic environment (variables !x, !y et !p): 
-  if NOT keyword_set(NOREINITPLT) then reinitplt, _extra = ex 
-; 2) i put the drawing on the screen like on the postcript 
+; 1) I reinitializate the graphic environment (variables !x, !y et !p):
+  if NOT keyword_set(NOREINITPLT) then reinitplt, _extra = ex
+; 2) i put the drawing on the screen like on the postcript
 ; if ex contains norease and c_orientation keywords we force ex.noerase = 0
   IF chkstru(ex, 'overplot') EQ 0 THEN placedessin, 'autre', _extra = ex
@@ -53 +54 @@
     dummy = where(alltags EQ 'noerase', count1)
     dummy = where(alltags EQ 'c_orientation', count2)
-    IF count1*count2 NE 0 THEN BEGIN 
+    IF count1*count2 NE 0 THEN BEGIN
       case n_params() OF
         1:contour, x, /nodata, _EXTRA = ex
@@ -62 +63 @@
       ex = get_extra(/overplot, _extra = ex)
       noerase_orientation = 1
-    ENDIF 
-  ENDIF 
-; 3) je fais mon joli dessin 
+    ENDIF
+  ENDIF
+; 3) je fais mon joli dessin
   case n_params() OF
     1:contour, x, xstyle = 1, ystyle = 1, _EXTRA = ex
@@ -81 +82 @@
   ENDIF
 ; 4) End of drawing
-  terminedessin, _extra = ex 
+  terminedessin, _extra = ex
 
   return