'$INCLUDE: '3d.bi'
G_MAINSCREEN = NEWIMAGE(1024, 768, 32)
'load and create texture and store in tex()
createTexture "dice.png", tex()
'load dice 3d model
obj = loadObj("dice.obj")
'load 3d model of an arm
obj2 = loadObj("arm.obj")
'place camera at -1000,0,1000 on 3d plane
g_cam.x = -1000
g_cam.z = 1000
g_cam.y = 0
'rotate camera on y axis by -45 degrees
g_cam.roty = -45
'move arm object to the left
g_objects(2).x = -250
'rotate objects every frame
ROTATEOBJX 1, -1
ROTATEOBJY 2, -2
'fly into the objects at 45 degree angle
g_cam.x
= g_cam.x
+ SIN(Deg2Rad
(45)) * 3 g_cam.z
= g_cam.z
- COS(Deg2Rad
(45)) * 3
'display objects
DISPOBJ 1, tex()
DISPOBJ 2, tex()
LIMIT 60
DISPLAY
'$INCLUDE: '3d.bm'