Opencv学习笔记 判断两条直线重合

z13228604287

操作方法：
  1.鼠标点击两条直线的起点或终点并按住移动，由此可以修改直线。鼠标点击两条直线的中间点并按住移动，由此可以平移直线。
  2.键盘按住1、2、3或4可选择对应的模式，画出不同角度下两条直线重合的情况。键盘按其它的键会退出程序。

  

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
线1	双精度向量4
线2	双精度向量4

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
图像_原始	多维矩阵
图像_原始的初始值	标量
图像	多维矩阵
按键	整数型

视觉_创建窗口 (“小白鼠”, #窗口_自动尺寸 )
图像_原始的初始值.赋值 (255, 255, 255, 0)
图像_原始.构造 (600, 800, #八位无符号整数_三通道, 图像_原始的初始值)
视觉_设置鼠标事件 (“小白鼠”, &鼠标事件, 0)
' 初始化两条线
线1.赋值 (100, 300, 300, 300)
线2.赋值 (500, 300, 700, 300)
循环判断首 ()
图像_原始.克隆 (图像.指针)  ' // 拷贝空白图片，方便重复画图
画图 (图像.指针, 线1, 线2)
视觉_显示图像 (“小白鼠”, 图像.指针)
按键 ＝ 视觉_等待按键 (10)
判断 (按键 ＝ 49)  ' 线1,线2与x轴左倾斜
线1.赋值 (100, 300, 300, 300)
线2.赋值 (500, 300, 700, 300)
判断 (按键 ＝ 50)  ' 线1,线2与x轴垂直
线1.赋值 (400, 50, 400, 250)
线2.赋值 (400, 350, 400, 550)
判断 (按键 ＝ 51)  ' 线1,线2与x轴右倾斜
线1.赋值 (100, 500, 300, 400)
线2.赋值 (500, 300, 700, 200)
如果真 (按键 ＝ 52)  ' 线1,线2与x轴左倾斜
线1.赋值 (100, 200, 300, 300)
线2.赋值 (500, 400, 700, 500)

如果真 (按键 ＞ 48 且 按键 ＜ 53)
按键 ＝ -1

循环判断尾 (按键 ＝ -1)
调试输出 (按键)
视觉_销毁所有窗口 ()
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
鼠标事件
参数名	类 型	参考	可空	数组	备 注
event	整数型
x	整数型
y	整数型
flags	整数型

变量名	类 型	静态	数组	备 注
点1	二维坐标数据结构d
点2	二维坐标数据结构d
区域	双精度向量6
w	双精度小数型
h	双精度小数型

判断 (event ＝ #事件_按下左键 )
点1.赋值 (x, y)
定义区域 (线1, 线2, 点1, 区域)
判断 (event ＝ #事件_鼠标移动 )
点2.赋值 (x, y)
w ＝ 点2.横坐标 － 点1.横坐标
h ＝ 点2.纵坐标 － 点1.纵坐标
调整线 (线1, 线2, 区域, w, h)
如果真 (event ＝ #事件_释放左键 )
点1.赋值 (0, 0)
点2.赋值 (0, 0)
区域.赋值 (-1, 0, 0, 0, 0, 0)

子程序名	返回值类型	公开	备 注
定义区域			确定鼠标左键点击在两条直线的那个点上
参数名	类 型	参考	可空	数组	备 注
l1	双精度向量4
l2	双精度向量4
p	二维坐标数据结构d
区域	双精度向量6

变量名	类 型	静态	数组	备 注
w	双精度小数型
h	双精度小数型
局x1	双精度小数型
局y1	双精度小数型
局x2	双精度小数型
局y2	双精度小数型
局x3	双精度小数型
局y3	双精度小数型
局x4	双精度小数型
局y4	双精度小数型
局r0	矩形数据结构d
局p1	二维坐标数据结构d
局r1	矩形数据结构d
局r2	矩形数据结构d
局r3	矩形数据结构d
局p2	二维坐标数据结构d
局r4	矩形数据结构d
局r5	矩形数据结构d

w ＝ 20
h ＝ 20
局x1 ＝ l1.取元素1 ()
局y1 ＝ l1.取元素2 ()
局x2 ＝ l1.取元素3 ()
局y2 ＝ l1.取元素4 ()
局x3 ＝ l2.取元素1 ()
局y3 ＝ l2.取元素2 ()
局x4 ＝ l2.取元素3 ()
局y4 ＝ l2.取元素4 ()
局r0.赋值 (局x1 － w, 局y1 － h, 2 × w, 2 × h)  ' l1的起点点
局p1.赋值 ( (局x2 ＋ 局x1) ÷ 2, (局y1 ＋ 局y2) ÷ 2)  ' l1的中间点
局r1.赋值 (局p1.横坐标 － w, 局p1.纵坐标 － h, 2 × w, 2 × h)
局r2.赋值 (局x2 － w, 局y2 － h, 2 × w, 2 × h)  ' l1的终点
局r3.赋值 (局x3 － w, 局y3 － h, 2 × w, 2 × h)  ' l2的起点
局p2.赋值 ( (局x3 ＋ 局x4) ÷ 2, (局y3 ＋ 局y4) ÷ 2)  ' l2的中间点
局r4.赋值 (局p2.横坐标 － w, 局p2.纵坐标 － h, 2 × w, 2 × h)
局r5.赋值 (局x4 － w, 局y4 － h, 2 × w, 2 × h)  ' l2的终点
判断 (局r0.包含 (p))  ' 判断点是否在矩形中
区域.赋值 (0, 局x1, 局y1, 0, 0, 0)
判断 (局r1.包含 (p))
区域.赋值 (1, 局x1, 局y1, 局x2, 局y2, 0)
判断 (局r2.包含 (p))
区域.赋值 (2, 局x2, 局y2, 0, 0, 0)
判断 (局r3.包含 (p))
区域.赋值 (3, 局x3, 局y3, 0, 0, 0)
判断 (局r4.包含 (p))
区域.赋值 (4, 局x3, 局y3, 局x4, 局y4, 0)
如果真 (局r5.包含 (p))
区域.赋值 (5, 局x4, 局y4, 0, 0, 0)

子程序名	返回值类型	公开	备 注
画图
参数名	类 型	参考	可空	数组	备 注
图像指针	整数型
局线1	双精度向量4
局线2	双精度向量4

变量名	类 型	静态	数组	备 注
延长线始	二维坐标数据结构d
延长线终	二维坐标数据结构d
颜色	标量

颜色.赋值 (0, 255, 0, 0)
视觉_线Zd (图像指针, 局线1.取元素1 (), 局线1.取元素2 (), 局线1.取元素3 (), 局线1.取元素4 (), 颜色, 1, 8, 0)
视觉_线Zd (图像指针, 局线2.取元素1 (), 局线2.取元素2 (), 局线2.取元素3 (), 局线2.取元素4 (), 颜色, 1, 8, 0)
判断 (视觉_线段是否重合 (局线1.取元素1 (), 局线1.取元素2 (), 局线1.取元素3 (), 局线1.取元素4 (), 局线2.取元素1 (), 局线2.取元素2 (), 局线2.取元素3 (), 局线2.取元素4 ()))
视觉_放置文本Zi (图像指针, “yes”, 10, 25, #字体_衬线_复杂, 0.5, 颜色, 1, 8, 假)
视觉_延伸 (图像指针, 局线1.取元素1 (), 局线1.取元素2 (), 局线1.取元素3 (), 局线1.取元素4 (), 延长线始, 延长线终)
视觉_虚线d (图像指针, 延长线始, 延长线终, 15, 颜色, 1, 8, 0)
颜色.赋值 (0, 0, 255, 0)
视觉_放置文本Zi (图像指针, “no”, 10, 25, #字体_衬线_复杂, 0.5, 颜色, 1, 8, 假)

子程序名	返回值类型	公开	备 注
调整线			确定鼠标左键点击在两条直线的那个点上
参数名	类 型	参考	可空	数组	备 注
l1	双精度向量4
l2	双精度向量4
area1	双精度向量6
w	双精度小数型
h	双精度小数型

判断 (area1.取元素1 () ＝ 0)
l1.赋值 (area1.取元素2 () ＋ w, area1.取元素3 () ＋ h, l1.取元素3 (), l1.取元素4 ())
判断 (area1.取元素1 () ＝ 1)
l1.赋值 (area1.取元素2 () ＋ w, area1.取元素3 () ＋ h, area1.取元素4 () ＋ w, area1.取元素5 () ＋ h)
判断 (area1.取元素1 () ＝ 2)
l1.赋值 (l1.取元素1 (), l1.取元素2 (), area1.取元素2 () ＋ w, area1.取元素3 () ＋ h)
判断 (area1.取元素1 () ＝ 3)
l2.赋值 (area1.取元素2 () ＋ w, area1.取元素3 () ＋ h, l2.取元素3 (), l2.取元素4 ())
判断 (area1.取元素1 () ＝ 4)
l2.赋值 (area1.取元素2 () ＋ w, area1.取元素3 () ＋ h, area1.取元素4 () ＋ w, area1.取元素5 () ＋ h)
如果真 (area1.取元素1 () ＝ 5)
l2.赋值 (l2.取元素1 (), l2.取元素2 (), area1.取元素2 () ＋ w, area1.取元素3 () ＋ h)

i支持库列表	支持库注释
cv	(未知支持库)
spec	特殊功能支持库

.版本 2<br /> .支持库 cv<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> .程序集变量 线1, 双精度向量4<br /> .程序集变量 线2, 双精度向量4<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 图像_原始, 多维矩阵<br /> .局部变量 图像_原始的初始值, 标量<br /> .局部变量 图像, 多维矩阵<br /> .局部变量 按键, 整数型<br /> <br /> 视觉_创建窗口 (“小白鼠”, #窗口_自动尺寸)<br /> 图像_原始的初始值.赋值 (255, 255, 255, 0)<br /> 图像_原始.构造 (600, 800, #八位无符号整数_三通道, 图像_原始的初始值)<br /> 视觉_设置鼠标事件 (“小白鼠”, &鼠标事件, 0)<br /> ' 初始化两条线<br /> 线1.赋值 (100, 300, 300, 300)<br /> 线2.赋值 (500, 300, 700, 300)<br /> .循环判断首 ()<br />     图像_原始.克隆 (图像.指针)  ' // 拷贝空白图片，方便重复画图<br />     画图 (图像.指针, 线1, 线2)<br />     视觉_显示图像 (“小白鼠”, 图像.指针)<br />     按键 ＝ 视觉_等待按键 (10)<br />     .判断开始 (按键 ＝ 49)  ' 线1,线2与x轴左倾斜<br />         线1.赋值 (100, 300, 300, 300)<br />         线2.赋值 (500, 300, 700, 300)<br />     .判断 (按键 ＝ 50)  ' 线1,线2与x轴垂直<br />         线1.赋值 (400, 50, 400, 250)<br />         线2.赋值 (400, 350, 400, 550)<br />     .判断 (按键 ＝ 51)  ' 线1,线2与x轴右倾斜<br />         线1.赋值 (100, 500, 300, 400)<br />         线2.赋值 (500, 300, 700, 200)<br />     .默认<br />         .如果真 (按键 ＝ 52)  ' 线1,线2与x轴左倾斜<br />             线1.赋值 (100, 200, 300, 300)<br />             线2.赋值 (500, 400, 700, 500)<br />         .如果真结束<br /> <br />     .判断结束<br />     .如果真 (按键 ＞ 48 且 按键 ＜ 53)<br />         按键 ＝ -1<br />     .如果真结束<br /> <br /> .循环判断尾 (按键 ＝ -1)<br /> 调试输出 (按键)<br /> 视觉_销毁所有窗口 ()<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 鼠标事件<br /> .参数 event, 整数型<br /> .参数 x, 整数型<br /> .参数 y, 整数型<br /> .参数 flags, 整数型<br /> .局部变量 点1, 二维坐标数据结构d, 静态<br /> .局部变量 点2, 二维坐标数据结构d, 静态<br /> .局部变量 区域, 双精度向量6, 静态<br /> .局部变量 w, 双精度小数型<br /> .局部变量 h, 双精度小数型<br /> <br /> .判断开始 (event ＝ #事件_按下左键)<br />     点1.赋值 (x, y)<br />     定义区域 (线1, 线2, 点1, 区域)<br /> .判断 (event ＝ #事件_鼠标移动)<br />     点2.赋值 (x, y)<br /> .默认<br />     w ＝ 点2.横坐标 － 点1.横坐标<br />     h ＝ 点2.纵坐标 － 点1.纵坐标<br />     调整线 (线1, 线2, 区域, w, h)<br /> .判断结束<br /> .如果真 (event ＝ #事件_释放左键)<br />     点1.赋值 (0, 0)<br />     点2.赋值 (0, 0)<br />     区域.赋值 (-1, 0, 0, 0, 0, 0)<br /> .如果真结束<br /> <br /> <br /> .子程序 定义区域, , , 确定鼠标左键点击在两条直线的那个点上<br /> .参数 l1, 双精度向量4<br /> .参数 l2, 双精度向量4<br /> .参数 p, 二维坐标数据结构d<br /> .参数 区域, 双精度向量6<br /> .局部变量 w, 双精度小数型<br /> .局部变量 h, 双精度小数型<br /> .局部变量 局x1, 双精度小数型<br /> .局部变量 局y1, 双精度小数型<br /> .局部变量 局x2, 双精度小数型<br /> .局部变量 局y2, 双精度小数型<br /> .局部变量 局x3, 双精度小数型<br /> .局部变量 局y3, 双精度小数型<br /> .局部变量 局x4, 双精度小数型<br /> .局部变量 局y4, 双精度小数型<br /> .局部变量 局r0, 矩形数据结构d<br /> .局部变量 局p1, 二维坐标数据结构d<br /> .局部变量 局r1, 矩形数据结构d<br /> .局部变量 局r2, 矩形数据结构d<br /> .局部变量 局r3, 矩形数据结构d<br /> .局部变量 局p2, 二维坐标数据结构d<br /> .局部变量 局r4, 矩形数据结构d<br /> .局部变量 局r5, 矩形数据结构d<br /> <br /> w ＝ 20<br /> h ＝ 20<br /> 局x1 ＝ l1.取元素1 ()<br /> 局y1 ＝ l1.取元素2 ()<br /> 局x2 ＝ l1.取元素3 ()<br /> 局y2 ＝ l1.取元素4 ()<br /> 局x3 ＝ l2.取元素1 ()<br /> 局y3 ＝ l2.取元素2 ()<br /> 局x4 ＝ l2.取元素3 ()<br /> 局y4 ＝ l2.取元素4 ()<br /> 局r0.赋值 (局x1 － w, 局y1 － h, 2 × w, 2 × h)  ' l1的起点点<br /> 局p1.赋值 ((局x2 ＋ 局x1) ÷ 2, (局y1 ＋ 局y2) ÷ 2)  ' l1的中间点<br /> 局r1.赋值 (局p1.横坐标 － w, 局p1.纵坐标 － h, 2 × w, 2 × h)<br /> 局r2.赋值 (局x2 － w, 局y2 － h, 2 × w, 2 × h)  ' l1的终点<br /> 局r3.赋值 (局x3 － w, 局y3 － h, 2 × w, 2 × h)  ' l2的起点<br /> 局p2.赋值 ((局x3 ＋ 局x4) ÷ 2, (局y3 ＋ 局y4) ÷ 2)  ' l2的中间点<br /> 局r4.赋值 (局p2.横坐标 － w, 局p2.纵坐标 － h, 2 × w, 2 × h)<br /> 局r5.赋值 (局x4 － w, 局y4 － h, 2 × w, 2 × h)  ' l2的终点<br /> .判断开始 (局r0.包含 (p))  ' 判断点是否在矩形中<br />     区域.赋值 (0, 局x1, 局y1, 0, 0, 0)<br /> .判断 (局r1.包含 (p))<br />     区域.赋值 (1, 局x1, 局y1, 局x2, 局y2, 0)<br /> .判断 (局r2.包含 (p))<br />     区域.赋值 (2, 局x2, 局y2, 0, 0, 0)<br /> .判断 (局r3.包含 (p))<br />     区域.赋值 (3, 局x3, 局y3, 0, 0, 0)<br /> .判断 (局r4.包含 (p))<br />     区域.赋值 (4, 局x3, 局y3, 局x4, 局y4, 0)<br /> .默认<br />     .如果真 (局r5.包含 (p))<br />         区域.赋值 (5, 局x4, 局y4, 0, 0, 0)<br />     .如果真结束<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 画图<br /> .参数 图像指针, 整数型<br /> .参数 局线1, 双精度向量4<br /> .参数 局线2, 双精度向量4<br /> .局部变量 延长线始, 二维坐标数据结构d<br /> .局部变量 延长线终, 二维坐标数据结构d<br /> .局部变量 颜色, 标量<br /> <br /> 颜色.赋值 (0, 255, 0, 0)<br /> 视觉_线Zd (图像指针, 局线1.取元素1 (), 局线1.取元素2 (), 局线1.取元素3 (), 局线1.取元素4 (), 颜色, 1, 8, 0)<br /> 视觉_线Zd (图像指针, 局线2.取元素1 (), 局线2.取元素2 (), 局线2.取元素3 (), 局线2.取元素4 (), 颜色, 1, 8, 0)<br /> .判断开始 (视觉_线段是否重合 (局线1.取元素1 (), 局线1.取元素2 (), 局线1.取元素3 (), 局线1.取元素4 (), 局线2.取元素1 (), 局线2.取元素2 (), 局线2.取元素3 (), 局线2.取元素4 ()))<br />     视觉_放置文本Zi (图像指针, “yes”, 10, 25, #字体_衬线_复杂, 0.5, 颜色, 1, 8, 假)<br />     视觉_延伸 (图像指针, 局线1.取元素1 (), 局线1.取元素2 (), 局线1.取元素3 (), 局线1.取元素4 (), 延长线始, 延长线终)<br />     视觉_虚线d (图像指针, 延长线始, 延长线终, 15, 颜色, 1, 8, 0)<br /> .默认<br />     颜色.赋值 (0, 0, 255, 0)<br />     视觉_放置文本Zi (图像指针, “no”, 10, 25, #字体_衬线_复杂, 0.5, 颜色, 1, 8, 假)<br /> .判断结束<br /> <br /> <br /> <br /> .子程序 调整线, , , 确定鼠标左键点击在两条直线的那个点上<br /> .参数 l1, 双精度向量4<br /> .参数 l2, 双精度向量4<br /> .参数 area1, 双精度向量6<br /> .参数 w, 双精度小数型<br /> .参数 h, 双精度小数型<br /> <br /> .判断开始 (area1.取元素1 () ＝ 0)<br />     l1.赋值 (area1.取元素2 () ＋ w, area1.取元素3 () ＋ h, l1.取元素3 (), l1.取元素4 ())<br /> .判断 (area1.取元素1 () ＝ 1)<br />     l1.赋值 (area1.取元素2 () ＋ w, area1.取元素3 () ＋ h, area1.取元素4 () ＋ w, area1.取元素5 () ＋ h)<br /> .判断 (area1.取元素1 () ＝ 2)<br />     l1.赋值 (l1.取元素1 (), l1.取元素2 (), area1.取元素2 () ＋ w, area1.取元素3 () ＋ h)<br /> .判断 (area1.取元素1 () ＝ 3)<br />     l2.赋值 (area1.取元素2 () ＋ w, area1.取元素3 () ＋ h, l2.取元素3 (), l2.取元素4 ())<br /> .判断 (area1.取元素1 () ＝ 4)<br />     l2.赋值 (area1.取元素2 () ＋ w, area1.取元素3 () ＋ h, area1.取元素4 () ＋ w, area1.取元素5 () ＋ h)<br /> .默认<br />     .如果真 (area1.取元素1 () ＝ 5)<br />         l2.赋值 (l2.取元素1 (), l2.取元素2 (), area1.取元素2 () ＋ w, area1.取元素3 () ＋ h)<br />     .如果真结束<br /> <br /> .判断结束

链接：https://pan.baidu.com/s/1VSYkILerRQsoDiIhl-6eTQ
提取码：4ypk
复制这段内容后打开百度网盘手机App，操作更方便哦