VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 8674|回复: 11

这个2001年的程序你们见过没?

[复制链接]
 楼主| 发表于 2009-4-13 16:57:31 | 显示全部楼层 |阅读模式
转载自CSDN

VB+GDI的Voxel 3D效果……

好像有一点高科技

好像有一点高科技

833900963Dgdi-3596.rar

159.01 KB, 下载次数: 916

src

发表于 2009-4-13 22:20:32 | 显示全部楼层
见识过了...没有DX做到这样真是佩服
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-4-14 15:07:27 | 显示全部楼层
是什么原理?
回复 支持 反对

使用道具 举报

发表于 2009-5-5 23:17:59 | 显示全部楼层
没见过啊~~ 是什么样的啊
回复 支持 反对

使用道具 举报

发表于 2009-5-11 10:24:48 | 显示全部楼层
太高科技了!没用 D3D,而且代码如此短小就实现了3D场景。
大概看了一下代码,貌似是对二维的地图加入了海拔高度这第三维再进行变换得到的。

'Run over lookup table, calculate
For L_lngIndex = 0 To 360
    I_bytPhase(L_lngIndex) = 10 + Int(Sin(L_lngIndex * PI180 * 18) * 10)
Next

' Run over lookup table, calculate
For L_lngIndex = 0 To 65535
    I_bytAvg(L_lngIndex Mod 256, L_lngIndex \ 256) = (L_lngIndex Mod 256) / 2 + (L_lngIndex \ 256) / 2
Next

这两段貌似比较关键。
如果真要弄清原理,建议从 Render 里的 BitBlt 语句倒推分析。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-5-11 18:41:00 | 显示全部楼层

回复 #5 VBProFan 的帖子

没有吧,你到现在才看见?……
回复 支持 反对

使用道具 举报

发表于 2009-5-11 20:46:49 | 显示全部楼层
因为该版块较冷,平时不怎么看
回复 支持 反对

使用道具 举报

发表于 2010-11-11 22:24:26 | 显示全部楼层
见过这个程序,但你们不提2001,还真没注意的。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-11-12 10:36:21 | 显示全部楼层
挖坟++……
回复 支持 反对

使用道具 举报

发表于 2010-11-12 10:51:07 | 显示全部楼层
这个坟挖得好
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-7-4 04:58

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表