halcon半透明Roi橡皮擦

dev_close_window ()
dev_update_off ()
dev_get_window(WindowHandle)

read_image(Image,'E:/Desktop/123.bmp')

dev_open_window_fit_image (Image, 0, 0, -1, -1, WindowHandle)
set_display_font (WindowHandle, 14, 'mono', 'true', 'false')
dev_set_draw ('fill')
dev_display(Image)

draw_rectangle1(WindowHandle, Row1, Column1, Row2, Column2)
gen_rectangle1(Rectangle, Row1, Column1, Row2, Column2)
reduce_domain(Image, Rectangle, ImageReduced)

edges_sub_pix(ImageReduced, Edges, 'canny', 1, 10, 25)
union_adjacent_contours_xld(Edges, UnionContours, 1, 2, 'attr_keep')
select_shape_xld(UnionContours, SelectedXLD, 'contlength', 'and', 30, 99999)

dev_display(SelectedXLD)
*橡皮擦大小
EraserSize:=20
*橡皮擦形状
EraserType:='rectangle'
gen_empty_obj(region_removeds)
*橡皮擦路过的坐标集
Rows := []
Cols := []
*擦除工作
Button:=0
get_image_size (Image, Width, Height)
compose3 (Image, Image, Image, Image)
gen_image_const (Image1, 'byte', Width, Height)
get_domain (Image1, Domain)
paint_region (Domain, Image1, ImageResult, 250, 'fill')
compose3 ( ImageResult,Image1,Image1,  MultiChannelImage1)
while (Button == 0)
    get_mbutton (WindowHandle, Row, Column, Button)
    while (Button == 1)
        get_mposition (WindowHandle, Row, Column, Button)
        Rows := [Rows,Row]
        Cols := [Cols,Column]
        *生成橡皮擦擦过的区域
        if(EraserType=='rectangle')
            gen_rectangle2 (Eraser,Row, Column,0, EraserSize,EraserSize)
        else
            gen_circle (Eraser, Row, Column, EraserSize)
        endif
        *橡皮擦区域合并
        union2(region_removeds,Eraser,region_removeds)
        reduce_domain (MultiChannelImage1, region_removeds, ImageReduced1)
        paint_gray (ImageReduced1, Image, MixedImage) 
        scale_image (MixedImage, ImageScaled, 0.5, 0)
        scale_image (Image, ImageScaled1, 0.5, 0)
        add_image (ImageScaled, ImageScaled1, ImageResult1, 1, 0)
        dev_display(Image)
        dev_display(ImageResult1)
        dev_display(SelectedXLD)
    endwhile
    dev_display(Image)
    dev_display(ImageResult1)
    dev_display(SelectedXLD)
endwhile

difference (ImageReduced, region_removeds, RegionDifference)
reduce_domain(ImageReduced, RegionDifference, ImageReduced1)
dev_set_colored(12)
edges_sub_pix(ImageReduced1, Edges, 'canny', 1, 20, 45)
union_adjacent_contours_xld(Edges, UnionContours, 1, 2, 'attr_keep')
select_shape_xld(UnionContours, SelectedXLD, 'contlength', 'and', 100, 99999)

create_scaled_shape_model_xld(SelectedXLD, 'auto', rad(0), rad(360), 'auto', 0.9, 1.1, 'auto', 'auto', 'use_polarity', 5, ModelID)
find_scaled_shape_models(ImageReduced, ModelID, rad(0), rad(45), 0.8, 1.1, 0.5, 2, 0, 'least_squares', 0, 0.9, Row, Column, Angle, Scale, Score, Model)

get_shape_model_contours(ModelContours, ModelID, 1)
 vector_angle_to_rigid(0, 0, 0, Row, Column, Angle, HomMat2D)
 affine_trans_contour_xld(ModelContours, ContoursAffineTrans, HomMat2D)

*BinarizedImage(Image, binImage, 250, 255)

list_files ('E:/Desktop/3030', ['files','follow_links'], ImageFiles)
tuple_regexp_select (ImageFiles, ['\\.(tif|tiff|gif|bmp|jpg|jpeg|jp2|png|pcx|pgm|ppm|pbm|xwd|ima|hobj)$','ignore_case'], ImageFiles)
for Index := 0 to |ImageFiles| - 1 by 1
    dev_clear_window()
    read_image (Image1, ImageFiles[Index])
    dev_display(Image1)
    find_scaled_shape_models(Image1, ModelID, rad(0), rad(45), 0.8, 1.1, 0.5, 2, 0, 'least_squares', 0, 0.9, Row, Column, Angle, Scale, Score, Model)
    for i := 0 to |Score| - 1 by 1
        * 计算基于形状匹配结果的变换矩阵。
        get_hom_mat2d_from_matching_result (Row[i], Column[i], Angle[i], Scale[i], Scale[i], MoveAndScalingOfObject)
        * 复制HALCON数据库中的标志性对象。
        copy_obj (ModelContours, ShapeModel, 1, 5)
        * “对XLD轮廓应用任意仿射2D变换。
        affine_trans_contour_xld (ShapeModel, ModelAtNewPosition, MoveAndScalingOfObject)
        dev_display (ModelAtNewPosition)
        stop ()
    endfor
endfor