Changeset 37

Timestamp:

01/16/08 01:50:18 (16 years ago)

Author:

ericg

Message:

Default position of legend is now Upper Left (UL)

File:

• trunk/procs/legend_overlay.pro (modified) (4 diffs)

trunk/procs/legend_overlay.pro

@@ -6 +6 @@
 ; decode legend format from command line (see def_work cmdi.proj)
 ;
-leg_pos = strmid(leg_format, 0, 2); (UR=-1, UL, LR, LL)
+leg_pos = strmid(leg_format, 0, 2); (UL=-1, UR, LR, LL)
 IF strpos(leg_format, '_') NE -1 THEN BEGIN 
    txt_format = strmid(leg_format, 3, strlen(leg_format))
@@ -98 +98 @@
 CASE plttyp OF 
    'pltt': BEGIN 
-      IF strmid(leg_pos, 1, 1) EQ 'L' THEN BEGIN ; (L)eft
+      IF strmid(leg_pos, 1, 1) EQ 'R' THEN BEGIN ; (R)ight
+         x_leg_1 = time(floor(px_1r*(jptmax-1)))
+         x_leg_2 = time(floor(px_2r*(jptmax-1)))
+         x_leg_t = time(floor(px_tr*(jptmax-1)))
+      ENDIF ELSE BEGIN          ; (L)eft
          x_leg_1 = time(floor(px_1l*(jptmax-1)))
          x_leg_2 = time(floor(px_2l*(jptmax-1)))
          x_leg_t = time(floor(px_tl*(jptmax-1)))
-      ENDIF ELSE BEGIN          ; (R)ight
-         x_leg_1 = time(floor(px_1r*(jptmax-1)))
-         x_leg_2 = time(floor(px_2r*(jptmax-1)))
-         x_leg_t = time(floor(px_tr*(jptmax-1)))
       ENDELSE
    END 
@@ -124 +124 @@
          ELSE: 
       ENDCASE 
-      IF strmid(leg_pos, 1, 1) EQ 'L' THEN BEGIN ; (L)eft
+      IF strmid(leg_pos, 1, 1) EQ 'R' THEN BEGIN ; (R)ight 
+         x_leg_1 = xmin+px_1r*x_dim
+         x_leg_2 = xmin+px_2r*x_dim
+         x_leg_t = xmin+px_tr*x_dim
+      ENDIF ELSE BEGIN          ; (L)eft
          x_leg_1 = xmin+px_1l*x_dim
          x_leg_2 = xmin+px_2l*x_dim
          x_leg_t = xmin+px_tl*x_dim
-      ENDIF ELSE BEGIN          ; (R)ight
-         x_leg_1 = xmin+px_1r*x_dim
-         x_leg_2 = xmin+px_2r*x_dim
-         x_leg_t = xmin+px_tr*x_dim
       ENDELSE
    END 
@@ -140 +140 @@
       xmin = minc2
       x_dim = maxc2-minc2
-      IF strmid(leg_pos, 1, 1) EQ 'L' THEN BEGIN ; (L)eft
+      IF strmid(leg_pos, 1, 1) EQ 'R' THEN BEGIN ; (R)ight
+         x_leg_t = xmin+px_tr*x_dim
+      ENDIF ELSE BEGIN          ; (L)eft
          x_leg_t = xmin+px_tl*x_dim
-      ENDIF ELSE BEGIN          ; (R)ight
-         x_leg_t = xmin+px_tr*x_dim
       ENDELSE 
    END