此代码只是简单的实现了框选物的检测追踪。基本逻辑是基于相关性的模板匹配。如果有人脸识别库的话，可以进行人脸识别。以后会完善代码实现实时的目标追踪。
1 *此文件夹含有多张相似的实拍图，用于检测算法的模板追踪 2 list_files ('C:/Users/zx80-165/Desktop/模板追踪图', 'files', ImageFiles) 3 l:=|ImageFiles| 4 read_image (Image, 'C:/Users/zx80-165/Desktop/1212.bmp') 5 get_image_size (Image, Width, Height) 6 dev_open_window (0, 0, Width/2, Height/2, 'black', WindowHandle1) 7 dev_display (Image) 8 disp_message (WindowHandle1, '请创建模板并以鼠标右击结束', 'window', -1, -1, 'white', 'false') 9 *鼠标左键框选目标模板，右键确定 10 draw_rectangle1 (WindowHandle1, Row1, Column1, Row2, Column2) 11 gen_rectangle1 (Rectangle, Row1, Column1, Row2, Column2) 12 area_center (Rectangle, Area, Row, Column) 13 orientation_region (Rectangle, Phi) 14 reduce_domain (Image, Rectangle, ImageReduced) 15 create_ncc_model (ImageReduced, 'auto', -0.39, 0.79, 'auto', 'use_polarity', ModelID) 16 dev_set_draw ('margin') 17 dev_set_line_width (1) 18 *循环图片寻找相似的模板 19 for i := 1 to l-1 by 1 20 21 read_image (Image1, ImageFiles[i]) 22 find_ncc_model (Image1, ModelID, -0.39, 0.78, 0.8, 1, 0.5, 'true', 0, Row3, Column3, Angle, Score) 23 24 len:=|Row3| 25 if(len!=0) 26 vector_angle_to_rigid (Row, Column, Phi+rad(90), Row3, Column3, Angle, HomMat2D) 27 affine_trans_region (Rectangle, RegionAffineTrans, HomMat2D, 'nearest_neighbor') 28 dev_display (Image1) 29 dev_display (RegionAffineTrans) 30 else 31 32 dev_display (Image1) 33 disp_message (WindowHandle1, '没有识别到', 'window', -1, -1, 'white', 'false') 34 35 endif 36 37 endfor
