[cig-commits] r4536 - geodyn/3D/MAG/trunk/idl
wei at geodynamics.org
wei at geodynamics.org
Thu Sep 14 14:27:55 PDT 2006
Author: wei
Date: 2006-09-14 14:27:54 -0700 (Thu, 14 Sep 2006)
New Revision: 4536
Modified:
geodyn/3D/MAG/trunk/idl/magsym.pro
Log:
Add more colorbar to magsym.pro
Modified: geodyn/3D/MAG/trunk/idl/magsym.pro
===================================================================
--- geodyn/3D/MAG/trunk/idl/magsym.pro 2006-09-14 19:03:33 UTC (rev 4535)
+++ geodyn/3D/MAG/trunk/idl/magsym.pro 2006-09-14 21:27:54 UTC (rev 4536)
@@ -534,7 +534,6 @@
!P.BACKGROUND=BACKCOL
!P.FONT=0
-
;*************************************************************************
;************** HERE THE PLOTTING MENU STARTS **************************
;*************************************************************************
@@ -746,11 +745,16 @@
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
+
+XYOUTS,XT1,YT1,PTITLE,CHARSIZE=CSZ*SZF,ALIGNMENT=0.5,/NORMAL,COLOR=TEXTCOLOR
+
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;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)
+; XBAR1=0.36 & DXBAR=5/((NLV-1)*XDIM) & YBAR1=0.45
+ XBAR1=0.115 & DXBAR=5/((NLV-1)*XDIM) & YBAR1=0.46
+ 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
@@ -760,19 +764,16 @@
;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
+ 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,'mt',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,$
+ XYOUTS,0.5,.47,'PTITLEB',COLOR=TEXTCOLOR,/NORM,SIZE=1.25*SCWINDOW,$
ALIGNMENT=0.5
-ENDIF
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ ENDIF
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-XYOUTS,XT1,YT1,PTITLE,CHARSIZE=CSZ*SZF,ALIGNMENT=0.5,/NORMAL,COLOR=TEXTCOLOR
-
-
;MAP RADIAL VELOCITY OR UPWELLING
!P.POSITION=XY2
@@ -794,8 +795,31 @@
PLOTS,2*FINDGEN(180),REPLICATE(-TCLAT,180),PSYM=3,SYMSIZE=.5,COLOR=1
ENDIF
XYOUTS,XT2,YT2,PTITLE,CHARSIZE=CSZ*SZF,ALIGNMENT=0.5,/NORMAL,COLOR=TEXTCOLOR
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;MAKE A COLOR SCALE BAR & PRINT VARIABLE NAME
+ IF LCOLOR GE 1 THEN BEGIN
+ XBAR1=0.6 & DXBAR=5/((NLV-1)*XDIM) & YBAR1=0.46
+ SCALE1=STRING(VV(0)/VFAC) & SCALE2=STRING(VV(NLV-1)/VFAC)
+ 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
+
;UPWELLING OPTION
IF IOPMAP EQ 1 THEN BEGIN
WRAP(0:NPFULL-1,*)=UP(*,*,NRAD)
@@ -815,10 +839,31 @@
PLOTS,2*FINDGEN(180),REPLICATE(-TCLAT,180),PSYM=3,SYMSIZE=.5,COLOR=1
ENDIF
XYOUTS,XT2,YT2,PTITLE,CHARSIZE=CSZ*SZF,ALIGNMENT=0.5,/NORMAL,COLOR=TEXTCOLOR
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;MAKE A COLOR SCALE BAR & PRINT VARIABLE NAME
+ IF LCOLOR GE 1 THEN BEGIN
+ XBAR1=0.6 & DXBAR=5/((NLV-1)*XDIM) & YBAR1=0.46
+ 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
-
;MAP TEMPERATURE (OR HEATFLOW) OR MAGNETIC FIELD
!P.POSITION=XY3
@@ -838,6 +883,28 @@
COLOR=0,C_LINESTYLE=(TV LT 0),/OVERPLOT
MAP_GRID,COLOR=0,LATDEL=30,LONDEL=45,GLINETHICK=1
XYOUTS,XT3,YT3,PTITLE,CHARSIZE=CSZ*SZF,ALIGNMENT=0.5,/NORMAL,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.05
+ SCALE1=STRING(TV(0)/TFAC) & SCALE2=STRING(TV(NLV-1)/TFAC)
+ 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
;MAGNETIC FIELD OPTION
@@ -853,6 +920,28 @@
MAP_GRID,COLOR=0,LATDEL=30,LONDEL=45,GLINETHICK=1
XYOUTS,XT3,YT3,PTITLE,CHARSIZE=CSZ*SZF,ALIGNMENT=0.5,$
/NORMAL,COLOR=TEXTCOLOR
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;MAKE A COLOR SCALE BAR & PRINT VARIABLE NAME
+ IF LCOLOR GE 1 THEN BEGIN
+ XBAR1=0.6 & DXBAR=5/((NLV-1)*XDIM) & YBAR1=0.16
+ 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
; PLOT TANGENT CYLINDER INTERSECTION
@@ -875,6 +964,28 @@
COLOR=0,C_LINESTYLE=(HV LT 0),/OVERPLOT
MAP_GRID,COLOR=0,LATDEL=30,LONDEL=45,GLINETHICK=1
XYOUTS,XT4,YT4,'HELICITY',CHARSIZE=CSZ*SZF,ALIGNMENT=0.5,/NORMAL,COLOR=TEXTCOLOR
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;MAKE A COLOR SCALE BAR & PRINT VARIABLE NAME
+ IF LCOLOR GE 1 THEN BEGIN
+ XBAR1=0.6 & DXBAR=5/((NLV-1)*XDIM) & YBAR1=0.05
+ SCALE1=STRING(HV(0)/HFAC) & SCALE2=STRING(HV(NLV-1)/HFAC)
+ 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
;VORTICITY IMAGE OPTION
@@ -888,6 +999,28 @@
MAP_GRID,COLOR=0,LATDEL=30,LONDEL=45,GLINETHICK=1
XYOUTS,XT4,YT4,'VORTICITY IMAGE',CHARSIZE=CSZ*SZF,ALIGNMENT=0.5,$
/NORMAL,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.16
+ SCALE1=STRING(WV(0)/WFAC) & SCALE2=STRING(WV(NLV-1)/WFAC)
+ 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
; PLOT TANGENT CYLINDER INTERSECTION
More information about the cig-commits
mailing list