3D Types

Blitz3D Forums/Blitz3D Beginners Area/3D Types

Here's a little demo for you

;Cermit in the sky with diamonds
Graphics3D 800,600

;a camera
cam=CreateCamera()
CameraClsColor cam,0,0,50
PositionEntity cam,0,60,0

;camera target
look=CreatePivot()
PositionEntity look,0,0,0
PointEntity cam,look

;a light
light=CreateLight(2)
PositionEntity light,0,10,0
LightColor light,255,255,0


;a diamond
diamondmesh=CreateCube()
PositionEntity diamondmesh,100000,100000,100000
HideEntity diamondmesh


Type diamond
Field mesh
End Type

;create a field of diamonds
For x=-50 To 50 Step 10
For z=-50 To 50 Step 10
d.diamond=New diamond
d\mesh=CopyMesh(diamondmesh)
PositionEntity d\mesh,x,0,z
EntityShininess d\mesh,1
EntityColor d\mesh,255,255,0
Next 
Next 



While Not KeyHit(1)

;twinkle twinkle
For d.diamond=Each diamond
TurnEntity d\mesh,Rnd(3),Rnd(3),Rnd(3)
Next


RenderWorld()
Text 0,0,"Press Escape to exit"
Flip

Wend