[cig-commits] r4247 - geodyn/3D/MAG/trunk/testdir

[wei at geodynamics.org]

Author: wei
Date: 2006-08-08 13:49:15 -0700 (Tue, 08 Aug 2006)
New Revision: 4247

Modified:
   geodyn/3D/MAG/trunk/testdir/magsym.pro
Log:
add a color bar in display for B_r

Modified: geodyn/3D/MAG/trunk/testdir/magsym.pro
===================================================================
--- geodyn/3D/MAG/trunk/testdir/magsym.pro	2006-08-08 20:47:10 UTC (rev 4246)
+++ geodyn/3D/MAG/trunk/testdir/magsym.pro	2006-08-08 20:49:15 UTC (rev 4247)
@@ -746,6 +746,30 @@
 	  PLOTS,2*FINDGEN(180), REPLICATE(TCLAT,180),PSYM=3,SYMSIZE=.5,COLOR=1      
 	  PLOTS,2*FINDGEN(180),REPLICATE(-TCLAT,180),PSYM=3,SYMSIZE=.5,COLOR=1       
 	 ENDIF
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;MAKE A COLOR SCALE BAR & PRINT VARIABLE NAME
+   IF LCOLOR GE 1 THEN BEGIN
+    XBAR1=0.36 & DXBAR=5/((NLV-1)*XDIM) & YBAR1=0.45
+    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
+ XYOUTS,0.5,YBAR1-DXBAR,'mT',COLOR=TEXTCOLOR,/NORM,SIZE=1.5*SCWINDOW,ALIGNMENT=0.5
+ XYOUTS,0.5,YBAR2+DXBAR/2,PTITLEB,COLOR=TEXTCOLOR,/NORM,$
+     SIZE=1.25*SCWINDOW,ALIGNMENT=0.5     ENDIF
+    IF LCOLOR EQ 0 THEN BEGIN
+    XYOUTS,0.5,.47,PTITLEB,COLOR=TEXTCOLOR,/NORM,SIZE=1.25*SCWINDOW,$
+        ALIGNMENT=0.5
+ENDIF
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
+
 XYOUTS,XT1,YT1,PTITLE,CHARSIZE=CSZ*SZF,ALIGNMENT=0.5,/NORMAL,COLOR=TEXTCOLOR