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

Timestamp:

03/17/10 11:30:06 (14 years ago)

Author:

smasson

Message:

improve ytitle gestion in xz and yz plots

File:

• trunk/SRC/ToBeReviewed/PLOTS/DESSINE/pltz.pro (modified) (1 diff)

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

@@ -479 +479 @@
 ; to write the ytitle...
 ;------------------------------------------------------------
-  if !d.name EQ 'PS' then $
-    xs = (max(page_size, min = mi)*(1-key_portrait) + mi*key_portrait)*!d.x_px_cm $
-  ELSE xs = !d.x_size
-  if n_elements(ytitle) NE 0 then !y.title = ytitle
-  charsize = chkstru(ex, 'ycharsize', /extract)
-  if charsize EQ -1 then charsize = !p.charsize
-  IF chkstru(ex, 'charsize') THEN ex.charsize = charsize
-  if chkstru(ex, 'ytitle', /extract) NE '' then $
-    decalage = string(format = '(e10.3)', profmax)
-  decalage = float(strmid(decalage, strpos(decalage, 'e')+1))
-  posy = posfenetre[1]+1.*htotal/2
-  posx = posfenetre[0]-(decalage+3)*!d.x_ch_size*charsize/xs
-  xyouts, posx, posy, !y.title, /normal, orientation = 90, color = 0, ALIGNMENT = .5, charsize = charsize, _extra = ex
-
+  IF n_elements(ex) NE 0 THEN BEGIN
+    if (where(tag_names(ex) EQ 'YTICKS'))[0] NE -1 then ex.YTICKS = 1
+    if (where(tag_names(ex) EQ 'YTICKNAME'))[0] NE -1 then ex.YTICKNAME = [' ', ' ']
+    if (where(tag_names(ex) EQ 'YTITLE'))[0] NE -1 then ex.YTITLE = ytitle+'!C '
+  ENDIF
+  !y.range =  [profmax, profmin]   ; We get back in physic coordinates!
+  plot, [0], [0], /nodata, /noerase, xstyle = 5, ystyle = 9 $
+        , title = '', subtitle = '', xtitle = '', position = posfenetre $
+        , yticks = 1, ytickname = [' ', ' '], ytitle = !y.title+'!C ', ythick = 0.01, _extra = ex
 ;------------------------------------------------------------
 ; colorbar