Haylp!
The theory is quite simple. I want a large 3D grid area which is encased in a primitive cube with a grid textre on the outsidev(Alphad and with backfaces not culled to give it a see-through appearance). Another primitive, alphad a bit acts as a cursor which shouldmove around the grid.
My problem:
After scaling to fit the cube to the grid texture,( i want a large play area too) Im finding that my coordinates just aren't making sense...
can anyoine have a look and possibly modify it so it all fits? PWEEEASE!
Sorry to ask this, but Ive been beaten by this all day, no matter how many times I come back to it...
All code is self-contained (i.e textures etc)
The theory is quite simple. I want a large 3D grid area which is encased in a primitive cube with a grid textre on the outsidev(Alphad and with backfaces not culled to give it a see-through appearance). Another primitive, alphad a bit acts as a cursor which shouldmove around the grid.
My problem:
After scaling to fit the cube to the grid texture,( i want a large play area too) Im finding that my coordinates just aren't making sense...
can anyoine have a look and possibly modify it so it all fits? PWEEEASE!
Sorry to ask this, but Ive been beaten by this all day, no matter how many times I come back to it...
All code is self-contained (i.e textures etc)
Graphics3D 800,600,32,0 SetBuffer BackBuffer() AmbientLight 128,128,128 campivot= CreatePivot() cam=CreateCamera() CameraViewport cam,400,10,385,335 CameraClsColor cam,0,0,0 CameraFogColor cam,0,0,0 CameraRange cam,1,20000 CameraFogRange cam,19900,20000 gridtext=CreateTexture(256,256) SetBuffer TextureBuffer(gridtext) ClsColor 0,0,0 Cls Color 180,180,180 For f=0 To 255 Step 32 For g=0 To 255 Step 32 For x=0 To 255 Step 32 Line f,x,f,4+x Line f,8+x,f,12+x Line f,16+x,f,20+x Line f,24+x,f,28+x Line x,g,4+x,g Line 8+x,g,12+x,g Line 16+x,g,20+x,g Line 24+x,g,28+x,g Next Next Next SetBuffer BackBuffer() grid=CreateCube() EntityTexture grid,gridtext EntityAlpha grid,0.1 ScaleEntity grid,80,80,80 EntityFX grid,29 PositionEntity cam,-60,-50,-410 PositionEntity grid,-40,-40,-40 PositionEntity campivot,0,0,0 cursor=CreateCube() EntityAlpha cursor,0.1 ScaleMesh cursor,20,20,20 EntityFX cursor,29 EntityColor cursor,128,192,160 PositionEntity cursor,0,0,0 EntityParent cursor,grid PointEntity cam,campivot EntityParent cam,campivot While Not KeyDown(1) MoveEntity cursor,0,(KeyDown(16)-KeyDown(30))*40,0 MoveEntity cursor,0,0,(KeyDown(200)-KeyDown(208))*40 MoveEntity cursor,(KeyDown(205)-KeyDown(203))*40,0,0 If EntityX(cursor)>110 Then PositionEntity cursor,120,EntityY(cursor),EntityZ(cursor) If EntityY(cursor)>110 Then PositionEntity cursor,EntityX(cursor),120,EntityZ(cursor) If EntityZ(cursor)>110 Then PositionEntity cursor,EntityX(cursor),EntityY(cursor),120 If EntityX(cursor)<-70 Then PositionEntity cursor,-80,EntityY(cursor),EntityZ(cursor) If EntityY(cursor)<-70 Then PositionEntity cursor,EntityX(cursor),-80,EntityZ(cursor) If EntityZ(cursor)<-70 Then PositionEntity cursor,EntityX(cursor),EntityY(cursor),-80 PointEntity cam,campivot MoveEntity cam,0,0,MouseDown(1)-(MouseDown(2)) RenderWorld Flip Wend