已知一条直线,然后把这条直线延长:
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)
原始直线
效果图