ok, sorry xanatus i thought you were looking for an importer "into" Jetscape.
try this, next release ill add the water in also
Sync On
Sync Rate 0
Autocam Off
Backdrop On
set camera range 10,50000
ImportJetMap( 1, "loadfile.jet", "heightmap.bmp", "texture.bmp" )
Do
Text 0, 0, Str$(Screen Fps())
Control Camera Using Arrowkeys 0, 5, 2
Sync
Loop
function ImportJetMap( intMatrix As Integer, strFile As String, strHeightmap As String, strTexture As String )
If Matrix Exist( intMatrix ) = 0 And File Exist( strFile ) And File Exist( strHeightmap ) And File Exist( strTexture )
maxht=10
load bitmap strHeightmap,10
load image strTexture,101
open to read 1,strFile
read long 1,xseg
read long 1,zseg
read long 1,matwd
read long 1,matht
close file 1
make matrix 1,matwd,matht,xseg,zseg
POSITION MATRIX 1,0,0,0
GHOST MATRIX ON 1,5
PREPARE MATRIX TEXTURE 1,101,xseg,zseg
tile=1
set current bitmap 10
for htz=127 to 0 step -1
for htx=0 to 127
set matrix height 1,htx,htz,rgbr(point(htx,abs(htz-127)))*maxht
SET MATRIX TILE 1,htx,htz,tile
INC tile
next htx
next htz
set current bitmap 0
UPDATE MATRIX 1
endif
endfunction
