I’m trying to draw a shade_surf with a contour plot at ZVALUE =0.
However something is erasing/drawing over my contour lines when I
change the device font size. (Easier to show than to explain.)
Thanks for any insights,
John
PRO DISPLAY_TEMP
Device,decomposed=0
loadct,0,/silent
!P.FONT = 0
Font_Size = 12
Device, Set_FONT='Times*bold*'+strcompress(string(Font_Size),/
remove_all)
N=512.
X = (DINDGEN(N)-N/2)/(N/2)
X = REBIN(X,N,N)
Y = ROTATE(X,1)
R = SQRT(X^2.+Y^2.)
Data = -1d*R^4+1.
index = WHERE(R GE 1.0)
Data(index) = !VALUES.F_NAN
PlotZRange = [-2,3]
CONTOUR_LEVELS = DINDGEN(10)/10.
WINDOW,0
shade_surf,Data,$
ZRANGE=PlotZRange,$
ZSTYLE=1,$
XSTYLE=5,YSTYLE=5,$
XRANGE=[0,511],YRANGE=[0,511],$
XTICKFORMAT="(A1)",YTICKFORMAT="(A1)",$
COLOR=0,BACKGROUND=255,$
ZTickFormat='(F6.2)',$
/SAVE
;Draw Contour with ZVALUE=0, bottom
contour,Data,$
XSTYLE=9,YSTYLE=9,$
XRANGE=[0,511],YRANGE=[0,511],$
XTICKFORMAT="(A1)",YTICKFORMAT="(A1)",$
ZVALUE=0,$
COLOR=0,$
LEVELS=CONTOUR_LEVELS,$
/NOERASE,$
/T3d
;*********************************************************** ******
;Now Set_FONT size comically large to illustrate
;*********************************************************** ******
Font_Size = 38
Device, Set_FONT='Times*bold*'+strcompress(string(Font_Size),/
remove_all)
WINDOW,1
shade_surf,Data,$
ZRANGE=PlotZRange,$
ZSTYLE=1,$
XSTYLE=5,YSTYLE=5,$
XRANGE=[0,511],YRANGE=[0,511],$
XTICKFORMAT="(A1)",YTICKFORMAT="(A1)",$
COLOR=0,BACKGROUND=255,$
ZTickFormat='(F6.2)',$
/SAVE
;Draw Contour with ZVALUE=0 bottom
contour,Data,$
XSTYLE=9,YSTYLE=9,$
XRANGE=[0,511],YRANGE=[0,511],$
XTICKFORMAT="(A1)",YTICKFORMAT="(A1)",$
ZVALUE=0,$
COLOR=0,$
LEVELS=CONTOUR_LEVELS,$
/NOERASE,$
/T3d
END
|
comp.lang.idl-pvwave archive
Members
Search
Help
Login
Home
