addingimages.pro

IDL开发源码

PRO AddingImages
；确定文档的路径 .
file =FILEPATH( 'glowing_gas.jpg',$
   SUBDIRECTORY=['examples','data'])
;指令该文裆来确定图像参量。
querystatus=QUERY_JPEG(file ,imageInfo )
; 从指令信息设置图像大小参量
imagesize=imageinfo.dimensions
;从文档导入图像。
READ_JPEG,file,image
;初始化三原色显示
; 创建一个窗口并显示图像。
WINDOW ,0,XSIZE=imagesize[0],YSIZE=imagesize[1],$
TITLE ='Glowlng Gas RGB Image '
TV ,image ,TRUE = 1
;三原色图像内获取通道 ( 如图像 )
redchannel=REFORM(image [0,*,*])
greenchannel=REFORM (image [1,*,*])
bluechannel=REFORM (image [2,*,*])
; 初始化亮度灰度显示。
DEVICE ,DECOMPOSED =0
LOADCT,0
; 创建另一窗口并显示三原色图像的各个通道。
WINDOW,1,XSIZE=3*imagesize[0], YSIZE=imagesize[ 1],$
TITLE = 'Red (left ),Green (middle ),'+$
  'and Blue (right )Channel s of the RGB Image'
TV ,redchannel,0
TV,greenchannel,1
TV ,bluechannel,2
;建另一窗口并显示通道的增加 , 如字节数据和经转化的数据 :

WINDOW,2,XSIZE=2*imagesize[0],YSIZE=imagesize[1],$
  TITLE ='the Addition of Channels ,Byte(left )'+$
         'and Converted(right)'
TVSCL,redchannel+greenchannel+bluechannel,0
TVSCL,FLOAT(redchannel)+FLOAT(greenchannel)+$
       FLOAT(bluechannel),1
END