Changeset 36
- Timestamp:
- 01/16/08 01:31:29 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/procs/legend_overlay.pro
r18 r36 2 2 ; domain_y = minc,maxc / 3 3 ; domaint=time(0), time(jptmax-1) 4 IF debug_w THEN print, ' in legend_ pltt_over, iover=', iover4 IF debug_w THEN print, ' in legend_overlay, iover=', iover 5 5 ; 6 6 ; decode legend format from command line (see def_work cmdi.proj) … … 15 15 ; when there is more than one seasonal cycle 16 16 jptmax = jpt * nb_cycles 17 IF debug_w THEN print, 'jpt, jptmax, nb_cycles ', jpt, jptmax, nb_cycles 17 IF debug_w THEN print, 'leg_format, leg_pos: ', leg_format, leg_pos 18 IF debug_w THEN print, 'jpt, jptmax, nb_cycles: ', jpt, jptmax, nb_cycles 18 19 19 20 ; legend line text … … 24 25 IF strpos(txt_format, 'U') NE -1 THEN leg_txt = leg_txt+'('+field.units+') ' 25 26 IF strpos(txt_format, 'B') NE -1 THEN leg_txt = leg_txt+legz+' ' 27 28 CASE plttyp OF 29 'yfx': leg_txt = 'Linfit = '+string(coeff(1)) 30 ELSE: 31 END 26 32 27 33 … … 88 94 ; case pltt plt1d 89 95 IF debug_w THEN print, 'size(time) ', size(time) 96 IF debug_w THEN print, 'minc/maxc =', minc, maxc 97 90 98 CASE plttyp OF 91 99 'pltt': BEGIN … … 126 134 ENDELSE 127 135 END 136 'yfx': BEGIN 137 x_leg_1 = -1.e10 138 x_leg_2 = -1.e10 139 IF debug_w THEN print, 'minc2/maxc2 =', minc2, maxc2 140 xmin = minc2 141 x_dim = maxc2-minc2 142 IF strmid(leg_pos, 1, 1) EQ 'L' THEN BEGIN ; (L)eft 143 x_leg_t = xmin+px_tl*x_dim 144 ENDIF ELSE BEGIN ; (R)ight 145 x_leg_t = xmin+px_tr*x_dim 146 ENDELSE 147 END 128 148 ENDCASE 129 149 … … 149 169 res = execute(pltcmd) 150 170 END 171 ELSE: 151 172 ENDCASE 152 173 IF debug_w THEN print, overc_l
Note: See TracChangeset
for help on using the changeset viewer.