*關(guān)閉當(dāng)前顯示窗口，清空屏幕

dev_close_window ()

*讀取測(cè)試圖像

read_image (Image_display, 'data/display.jpg')

*將圖像轉(zhuǎn)化為灰度圖像

rgb1_to_gray (Image_display, GrayImage)

*獲取圖像的尺寸

get_image_size(Image_display,imageWidth, imageHeight)

*新建顯示窗口，適應(yīng)圖像尺寸

dev_open_window (0, 0, imageWidth, imageHeight, 'black', WindowHandle1)

dev_display (GrayImage)

*初始化角點(diǎn)坐標(biāo)

XCoordCorners := []

YCoordCorners := []

*閾值處理，提取較暗的區(qū)域

threshold(GrayImage,DarkRegion,0, 80)

*分離不相連的區(qū)域

connection (DarkRegion, ConnectedRegions)

*選擇面積最大的暗色區(qū)域，即屏幕區(qū)域

select_shape_std (ConnectedRegions, displayRegion, 'max_area', 70)

*裁剪屏幕區(qū)域

reduce_domain (GrayImage, displayRegion, displayImage)

*創(chuàng)建邊緣輪廓

gen_contour_region_xld (displayRegion, Contours, 'border')

*將輪廓分割為邊

segment_contours_xld (Contours, ContoursSplit, 'lines', 5, 4, 2)

*獲取邊的數(shù)量

count_obj (ContoursSplit, Number)

*存儲(chǔ)每條邊的起點(diǎn)位置

for index:=1 to Number by 1

select_obj(ContoursSplit, ObjectCurrent, index)

*擬合每條邊

fit_line_contour_xld (ObjectCurrent, 'tukey', -1, 0, 5, 2, RowBegin, ColBegin, RowEnd, ColEnd, Nr, Nc, Dist)

*存儲(chǔ)每條邊的頂點(diǎn)x坐標(biāo)

tuple_concat (XCoordCorners, RowBegin, XCoordCorners)

*存儲(chǔ)每條邊的頂點(diǎn)y坐標(biāo)

tuple_concat (YCoordCorners, ColBegin, YCoordCorners)

endfor

* 投影變換給四個(gè)特征點(diǎn)與校正后的坐標(biāo)建立關(guān)聯(lián)

XOff:= 100

YOff:= 100*imageHeight/imageWidth

hom_vector_to_proj_hom_mat2d (XCoordCorners, YCoordCorners, [1,1,1,1], [YOff,YOff,imageHeight-YOff,imageHeight-YOff], [XOff,imageWidth-XOff,imageWidth-XOff,XOff], [1,1,1,1], 'normalized_dlt', HomMat2D)

*投影變換

projective_trans_image (Image_display, Image_rectified, HomMat2D, 'bilinear', 'false', 'false')

* 顯示校正結(jié)果

dev_display (Image_rectified)

審核編輯：劉清