halcon根据两个点画一条线

直接上代码

read_image (Image, 'D:/Desktop/000052-1.jpg')
PointRow := [864.121, 5269.88]
PointColumn := [3774.94, 3776.95]  
*画线   
gen_contour_polygon_xld (DrawYellow, PointRow, PointColumn) 
Column:=[1184.43, 1182.63, 1147.13, 1162.04]
tuple_min(PointColumn,PointColumnMin)
tuple_min(Column,ColumnMin)          
if(PointColumnMin> ColumnMin)
  Result := 'NG'
endif 

结语：记录一下，方便查阅。