Changeset 256 for trunk

Timestamp:

07/03/07 17:10:27 (17 years ago)

Author:

smasson

Message:

better control of yx aspect in pltv

Location:

trunk/SRC/ToBeReviewed/PLOTS

Files:

• DESSINE/pltv.pro (modified) (1 diff)
• DIVERS/placedessin.pro (modified) (5 diffs)

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

@@ -154 +154 @@
 ;--------------------------------------------------------------
   if NOT keyword_set(overplot) then reinitplt, /z, /invert
-  placedessin, 'plt', posplot, posbar, _extra = ex
+  placedessin, 'pltv', posplot, posbar, dtasize, _extra = ex
 ;--------------------------------------------------------------
 ; 3) Drawing

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

@@ -10 +10 @@
 ; It specify what procedure is called by <pro>PLACEDESSIN</pro> : 
 ; 'plt', 'pltz' or 'pltt'
+;
+; @param POSFENETRE {out}{type=vector}
+; It is a vector composed by 4 elements containing the position of the frame
+; containing captions and the graph in normalized coordinates.
+; Comment: To position the drawing; we have to do !p.position=posfenetre
+; after the call of the caliber
+;
+; @param POSBAR {out}{type=vector}
+; Like POSFENETRE but for the color bar.
+; Same comment to position the color bar, !p.position=posbar
+;
+; @param dtasize {in}{optional}{type=2 elements vector}
+; used by pltv to specify the size of the array that wil be plotted
+; and therefore the default yxaspect to be used.
 ;
 ; @keyword LANDSCAPE
@@ -102 +116 @@
 ; with filling in color
 ;
-; @param POSFENETRE {out}{type=vector}
-; It is a vector composed by 4 elements containing the position of the frame
-; containing captions and the graph in normalized coordinates.
-; Comment: To position the drawing; we have to do !p.position=posfenetre
-; after the call of the caliber
-;
-; @param POSBAR {out}{type=vector}
-; Like POSFENETRE but for the color bar.
-; Same comment to position the color bar, !p.position=posbar
-;
 ; @uses
 ; common.pro
@@ -124 +128 @@
 ;-
 ;
-PRO placedessin, typedessin, posfenetre, posbar, BARMARGES = barmarges $
+PRO placedessin, typedessin, posfenetre, posbar, dtasize, BARMARGES = barmarges $
                  , NOCOLORBAR = nocolorbar, NOFILL = nofill, COLOR_c = color_c $
                  , CONTOUR = contour $
@@ -156 +160 @@
     case typedessin of
       'plt':marge = 1.*[6, 2, 4, 3]
+      'pltv':marge = 1.*[6, 2, 4, 3]
       'pltt':marge = 1.*[6+4*(type EQ 'xt'), 2, 4, 4]
       'pltz':marge = 1.*[6, 2, 4, 3]
@@ -195 +200 @@
     'pltt':yaspect = 1.
     'pltz':yaspect = .5
+    'pltv':yaspect = float(dtasize[1])/float(dtasize[0])
     ELSE:yaspect = 1.
-  endcase
+  ENDCASE
 ;-------------------------------------------------------------
 ; 2) calculation of !p.position