Changeset 36

Timestamp:

01/16/08 01:31:29 (16 years ago)

Author:

ericg

Message:

Added slope info in yfx plots

File:

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

trunk/procs/legend_overlay.pro

@@ -2 +2 @@
                                 ; domain_y = minc,maxc /
                                 ; domaint=time(0), time(jptmax-1)
-IF debug_w THEN print, ' in legend_pltt_over, iover=', iover
+IF debug_w THEN print, ' in legend_overlay, iover=', iover
 ;
 ; decode legend format from command line (see def_work cmdi.proj)
@@ -15 +15 @@
 ; when there is more than one seasonal cycle
 jptmax = jpt * nb_cycles
-IF debug_w THEN print, 'jpt, jptmax, nb_cycles ', jpt,  jptmax, nb_cycles
+IF debug_w THEN print, 'leg_format, leg_pos: ', leg_format,  leg_pos
+IF debug_w THEN print, 'jpt, jptmax, nb_cycles: ', jpt,  jptmax, nb_cycles
 
 ; legend line text
@@ -24 +25 @@
 IF strpos(txt_format, 'U') NE -1 THEN leg_txt = leg_txt+'('+field.units+') '
 IF strpos(txt_format, 'B') NE -1 THEN leg_txt = leg_txt+legz+' '
+
+CASE plttyp OF 
+   'yfx': leg_txt = 'Linfit = '+string(coeff(1))
+   ELSE:
+END  
 
 
@@ -88 +94 @@
 ; case pltt plt1d
 IF debug_w THEN print,  'size(time) ',  size(time)
+IF debug_w THEN print,  'minc/maxc =', minc, maxc
+
 CASE plttyp OF 
    'pltt': BEGIN 
@@ -126 +134 @@
       ENDELSE
    END 
+   'yfx': BEGIN
+      x_leg_1 = -1.e10
+      x_leg_2 = -1.e10
+      IF debug_w THEN print,  'minc2/maxc2 =', minc2, maxc2
+      xmin = minc2
+      x_dim = maxc2-minc2
+      IF strmid(leg_pos, 1, 1) EQ 'L' THEN 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 
 ENDCASE 
 
@@ -149 +169 @@
       res = execute(pltcmd)
    END 
+   ELSE:
 ENDCASE 
 IF debug_w THEN print, overc_l