halcon直线延长

已知一条直线，然后把这条直线延长：

gen_image_const (Image, 'byte', 512, 512)
draw_line (200000, Row1, Column1, Row2, Column2)
*直线方程y=k*x+b
get_image_size (Image, Width, Height)
*特殊情况水平线
if (Row2-Row1==0)
    k:=0
    gen_contour_polygon_xld (Contour,[Row2,Row2], [0,Width])
else
    k:=(Column2-Column1) /(Row2-Row1) 
    b:=(Column2-k*Row2)
    row1:=0
    row2:=Height-1
    col1:=k*row1+b
    col2:=k*row2+b
    gen_contour_polygon_xld (Contour,[row1,row2], [col1,col2])
endif

方法二：
已知点（row,col），线长度L，线角度(弧度)angle，求过该点的直线
起始点：row1:=row+L*sin(angle)   col1:=col-L*cos(angle)
终点：row2:=row-L*sin(angle)   col2:=col+L*cos(angle)

原始直线
效果图