图像拼接方法
1直接拼接,去两张图,直接拼接,适用于没有变形的,分割的图像复原整个图像.
read_image (Image, ‘1.bmp’)
dev_close_window ()
dev_open_window_fit_image (Image, 0, 0, -1, -1, WindowHandle)
dev_display (Image)
read_image (Image1, ‘2.bmp’)
dev_close_window ()
dev_open_window_fit_image (Image1, 0, 0, -1, -1, WindowHandle1)
dev_display (Image1)
concat_obj (Image, Image1, ObjectsConcat)
tile_images (ObjectsConcat, TiledImage, 1, ‘vertical’)
dev_close_window ()
dev_open_window_fit_image (TiledImage, 0, 0, -1, -1, WindowHandle2)
dev_display (TiledImage)
stop ()
get_image_size (Image1, Width, Height)
concat_obj (Image, Image1, ObjectsConcat1)//拼接宽度Rowoffset,高度,其它参数 默认
tile_images_offset (ObjectsConcat1, TiledImage1, [0,Height], [0,0], [-1,-1], [-1,-1], [-1,-1], [-1,-1], Width, Height*2)
dev_close_window ()
dev_open_window_fit_image (TiledImage1, 0, 0, -1, -1, WindowHandle2)
dev_display (TiledImage1)
stop ()
2第二种模版匹配的拼接,需要找到两张图的共同区域,然后进行拼接.,感兴趣的自己找两张同样大小的图片测试看看.
dev_update_window (‘off’)
dev_close_window ()
dev_open_window (0, 0, 640, 480, ‘white’, WindowHandle)
dev_set_color (‘green’)
set_display_font (WindowHandle, 14, ‘mono’, ‘true’, ‘false’)
gen_empty_obj (Images)
width:=[]
height:=[]
*设置图片的路径(需要修改)
list_files (‘…//pi’, [‘files’,‘follow_links’], ImageFiles)
tuple_regexp_select (ImageFiles, [‘\.(tif|tiff|gif|bmp|jpg|jpeg|jp2|png|pcx|pgm|ppm|pbm|xwd|ima|hobj)′,′ignorecase′],ImageFiles)forJ:=0to∣ImageFiles∣−1by1readimage(Image,ImageFiles[J])getimagesize(Image,Width,Height)width:=[width,Width]height:=[height,Height]concatobj(Images,Image,Images)devdisplay(Image)dispmessage(WindowHandle,′Image′+J','ignore_case'], ImageFiles) for J := 0 to |ImageFiles|-1 by 1 read_image (Image, ImageFiles[J]) get_image_size (Image, Width, Height) width:=[width,Width] height:=[height,Height] concat_obj (Images, Image, Images) dev_display (Image) disp_message (WindowHandle, 'Image ' + J′,′ignorecase′],