擂台赛第59期[多边形交集]

VBProFan

果然不是 xor，而是 and，还以为猜对了呢，唉，白高兴一场。ben1222 也误导我，明明没猜对，怎么表扬我眼光犀利起来了呢？
PS：其实逆一下CreatePolygonRgn、FillRgn 和 CombineRgn 这几个API就知道交集怎么求了，不过这工作量也许比直接写还大



解压密码：

游客，如果您要查看本帖隐藏内容请回复

[ 本帖最后由 VBProFan 于 2009-5-8 22:55 编辑 ]

zouguifu

多边形交集 好源码

ben1222

这个and是指region的求交参数吧...

我说对是因为确实只用了Polygon这一个画多边形的api...
并且是设置xor笔后来调用Polygon画2个不同填充色的多边形以水出这个效果...
难道那帖子不是这个意思?

没用到region系列的函数...
因为...本来就没去算什么交集...只是效果满足了"结果多边形高亮显示"这条而已...
所以说很水很假...

VBProFan

哦，那看来是两种不同的解法。
其实刚开始时我也想按照你的思路做一个出来，但是 Polygon 函数只能画边，你又没用到 region 系列函数（当然包括 FillRgn 了），那你是怎么填充内部颜色的呢？能否提示一下？
我对这种“搞假”很感兴趣 想用 XOR 的方法再搞一个，ひひ~

[ 本帖最后由 VBProFan 于 2009-5-9 09:17 编辑 ]

ben1222

这样啊...要知道窗体的属性可不是摆设呀...对一些api来说是有效的...
把fillstyle设为0-solid后polygon就可以以fillcolor填充多边形内部颜色了
drawmode设为7-xor pen就可以让polygon用异或笔来画多边形了...

VBProFan

唉，原来如此~！其实我昨晚已经做出来了，只不过觉得颜色怪怪的，弄不成红色和蓝色就放弃了。现在才想起要先取反xor后才是原来想要设置的颜色。再次感谢 ben1222 的指点！

1. 
   
2. Option Explicit
   
3. Private Type COORD
   
4.   x As Long
   
5.   y As Long
   
6. End Type
   
7. Private Declare Function Polygon Lib "gdi32" (ByVal hdc As Long, lpPoint As Any, ByVal nCount As Long) As Long
   
8. Private Sub Form_Load()
   
9.   Dim poly1(1 To 3) As COORD
   
10.   Dim poly2(1 To 3) As COORD
    
11.   
    
12.   Me.BackColor = vbWhite
    
13.   Me.ForeColor = Not vbBlack And &HFFFFFF
    
14.   Me.AutoRedraw = True
    
15.   Me.ScaleMode = vbPixels
    
16.   Me.FillStyle = vbSolid
    
17.   Me.DrawMode = vbXorPen
    
18.   Me.DrawStyle = vbDot
    
19.   
    
20.   poly1(1).x = 156
    
21.   poly1(1).y = 10
    
22.   poly1(2).x = 78
    
23.   poly1(2).y = 154
    
24.   poly1(3).x = 234
    
25.   poly1(3).y = 154
    
26.   
    
27.   poly2(1).x = 156
    
28.   poly2(1).y = 170
    
29.   poly2(2).x = 78
    
30.   poly2(2).y = 60
    
31.   poly2(3).x = 234
    
32.   poly2(3).y = 60
    
33.   Me.FillColor = (Not vbRed) And &HFFFFFF
    
34.   Polygon Me.hdc, poly1(1), 3
    
35.   Me.FillColor = (Not vbBlue) And &HFFFFFF
    
36.   Polygon Me.hdc, poly2(1), 3
    
37. End Sub

复制代码

其实这种也不能说是水，如果题目不要求输出交集多边形顶点坐标，这样做即可。如果要求的话，那么就自己写个填充算法，然后再求出交集，最后求交集的边界和顶点。不过这种方法时间复杂度和空间复杂度都比较大，呵呵~

[ 本帖最后由 VBProFan 于 2009-5-9 11:35 编辑 ]

仙剑魔

Weiler-Atherton算法
完全不会...

八戒2

本期结案，无擂主。

PctGL

对不起老大了....
算法我实在是有心无力, 写不出来东西......

VB妮可

进来学习一下了.. 我估计就算只用现成的API我也做不出来..

然后,我以为会有人做一个DX的版本,用DX里面的方法应该也能行呵