想在globecontrol 里面用opengl画图

驰骋天宇

1. Public Sub OnAfterDraw(ByVal pViewer As ISceneViewer)
   
2. 
   
3. 'GL.glClear(GL.GL_COLOR_BUFFER_BIT) '黑色背景
   
4. GL.glClear(GL.GL_DEPTH_BUFFER_BIT)
   
5. GL.glLoadIdentity() '重置模型变换矩阵
   
6. GL.glDisable(GL.GL_DEPTH_TEST) '关闭深度测试
   
7. GL.glColor3f(255, 0, 0) '设置粒子颜色
   
8. GL.glBegin(GL.GL_TRIANGLE_STRIP) '绘制三角形带
   
9. 
   
10. For Each mpar As Particle In PAR
    
11. 
    
12. If mpar.active = True Then
    
13. 
    
14. px = mpar.Par3D.x '若粒子激活，返回粒子坐标
    
15. py = mpar.Par3D.y
    
16. ph = mpar.Par3D.z
    
17. 
    
18. GL.glVertex3d(DoTransform(px + 0.5, py + 0.5, ph).x, DoTransform(px + 0.5, py + 0.5, ph).y, DoTransform(px + 0.5, py + 0.5, ph).z)
    
19. GL.glVertex3d(DoTransform(px - 0.5, py + 0.5, ph).x, DoTransform(px - 0.5, py + 0.5, ph).y, DoTransform(px - 0.5, py + 0.5, ph).z)
    
20. GL.glVertex3d(DoTransform(px + 0.5, py - 0.5, ph).x, DoTransform(px + 0.5, py - 0.5, ph).y, DoTransform(px + 0.5, py - 0.5, ph).z)
    
21. GL.glVertex3d(DoTransform(px - 0.5, py - 0.5, ph).x, DoTransform(px - 0.5, py - 0.5, ph).y, DoTransform(px - 0.5, py - 0.5, ph).z)
    
22. 
    
23. mpar.Par3D.x += mpar.xs '移动粒子
    
24. mpar.Par3D.y += mpar.ys
    
25. mpar.Par3D.z = 1                                                                    
    
26. 
    
27. End If
    
28. GL.glFlush()
    
29. Next
    
30. GL.glEnd()
    
31. 
    
32. 'End If
    
33. End Sub
    

复制代码

如题，写了段代码，但是老是画不出来，想请大家看下有什么错误。。。

还有，我粒子的Z值怎么能换成在图鞥中对应位置的高程？我想让粒子沿着地形起伏运动。。

跪求指导挖。。。。。
跪求挖。。。。

龙套甲

感谢分享

182476

感谢分享

faraway

谢谢楼主分享