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

Timestamp:

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

Author:

smasson

Message:

bugfix, continuation of changeset:326

File:

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

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

@@ -311 +311 @@
   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 = coinmontemask $
-                         , coindescend = coindescendmask, keep_cont = 0)
-    key_periodic = key_save
+    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 = coinmontemask $
+                           , coindescend = coindescendmask, keep_cont = 0)
+      key_periodic = key_save
+    ENDIF
   ENDIF
   IF n_elements(fillxdir) EQ 0  THEN fillxdir = 1
@@ -347 +349 @@
 ;   if keyword_set(notri) then trifield = -1 $
 ;   ELSE trifield = triangule(mask,/basic)
-  if NOT keyword_set(strictfill) AND ((usetri GE 1 AND (vargrid EQ 'T' OR vargrid EQ 'W')) $
+  if n_elements(key_save) EQ 0 AND ((usetri GE 1 AND (vargrid EQ 'T' OR vargrid EQ 'W')) $
                                       OR (usetri EQ 2 AND (vargrid NE 'T' AND vargrid NE 'W'))) THEN $
                                          trifield = triangule(mask, /basic)