Opencv学习笔记 计算点到直线的距离并画出垂线

z13228604287

操作方法：

     运行程序，在空白图片上用鼠标左键点击一下并释放，这会画出线外的蓝点。然后再点击鼠标左键并按住移动，由此画出绿线。此次释放鼠标左键后，程序自动根据点和线画出红色的垂线，并输出点、线、垂线和距离。若垂足不在线上，程序自动画对应的蓝色延长线。鼠标右键点击可擦掉已画出的图像，由此可按前面步骤重复画图。按键盘任意键可退出程序。
运行结果：



实现：

  

窗口程序集名	保 留	保 留	备 注
OPENCV			4.5.3
变量名	类 型	数组	备 注
点	二维坐标数据结构i
线起点	二维坐标数据结构i
线终点	二维坐标数据结构i
空白图片	多维矩阵

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

变量名	类 型	静态	数组	备 注
值	标量			填充矩形的像素值

值.赋值 (255, 255, 255, 0)
视觉_创建窗口 (“小白鼠”, #窗口_自动尺寸 )
空白图片.构造 (400, 600, #八位无符号整数_三通道, 值)  ' 空白图片
视觉_显示图像 (“小白鼠”, 空白图片.指针)
视觉_设置鼠标事件 (“小白鼠”, &鼠标事件, 0)  ' 调用鼠标回调函数
视觉_等待按键 (0)
返回 (0)  ' 可以根据您的需要返回任意数值

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

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

判断 (event ＝ #事件_按下左键 )  ' 鼠标左键点击
如果 (步骤 ＝ 0)
点.赋值 (x, y)  ' 保存第1个点
步骤 ＝ 1
如果真 (步骤 ＝ 1)
线起点.赋值 (x, y)  ' 保存线的起点
线终点.赋值 (x, y)  ' 保存线的终点
步骤 ＝ 2


判断 (event ＝ #事件_鼠标移动 )  ' 鼠标移动
如果真 (步骤 ＝ 2)
线终点.赋值 (x, y)  ' 刷新线的终点

判断 (event ＝ #事件_释放左键 )  ' 鼠标左键释放
如果真 (步骤 ＝ 2)
步骤 ＝ 3

如果真 (event ＝ #事件_按下右键 )  ' 鼠标右键点击，清除内容
步骤 ＝ 0
点.赋值 (0, 0)  ' 清空坐标
线起点.赋值 (0, 0)  ' 清空坐标
线终点.赋值 (0, 0)  ' 清空坐标

画图 (步骤)

子程序名	返回值类型	公开	备 注
画图
参数名	类 型	参考	可空	数组	备 注
步骤	整数型

变量名	类 型	静态	数组	备 注
显示图	多维矩阵
蓝色	标量
绿色	标量
红色	标量
淡蓝色	标量
长度	双精度小数型
垂足坐标	二维坐标数据结构i
点1	二维坐标数据结构i
点2	二维坐标数据结构i

定义颜色
蓝色.通道1 ＝ 255
绿色.通道2 ＝ 255
红色.通道3 ＝ 255
淡蓝色.赋值 (255, 255, 0, 0)
空白图片.复制 (显示图.指针)  ' 拷贝空白图片，方便重复画图
视觉_圆圈i (显示图.指针, 点, 2, 蓝色, 2, 8, 0)  ' 画线外的蓝点
视觉_线i (显示图.指针, 线起点, 线终点, 绿色, 2, 8, 0)
长度 ＝ 视觉_两点距离 (线起点.横坐标, 线起点.纵坐标, 线终点.横坐标, 线终点.纵坐标)
如果真 (步骤 ＝ 3)  ' 画线结束时（第2次鼠标左键释放）
如果真 (线起点.横坐标 ≠ 0 且 线起点.纵坐标 ≠ 0 且 长度 ＜ 50)  ' 若线太短，则发出提示
视觉_放置文本Zi (显示图.指针, “line too short!”, 20, 80, #字体_衬线_复杂, 1, 红色, 1, 8, 假)
视觉_垂足i (点.横坐标, 点.纵坐标, 线起点.横坐标, 线起点.纵坐标, 线终点.横坐标, 线终点.纵坐标, 垂足坐标)  ' 计算垂足坐标
视觉_线i (显示图.指针, 垂足坐标, 点, 红色, 2, 8, 0)  ' 画红色的垂线
画淡蓝色的延长线
点1 ＝ 条件运算 (线起点.横坐标, 线终点.横坐标)
点2 ＝ 条件运算 (线终点.横坐标, 线起点.横坐标)
判断 (垂足坐标.横坐标 ＜ 点1.横坐标)
视觉_虚线i (显示图.指针, 垂足坐标, 点1, 15, 淡蓝色, 2, 8, 0)
判断 (垂足坐标.横坐标 ＞ 点2.横坐标)
视觉_虚线i (显示图.指针, 垂足坐标, 点2, 15, 淡蓝色, 2, 8, 0)
点1 ＝ 条件运算 (线起点.纵坐标, 线终点.纵坐标)
点2 ＝ 条件运算 (线终点.纵坐标, 线起点.纵坐标)
判断 (垂足坐标.纵坐标 ＜ 点1.纵坐标)
视觉_虚线i (显示图.指针, 垂足坐标, 点1, 15, 淡蓝色, 2, 8, 0)
如果真 (垂足坐标.纵坐标 ＞ 点1.纵坐标)
视觉_虚线i (显示图.指针, 垂足坐标, 点2, 15, 淡蓝色, 2, 8, 0)


文字：点
视觉_放置文本Zi (显示图.指针, “p0: (” ＋ 到文本 (点.横坐标) ＋ “,” ＋ 到文本 (点.纵坐标) ＋ “)”, 10, 25, #字体_衬线_复杂, 0.5, 红色, 1, 8, 假)
文字：线
视觉_放置文本Zi (显示图.指针, “p1: (” ＋ 到文本 (线起点.横坐标) ＋ “,” ＋ 到文本 (线起点.纵坐标) ＋ “)”, 10 × 14, 25, #字体_衬线_复杂, 0.5, 红色, 1, 8, 假)
视觉_放置文本Zi (显示图.指针, “p2: (” ＋ 到文本 (线终点.横坐标) ＋ “,” ＋ 到文本 (线终点.纵坐标) ＋ “)”, 10 × 27, 25, #字体_衬线_复杂, 0.5, 红色, 1, 8, 假)
文字：垂足
视觉_放置文本Zi (显示图.指针, “p3: (” ＋ 到文本 (垂足坐标.横坐标) ＋ “,” ＋ 到文本 (垂足坐标.纵坐标) ＋ “)”, 10, 2 × 25, #字体_衬线_复杂, 0.5, 红色, 1, 8, 假)
文字：距离
视觉_放置文本Zi (显示图.指针, “width: (” ＋ 到文本 (视觉_点线间隔i (点.横坐标, 点.纵坐标, 线起点.横坐标, 线起点.纵坐标, 线终点.横坐标, 线终点.纵坐标)) ＋ “)”, 10 × 14, 2 × 25, #字体_衬线_复杂, 0.5, 红色, 1, 8, 假)

视觉_显示图像 (“小白鼠”, 显示图.指针)

子程序名	返回值类型	公开	备 注
条件运算	二维坐标数据结构i
参数名	类 型	参考	可空	数组	备 注
参1	整数型
参2	整数型

判断 (参1 ＞ 参2)
返回 (线终点)
返回 (线起点)

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

.版本 2<br /> .支持库 cv<br /> <br /> .程序集 OPENCV, , , 4.5.3<br /> .程序集变量 点, 二维坐标数据结构i<br /> .程序集变量 线起点, 二维坐标数据结构i<br /> .程序集变量 线终点, 二维坐标数据结构i<br /> .程序集变量 空白图片, 多维矩阵<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 值, 标量, , , 填充矩形的像素值<br /> <br /> 值.赋值 (255, 255, 255, 0)<br /> <br /> 视觉_创建窗口 (“小白鼠”, #窗口_自动尺寸)<br /> 空白图片.构造 (400, 600, #八位无符号整数_三通道, 值)  ' 空白图片<br /> 视觉_显示图像 (“小白鼠”, 空白图片.指针)<br /> 视觉_设置鼠标事件 (“小白鼠”, &鼠标事件, 0)  ' 调用鼠标回调函数<br /> 视觉_等待按键 (0)<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 /> <br /> .判断开始 (event ＝ #事件_按下左键)  ' 鼠标左键点击<br />     .如果 (步骤 ＝ 0)<br />         点.赋值 (x, y)  ' 保存第1个点<br />         步骤 ＝ 1<br />     .否则<br />         .如果真 (步骤 ＝ 1)<br />             线起点.赋值 (x, y)  ' 保存线的起点<br />             线终点.赋值 (x, y)  ' 保存线的终点<br />             步骤 ＝ 2<br />         .如果真结束<br /> <br />     .如果结束<br /> <br /> .判断 (event ＝ #事件_鼠标移动)  ' 鼠标移动<br />     .如果真 (步骤 ＝ 2)<br />         线终点.赋值 (x, y)  ' 刷新线的终点<br />     .如果真结束<br /> <br /> .判断 (event ＝ #事件_释放左键)  ' 鼠标左键释放<br />     .如果真 (步骤 ＝ 2)<br />         步骤 ＝ 3<br />     .如果真结束<br /> <br /> .默认<br />     .如果真 (event ＝ #事件_按下右键)  ' 鼠标右键点击，清除内容<br />         步骤 ＝ 0<br />         点.赋值 (0, 0)  ' 清空坐标<br />         线起点.赋值 (0, 0)  ' 清空坐标<br />         线终点.赋值 (0, 0)  ' 清空坐标<br />     .如果真结束<br /> <br /> .判断结束<br /> 画图 (步骤)<br /> <br /> <br /> .子程序 画图<br /> .参数 步骤, 整数型<br /> .局部变量 显示图, 多维矩阵<br /> .局部变量 蓝色, 标量<br /> .局部变量 绿色, 标量<br /> .局部变量 红色, 标量<br /> .局部变量 淡蓝色, 标量<br /> .局部变量 长度, 双精度小数型<br /> .局部变量 垂足坐标, 二维坐标数据结构i<br /> .局部变量 点1, 二维坐标数据结构i<br /> .局部变量 点2, 二维坐标数据结构i<br /> <br /> 定义颜色<br /> 蓝色.通道1 ＝ 255<br /> 绿色.通道2 ＝ 255<br /> 红色.通道3 ＝ 255<br /> 淡蓝色.赋值 (255, 255, 0, 0)<br /> <br /> <br /> 空白图片.复制 (显示图.指针)  ' 拷贝空白图片，方便重复画图<br /> 视觉_圆圈i (显示图.指针, 点, 2, 蓝色, 2, 8, 0)  ' 画线外的蓝点<br /> 视觉_线i (显示图.指针, 线起点, 线终点, 绿色, 2, 8, 0)<br /> 长度 ＝ 视觉_两点距离 (线起点.横坐标, 线起点.纵坐标, 线终点.横坐标, 线终点.纵坐标)<br /> .如果真 (步骤 ＝ 3)  ' 画线结束时（第2次鼠标左键释放）<br /> <br />     .如果真 (线起点.横坐标 ≠ 0 且 线起点.纵坐标 ≠ 0 且 长度 ＜ 50)  ' 若线太短，则发出提示<br />         视觉_放置文本Zi (显示图.指针, “line too short!”, 20, 80, #字体_衬线_复杂, 1, 红色, 1, 8, 假)<br />     .如果真结束<br />     视觉_垂足i (点.横坐标, 点.纵坐标, 线起点.横坐标, 线起点.纵坐标, 线终点.横坐标, 线终点.纵坐标, 垂足坐标)  ' 计算垂足坐标<br />     视觉_线i (显示图.指针, 垂足坐标, 点, 红色, 2, 8, 0)  ' 画红色的垂线<br />     画淡蓝色的延长线<br />     点1 ＝ 条件运算 (线起点.横坐标, 线终点.横坐标)<br />     点2 ＝ 条件运算 (线终点.横坐标, 线起点.横坐标)<br />     .判断开始 (垂足坐标.横坐标 ＜ 点1.横坐标)<br />         视觉_虚线i (显示图.指针, 垂足坐标, 点1, 15, 淡蓝色, 2, 8, 0)<br />     .判断 (垂足坐标.横坐标 ＞ 点2.横坐标)<br />         视觉_虚线i (显示图.指针, 垂足坐标, 点2, 15, 淡蓝色, 2, 8, 0)<br />     .默认<br />         点1 ＝ 条件运算 (线起点.纵坐标, 线终点.纵坐标)<br />         点2 ＝ 条件运算 (线终点.纵坐标, 线起点.纵坐标)<br />         .判断开始 (垂足坐标.纵坐标 ＜ 点1.纵坐标)<br />             视觉_虚线i (显示图.指针, 垂足坐标, 点1, 15, 淡蓝色, 2, 8, 0)<br />         .默认<br />             .如果真 (垂足坐标.纵坐标 ＞ 点1.纵坐标)<br />                 视觉_虚线i (显示图.指针, 垂足坐标, 点2, 15, 淡蓝色, 2, 8, 0)<br />             .如果真结束<br /> <br />         .判断结束<br /> <br />     .判断结束<br />     文字：点<br />     视觉_放置文本Zi (显示图.指针, “p0: (” ＋ 到文本 (点.横坐标) ＋ “,” ＋ 到文本 (点.纵坐标) ＋ “)”, 10, 25, #字体_衬线_复杂, 0.5, 红色, 1, 8, 假)<br />     文字：线<br />     视觉_放置文本Zi (显示图.指针, “p1: (” ＋ 到文本 (线起点.横坐标) ＋ “,” ＋ 到文本 (线起点.纵坐标) ＋ “)”, 10 × 14, 25, #字体_衬线_复杂, 0.5, 红色, 1, 8, 假)<br />     视觉_放置文本Zi (显示图.指针, “p2: (” ＋ 到文本 (线终点.横坐标) ＋ “,” ＋ 到文本 (线终点.纵坐标) ＋ “)”, 10 × 27, 25, #字体_衬线_复杂, 0.5, 红色, 1, 8, 假)<br />     文字：垂足<br />     视觉_放置文本Zi (显示图.指针, “p3: (” ＋ 到文本 (垂足坐标.横坐标) ＋ “,” ＋ 到文本 (垂足坐标.纵坐标) ＋ “)”, 10, 2 × 25, #字体_衬线_复杂, 0.5, 红色, 1, 8, 假)<br />     文字：距离<br />     视觉_放置文本Zi (显示图.指针, “width: (” ＋ 到文本 (视觉_点线间隔i (点.横坐标, 点.纵坐标, 线起点.横坐标, 线起点.纵坐标, 线终点.横坐标, 线终点.纵坐标)) ＋ “)”, 10 × 14, 2 × 25, #字体_衬线_复杂, 0.5, 红色, 1, 8, 假)<br /> <br /> .如果真结束<br /> <br /> <br /> 视觉_显示图像 (“小白鼠”, 显示图.指针)<br /> <br /> <br /> <br /> .子程序 条件运算, 二维坐标数据结构i<br /> .参数 参1, 整数型<br /> .参数 参2, 整数型<br /> <br /> .判断开始 (参1 ＞ 参2)<br />     返回 (线终点)<br /> .默认<br />     返回 (线起点)<br /> .判断结束

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