chapter04openjpgfile.pro

来自「idl 可视化分析与应用（随书程序）」· PRO 代码 · 共 15 行

; Chapter04OpenJPGFile.pro
PRO  Chapter04OpenJPGFile
　　FileName = PICKFILE()
　　Catch ,EerrorVariable
　　IF EerrorVariable NE 0 THEN BEGIN
　　　　CATCH, / CANCEL
　　　　PRINT, ' 文件类型非JPG图像文件！不能正常打开！'
　　　　RETURN
　　ENDIF
　　READ_JPEG , FileName , ImageData, TRUE=1
　　WINDOW , 10, RETAIN= 2, TITLE='My Window', XSIZE=640, YSIZE=480
　　WSET , 10
　　TV, ImageData, TRUE=1
　　CATCH, /CANCEL
END