Newton & DBP Terrain Matrices

[Matt]

Hey all! Funky colour scheme here! ;D Anyway, onto business...

As I mentioned back in the other forum, I'm trying to make a Newton collision object from a DBP Terrain Matrix. Since the wrapper can't translate it directly, I'm using a Memblock to store the data for the Matrix, then using the MAKE MESH FROM MEMBLOCK command to turn that data into a Mesh, then use that Mesh to create a DBP Object, then use that Object to create Newton collision data. Theoretically this should work. In practice, it doesn't. The code should be in the next post as it will make this one too long otherwise

If I run this, it crashes back to DBP with no error message. However, if you comment out lines 212 to 216, the ones that deal with creating a Newton object, it runs fine. I said on the other forum that it went down on the NDB_NEWTONCREATEBODY command, that was using the same code in another program, which I've now deleted. This program goes down on NDB_NEWTONCREATETREECOLLISION every time. When it runs, you can use the mouse to look around and 'W' and 'S' to move forward and back, to take a look and confirm that the Object on the right (when you first start it) is a perfect copy of the Matrix on the left. The only diff is that all the normals on the Object currently point straight up. I've removed the random vertex colouring since I posted on the old thread. I know the lighting is crappy, feel free to play with it if you need to

Hmmm I just found this in the Project folder for this app, never seen these files before, a feature of DBP 5.4? :
File: CrashOn_07_15_04.txt
[COMMON]
PathToEXE=E:\Program Files\Dark Basic Software\Dark Basic Professional\Projects\X3N0 Training Grounds\Matrix Memblocks for Newton use\CrashOn_07_15_04.txt
[CEXE]
m_dwRuntimeErrorDWORD=0
m_dwRuntimeErrorLineDWORD=210

Is that any help to you? 'Cuz it doesn't mean much to me Line 210 is the Position Object command to put the Object version of the Matrix next to the original... can't see why that would cause a fuss...

The Newton DLL file is in the folder, there's no media files to be loaded... I'm out of ideas

Anyway, there we go, anyone see what I've missed?

X3N0

[X3N0Wolf]

Here's the code And yeah, that was me above, I thought I was logged in <glares accusingly at computer>

Rem Project: Matrix Memblocks for Newton use
Rem Created: 11/07/2004 13:00:20

Rem ***** Main Source File *****

GOSUB RESEEDRANDOM

AUTOCAM OFF
HIDE MOUSE
SYNC RATE 60
SYNC ON

POSITION CAMERA 9.5, 5, -10
POINT CAMERA 9.5, 0, 4.5

SET POINT LIGHT 0, 0, 10, 0
SET LIGHT RANGE 0, 10
COLOR LIGHT 0, 128, 128, 128
MAKE LIGHT 1
SET POINT LIGHT 1, 10, 10, 0
SET LIGHT RANGE 1, 10
COLOR LIGHT 1, 128, 128, 128

MATRIXSIZEX = 9
MATRIXSIZEZ = 9
NUMBEROFSQUARESX = 9
NUMBEROFSQUARESZ = 9
MAKE MATRIX 1, MATRIXSIZEX, MATRIXSIZEZ, NUMBEROFSQUARESX, NUMBEROFSQUARESZ
SET MATRIX 1, 0, 0, 1, 1, 1, 1, 1
RANDOMIZE MATRIX 1, 2
GOSUB SMOOTHMATRIX
UPDATE MATRIX 1

COUNTER = 0
MAKE MEMBLOCK 1, 17508
WRITE MEMBLOCK DWORD 1, 0, 338
WRITE MEMBLOCK DWORD 1, 4, 36
WRITE MEMBLOCK DWORD 1, 8, 486
FOR X = 0 TO 8
FOR Z = 0 TO 8
VERT1POSX# = ((MATRIXSIZEX / NUMBEROFSQUARESX) * X)
VERT1POSY# = GET MATRIX HEIGHT(1, X, Z)
VERT1POSZ# = ((MATRIXSIZEZ / NUMBEROFSQUARESZ) * Z)
VERT1NORMY# = VERT1POSY# + 1

` WRITE VERTEX POSITION TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT1POSX#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT1POSY#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT1POSZ#
INC COUNTER
` WRITE NORMAL COORDINATES TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT1POSX#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT1NORMY#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT1POSZ#
INC COUNTER
` WRITE VERTEX DIFFUSE COLOUR TO MEMBLOCK
` WRITE MEMBLOCK DWORD 1, 12 + (COUNTER * 4), RGB(RND(255), RND(255), RND(255))
WRITE MEMBLOCK DWORD 1, 12 + (COUNTER * 4), 0
INC COUNTER
` WRITE VERTEX UV MAPPING COORDINATES TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER

VERT2POSX# = ((MATRIXSIZEX / NUMBEROFSQUARESX) * X)
VERT2POSY# = GET MATRIX HEIGHT(1, X, Z + 1)
VERT2POSZ# = ((MATRIXSIZEZ / NUMBEROFSQUARESZ) * Z) + 1

` WRITE VERTEX POSITION TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT2POSX#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT2POSY#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT2POSZ#
INC COUNTER
` WRITE NORMAL COORDINATES TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT2POSX#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT2NORMY#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT2POSZ#
INC COUNTER
` WRITE VERTEX DIFFUSE COLOUR TO MEMBLOCK
WRITE MEMBLOCK DWORD 1, 12 + (COUNTER * 4), 0
INC COUNTER
` WRITE VERTEX UV MAPPING COORDINATES TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER

VERT3POSX# = ((MATRIXSIZEX / NUMBEROFSQUARESX) * X) + 1
VERT3POSY# = GET MATRIX HEIGHT(1, X + 1, Z + 1)
VERT3POSZ# = ((MATRIXSIZEZ / NUMBEROFSQUARESZ) * Z) + 1

` WRITE VERTEX POSITION TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT3POSX#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT3POSY#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT3POSZ#
INC COUNTER
` WRITE NORMAL COORDINATES TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT3POSX#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT3NORMY#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT3POSZ#
INC COUNTER
` WRITE VERTEX DIFFUSE COLOUR TO MEMBLOCK
WRITE MEMBLOCK DWORD 1, 12 + (COUNTER * 4), 0
INC COUNTER
` WRITE VERTEX UV MAPPING COORDINATES TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER

VERT4POSX# = ((MATRIXSIZEX / NUMBEROFSQUARESX) * X)
VERT4POSY# = GET MATRIX HEIGHT(1, X, Z)
VERT4POSZ# = ((MATRIXSIZEZ / NUMBEROFSQUARESZ) * Z)

` WRITE VERTEX POSITION TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT4POSX#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT4POSY#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT4POSZ#
INC COUNTER
` WRITE NORMAL COORDINATES TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT4POSX#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT4NORMY#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT4POSZ#
INC COUNTER
` WRITE VERTEX DIFFUSE COLOUR TO MEMBLOCK
WRITE MEMBLOCK DWORD 1, 12 + (COUNTER * 4), 0
INC COUNTER
` WRITE VERTEX UV MAPPING COORDINATES TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER

VERT5POSX# = ((MATRIXSIZEX / NUMBEROFSQUARESX) * X) + 1
VERT5POSY# = GET MATRIX HEIGHT(1, X + 1, Z + 1)
VERT5POSZ# = ((MATRIXSIZEZ / NUMBEROFSQUARESZ) * Z) + 1

` WRITE VERTEX POSITION TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT5POSX#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT5POSY#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT5POSZ#
INC COUNTER
` WRITE NORMAL COORDINATES TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT5POSX#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT5NORMY#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT5POSZ#
INC COUNTER
` WRITE VERTEX DIFFUSE COLOUR TO MEMBLOCK
WRITE MEMBLOCK DWORD 1, 12 + (COUNTER * 4), 0
INC COUNTER
` WRITE VERTEX UV MAPPING COORDINATES TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER

VERT6POSX# = ((MATRIXSIZEX / NUMBEROFSQUARESX) * X) + 1
VERT6POSY# = GET MATRIX HEIGHT(1, X + 1, Z)
VERT6POSZ# = ((MATRIXSIZEZ / NUMBEROFSQUARESZ) * Z)

` WRITE VERTEX POSITION TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT6POSX#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT6POSY#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT6POSZ#
INC COUNTER
` WRITE NORMAL COORDINATES TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT6POSX#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT6NORMY#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT6POSZ#
INC COUNTER
` WRITE VERTEX DIFFUSE COLOUR TO MEMBLOCK
WRITE MEMBLOCK DWORD 1, 12 + (COUNTER * 4), 0
INC COUNTER
` WRITE VERTEX UV MAPPING COORDINATES TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER

NEXT Z
NEXT X

MAKE MESH FROM MEMBLOCK 1, 1
MAKE OBJECT 100, 1, 0
POSITION OBJECT 100, 10, 0, 0

COLLISIONDATA = NDB_NEWTONCREATETREECOLLISION(100)
TERRAINMATRIX = NDB_NEWTONCREATEBODY(COLLISIONDATA)
NDB_BODYSETDBPRODATA TERRAINMATRIX, 1
NDB_NEWTONBODYSETDESTRUCTORCALLBACK TERRAINMATRIX
NDB_NEWTONRELEASECOLLISION COLLISIONDATA

DELETE MEMBLOCK 1
DELETE MESH 1


` MAIN PROGRAM LOOP=========================================================================
` ==========================================================================================
DO
` AIM WITH MOUSE----------------------------------------------------------------------------
PLAYERYANGLE# = WRAPVALUE((PLAYERYANGLE# + MOUSEMOVEX()/1))
PLAYERXANGLE# = WRAPVALUE((PLAYERXANGLE# + MOUSEMOVEY()/1.5))
IF PLAYERXANGLE# > 70 AND PLAYERXANGLE# < 180 THEN PLAYERXANGLE# = 70
IF PLAYERXANGLE# < 270 AND PLAYERXANGLE# > 180 THEN PLAYERXANGLE# = 270
ROTATE CAMERA PLAYERXANGLE#, PLAYERYANGLE#, 0
IF KEYSTATE(17) = 1 THEN MOVE CAMERA 0.1
IF KEYSTATE(31) = 1 THEN MOVE CAMERA -0.1

SYNC
LOOP


` SUBROUTINES------------------------------------------------------------------------------
` -----------------------------------------------------------------------------------------

RESEEDRANDOM:
DATE$ = GET DATE$()
TIME$ = GET TIME$()
D = (VAL(LEFT$(DATE$, 2))) + (VAL(MID$(DATE$, 4))) + (VAL(MID$(DATE$, 5))) + (VAL(RIGHT$(DATE$, 2)))
T = (VAL(LEFT$(TIME$, 2))) + (VAL(MID$(TIME$, 4))) + (VAL(MID$(TIME$, 5))) + (VAL(RIGHT$(TIME$, 2)))
DT = D * T
RANDOMIZE DT
RETURN

SMOOTHMATRIX:
` USE MATRIX NORMALS TO MAKE IT SMOOTH
FOR Z=1 TO 9
FOR X=1 TO 9

` GET MATRIX HEIGHTS
H8#=GET MATRIX HEIGHT(1,X,Z-1)
H4#=GET MATRIX HEIGHT(1,X-1,Z)
H#=GET MATRIX HEIGHT(1,X,Z)
H2#=GET MATRIX HEIGHT(1,X,Z)

` CALCULATE PROJECTED ANGLE X USING HEIGHTS
X1#=(X-1)*25.0 : Y1#=H#
X2#=(X+0)*25.0 : Y2#=H4#
DX#=X2#-X1#
DY#=Y2#-Y1#
AX#=ATANFULL(DX#,DY#)
AX#=WRAPVALUE(90-AX#)

` CALCULATE PROJECTED ANGLE Z USING HEIGHTS
Z1#=(Z-1)*25.0 : Y1#=H2#
Z2#=(Z+0)*25.0 : Y2#=H8#
DZ#=Z2#-Z1#
DY#=Y2#-Y1#
AZ#=ATANFULL(DZ#,DY#)
AZ#=WRAPVALUE(90-AZ#)

` MAKE NORMAL FROM PROJECTED ANGLE
NX#=SIN(AX#)
NY#=COS(AX#)
NZ#=SIN(AZ#)

` SETTING MATRIX NORMAL FOR SMOOTHNESS
SET MATRIX NORMAL 1,X,Z,NX#,NY#,NZ#

NEXT X
NEXT Z
RETURN

[Kjelle69]

I'll have a look at this when I get a chance... hopefully I'll have some free time this weekend.

I've successfully used this command on objects made from memblocks, so it should work.

[X3N0Wolf]

OK mate, nice one, that sounds promising at least Maybe I screwed up the vertex ordering or something, but all the polys face the right way, so I don't THINK that's the problem... Anyway good luck with it! The main reason I wanna use Matrices is because I have some great code for making smooth random hills on a Terrain Matrix, and it would be great to see ragdolls tumbling and sliding down grassy hills... ;D

And thanks for the explanation of the maths Matrices too, it's helped me see it all a lot clearer!

X3N0

[Kjelle69]

just looking at your code (I'm at work so I can't test it now)... your code isn't defining the normals properly.

normals should be a UNIT vector. in other words, a vector with a length of 1 unit.

so for a normal pointing straight up, it should be (0, 1, 0).

also you aren't even defining several variables there... you define VERT1NORMY#, but not VERT2NORMY# - VERT6NORMY#.

so I'm pretty sure your normals are out of whack. if you want them pointing straight up, like I said you sould simply use (0, 1, 0) for each one.

I'll have a closer look when I get home.


NOTE - you should also look into "memblock matrices", there is some nice code in the codebase (TGC site) that basically mimics the matrix commands, but with memblocks from the start. I've successfully used those with Newton, even on very big terrains. you could probably convert your random hill code to that system, and eliminate the step of converting a classic matrix to an object. just a thought.

[Kjelle69]

you missed something very simple, but very important!!

you MUST call the NDB_NewtonCreate command to initialize Newton, before ANY OTHER newton commands!!!

After that, I got it working just fine!!


the new source is in the next post. I also added a function to create spheres when you press the spacebar, to test the system.

[Kjelle69]

Rem Project: Matrix Memblocks for Newton use
Rem Created: 11/07/2004 13:00:20

Rem ***** Main Source File *****

GOSUB RESEEDRANDOM

AUTOCAM OFF
HIDE MOUSE
SYNC RATE 60
SYNC ON

POSITION CAMERA 9.5, 5, -10
POINT CAMERA 9.5, 0, 4.5

SET POINT LIGHT 0, 0, 10, 0
SET LIGHT RANGE 0, 25
COLOR LIGHT 0, 255, 255, 255
MAKE LIGHT 1
SET POINT LIGHT 1, 10, 10, 0
SET LIGHT RANGE 1, 25
COLOR LIGHT 1, 255, 255, 255

MATRIXSIZEX = 9
MATRIXSIZEZ = 9
NUMBEROFSQUARESX = 9
NUMBEROFSQUARESZ = 9
MAKE MATRIX 1, MATRIXSIZEX, MATRIXSIZEZ, NUMBEROFSQUARESX, NUMBEROFSQUARESZ
SET MATRIX 1, 0, 0, 1, 1, 1, 1, 1
RANDOMIZE MATRIX 1, 2
GOSUB SMOOTHMATRIX
UPDATE MATRIX 1

COUNTER = 0
MAKE MEMBLOCK 1, 17508
WRITE MEMBLOCK DWORD 1, 0, 338
WRITE MEMBLOCK DWORD 1, 4, 36
WRITE MEMBLOCK DWORD 1, 8, 486
FOR X = 0 TO 8
FOR Z = 0 TO 8
VERT1POSX# = ((MATRIXSIZEX / NUMBEROFSQUARESX) * X)
VERT1POSY# = GET MATRIX HEIGHT(1, X, Z)
VERT1POSZ# = ((MATRIXSIZEZ / NUMBEROFSQUARESZ) * Z)


` WRITE VERTEX POSITION TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT1POSX#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT1POSY#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT1POSZ#
INC COUNTER
` WRITE NORMAL COORDINATES TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 1.0
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER
` WRITE VERTEX DIFFUSE COLOUR TO MEMBLOCK
WRITE MEMBLOCK DWORD 1, 12 + (COUNTER * 4), RGB(RND(255), RND(255), RND(255))

INC COUNTER
` WRITE VERTEX UV MAPPING COORDINATES TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER

VERT2POSX# = ((MATRIXSIZEX / NUMBEROFSQUARESX) * X)
VERT2POSY# = GET MATRIX HEIGHT(1, X, Z+1)
VERT2POSZ# = ((MATRIXSIZEZ / NUMBEROFSQUARESZ) * (Z+1))

` WRITE VERTEX POSITION TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT2POSX#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT2POSY#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT2POSZ#
INC COUNTER
` WRITE NORMAL COORDINATES TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 1.0
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER
` WRITE VERTEX DIFFUSE COLOUR TO MEMBLOCK
WRITE MEMBLOCK DWORD 1, 12 + (COUNTER * 4), RGB(RND(255), RND(255), RND(255))

INC COUNTER
` WRITE VERTEX UV MAPPING COORDINATES TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER

VERT3POSX# = ((MATRIXSIZEX / NUMBEROFSQUARESX) * (X + 1))
VERT3POSY# = GET MATRIX HEIGHT(1, X + 1, Z + 1)
VERT3POSZ# = ((MATRIXSIZEZ / NUMBEROFSQUARESZ) * (Z + 1))

` WRITE VERTEX POSITION TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT3POSX#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT3POSY#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT3POSZ#
INC COUNTER
` WRITE NORMAL COORDINATES TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 1.0
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER
` WRITE VERTEX DIFFUSE COLOUR TO MEMBLOCK
WRITE MEMBLOCK DWORD 1, 12 + (COUNTER * 4), RGB(RND(255), RND(255), RND(255))

INC COUNTER
` WRITE VERTEX UV MAPPING COORDINATES TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER

VERT4POSX# = ((MATRIXSIZEX / NUMBEROFSQUARESX) * X)
VERT4POSY# = GET MATRIX HEIGHT(1, X, Z)
VERT4POSZ# = ((MATRIXSIZEZ / NUMBEROFSQUARESZ) * Z)

` WRITE VERTEX POSITION TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT4POSX#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT4POSY#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT4POSZ#
INC COUNTER
` WRITE NORMAL COORDINATES TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 1.0
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER
` WRITE VERTEX DIFFUSE COLOUR TO MEMBLOCK
WRITE MEMBLOCK DWORD 1, 12 + (COUNTER * 4), RGB(RND(255), RND(255), RND(255))

INC COUNTER
` WRITE VERTEX UV MAPPING COORDINATES TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER

VERT5POSX# = ((MATRIXSIZEX / NUMBEROFSQUARESX) *(X + 1))
VERT5POSY# = GET MATRIX HEIGHT(1, X + 1, Z + 1)
VERT5POSZ# = ((MATRIXSIZEZ / NUMBEROFSQUARESZ) * (Z + 1))

` WRITE VERTEX POSITION TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT5POSX#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT5POSY#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT5POSZ#
INC COUNTER
` WRITE NORMAL COORDINATES TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 1.0
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER
` WRITE VERTEX DIFFUSE COLOUR TO MEMBLOCK
WRITE MEMBLOCK DWORD 1, 12 + (COUNTER * 4), RGB(RND(255), RND(255), RND(255))

INC COUNTER
` WRITE VERTEX UV MAPPING COORDINATES TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER

VERT6POSX# = ((MATRIXSIZEX / NUMBEROFSQUARESX) * (X + 1))
VERT6POSY# = GET MATRIX HEIGHT(1, X + 1, Z)
VERT6POSZ# = ((MATRIXSIZEZ / NUMBEROFSQUARESZ) * Z)

` WRITE VERTEX POSITION TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT6POSX#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT6POSY#
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), VERT6POSZ#
INC COUNTER
` WRITE NORMAL COORDINATES TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 1.0
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER
` WRITE VERTEX DIFFUSE COLOUR TO MEMBLOCK
WRITE MEMBLOCK DWORD 1, 12 + (COUNTER * 4), RGB(RND(255), RND(255), RND(255))

INC COUNTER
` WRITE VERTEX UV MAPPING COORDINATES TO MEMBLOCK
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER
WRITE MEMBLOCK FLOAT 1, 12 + (COUNTER * 4), 0.0
INC COUNTER

NEXT Z
NEXT X

MAKE MESH FROM MEMBLOCK 1, 1
MAKE OBJECT 100, 1, 0
POSITION OBJECT 100, 10, 0, 0

`---------------------------------
` FORGOT THE FOLLOWING COMMAND!!!
`---------------------------------
NDB_NEWTONCREATE


COLLISIONDATA = NDB_NEWTONCREATETREECOLLISION(100)
TERRAINMATRIX = NDB_NEWTONCREATEBODY(COLLISIONDATA)
NDB_SetMatrixIdentityMatrix
NDB_SetVector 10.0, 0.0, 0.0
NDB_SetMatrixPosRow
NDB_NewtonBodySetMatrix TERRAINMATRIX
NDB_BODYSETDBPRODATA TERRAINMATRIX, 1
NDB_NEWTONBODYSETDESTRUCTORCALLBACK TERRAINMATRIX
NDB_NEWTONRELEASECOLLISION COLLISIONDATA

DELETE MEMBLOCK 1
DELETE MESH 1


` MAIN PROGRAM LOOP=========================================================================
` ==========================================================================================
DO
` AIM WITH MOUSE----------------------------------------------------------------------------
PLAYERYANGLE# = WRAPVALUE((PLAYERYANGLE# + MOUSEMOVEX()/1))
PLAYERXANGLE# = WRAPVALUE((PLAYERXANGLE# + MOUSEMOVEY()/1.5))
IF PLAYERXANGLE# > 70 AND PLAYERXANGLE# < 180 THEN PLAYERXANGLE# = 70
IF PLAYERXANGLE# < 270 AND PLAYERXANGLE# > 180 THEN PLAYERXANGLE# = 270
ROTATE CAMERA PLAYERXANGLE#, PLAYERYANGLE#, 0
IF KEYSTATE(17) = 1 THEN MOVE CAMERA 0.1
IF KEYSTATE(31) = 1 THEN MOVE CAMERA -0.1

if spacekey() then MakeBall(15 + rnd(5)-2.5,10,5+rnd(5)-2.5,0.5,10.0,rgb(rnd(255),rnd(255),rnd(255)))

NDB_NewtonUpdate

SYNC
LOOP


` SUBROUTINES------------------------------------------------------------------------------
` -----------------------------------------------------------------------------------------

RESEEDRANDOM:
DATE$ = GET DATE$()
TIME$ = GET TIME$()
D = (VAL(LEFT$(DATE$, 2))) + (VAL(MID$(DATE$, 4))) + (VAL(MID$(DATE$, 5))) + (VAL(RIGHT$(DATE$, 2)))
T = (VAL(LEFT$(TIME$, 2))) + (VAL(MID$(TIME$, 4))) + (VAL(MID$(TIME$, 5))) + (VAL(RIGHT$(TIME$, 2)))
DT = D * T
RANDOMIZE DT
RETURN

SMOOTHMATRIX:
` USE MATRIX NORMALS TO MAKE IT SMOOTH
FOR Z=1 TO 9
FOR X=1 TO 9

` GET MATRIX HEIGHTS
H8#=GET MATRIX HEIGHT(1,X,Z-1)
H4#=GET MATRIX HEIGHT(1,X-1,Z)
H#=GET MATRIX HEIGHT(1,X,Z)
H2#=GET MATRIX HEIGHT(1,X,Z)

` CALCULATE PROJECTED ANGLE X USING HEIGHTS
X1#=(X-1)*25.0 : Y1#=H#
X2#=(X+0)*25.0 : Y2#=H4#
DX#=X2#-X1#
DY#=Y2#-Y1#
AX#=ATANFULL(DX#,DY#)
AX#=WRAPVALUE(90-AX#)

` CALCULATE PROJECTED ANGLE Z USING HEIGHTS
Z1#=(Z-1)*25.0 : Y1#=H2#
Z2#=(Z+0)*25.0 : Y2#=H8#
DZ#=Z2#-Z1#
DY#=Y2#-Y1#
AZ#=ATANFULL(DZ#,DY#)
AZ#=WRAPVALUE(90-AZ#)

` MAKE NORMAL FROM PROJECTED ANGLE
NX#=SIN(AX#)
NY#=COS(AX#)
NZ#=SIN(AZ#)

` SETTING MATRIX NORMAL FOR SMOOTHNESS
SET MATRIX NORMAL 1,X,Z,NX#,NY#,NZ#

NEXT X
NEXT Z
RETURN



function MakeBall(x#, y#, z#, size#, mass#, color as dword)

Col = NDB_NewtonCreateSphere(size#)

ObjNum = FindOpenObject()
make object sphere ObjNum, size# * 2.0
color object ObjNum, color
position object ObjNum, x#,y#,z#

Body = NDB_NewtonCreateBody(Col)

NDB_SetMAtrixIdentityMatrix
NDB_SetVector x#,y#,z#
NDB_SetMatrixPosRow
NDB_NewtonBodySetMatrix Body

NDB_CalculateMISphereSolid mass#, size#
NDB_NewtonBodySetMassMatrix Body, mass#

NDB_NewtonBodySetTransformCallback Body
NDB_NewtonBodySetForceAndTorqueCallback Body
NDB_NewtonBodySetDestructorCallback Body

NDB_BodySetDBProData Body, ObjNum

NDB_NewtonReleaseCollision Col

endfunction


function FindOpenObject()
for i=1 to 300000
if object exist(i) = 0 then exit
next i
endfunction i

[X3N0Wolf]

<nuts the monitor repeatedly>

I'm such an idiot!!!

Wolf's teeth I'd forget my head module if it wasn't bolted on. Thanks Walaber, man I can't believe I missed that...

I updated my code just after that post, as I noticed the missing normal definitions. I tried to post the updated stuff on here but it kept saying the message was over 10K, even tho it was only a few lines longer than the previous code post... grrr... The normals do seem to work fine even with the normal position set to 10 tho, in a smuch as it doesn't look terribly wrong or anything...

Yeah I remember the Memblock Matrices, I downloaded the sample when it first came out, stunning stuff it was, but I was terrified of Memblocks at the time! Now that I've faced my daemons I'll go back and have a look at it soon, could produce some really amazing results now!

Thanks again for the help, hopefully this will be some use to a few people out there