多模板例子分享

1. dev_close_window ()
   
2. read_image (Image, '../../Images/Demo.BMP')//读取图像
   
3. rgb1_to_gray (Image, Image)
   
4. get_image_size (Image, Width, Height)
   
5. dev_open_window_fit_image(Image, 0,0,Width,Height,WND)
   
6. dev_display (Image)
   
7. 
   
8. *-------------------------------------------------
   
9. dev_set_draw ('margin')//设置轮廓
   
10. dev_set_line_width (3)//设置线宽
    
11. ModelIds := []
    
12. 
    
13. NumLevels := 4   //金字塔层数'auto'
    
14. AngleStart := rad(-10)  //识别起始角度
    
15. AngleExten := rad(20)  //识别角度范围
    
16. AngleStep := 'auto'   //角度步长
    
17. Metric := 'ignore_global_polarity' //图像与模型是颠倒（反相）的，也能够被识别
    
18. 
    
19. *-------------------------------------------------
    
20. *模板1
    
21. dev_set_color ('red')
    
22. draw_rectangle1 (WND, Row11, Column11, Row12, Column12)
    
23. gen_rectangle1 (Rectangle1, Row11, Column11, Row12, Column12)
    
24. reduce_domain (Image, Rectangle1, ImageReduced1)//按区域缩小图像
    
25. *创建NCC匹配模型
    
26. create_ncc_model (ImageReduced1, NumLevels, AngleStart, AngleExten, AngleStep, Metric, ModelID)
    
27. ModelIds := [ModelIds,ModelID]
    
28. 
    
29. *-------------------------------------------------
    
30. *模板2
    
31. dev_set_color ('green')
    
32. draw_rectangle1 (WND, Row21, Column21, Row22, Column22)
    
33. gen_rectangle1 (Rectangle2, Row21, Column21, Row22, Column22)
    
34. reduce_domain (Image, Rectangle2, ImageReduced2)//按区域缩小图像
    
35. *创建NCC匹配模型
    
36. create_ncc_model (ImageReduced2, NumLevels, AngleStart, AngleExten, AngleStep, Metric, ModelID)
    
37. ModelIds := [ModelIds,ModelID]
    
38. 
    
39. *-------------------------------------------------
    
40. *模板3
    
41. dev_set_color ('green')
    
42. draw_rectangle1 (WND, Row31, Column31, Row32, Column32)
    
43. gen_rectangle1 (Rectangle3, Row31, Column31, Row32, Column32)
    
44. reduce_domain (Image, Rectangle3, ImageReduced3)//按区域缩小图像
    
45. *创建NCC匹配模型
    
46. create_ncc_model (ImageReduced3, NumLevels, AngleStart, AngleExten, AngleStep, Metric, ModelID)
    
47. ModelIds := [ModelIds,ModelID]
    
48. 
    
49. *-------------------------------------------------
    
50. 
    
51. MinScore := 0.6   //最小匹配值
    
52. NumMatches := 30    //[1,1,2]   //最多可识别的数量
    
53. MaxOverlap := 0  //遮盖系数
    
54. NumLevels := 4    //金字塔层数
    
55. 
    
56. tuple_length(ModelIds, lens)
    
57. for i := 0 to lens-1 by 1  
    
58.     set_ncc_model_param (ModelIds[i], 'timeout', 10000)//超时ms
    
59. endfor
    
60. 
    
61. *匹配图像目标
    
62. count_seconds (Seconds1)
    
63. find_ncc_models (Image, ModelIds, AngleStart, AngleExten, MinScore, NumMatches, MaxOverlap, 'true', NumLevels, Row, Column, Angle, Score, Model)
    
64. count_seconds (Seconds2)
    
65. *从点和角度方面计算一个严格的仿射变换
    
66. 
    
67. *-------------------------------------------------
    
68. dev_display (Image)//显示图像
    
69. if (Score =[])
    
70.     disp_message (WND, '查找失败,没有找出目标 ', 'image', 12, 12, 'black', 'true')
    
71. else
    
72.     dev_display (Image)//显示图像
    
73.     gen_cross_contour_xld (Cross, Row, Column, 16, Angle)
    
74.     disp_message (WND, '模版匹配值： '+ Score$'4.2f', 'image', 10, 12, 'red', 'true')
    
75. endif
    
76. 
    
77. disp_message (WND,  '共耗时： ' + 1000*(Seconds2-Seconds1)+'ms', 'image', 10, 200, 'blue', 'true')
    
78. 
    
79. stop()
    
80. dev_clear_window()
    
81. dev_display (Image)[/i]

复制代码

向老师学习

向前辈学习一下

又学习了一招