HALCON-二维位置定位-Clip.hdev

* clip.hdev: Orientation of clips
* 

//关闭图形窗口的图像
dev_update_window ('off')

//读入图像
read_image (Clip, 'clip')

//获得图像大小
get_image_size (Clip, Width, Height)

//关闭窗口
dev_close_window ()

//打开指定窗口
dev_open_window (0, 0, Width / 2, Height / 2, 'black', WindowID)

//显示图像
dev_display (Clip)

//设置窗口字体
set_display_font (WindowID, 14, 'mono', 'true', 'false')

//窗口显示“按F5继续运行”
disp_continue_message (WindowID, 'black', 'true')

//暂停
stop ()

//阈值化
binary_threshold (Clip, Dark, 'max_separability', 'dark', UsedThreshold)

//连通区域
connection (Dark, Single)

//按面积大小选择区域
select_shape (Single, Selected, 'area', 'and', 5000, 10000)

//定义region填充方式
dev_set_draw ('fill')

//设置颜色数量
dev_set_colored (12)

显示Region
dev_display (Selected)

 

//窗口显示“按F5继续运行”
disp_continue_message (WindowID, 'black', 'true')

//暂停
stop ()

//显示图像
dev_display (Clip)

//设置Region颜色
dev_set_color ('green')

//显示区域
dev_display (Selected)

//计算region方向
orientation_region (Selected, Phi)

//计算region中心面积和坐标
area_center (Selected, Area, Row, Column)

//设置线宽3
dev_set_line_width (3)

//设置region填充方式
dev_set_draw ('margin')
Length := 80

//|Phi| 是求个数
for i := 0 to |Phi| - 1 by 1

    //设置颜色
    dev_set_color ('blue')

//显示箭头
    disp_arrow (WindowID, Row[i], Column[i], Row[i] - Length * sin(Phi[i]), Column[i] + Length * cos(Phi[i]), 4)

//显示消息 deg(Phi[i])转换成角度，$'3.1f'最多三位整数，一位小数
    disp_message (WindowID, deg(Phi[i])$'3.1f' + ' deg', 'image', Row[i], Column[i] - 100, 'black', 'false')
endfor

//显示图形窗口
dev_update_window ('on')