Changeset 328 for trunk/SRC/ToBeReviewed/PLOTS/DESSINE
- Timestamp:
- 12/13/07 20:27:11 (17 years ago)
- Location:
- trunk/SRC/ToBeReviewed/PLOTS/DESSINE
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/plt.pro
r327 r328 347 347 IF keyword_set(strictfill) THEN BEGIN 348 348 tmp = z2d ge max 349 tmp = 1b - byte(extrapolate(tmp, tmp, 1, x_periodic = keyword_set(key_periodic)*(nx EQ jpi) )) 350 trifield = triangule(temporary(tmp)*mask, coinmonte = coinmontemask $ 351 , coindescend = coindescendmask, keep_cont = 0) 352 indicezoommask = (lindgen(jpi, jpj))[firstx:lastx, firsty:lasty] 349 IF total(tmp GE 1) THEN BEGIN 350 tmp = 1b - byte(extrapolate(tmp, tmp, 1, x_periodic = keyword_set(key_periodic)*(nx EQ jpi) )) 351 trifield = triangule(temporary(tmp)*mask, coinmonte = coinmontemask $ 352 , coindescend = coindescendmask, keep_cont = 0) 353 indicezoommask = (lindgen(jpi, jpj))[firstx:lastx, firsty:lasty] 354 ENDIF 353 355 ENDIF 354 356 ; filling the mask values -
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltt.pro
r327 r328 474 474 IF keyword_set(strictfill) THEN BEGIN 475 475 tmp = z2d ge max 476 tmp = 1b - byte(extrapolate(tmp, tmp, 1)) 477 key_save = key_periodic & key_periodic = 0 478 trifield = triangule(temporary(tmp)*mask, coinmonte = coinmontemaskaa $ 479 , coindescend = coindescendmaskaa, keep_cont = 0) 480 key_periodic = key_save 481 usetri = 2 476 IF total(tmp GE 1) THEN BEGIN 477 tmp = 1b - byte(extrapolate(tmp, tmp, 1)) 478 key_save = key_periodic & key_periodic = 0 479 trifield = triangule(temporary(tmp)*mask, coinmonte = coinmontemaskaa $ 480 , coindescend = coindescendmaskaa, keep_cont = 0) 481 key_periodic = key_save 482 usetri = 2 483 ENDIF 482 484 ENDIF 483 485 z2d = remplit(z2d,nite=2+keyword_set(nan), mask = mask, /basique, _extra=ex) … … 494 496 , coindescend = coindescendmask) 495 497 ENDIF 496 IF NOT keyword_set(strictfill)THEN trifield = triangulation498 IF n_elements(key_save) EQ 0 THEN trifield = triangulation 497 499 ;---------------------------------------------------------------------- 498 500 pltbase, z2d, xx, yy, mask, xx, yy, level_z2d, colnumb, contour = contour, /noerase $ -
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltz.pro
r327 r328 311 311 IF keyword_set(strictfill) THEN BEGIN 312 312 tmp = z2d ge max 313 tmp = 1b - byte(extrapolate(tmp, tmp, 1)) 314 key_save = key_periodic & key_periodic = 0 315 trifield = triangule(temporary(tmp)*mask, coinmonte = coinmontemask $ 316 , coindescend = coindescendmask, keep_cont = 0) 317 key_periodic = key_save 313 IF total(tmp GE 1) THEN BEGIN 314 tmp = 1b - byte(extrapolate(tmp, tmp, 1)) 315 key_save = key_periodic & key_periodic = 0 316 trifield = triangule(temporary(tmp)*mask, coinmonte = coinmontemask $ 317 , coindescend = coindescendmask, keep_cont = 0) 318 key_periodic = key_save 319 ENDIF 318 320 ENDIF 319 321 IF n_elements(fillxdir) EQ 0 THEN fillxdir = 1 … … 347 349 ; if keyword_set(notri) then trifield = -1 $ 348 350 ; ELSE trifield = triangule(mask,/basic) 349 if NOT keyword_set(strictfill)AND ((usetri GE 1 AND (vargrid EQ 'T' OR vargrid EQ 'W')) $351 if n_elements(key_save) EQ 0 AND ((usetri GE 1 AND (vargrid EQ 'T' OR vargrid EQ 'W')) $ 350 352 OR (usetri EQ 2 AND (vargrid NE 'T' AND vargrid NE 'W'))) THEN $ 351 353 trifield = triangule(mask, /basic)
Note: See TracChangeset
for help on using the changeset viewer.