www.pudn.com > IDL.rar > Applyingcolorbar_RGB_Direct.pro

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