Changeset 419 for trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltbase.pro
- Timestamp:
- 01/19/10 10:37:44 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltbase.pro
r390 r419 80 80 ; To make just colors. 81 81 ; 82 ; @keyword CONTSTRIDE {type=integer} {default=1} 83 ; To trace one isoline every contstride. 84 ; 82 85 ; @keyword UNSUR2 83 ; To trace one isoline on two.86 ; Obsolete. use CONTSTRIDE = 2 84 87 ; 85 88 ; @keyword UNLABSUR {type=integer} … … 111 114 ;- 112 115 PRO pltbase, z2d, x, y, mask, xm, ym, levels, colors $ 113 , UNSUR2=unsur2, CONT OUR=contour $116 , UNSUR2=unsur2, CONTSTRIDE = contstride, CONTOUR=contour $ 114 117 , NOCONTOUR=nocontour, NOFILL=nofill $ 115 118 , TRICHAMP=trichamp, TRIMSK=trimsk $ … … 213 216 if NOT keyword_set(nocontour) then begin 214 217 IF keyword_set(unsur2) THEN levels = levels[where(zeroun(n_elements(levels) ) eq 1)] 218 IF keyword_set(contstride) THEN levels = levels[where((indgen(n_elements(levels)) MOD contstride) eq 0)] 215 219 ; Is unlabsur activated? Does C_LABEL passed via _EXTRA? 216 220 if keyword_set(unlabsur) THEN IF chkstru(ex, 'C_LABELS') THEN $
Note: See TracChangeset
for help on using the changeset viewer.