halcon学习鼠标交互

原创已于 2022-04-03 16:35:14 修改 · 3k 阅读

15 ·

CC 4.0 BY-SA版权

文章标签：

#计算机视觉

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

halcon 专栏收录该内容

8 篇文章

订阅专栏

本文详细介绍了在图像处理中如何利用鼠标进行绘图，包括绘制矩形、曲线和任意形状闭合区域。同时，通过test_region_point和test_xld_point函数，阐述了如何利用鼠标选择图像中的特定区域，实现精确的图像分析和操作。内容涵盖了从基本的图像读取、滤波到分水岭算法的应用，以及如何通过鼠标交互进行对象选择和验证。

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 ()