Changeset 483 for trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltt.pro
- Timestamp:
- 04/11/13 11:09:49 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltt.pro
r476 r483 469 469 masknan = finite(z2d) 470 470 IF NOT keyword_set(nofill) THEN z2d[where(masknan EQ 0)] = max 471 mask = temporary(mask)*temporary(masknan) 471 masksave = mask 472 mask = temporary(mask)*masknan 472 473 ENDIF 473 474 usetri = 0 ; default definition … … 483 484 ENDIF 484 485 ENDIF 485 z2d = remplit(z2d, nite=2+keyword_set(nan), mask = mask, /basique, _extra=ex)486 z2d = remplit(z2d, nite = 2+keyword_set(nan), mask = mask, /basique, _extra = ex) 486 487 if NOT keyword_set(strictfill) then z2d = min > z2d < max 487 488 if keyword_set(nan) then BEGIN 488 489 triangulation = triangule(mask, /basic, coinmonte = coinmontemask $ 489 490 , coindescend = coindescendmask) 490 usetri = 1 491 trinan = triangule(masknan, /basic, coinmonte = coinmontenan $ 492 , coindescend = coindescendnan) 493 usetri = 1 491 494 ENDIF ELSE triangulation = -1 492 495 IF size(gdep, /n_dimensions) EQ 2 THEN BEGIN … … 498 501 IF n_elements(key_save) EQ 0 THEN trifield = triangulation 499 502 ;---------------------------------------------------------------------- 500 pltbase, z2d, xx, yy, mask , xx, yy, level_z2d, colnumb, contour = contour, /noerase $503 pltbase, z2d, xx, yy, masksave, xx, yy, level_z2d, colnumb, contour = contour, /noerase $ 501 504 , c_linestyle=linestyle,c_labels=1-(indgen(n_elements(level_z2d)) MOD 2) $ 502 505 , trichamp = trifield, trimsk = triangulation, overplot = overplot $ 503 506 , c_thick=thick, performance = key_performance, nofill = nofill, usetri = usetri $ 504 , coinmontemask=coinmontemask, coindescendmask=coindescendmask, _extra = ex 507 , coinmontemask=coinmontemask, coindescendmask=coindescendmask $ 508 , coinmontenan = coinmontenan, coindescendnan = coindescendnan, masknan = masknan, trinan = trinan, _extra = ex 505 509 ;------------------------------------------------------------ 506 510 if n_elements(contour) eq 4 then BEGIN ; it is the second time I pass in pltt
Note: See TracChangeset
for help on using the changeset viewer.