Opencv学习笔记 判断两条直线平行，并计算平行距离

z13228604287

  

窗口程序集名	保 留	保 留	备 注
OPENCV			4.5.3
变量名	类 型	数组	备 注
线段1	双精度向量4
线段2	双精度向量4
颜色	标量
距离颜色	标量
延长线颜色	标量
area	双精度向量6

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

变量名	类 型	静态	数组	备 注
图像	多维矩阵
值	标量
画板	多维矩阵
按键	整数型

' 初始化
area.赋值 (-1, 0, 0, 0, 0, 0)
线段1.赋值 (200, 200, 600, 200)
线段2.赋值 (200, 400, 600, 400)  ' 平行的两条线
值.赋值 (255, 255, 255, 0)
颜色.赋值 (0, 0, 255, 0)
距离颜色.赋值 (0, 255, 0, 0)
延长线颜色.赋值 (255, 0, 0, 0)
' 开始执行
视觉_创建窗口 (“小白鼠”, #窗口_自动尺寸 )
图像.构造 (600, 800, #八位无符号整数_三通道, 值)  ' 创建一个纯白色背景
视觉_设置鼠标事件 (“小白鼠”, &鼠标事件, 0)  ' 调用鼠标回调函数
判断循环首 (真)
图像.克隆 (画板.指针)
画图 (画板, 线段1, 线段2)
视觉_显示图像 (“小白鼠”, 画板.指针)
按键 ＝ 视觉_等待按键 (3)
判断 (按键 ＝ 49)  ' l1,l2与x轴平行
线段1.赋值 (200, 200, 600, 200)
线段2.赋值 (200, 400, 600, 400)
判断 (按键 ＝ 50)  ' l1,l2与x轴垂直
线段1.赋值 (300, 200, 300, 400)
线段2.赋值 (500, 200, 500, 400)
判断 (按键 ＝ 51)  ' l1,l2与x轴右倾斜
线段1.赋值 (200, 450, 600, 150)
线段2.赋值 (200, 500, 600, 200)
判断 (按键 ＝ 52)  ' l1,l2与x轴左倾斜
线段1.赋值 (100, 100, 500, 500)
线段2.赋值 (100, 150, 500, 550)
如果真 (按键 ＞ 0 且 按键 ＜ 49 或 按键 ＞ 52)
跳出循环 ()


判断循环尾 ()
返回 (0)  ' 可以根据您的需要返回任意数值

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

变量名	类 型	静态	数组	备 注
p1	二维坐标数据结构d
p2	二维坐标数据结构d
w	双精度小数型
h	双精度小数型

判断 (event ＝ #事件_按下左键 )
p1.赋值 (x, y)
定义区域 (线段1, 线段2, p1, area)  ' 确定鼠标所要移动的区域
判断 (event ＝ #事件_鼠标移动 )
如果真 (area.取元素1 () ＞ -1)
p2.赋值 (x, y)
w ＝ p2.横坐标 － p1.横坐标
h ＝ p2.纵坐标 － p1.纵坐标
移动线 (线段1, 线段2, area, w, h)  ' 根据鼠标移动相应的修改直线的起点和终点

如果真 (event ＝ #事件_释放左键 )
p1.赋值 (0, 0)
p2.赋值 (0, 0)
area.赋值 (-1, 0, 0, 0, 0, 0)

子程序名	返回值类型	公开	备 注
移动线			确定鼠标左键点击在两条直线的那个点上
参数名	类 型	参考	可空	数组	备 注
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)

子程序名	返回值类型	公开	备 注
定义区域			确定鼠标左键点击在两条直线的那个点上
参数名	类 型	参考	可空	数组	备 注
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

变量名	类 型	静态	数组	备 注
距离	双精度小数型
文本位置	二维坐标数据结构i
端点1	二维坐标数据结构d
端点2	二维坐标数据结构d
中心	二维坐标数据结构d
垂足点	二维坐标数据结构d

距离 ＝ 视觉_平行线 (局线段1.取元素1 (), 局线段1.取元素2 (), 局线段1.取元素3 (), 局线段1.取元素4 (), 局线段2.取元素1 (), 局线段2.取元素2 (), 局线段2.取元素3 (), 局线段2.取元素4 ())
判断 (距离 ＞ 0)  ' 重合
文本位置.赋值 (10, 25)
视觉_放置文本i (图像.指针, “yes spacing =” ＋ 到文本 (距离), 文本位置, #字体_衬线_复杂, 0.5, 颜色, 1, 8, 假)
视觉_延伸 (图像.指针, 局线段1.取元素1 (), 局线段1.取元素2 (), 局线段1.取元素3 (), 局线段1.取元素4 (), 端点1, 端点2)
视觉_虚线d (图像.指针, 端点1, 端点2, 15, 延长线颜色, 1, 8, 0)
视觉_延伸 (图像.指针, 局线段2.取元素1 (), 局线段2.取元素2 (), 局线段2.取元素3 (), 局线段2.取元素4 (), 端点1, 端点2)
视觉_虚线d (图像.指针, 端点1, 端点2, 15, 延长线颜色, 1, 8, 0)
视觉_两点中心d (局线段1.取元素1 (), 局线段1.取元素2 (), 局线段1.取元素3 (), 局线段1.取元素4 (), 中心)
视觉_垂足 (中心.横坐标, 中心.纵坐标, 局线段2.取元素1 (), 局线段2.取元素2 (), 局线段2.取元素3 (), 局线段2.取元素4 (), 垂足点)
视觉_虚线d (图像.指针, 中心, 垂足点, 15, 距离颜色, 1, 8, 0)
视觉_放置文本i (图像.指针, “NO”, 文本位置, #字体_衬线_复杂, 0.5, 颜色, 1, 8, 假)
视觉_线Zd (图像.指针, 局线段1.取元素1 (), 局线段1.取元素2 (), 局线段1.取元素3 (), 局线段1.取元素4 (), 颜色, 1, 8, 0)
视觉_线Zd (图像.指针, 局线段2.取元素1 (), 局线段2.取元素2 (), 局线段2.取元素3 (), 局线段2.取元素4 (), 颜色, 1, 8, 0)

i支持库列表	支持库注释
cv	(未知支持库)

.版本 2<br /> .支持库 cv<br /> <br /> .程序集 OPENCV, , , 4.5.3<br /> .程序集变量 线段1, 双精度向量4<br /> .程序集变量 线段2, 双精度向量4<br /> .程序集变量 颜色, 标量<br /> .程序集变量 距离颜色, 标量<br /> .程序集变量 延长线颜色, 标量<br /> .程序集变量 area, 双精度向量6<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 图像, 多维矩阵<br /> .局部变量 值, 标量<br /> .局部变量 画板, 多维矩阵<br /> .局部变量 按键, 整数型<br /> <br /> ' 初始化<br /> area.赋值 (-1, 0, 0, 0, 0, 0)<br /> 线段1.赋值 (200, 200, 600, 200)<br /> 线段2.赋值 (200, 400, 600, 400)  ' 平行的两条线<br /> 值.赋值 (255, 255, 255, 0)<br /> 颜色.赋值 (0, 0, 255, 0)<br /> 距离颜色.赋值 (0, 255, 0, 0)<br /> 延长线颜色.赋值 (255, 0, 0, 0)<br /> ' 开始执行<br /> 视觉_创建窗口 (“小白鼠”, #窗口_自动尺寸)<br /> 图像.构造 (600, 800, #八位无符号整数_三通道, 值)  ' 创建一个纯白色背景<br /> 视觉_设置鼠标事件 (“小白鼠”, &鼠标事件, 0)  ' 调用鼠标回调函数<br /> .判断循环首 (真)<br />     图像.克隆 (画板.指针)<br />     画图 (画板, 线段1, 线段2)<br />     视觉_显示图像 (“小白鼠”, 画板.指针)<br />     按键 ＝ 视觉_等待按键 (3)<br />     .判断开始 (按键 ＝ 49)  ' l1,l2与x轴平行<br />         线段1.赋值 (200, 200, 600, 200)<br />         线段2.赋值 (200, 400, 600, 400)<br />     .判断 (按键 ＝ 50)  ' l1,l2与x轴垂直<br />         线段1.赋值 (300, 200, 300, 400)<br />         线段2.赋值 (500, 200, 500, 400)<br />     .判断 (按键 ＝ 51)  ' l1,l2与x轴右倾斜<br />         线段1.赋值 (200, 450, 600, 150)<br />         线段2.赋值 (200, 500, 600, 200)<br />     .判断 (按键 ＝ 52)  ' l1,l2与x轴左倾斜<br />         线段1.赋值 (100, 100, 500, 500)<br />         线段2.赋值 (100, 150, 500, 550)<br />     .默认<br />         .如果真 (按键 ＞ 0 且 按键 ＜ 49 或 按键 ＞ 52)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .判断结束<br /> <br /> .判断循环尾 ()<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 鼠标事件, , , 鼠标回调函数<br /> .参数 event, 整数型<br /> .参数 x, 整数型<br /> .参数 y, 整数型<br /> .参数 flags, 整数型<br /> .局部变量 p1, 二维坐标数据结构d, 静态<br /> .局部变量 p2, 二维坐标数据结构d, 静态<br /> .局部变量 w, 双精度小数型<br /> .局部变量 h, 双精度小数型<br /> <br /> .判断开始 (event ＝ #事件_按下左键)<br />     p1.赋值 (x, y)<br />     定义区域 (线段1, 线段2, p1, area)  ' 确定鼠标所要移动的区域<br /> .判断 (event ＝ #事件_鼠标移动)<br />     .如果真 (area.取元素1 () ＞ -1)<br />         p2.赋值 (x, y)<br />         w ＝ p2.横坐标 － p1.横坐标<br />         h ＝ p2.纵坐标 － p1.纵坐标<br />         移动线 (线段1, 线段2, area, w, h)  ' 根据鼠标移动相应的修改直线的起点和终点<br />     .如果真结束<br /> <br /> .默认<br />     .如果真 (event ＝ #事件_释放左键)<br />         p1.赋值 (0, 0)<br />         p2.赋值 (0, 0)<br />         area.赋值 (-1, 0, 0, 0, 0, 0)<br />     .如果真结束<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 /> .判断结束<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 /> .局部变量 距离, 双精度小数型<br /> .局部变量 文本位置, 二维坐标数据结构i, 静态<br /> .局部变量 端点1, 二维坐标数据结构d<br /> .局部变量 端点2, 二维坐标数据结构d<br /> .局部变量 中心, 二维坐标数据结构d<br /> .局部变量 垂足点, 二维坐标数据结构d<br /> <br /> 距离 ＝ 视觉_平行线 (局线段1.取元素1 (), 局线段1.取元素2 (), 局线段1.取元素3 (), 局线段1.取元素4 (), 局线段2.取元素1 (), 局线段2.取元素2 (), 局线段2.取元素3 (), 局线段2.取元素4 ())<br /> .判断开始 (距离 ＞ 0)  ' 重合<br />     文本位置.赋值 (10, 25)<br />     视觉_放置文本i (图像.指针, “yes spacing =” ＋ 到文本 (距离), 文本位置, #字体_衬线_复杂, 0.5, 颜色, 1, 8, 假)<br />     视觉_延伸 (图像.指针, 局线段1.取元素1 (), 局线段1.取元素2 (), 局线段1.取元素3 (), 局线段1.取元素4 (), 端点1, 端点2)<br />     视觉_虚线d (图像.指针, 端点1, 端点2, 15, 延长线颜色, 1, 8, 0)<br />     视觉_延伸 (图像.指针, 局线段2.取元素1 (), 局线段2.取元素2 (), 局线段2.取元素3 (), 局线段2.取元素4 (), 端点1, 端点2)<br />     视觉_虚线d (图像.指针, 端点1, 端点2, 15, 延长线颜色, 1, 8, 0)<br />     视觉_两点中心d (局线段1.取元素1 (), 局线段1.取元素2 (), 局线段1.取元素3 (), 局线段1.取元素4 (), 中心)<br />     视觉_垂足 (中心.横坐标, 中心.纵坐标, 局线段2.取元素1 (), 局线段2.取元素2 (), 局线段2.取元素3 (), 局线段2.取元素4 (), 垂足点)<br />     视觉_虚线d (图像.指针, 中心, 垂足点, 15, 距离颜色, 1, 8, 0)<br /> .默认<br />     视觉_放置文本i (图像.指针, “NO”, 文本位置, #字体_衬线_复杂, 0.5, 颜色, 1, 8, 假)<br /> .判断结束<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)

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

feidiwl

好东西好东西

opq123

Kyu

最新的支持库是否能发下