Changeset 172 for trunk/SRC/ToBeReviewed/PLOTS/DIVERS

Timestamp:

09/11/06 09:11:26 (18 years ago)

Author:

smasson

Message:

bugfix + manage roms outputs

File:

• trunk/SRC/ToBeReviewed/PLOTS/DIVERS/axis4pltz.pro (modified) (2 diffs)

trunk/SRC/ToBeReviewed/PLOTS/DIVERS/axis4pltz.pro

@@ -90 +90 @@
     ENDELSE
     if keyword_set(sin) then xxaxis = sin(!pi/180.*xxaxis)
-    if (size(z))[0] EQ 1 THEN zzaxis = z ELSE zzaxis = z
   ENDIF ELSE BEGIN
     xxaxis = glam[*, 0]
-    if (size(z))[0] EQ 1 then zzaxis = z ELSE zzaxis = z
   ENDELSE 
+  zzaxis = z
 ;----------------------------------------------------------
 ; We project the z axis in [0,1]
@@ -102 +101 @@
   if zoom LT profmax then begin
     mp = projsegment([profmin, zoom], [0, zratio], /mp)
-    zzaxis[where(zzaxis LE zoom)] = mp[0]*zzaxis[where(zzaxis LE zoom)]+mp[1]
+    small = where(zzaxis LE zoom)
+    IF small[0] NE -1 THEN zzaxis[small] = mp[0]*zzaxis[small]+mp[1]
     mp = projsegment([zoom, profmax], [zratio, 1], /mp)
-    zzaxis[where(zzaxis GE zoom)] = mp[0]*zzaxis[where(zzaxis GE zoom)]+mp[1]
+    big = where(zzaxis GE zoom)
+    IF big[0] NE -1 THEN zzaxis[big] = mp[0]*zzaxis[big]+mp[1]
   ENDIF ELSE BEGIN
     mp = projsegment([profmin, profmax], [0, 1], /mp)