Region相关算子_点线距离

dev_close_window()
dev_open_window(0,0,512,512,'black',WindowHandle)
*数组赋值
r := [100,300]
c := [100,300]
*生成一个区域，包括两个点
gen_region_points(Region,r,c)
*获得区域的坐标
get_region_points(Region,Rows,Columns)  
*画线
disp_line(WindowHandle,100,100,300,300) 
*生成直线区域region
gen_region_line(RegionLines,100,100,300,300)
*获得直线区域的坐标
get_region_points(RegionLines,Row1,Column1)
*生成直线区域的坐标
gen_region_line(RegionLine2,300,100,300,100)
*生成直线区域的坐标
gen_region_line(RegionLine3,300,300,300,400)
*求得两直线区域的交点
intersection(RegionLines,RegionLine2,RegionIntersection)
*获得直线区域的方向
orientation_region(RegionLines,Phi)
orientation_region(RegionLine2,Phi2)
orientation_region(RegionLine3,Phi3)
*合并两个区域为一个区域
union2(RegionLines,RegionLine2,RegionUnion)
union2(RegionLines,RegionLine3,RegionUnion1)
gen_region_points(Region1,120,150)
*计算点到区域的距离
distance_pr(RegionLines,120,150,DistanceMin, DistanceMax)
*计算点到点的距离
distance_pp(100,100,300,300,Distance)
distance_pp(120,150,300,300,Distance1)
*计算区域到区域的最小距离及相应的坐标
distance_rr_min(RegionLines,RegionLine3,MinDistance, Row11, Column11, Row2, Column2)


gen_region_line(RegionLines,100,150,120,150)
移动区域

move_region(RegionLines,RegionMoved,-50,0)