This is a little video of my first endeavor into 3D. Whatcha think? (Vid attached)
Set Display Mode 1280, 960, 32
LOAD BITMAP "floor.bmp",1
GET IMAGE 1,0,0,128,128
DELETE BITMAP 1
BackDrop on
COLOR BACKDROP 0
SYNC ON : HIDE MOUSE
MAKE MATRIX 1,10000.0,10000.0,25,25
PREPARE MATRIX TEXTURE 1,1,1,1
RANDOMIZE MATRIX 1,100.0
FOG ON
FOG COLOR 0
FOG DISTANCE 2500
DO
x#=CAMERA POSITION x()
y#=CAMERA POSITION Y()
z#=CAMERA POSITION z()
angle#=angle# + (Joystick X()/175)
angleup#=0
angleup#=angleup# + (Joystick Y()/50)
If Joystick fire A()=1 and b=0
b=1
a=a+1
MakeCube(a, X#, Y#, Z#)
Endif
If Joystick fire A()=0 and b=1
b=0
Endif
angle#=wrapvalue(angle#)
YROTATE CAMERA angle#
if angle#<=0 then TURN CAMERA LEFT angle#
if angle#>=0 then TURN CAMERA right angle#
If angleup#<=0 then MOVE CAMERA 0 - angleup#
If angleup#>0 then MOVE CAMERA 0 - angleup#
SYNC
LOOP
Function MakeCube(a, X#, Y#, Z#)
MAKE OBJECT CUBE a, 5
POSITION OBJECT a, X#, Y#, Z#
TEXTURE OBJECT a, 1
POSITION CAMERA X#, Y#, Z#
EndFunction
Unless you change the texture file and get Joystick, you may not be able to test this.
