基于光流法的运动目标检测

Halcom

1. dev_update_off ()
   
2. dev_close_window ()
   
3. * 初始化一张参考图像
   
4. read_image (Image1, 'xing/xing000')
   
5. dev_open_window_fit_image (Image1, 0, 0, -1, -1, WindowHandle)
   
6. * Set the display parameters for the vector field.
   
7. dev_set_paint (['vector_field',6,1,2])
   
8. dev_set_draw ('margin')
   
9. for I := 1 to 587 by 1
   
10.     * 读取当前图像.
    
11.     read_image (Image2, 'xing/xing' + I  $ '03')
    
12.     * 计算光流optical flow.
    
13.     optical_flow_mg (Image1, Image2, VectorField, 'fdrig', 0.8, 1, 8, 5, 'default_parameters', 'accurate')
    
14.     * 阈值分割
    
15.     threshold (VectorField, Region, 1, 10000)
    
16.    
    
17.     * 显示当前图像以及分割结果
    
18.     dev_display (Image2)
    
19.     * Display the optical flow.
    
20.     dev_set_color ('yellow')
    
21.     dev_set_line_width (1)
    
22.     dev_display (VectorField)
    
23.     * 显示光流分割结果
    
24.     dev_set_color ('green')
    
25.     dev_set_line_width (3)
    
26.     dev_display (Region)
    
27.     * 更新当前参考图像
    
28.     copy_obj (Image2, Image1, 1, 1)
    
29. endfor

复制代码