read_image (Image, '172536yz2vqp2ji29j9b63.png')
*计算提线参数
MaxLineWidth := 29
Contrast := 10
calculate_lines_gauss_parameters (MaxLineWidth, 40, Sigma, Low, High)
*提取中心线
lines_gauss (Image, Lines, Sigma, Low, High, 'light', 'true', 'parabolic', 'true')
*合并共直线线段
union_collinear_contours_xld (Lines, UnionContours, 10, 1, 10, rad(30), 'attr_keep')
*按长度筛选线段
select_contours_xld (UnionContours, SelectedContours, 'contour_length', 20, 999999, -0.5, 0.5)
*显示结果
dev_display (Image)
dev_set_color ('red')
dev_display (SelectedContours) |