一种从纹理图片提取多边形的方法
2018-06-23 23:37:03来源:未知 阅读 ()
很久在这里写博客。很多时候匹配纹理图片和多边形匹配,手工设置往往非常繁琐,于是写了一段从纹理图片提取边缘多边形的代码。但这份代码只能提取“实心”的多边形,并且只支持了一个多边形。当然如果需要可以扩展使之能够提取多个多边形。基本思路如下:
1、快速填充纹理中被设为透明的部分。并获得一个边缘种子。
2、利用边缘种子快速检索边缘。
3、简化边缘。
到这里似乎问题解决了,但测试发现一个问题,由于快速边缘检索时将种子周围的点入栈而没有方向,导致最终闭合时一些点会不按顺时针或逆时针被添加到列表。为了解决这个问题,还需要进行边缘排序,而边缘排序之后,还需要再次简化:
4、对简化的边缘排序。
5、简化边缘。
当然,如果边缘排序算法效率更高,可以得到检索的结果后进行排序并简化,这样简化边缘只需要运行一次。
这里仅列出边缘简化和排序算法。其他代码在之前的文章中已经发过了。
1 '简化边缘 2 Private Function EdgeSimple(edge As List(Of Point)) As List(Of Point) 3 Dim tmp As New List(Of Point) 4 Dim result As New List(Of Point) 5 '把前两点复制到结尾 6 If edge.Count < 3 Then Return result 7 tmp.AddRange(edge) 8 tmp.Add(edge(0)) 9 tmp.Add(edge(1)) 10 '遍历整个数组,每三个点判定是否共线,若不共线则把中间点添加到返回值 11 Dim v1, v2 As Vector2 12 For i As Integer = 0 To edge.Count - 1 13 v1 = New Vector2(tmp(i).X - tmp(i + 1).X, tmp(i).Y - tmp(i + 1).Y) 14 v2 = New Vector2(tmp(i + 2).X - tmp(i + 1).X, tmp(i + 2).Y - tmp(i + 1).Y) 15 v1.Normalize() 16 v2.Normalize() 17 If Vector2.Dot(v1, v2) + 1 > 0.00001F Then 18 result.Add(tmp(i + 1)) 19 End If 20 Next 21 Return result 22 End Function 23 24 '边缘排序 25 Private Sub EdgeSort(edge As List(Of Point)) 26 Dim op As Point = GetOrigin(edge) 27 Dim tmp As Point 28 For i As Integer = 0 To edge.Count - 2 29 For j As Integer = 0 To edge.Count - i - 2 30 If PointCmp(edge(j), edge(j + 1), op) Then 31 tmp = edge(j) 32 edge(j) = edge(j + 1) 33 edge(j + 1) = tmp 34 End If 35 Next 36 Next 37 End Sub 38 39 40 41 Private Function PointCmp(a As Point, b As Point, op As Point) As Boolean 42 If a.X >= 0 AndAlso b.X < 0 Then Return True 43 If a.X = 0 AndAlso b.X = 0 Then Return a.Y > b.Y 44 Dim det As Integer = (a.X - op.X) * (b.Y - op.Y) - (b.X - op.X) * (a.Y - op.Y) 45 If det = 0 Then 46 Dim d1 As Double = (a.X - op.X) * (a.X - op.X) + (a.Y - op.Y) * (a.Y - op.Y) 47 Dim d2 As Double = (b.X - op.X) * (b.X - op.Y) + (b.Y - op.Y) * (b.Y - op.Y) 48 Return d1 > d2 49 Else 50 Return det < 0 51 End If 52 End Function
标签:
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有
- css:背景(背景颜色、图片、平铺、背景固定、背景颜色半透 2020-06-01
- CSS背景图片的6个有趣的技巧 2020-05-12
- HTML连载84-添加中部的图片 2020-04-21
- 11.行盒垂直对齐和图片的底部白边问题 2020-04-17
- 1.图片元素<img>和<map>的联用 2020-04-07
IDC资讯: 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营: 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程: Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术: Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧: 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作: FrontPages Dreamweaver Javascript css photoshop fireworks Flash