halcon 添加畸变 畸变矫正

dev_update_off ()
dev_close_window ()
str := 'C:/Users/Administrator/Desktop/测试图片库/'
filePath := str + '标定板-原图.bmp'
read_image (Image1, filePath)
rgb1_to_gray (Image1, Image)
* write_image (Image, 'bmp', 0, str + '拉片-原图')
get_image_size (Image, Width, Height)
dev_open_window (0, 0, Width/4, Height/4, 'black', WindowHandle)
dev_display (Image)

**对图像先矫正畸变再添加畸变
* edges_sub_pix (Image, Edges, 'canny', 1, 20, 40)
* segment_contours_xld (Edges, ContoursSplit, 'lines_circles', 5, 20, 10)
* union_collinear_contours_xld (ContoursSplit, UnionContours, 10, 1, 2, 0.1, 'attr_keep')
* select_contours_xld (UnionContours, SelectedContours1, 'contour_length', 200, 1000, -0.5, 0.5)
* radial_distortion_self_calibration (SelectedContours1, SelectedContours, Width, Height, 0.08, 42, 'division', 'variable', 0, CamParamIn)
* get_domain (Image, Domain)
* change_radial_distortion_cam_par ('adaptive', CamParamIn, 0, CamParamOut)
* change_radial_distortion_image (Image, Domain, ImageCorrected, CamParamIn, CamParamOut)
* change_radial_distortion_cam_par ('adaptive', CamParamOut, -3.0e-6, CamParamOut1)
* change_radial_distortion_image (ImageCorrected, Domain, ImageDistortion1, CamParamOut, CamParamOut1)

inCameraParameters := [0,0,5.2e-006,5.2e-006,640,480,1280,960]
outCameraParameters := [0,0,5.2e-006,5.2e-006,640,480,1280,960]
get_domain (Image, Domain1)
for IndexDistortion := 1 to 6 by 1
    change_radial_distortion_cam_par ('fullsize', inCameraParameters, -IndexDistortion*10000, outCameraParameters)
    change_radial_distortion_image (Image, Domain1, ImageRectified, inCameraParameters, outCameraParameters)
    tuple_string(IndexDistortion, '0' , temp1)