[cig-commits] r4684 - geodyn/3D/MAG/trunk/idl

[wei at geodynamics.org]

Author: wei
Date: 2006-10-03 15:09:38 -0700 (Tue, 03 Oct 2006)
New Revision: 4684

Modified:
   geodyn/3D/MAG/trunk/idl/magsym.pro
Log:
fixed label orientation, added colorbars to closeup plot

Modified: geodyn/3D/MAG/trunk/idl/magsym.pro
===================================================================
--- geodyn/3D/MAG/trunk/idl/magsym.pro	2006-10-03 20:42:22 UTC (rev 4683)
+++ geodyn/3D/MAG/trunk/idl/magsym.pro	2006-10-03 22:09:38 UTC (rev 4684)
@@ -1086,13 +1086,35 @@
          LENGTH=ARRV,COLOR=ARRCOL
 	XYOUTS,9.25/XDIM,20.3/YDIM,'VELOCITY r='+SNRA,SIZE=CSZ*SZF,/NORMAL,$
          ALIGNMENT=0.5,COLOR=TEXTCOLOR         
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;MAKE A COLOR SCALE BAR & PRINT VARIABLE NAME
+   IF LCOLOR GE 1 THEN BEGIN
+    XBAR1=0.115 & DXBAR=5/((NLV-1)*XDIM) & YBAR1=0.45
+    SCALE1=STRING(UPV(0)/UPFAC) & SCALE2=STRING(UPV(NLV-1)/UPFAC)
+    SCALE1=STRMID(SCALE1,2,7) & SCALE2=STRMID(SCALE2,2,7)
+    XYOUTS,XBAR1-2*DXBAR,YBAR1-DXBAR,SCALE1,COLOR=TEXTCOLOR,SIZE=1.5*SCWINDOW,/NORM
+
+    FOR L=0, NLV-2 DO BEGIN
+    XBAR2=XBAR1 + DXBAR & YBAR2=YBAR1 + DXBAR
+    XBAR=[XBAR1,XBAR2,XBAR2,XBAR1,XBAR1] & YBAR=[YBAR1,YBAR1,YBAR2,YBAR2,YBAR1]
+    POLYFILL,XBAR,YBAR,COLOR=VCOLORS(L),/NORM
+    ;OPLOT,XBAR,YBAR,COLOR=TEXTCOLOR,LINESTYLE=0,/NOCLIP ;ADD BOUNDARIES
+    XBAR1=XBAR1 + DXBAR
+    ENDFOR
+ 	XYOUTS,XBAR1-3*DXBAR,YBAR1-DXBAR,SCALE2,COLOR=TEXTCOLOR,SIZE=1.5*SCWINDOW,/NORM
+    ENDIF
+    IF LCOLOR EQ 0 THEN BEGIN
+    XYOUTS,0.5,.47,'PTITLEB',COLOR=TEXTCOLOR,/NORM,SIZE=1.25*SCWINDOW,$
+        ALIGNMENT=0.5
+   ENDIF
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ENDIF
     
 	!P.THICK=2         
 	XYOUTS,9.25/XDIM,10.8/YDIM,'LONGITUDE',SIZE=CSS*SZF,/NORMAL,$
          ALIGNMENT=0.5,COLOR=TEXTCOLOR
 	XYOUTS,0.60/XDIM,16./YDIM,'LATITUDE',SIZE=CSS*SZF,/NORMAL,$
-         ALIGNMENT=0.5,ORIENTATION=90,COLOR=TEXTCOLOR
+         ALIGNMENT=0.5,ORIENTATION=-90,COLOR=TEXTCOLOR
 
 
 !P.POSITION=XC2
@@ -1114,6 +1136,28 @@
          LENGTH=ARRB,COLOR=ARRCOL
 	XYOUTS,9.25/XDIM,9.8/YDIM,'MAGNETIC FIELD r='+SNBR,SIZE=CSZ*SZF,$
          /NORMAL,ALIGNMENT=0.5,COLOR=TEXTCOLOR         
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;MAKE A COLOR SCALE BAR & PRINT VARIABLE NAME
+   IF LCOLOR GE 1 THEN BEGIN
+    XBAR1=0.115 & DXBAR=5/((NLV-1)*XDIM) & YBAR1=0.025
+    SCALE1=STRING(BRV(0)/BFAC) & SCALE2=STRING(BRV(NLV-1)/BFAC)
+    SCALE1=STRMID(SCALE1,2,7) & SCALE2=STRMID(SCALE2,2,7)
+    XYOUTS,XBAR1-2*DXBAR,YBAR1-DXBAR,SCALE1,COLOR=TEXTCOLOR,SIZE=1.5*SCWINDOW,/NORM
+
+    FOR L=0, NLV-2 DO BEGIN
+    XBAR2=XBAR1 + DXBAR & YBAR2=YBAR1 + DXBAR
+    XBAR=[XBAR1,XBAR2,XBAR2,XBAR1,XBAR1] & YBAR=[YBAR1,YBAR1,YBAR2,YBAR2,YBAR1]
+    POLYFILL,XBAR,YBAR,COLOR=VCOLORS(L),/NORM
+    ;OPLOT,XBAR,YBAR,COLOR=TEXTCOLOR,LINESTYLE=0,/NOCLIP ;ADD BOUNDARIES
+    XBAR1=XBAR1 + DXBAR
+    ENDFOR
+ 	XYOUTS,XBAR1-3*DXBAR,YBAR1-DXBAR,SCALE2,COLOR=TEXTCOLOR,SIZE=1.5*SCWINDOW,/NORM
+    ENDIF
+    IF LCOLOR EQ 0 THEN BEGIN
+    XYOUTS,0.5,.47,'PTITLEB',COLOR=TEXTCOLOR,/NORM,SIZE=1.25*SCWINDOW,$
+        ALIGNMENT=0.5
+   ENDIF
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ENDIF
 
                         
@@ -1122,7 +1166,7 @@
 XYOUTS,9.25/XDIM,0.3/YDIM,'LONGITUDE',SIZE=CSS*SZF,$
          /NORMAL,ALIGNMENT=0.5,COLOR=TEXTCOLOR
 XYOUTS,0.60/XDIM,5.5/YDIM,'LATITUDE',SIZE=CSS*SZF,$
-         /NORMAL,ALIGNMENT=0.5,ORIENTATION=90,COLOR=TEXTCOLOR
+         /NORMAL,ALIGNMENT=0.5,ORIENTATION=-90,COLOR=TEXTCOLOR
 
         XYOUTS,0.5,22.7/YDIM,ANNTEXT1,/NORM,SIZE=CSB*SZF,$
           ALIGNMENT=0.5,COLOR=TEXTCOLOR