图片拼接

有时候物体太大，太长一个照片，拍照不了需要将照片拍几张然后组成一个新的照片

图片22.png

  图片 11.png

组合

 

思路：

每张图都是以确认键为标定点，然后将照片连接起来

dev_close_window ()
read_image (Image, '22')
get_image_size (Image, Width, Height)
dev_open_window (0, 0, Width, Height, 'black', WindowHandle)
dev_display (Image)

** 去掉小的噪点
mean_image (Image, ImageMean, 5, 5)
*比例增强
scale_image_max (ImageMean, ImageScaleMax)
** 增强
emphasize (ImageScaleMax, ImageEmphasize, 7, 7, 12)
threshold_sub_pix (ImageEmphasize, Border, 128)
select_shape_xld (Border, SelectedXLD, ['circularity','contlength'], 'and', [0.88465,201.29], [1,2000])
gen_region_contour_xld (SelectedXLD, Region, 'filled')
smallest_circle (Region, Row, Column, Radius)

dev_close_window ()
read_image (Image1, '11')
get_image_size (Image1, Width1, Height1)
dev_open_window (Row, Column, Width1, Height1, 'black', WindowHandle1)
dev_display (Image1)
mean_image (Image1, ImageMean1, 5, 5)
scale_image_max (ImageMean1, ImageScaleMax1)
emphasize (ImageScaleMax1, ImageEmphasize1, 7, 7, 12)
threshold_sub_pix (ImageEmphasize1, Border1, 128)
select_shape_xld (Border1, SelectedXLD1, ['circularity','contlength'], 'and', [0.88465,201.29], [1,2000])
gen_region_contour_xld (SelectedXLD1, Region1, 'filled')
area_center (Region1, Area, Row1, Column1)

r1:=Row-Row1
c1:=Column-Column1
** 将图像连接起来
gen_empty_obj (images)
concat_obj (images, Image, images)
concat_obj (images, Image1, images)
**组合图片

**[0,r1,r2] 都是后面标定的减去第一个标定 r2=Row-Row2
**[0,c1,c2] 都是后面标定的减去第一个标定 c2=Column-Column2
tile_images_offset (images, TiledImage, [0,r1], [0,c1], [-1,-1], [-1,-1], [-1,-1], [-1,-1], Width1, Height1+200)