I have the following bit of code which i'm using to try to learn 3D object positioning etc. and have the following questions,
1) Should the numbers start to drop .0001 when you move around?
2) Is there a way to stop the walls of the maze looking slanted when you get close to them?
Thanks for any help.
NumObj=1
BACKDROP OFF
DIM Maze(3,3)
Maze(0,0)=1
Maze(1,0)=1
Maze(2,0)=1
Maze(0,1)=1
Maze(1,1)=0
Maze(2,1)=1
Maze(0,2)=0
Maze(1,2)=0
Maze(2,2)=1
FOR Lpx=0 TO 2
FOR Lpz=0 TO 2
IF Maze(Lpx,Lpz)=1
MAKE OBJECT CUBE NumObj,10
POSITION OBJECT NumObj,-(Lpx*10),0,-(Lpz*10)
COLOR OBJECT NumObj,RGB(100+(NumObj*20),100,100)
NumObj=NumObj+1
ENDIF
NEXT Lpz
NEXT Lpx
DO
SET CURSOR 0,0
INK RGB(255,255,255),0
PRINT "X=";CAMERA POSITION X()
PRINT "Y=";CAMERA POSITION Y()
PRINT "Z=";CAMERA POSITION Z()
IF DOWNKEY()
POSITION CAMERA CAMERA POSITION X(),CAMERA POSITION Y(),CAMERA POSITION Z()-1
WHILE DOWNKEY()
ENDWHILE
ENDIF
IF UPKEY()
POSITION CAMERA CAMERA POSITION X(),CAMERA POSITION Y(),CAMERA POSITION Z()+1
WHILE UPKEY()
ENDWHILE
ENDIF
IF RIGHTKEY()
POSITION CAMERA CAMERA POSITION X()+1,CAMERA POSITION Y(),CAMERA POSITION Z()
WHILE RIGHTKEY()
ENDWHILE
ENDIF
IF LEFTKEY()
POSITION CAMERA CAMERA POSITION X()-1,CAMERA POSITION Y(),CAMERA POSITION Z()
WHILE LEFTKEY()
ENDWHILE
ENDIF
IF SHIFTKEY()
POSITION CAMERA CAMERA POSITION X(),CAMERA POSITION Y()+1,CAMERA POSITION Z()
WHILE SHIFTKEY()
ENDWHILE
ENDIF
IF CONTROLKEY()
POSITION CAMERA CAMERA POSITION X(),CAMERA POSITION Y()-1,CAMERA POSITION Z()
WHILE CONTROLKEY()
ENDWHILE
ENDIF
LOOP
Jas
