applyingcolorbar_rgb_direct.pro

IDL开发源码

PRO Applyingcolorbar_RGB_Direct
; 确定文件 "glowing_gas .jpg" 的路径。
 cosmicFile=FILEPATH('glowing_gas.jpg',SUBDIRECTORY=['examples','data'])
;从文件中向 IDL 输入图象。
READ_JPEG,cosmicFile,cosmicImage
; 确定图象的大小。
cosmicsize=SIZE(cosmicImage,/DIMENSIONS )
; 初始化显示。
DEVICE,DECOMPOSED = 1
WINDOW ,0, XSIZE=cosmicsize[1],YSIZE=cosmicsize[2],TITLE ='glowing_gas.jpg'
; 显示图象。
TV ,cosmicImage,TRUE = 1
; 初始化颜色参数。
red =BYTARR(8) & green =BYTARR(8) &blue =BYTARR(8)
red [0]=0 & green[0]=0 & blue [0]=0; 黑
red [1]=255 & green[1]=0 & blue [1]=0; 红
red [2]=255 & green [2]=255 & blue [2]=0; 黄
red [3]=0 & green [3]=255 & blue [3]=0; 绿
red [4]=0 & green[4]=255 & blue [4]=255; 青色
red [5]=0 & green[5]=0 & blue [5]=255; 蓝
red [6]=255 & green [6]=0 & blue [6]=255; 紫色
red [7]=255 & green[7]=255 & blue [7]=255; 白
fillcolor=red +(256L*green)+((256L^2)*blue )

; 初始化多边形位置参数。
x=[5.,25.,25.,5.,5.]
Y=[5.,5.,25.,25.,5.]+5.
offset =20.*FINDGEN(9)+5.
; 初始化颜色条的临界位置。
X_border =[x[0]+offset[0],x[1]+offset[7],$
x[2]+ offset[7],x[3]+offset [0],x[4]+offset [0]]
; 应用多边形和临界。
FOR i =0,(N_ELEMENTS (fillcolor) - 1) DO POLYFILL,$
X+offset[i],y,COLOR =fillcolor[i],/DEVICE
PLOTS ,X_border ,y,/DEVICE ,COLOR =fillcolor[7]
END