Changeset 419

Timestamp:

01/19/10 10:37:44 (14 years ago)

Author:

smasson

Message:

add CONTSTRIDE keyword in pltbase

File:

• trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltbase.pro (modified) (3 diffs)

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

@@ -80 +80 @@
 ; To make just colors.
 ;
+; @keyword CONTSTRIDE {type=integer} {default=1}
+; To trace one isoline every contstride.
+;
 ; @keyword UNSUR2
-; To trace one isoline on two.
+; Obsolete. use CONTSTRIDE = 2
 ;
 ; @keyword UNLABSUR {type=integer}
@@ -111 +114 @@
 ;-
 PRO pltbase, z2d, x, y, mask, xm, ym, levels, colors $
-           , UNSUR2=unsur2, CONTOUR=contour $
+           , UNSUR2=unsur2, CONTSTRIDE = contstride, CONTOUR=contour $
            , NOCONTOUR=nocontour, NOFILL=nofill $
            , TRICHAMP=trichamp, TRIMSK=trimsk $
@@ -213 +216 @@
     if NOT keyword_set(nocontour) then begin
       IF keyword_set(unsur2) THEN levels = levels[where(zeroun(n_elements(levels) ) eq 1)]
+      IF keyword_set(contstride) THEN levels = levels[where((indgen(n_elements(levels)) MOD contstride) eq 0)]
 ; Is unlabsur activated?  Does C_LABEL passed via _EXTRA?
       if keyword_set(unlabsur) THEN IF chkstru(ex, 'C_LABELS') THEN $