Changeset 328 for trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltt.pro

Timestamp:

12/13/07 20:27:11 (17 years ago)

Author:

smasson

Message:

bugfix, continuation of changeset:326

File:

• trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltt.pro (modified) (2 diffs)

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

@@ -474 +474 @@
       IF keyword_set(strictfill) THEN BEGIN
         tmp = z2d ge max
-        tmp = 1b - byte(extrapolate(tmp, tmp, 1))
-        key_save = key_periodic & key_periodic = 0
-        trifield = triangule(temporary(tmp)*mask, coinmonte = coinmontemaskaa $
-                             , coindescend = coindescendmaskaa, keep_cont = 0)
-        key_periodic = key_save
-        usetri = 2
+        IF total(tmp GE 1) THEN BEGIN 
+          tmp = 1b - byte(extrapolate(tmp, tmp, 1))
+          key_save = key_periodic & key_periodic = 0
+          trifield = triangule(temporary(tmp)*mask, coinmonte = coinmontemaskaa $
+                               , coindescend = coindescendmaskaa, keep_cont = 0)
+          key_periodic = key_save
+          usetri = 2
+        ENDIF
       ENDIF
       z2d = remplit(z2d,nite=2+keyword_set(nan), mask = mask, /basique, _extra=ex)
@@ -494 +496 @@
                                      , coindescend = coindescendmask)
       ENDIF
-      IF NOT keyword_set(strictfill) THEN trifield = triangulation
+      IF n_elements(key_save) EQ 0 THEN trifield = triangulation
 ;----------------------------------------------------------------------
       pltbase, z2d, xx, yy, mask, xx, yy, level_z2d, colnumb, contour = contour, /noerase $