[西门子] Halcon 图像纠正编程

[复制链接]
查看41451 | 回复0 | 2024-2-3 10:49:09 | 显示全部楼层 |阅读模式


*关闭当前显示窗口,清空屏幕

dev_close_window ()

*读取测试图像

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

*将图像转化为灰度图像

rgb1_to_gray (Image_display, GrayImage)

*获取图像的尺寸

get_image_size(Image_display,imageWidth, imageHeight)

*新建显示窗口,适应图像尺寸

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

dev_display (GrayImage)

*初始化角点坐标

XCoordCorners := []

YCoordCorners := []

*阈值处理,提取较暗的区域

threshold(GrayImage,DarkRegion,0, 80)

*分离不相连的区域

connection (DarkRegion, ConnectedRegions)

*选择面积最大的暗色区域,即屏幕区域

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

*裁剪屏幕区域

reduce_domain (GrayImage, displayRegion, displayImage)

*创建边缘轮廓

gen_contour_region_xld (displayRegion, Contours, 'border')

*将轮廓分割为边

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

*获取边的数量

count_obj (ContoursSplit, Number)

*存储每条边的起点位置

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)

   *存储每条边的顶点x坐标

   tuple_concat (XCoordCorners, RowBegin, XCoordCorners)

   *存储每条边的顶点y坐标

   tuple_concat (YCoordCorners, ColBegin, YCoordCorners)

endfor

* 投影变换给四个特征点与校正后的坐标建立关联

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')

* 显示校正结果

dev_display (Image_rectified)



本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册哦

x
您需要登录后才可以回帖 登录 | 注册哦

本版积分规则