applycolorbar_indexed_object.pro

IDL开发源码

PRO Applycolorbar_Indexed_object
    ; 确定文件 "worldtmp.png" 的路径。
worldtmpFile=FILEPATH('worldtmp.png',$
SUBDIRECTORY=[ 'examples','demo' , 'demodata'])
;从文件中向 IDL 输入图象。
worldtmpImage=READ_PNG(worldtmpFile)
;确定输入图象的大小。
worldtmpsize=SIZE (worldtmpImage ,/DIMENSIONS)
; 初始化对象。
; 初始化显示。
owindow=OBJ_NEW('IDLgrwindow',RETAIN =2,$
DIMENSIONS =[worldtmpsize[0],worldtmpsize[1]],$
TITLE ='Average World Temperature(in celsius)')
oview=OBJ_NEW('IDLgrview',VIEWPLANE_RECT=[0,0,worldtmpsize[0],worldtmpsize[1]])
OModel=OBJ_NEW('IDLgrModel')
; 初始化调色板和图象。
opalette =OBJ_NEW('IDLgrpalette' )
opalette -> LoadCT,38
oImage=OBJ_NEW('IDLgrImage',worldtmpImage,PALETTE = opalette )
; 添加图象至模型 , 添加模型至视图 ,
;在窗口中显示视图。
OModel -> Add ,OImage
oview -> Add , oModel
owindow -> Draw ,oview
; 初始化色调参数。
fillColor=BYTSCL( INDGEN(18))

; 初始化文本变量。
temperature=STRTRIM(FIX ((5*fillcolor)/42),2)
;Initialize polygon and text locat ion parameters,
x=[5.,30.,30.,5.,5.]
y=[5.,5.,23.,23.,5.]+5.
offset = 18.*FINDGEN(19)+5.

;初始化多边形和文本对象。
oPolygon=OBJARR(18)
oText=OBJARR(18)
FOR i=0,(N_ELEMENTS(opolygon)-1)DO BEGIN
oPolygon[i]=OBJ_NEW( 'IDLgrpolygon',x,$
y+offset[i],COLOR =fillcolor[i],$
PALETTE =oPalette )
oText[i]=OBJ_NEW('IDLgrText',temperature[i],$
LOCATIONS=[x[0]+3.,y[0]+offset[i]+3.],$
COLOR =255*(fillcolor[i] LT 255),$
PALETTE = opalette )
ENDFOR
;添加多边菜和文本至模型并在窗口中重新显示视图。
oModel -> Add ,opolygon
oModel -> Add ,oText
owindow ->  Draw ,oview
; 清除对象参数。
OBJ_DESTROY ,[oview,opalette]
END