applycolorbar_indexed_direct.pro

来自「IDL开发源码」· PRO 代码 · 共 35 行

PRO Applycolorbar_Indexed_Direct
; 确定文件 "worldtmp.png" 的路径。
worldtmpFile=FILEPATH('worldtmp.png',$
SUBDIRECTORY=['examples','demo','demodata'])

; 从文件中向IDL 输入图象。
worldtmpImage=READ_PNG(worldtmpFile)
; 确定输入的图象的大小。
worldtmpsize=SIZE(worldtmpImage ,/DIMENSIONS )
; 初始化显示。
DEVICE ,DECOMPOSED =0
LOADCT,38
WINDOW ,0,XSIZE=worldtMpsize[0],$
YSIZE=worldtmpsize[1],$
TITLE ='Average World Temperature(incelsius)'
; 显示图象。
TV ,worldtmpImage
;初始化色调参数。
fillcolor=BYTSCL( INDGEN(18))

; 初始化文本变量。
temperature=STRTRIM(FIX((5.*fillcolor)/42.),2)
; 初始化多边形和文本位置参数。
x=[5.,30.,30.,5.,5.]
Y=[5.,5.,23.,23.,5.]+5.
offset = 18.*FINDGEN(19)+5.

; 应用多边形和文本。
FOR i=0,(N_ELEMENTS (fillcolor)-1)DO BEGIN
POLYFILL,x,y+offset[i],COLOR =fillcolor[i],/DEVICE
XYOUTS,x[0]+5.,y[0]+offset [i]+5.,$
temperature[i],COLOR =255*(fillcolor[i] LT 255),/DEVICE
ENDFOR
END