逐行读取并写入图像灰度值

Halcom

获取图像的一行灰度值，并且将这一行灰度值，写入另一幅图像的某一行

1. NumProfiles := 441
   
2. DisparityRange := 512
   
3. ProfileWidth := 626
   
4. * Init display
   
5. dev_update_off ()
   
6. dev_close_window ()
   
7. dev_open_window_fit_size (0, 0, ProfileWidth, NumProfiles, -1, -1, WindowHandle)
   
8. set_display_font (WindowHandle, 16, 'mono', 'true', 'false')
   
9. * 初始化一幅图像
   
10. gen_image_const (Image, 'uint2', ProfileWidth, NumProfiles)
    
11. * main loop
    
12. for Index := 0 to NumProfiles - 1 by 1
    
13.     read_image (ImageModel, 'sheet_of_light/metal_part_1_disparity_line_' + Index $ '03d')
    
14.     * 逐行读取灰度值
    
15.     get_grayval (ImageModel, gen_tuple_const(ProfileWidth,0), [0:ProfileWidth - 1], Grayval)
    
16.     * 逐行写入灰度值
    
17.     set_grayval (Image, gen_tuple_const(ProfileWidth,Index), [0:ProfileWidth - 1], Grayval)
    
18.     if (Index % 5 == 0)
    
19.         dev_display (Image)
    
20.     endif
    
21.     Message := 'Measure reference object'
    
22.     Message[1] := 'Add profile ' + (Index + 1) + '/' + NumProfiles
    
23.     disp_message (WindowHandle, Message, 'window', 12, 12, 'black', 'true')
    
24. endfor
    
25. Message := 'Prepare the model for distance measurement ...'
    
26. disp_message (WindowHandle, Message, 'window', 60, 12, 'black', 'true')
    

复制代码