blitz3d 调入 3d模型 简单的无话说了。下面调入一个在网上找到的3dmax的模型,体育场。


上面三个图是程序的截图,因为没有打光源所以比较黑。
这个是效果图。。。我打光源太小,所以比较暗。。。。
下面是源代码:
Graphics3D 640,480,0,2
SetBuffer BackBuffer()
camera=CreateCamera()
light=CreateLight()
RotateEntity light,190,0,0 ; Load mesh
;调入3dmax模型 格式为.3ds格式
drum=LoadMesh("Bld_37.3ds")
PositionEntity drum,0,0,MeshDepth(drum)*2 -10
;主循环,用户按下ESC键退出
While Not KeyDown( 1 )
pitch#=0
yaw#=0
roll#=0
; 按键盘的上、下、左、右和 “z”“x”来转动模型
If KeyDown( 208 )=True Then pitch#=-1
If KeyDown( 200 )=True Then pitch#=1
If KeyDown( 203 )=True Then yaw#=-1
If KeyDown( 205 )=True Then yaw#=1
If KeyDown( 45 )=True Then roll#=-1
If KeyDown( 44 )=True Then roll#=1
; 将模型位置刷新
TurnEntity drum,pitch#,yaw#,roll#
;刷新环境
RenderWorld
;刷新图像
Flip
Wend
End
;附件我放上源码和3ds的素材吧。



上面三个图是程序的截图,因为没有打光源所以比较黑。

这个是效果图。。。我打光源太小,所以比较暗。。。。
下面是源代码:
Graphics3D 640,480,0,2
SetBuffer BackBuffer()
camera=CreateCamera()
light=CreateLight()
RotateEntity light,190,0,0 ; Load mesh
;调入3dmax模型 格式为.3ds格式
drum=LoadMesh("Bld_37.3ds")
PositionEntity drum,0,0,MeshDepth(drum)*2 -10
;主循环,用户按下ESC键退出
While Not KeyDown( 1 )
pitch#=0
yaw#=0
roll#=0
; 按键盘的上、下、左、右和 “z”“x”来转动模型
If KeyDown( 208 )=True Then pitch#=-1
If KeyDown( 200 )=True Then pitch#=1
If KeyDown( 203 )=True Then yaw#=-1
If KeyDown( 205 )=True Then yaw#=1
If KeyDown( 45 )=True Then roll#=-1
If KeyDown( 44 )=True Then roll#=1
; 将模型位置刷新
TurnEntity drum,pitch#,yaw#,roll#
;刷新环境
RenderWorld
;刷新图像
Flip
Wend
End
;附件我放上源码和3ds的素材吧。
体育场.rar
大小:1.01MB下载:21次转存:6次