[Halcon＆几何] 直线的垂线与延长线的计算

一、直线垂直线的计算

1、函数源码

dev_close_window ()
dev_open_window (0, 0, 400, 400, 'black', WindowHandle)
draw_line (WindowHandle, Row1, Col1, Row2, Col2)
*获取直线角度
gen_region_line (RegionLines2, Row1, Col1, Row2, Col2)
gen_contour_region_xld (RegionLines2, Contours, 'border')
elliptic_axis_points_xld (Contours, Ra3, Rb3, Phi)
*获取直线中点
area_center_points_xld (Contours, Area4, RowCenter, ColCenter)
*垂线长度
LineLength:=200
*起点
RowStart := RowCenter-cos(Phi)*LineLength
ColStart := ColCenter-sin(Phi)*LineLength
*终点
RowEnd := RowCenter+cos(Phi)*LineLength
ColEnd := ColCenter+sin(Phi)*LineLength
gen_region_line (Line1, RowStart, ColStart, RowEnd, ColEnd)

2、计算效果

 
二、直线延长线的计算

1、函数源码

dev_close_window ()
dev_open_window (0, 0, 700, 700, 'black', WindowHandle)
draw_line (WindowHandle, Row1, Col1, Row2, Col2)
*获取直线角度
gen_region_line (RegionLines2, Row1, Col1, Row2, Col2)
gen_contour_region_xld (RegionLines2, Contours, 'border')
elliptic_axis_points_xld (Contours, Ra3, Rb3, Phi)
*获取直线中点
area_center_points_xld (Contours, Area4, RowCenter, ColCenter)
***********************生成延长线*************************
*延长线长度
LineLength:=1100
*起点
RowStart := RowCenter-cos(Phi+1.5708)*LineLength
ColStart := ColCenter-sin(Phi+1.5708)*LineLength 
*终点
RowEnd := RowCenter-cos(Phi-1.5708)*LineLength
ColEnd := ColCenter-sin(Phi-1.5708)*LineLength
gen_region_line (Line2, RowStart, ColStart, RowEnd, ColEnd)
dev_display (Line2)

2、计算效果

注： elliptic_axis_points_xld获取直线的角度较line_orientation和line_position求直线角度而言，计算出的延长线精度会更高，可以自行验证，其他角度计算方法可以参考我的博文：[Halcon] 直线中点、端点和角度的计算