read_image (Image, 'C:/Users/Administrator/Desktop/工作/halcon/畸变矫正2/1.png')
*边缘提取 10 -40
edges_sub_pix(Image, Edges, 'canny', 1, 10, 40)
*从Edges中提取轮廓,结果存储在ContoursSplit中。
*'lines_circles'表示提取直线和圆形轮廓。
*5是近似的最大距离,4是闭环近似允许的最大径向距离,
*2是各种过滤器的最小长度。
segment_contours_xld(Edges, ContoursSplit, 'lines_circles', 5, 4, 2)
*筛选线段 条件是‘像素’
select_shape_xld(ContoursSplit, SelectedXLD, 'contlength', 'and', 60, 99999)
*获取图像长宽
get_image_size (Image, Width, Height)
*使用选定的轮廓SelectedXLD进行自校正径向畸变。
*0.05是期望的径向畸变系数,42是等高线的个数。
*'division'表示分割重叠的轮廓。'variable'和0表示使用可变阈值。
*结果存储在CameraParam中
radial_distortion_self_calibration(SelectedXLD, SelectedContours,Width, Height, 0.05, 42, 'division', 'variable', 0, CameraParam)
*获取输入图像Image的定义域,结果存储在Domain中。
get_domain(Image, Domain)
*基于自校正结果CameraParam,计算固定的径向畸变参数,结果存储在CamParamOut中。0表示不做任何遮罩修正。
change_radial_distortion_cam_par('fixed', CameraParam, 0, CamParamOut)
*使用上一步计算的CamParamOut对输入图像Image进行径向畸变校正,
*校正后的图像存储在ImageRectified中。Domain是输入图像的定义域。
change_radial_distortion_image(Image, Domain, ImageRectified, CameraParam, CamParamOut)