产生一副图像，修改指定行、指定列的灰度值

Halcom

产生一副图像，修改指定行、指定列的灰度值：

1. dev_set_draw('margin')
   
2. dev_update_off()
   
3. read_image (Image, '43.bmp')
   
4. count_channels(Image, Channels)
   
5. if(Channels>1)
   
6.     rgb1_to_gray(Image, Image)
   
7. endif
   
8. get_image_size(Image, Width, Height)
   
9. 
   
10. ObjWidth:=16
    
11. ObjHeight:=14
    
12. gen_image_const(Obj, 'byte', ObjWidth, ObjHeight)
    
13. gen_image_proto(Obj, Obj, 255)
    
14. 
    
15. tuple_gen_sequence(0, ObjWidth-1, 1, WidthCol)
    
16. tuple_gen_const(ObjWidth, 0, WidthRow)
    
17. tuple_gen_const(ObjWidth, 200, WidthValue)
    
18. * 0-2行
    
19. set_grayval(Obj, WidthRow, WidthCol, WidthValue)
    
20. set_grayval(Obj, WidthRow+1, WidthCol, WidthValue)
    
21. set_grayval(Obj, WidthRow+2, WidthCol, WidthValue)
    
22. * ObjHeight-3-ObjHeight-1
    
23. set_grayval(Obj, WidthRow+ObjHeight-3, WidthCol, WidthValue)
    
24. set_grayval(Obj, WidthRow+ObjHeight-2, WidthCol, WidthValue)
    
25. set_grayval(Obj, WidthRow+ObjHeight-1, WidthCol, WidthValue)
    
26. 
    
27. tuple_gen_sequence(0, ObjHeight-1, 1, HeightRow)
    
28. tuple_gen_const(ObjHeight, 0, HeightCol)
    
29. tuple_gen_const(ObjHeight, 200, HeightValue)
    
30. * 0-1列
    
31. set_grayval(Obj, HeightRow, HeightCol, HeightValue)
    
32. set_grayval(Obj, HeightRow, HeightCol+1, HeightValue)
    
33. * ObjWidth-2-ObjWidth-1
    
34. set_grayval(Obj, HeightRow, HeightCol+ObjWidth-2, HeightValue)
    
35. set_grayval(Obj, HeightRow, HeightCol+ObjWidth-1, HeightValue)

复制代码