北大《空间探测信息处理技术(IDL)》第7章 图像处理（上）.ppt

图象的几何变换 剪切图像（以矩形框剪切图像） 用 READ_* 读取图像数据 用 CURSOR 过程设置裁减区域 显示裁减后的图像 用 WRITE_* 保存图像 图象的几何变换 相关函数 CURSOR, X, Y [,Wait] $ [, /DATA | , /DEVICE, | , /NORMAL] 或者: CURSOR, X, Y $ [,/CHANGE |,/DOWN |,/NOWAIT|,/UP|,/WAIT] $ [,/DATA | , /DEVICE, | , /NORMAL] 说明：获取当前光标位置参数 X, Y : 坐标值； Wait : =0 ~/NOWAIT; =1 ~/WAIT; =2 ~/CHANGE =3 ~/DOWN; =4 ~/UP /CHANGE : 鼠标状态发生变化； /DOWN : 鼠标键按下； /UP : 鼠标键抬起； /WAIT : 等待知道鼠标键按下； /NOWAIT : 立即返回。 按键的状态存储在!MOUSE.button中。=1: 左键按下，=2中间键按下，=4 右键按下。 图象的几何变换 剪切图像（以矩形框剪切图像），例9.22 PRO Chapter09CropWorld world = READ_PNG(FILEPATH(avhrr.png, $ SUBDIRECTORY = [examples, data]), R,G,B) DEVICE, DECOMPOSED = 0, RETAIN = 2 TVLCT, R, G, B worldSize = SIZE(world, /DIMENSIONS) WINDOW, 0, XSIZE = worldSize[0], YSIZE = worldSize[1] TV, world X1=0 Y1=0 X2=1 Y2=1 while (X1 NE X2) (Y1 NE Y2) DO begin wset,0 cursor, X1, Y1, /UP, /device cursor, X2, Y2, /UP, /device if X2 LT X1 then begin T = X2 X2=X1 X1=T endif if Y2 LT Y1 then begin T = Y2 Y2=Y1 Y1=T endif area = world[X1:X2, Y1:Y2] WINDOW, 2, XSIZE=(X2-X1+1), YSIZE=(Y2-Y1+1) TV, area endwhile WDELETE,0,2 END 图象的几何变换 PRO Chapter09DrawFoldingLine ; Start with a blank screen: ERASE ; Get the initial point in normalized coordinates: CURSOR, X, Y, /NORMAL, /DOWN ; Repeat until right button is pressed. Get the second point. ; Draw the line. Make the current second point be the new first. WHILE (!MOUSE.button NE 4) DO BEGIN CURSOR, X1, Y1, /NORM ,/DOWN if !MOUSE.button EQ 1 then begin PLOTS,[X,X1], [Y,Y1], /NORMAL X = X1 Y = Y1 end ENDWHILE END 试着做些修改 图象的几何变换 给图像加一个边框 给图像周围加一个空白框，上面添加图像标题等。 用READ_* 读入图像 利用二维数组的处理方法，扩大图像范围，在扩充部分填入指定背景色； 在背景色上添加文字（或色标） 显示处理结果 用WRITE_* 保存图像 图象的几何变换 给图像加一个边框，例：9.24 PRO Chapter09PaddedImage earth = READ_PNG (FILEPATH (avhrr.png, $ SUBDIRECTORY = [examples, data]), R, G, B) TVLCT, R, G, B maxColor = !D.TABLE_SIZE - 1 TVLCT, 255, 255, 255, maxColor DEVICE, DECOMPOSED