halcon学习鼠标交互

bugmoo

已于 2022-04-03 16:35:14 修改

阅读量2.3k

点赞数 1

分类专栏： halcon 文章标签：计算机视觉

于 2021-10-11 09:17:54 首次发布

本文链接：https://blog.csdn.net/jlldljt/article/details/120626056

版权

halcon 专栏收录该内容

8 篇文章 0 订阅

订阅专栏

1 鼠标绘图

dev_get_window (WindowHandle)
dev_clear_window ()
* 画可旋转矩形
draw_rectangle2 (WindowHandle, Row, Column, Phi, Length1, Length2)
gen_rectangle2 (Rectangle, Row, Column, Phi, Length1, Length2)
* 画任意曲线
draw_polygon (PolygonRegion, WindowHandle)
* 画任意形状闭合区域
draw_region (Region, WindowHandle)

2 鼠标选择

2.1 使用test_region_point

dev_get_window (WindowHandle)
dev_clear_window ()
read_image (Image, 'pellets')
* 分水岭提取区域
gauss_filter (Image, ImageGauss, 9)
sobel_amp (ImageGauss, EdgeAmplitude, 'sum_abs', 3)
watersheds_threshold  (EdgeAmplitude, Basins, 10)
disp_message (WindowHandle, '选择区域', 'window', 12, 12, 'black', 'true')
* 等待鼠标点击某区域
get_mbutton_sub_pix (WindowHandle, RowPress, ColumnPress, Button)
gen_cross_contour_xld (CrossPress, RowPress, ColumnPress,20, rad(45))
* 遍历找出点击的区域
count_obj (Basins, Number)
for Index := 1 to Number by 1
    select_obj (Basins, ObjectSelected, Index)
    *测试点击的坐标是否在该ObjectSelected区域内
    test_region_point (ObjectSelected, RowPress, ColumnPress, IsInside)
    if (IsInside)
        gen_contour_region_xld (ObjectSelected, Contour, 'border')
        dev_display (Image)
        dev_display (CrossPress)
        dev_display (Contour)
        break
    endif
endfor
stop ()

2.2 使用test_xld_point

dev_get_window (WindowHandle)
dev_clear_window ()
read_image (Image, 'pellets')
* 分水岭提取区域
gauss_filter (Image, ImageGauss, 9)
sobel_amp (ImageGauss, EdgeAmplitude, 'sum_abs', 3)
watersheds_threshold  (EdgeAmplitude, Basins, 10)
* 赛选区域，去掉背景区域，防止test_xld_point误判
select_shape (Basins, SelectedRegions, 'area', 'and', 150, 10000)
dev_display (SelectedRegions)
disp_message (WindowHandle, '选择区域', 'window', 12, 12, 'black', 'true')
* 等待鼠标点击某区域
get_mbutton_sub_pix (WindowHandle, RowPress, ColumnPress, Button)
gen_cross_contour_xld (CrossPress, RowPress, ColumnPress,20, rad(45))
* 遍历找出点击的区域
count_obj (SelectedRegions, Number)
for Index := 1 to Number by 1
    select_obj (SelectedRegions, ObjectSelected, Index)
    gen_contour_region_xld (ObjectSelected, Contour, 'border')
    *测试点击的坐标是否在该Contour轮廓内
    test_xld_point (Contour, RowPress, ColumnPress, IsInside)
    *测试点击的坐标是否在该ObjectSelected区域内
    *test_region_point (ObjectSelected, RowPress, ColumnPress, IsInside)
    if (IsInside)
        dev_display (Image)
        dev_display (CrossPress)
        dev_display (Contour)
        break
    endif
endfor
stop ()