A little matrix texture help please

Author

Message

Pheagey

22

Years of Service

User Offline

Joined: 26th Jan 2003

Location: Mid-Fl., USA

Posted: 28th Jan 2003 17:25

Link

Ok, I'll adit Im a noob. (hanges head down).
So here's my problems. Iuse the following snippet to produce a matrix modified by a height map (gray BMP used for this). Next I'm trying to texture the whole matrix with 1 colored texture. But Im running into the problem of the texture only repeating on each tile. Any ideas?

sync on
sync rate 0
`hide mouse
autocam off

`backdrop / camera makeup
`cam1=1
`make camera (cam1)
`backdrop color (cam1),(0,0,0)
`position camera (cam1),0,0,0

`loading matrix and heightmap
`make matrix using height map
load image "11.bmp",1
make matrix 1,1000,1000,10,10
matrix_heightmap(1,1,10,10,3)
update matrix 1

`tryin' to texture matrix
load image "100.bmp",2
prepare matrix texture 1,2,10,10

do
a#=wrapvalue(a#+1)
position camera 500+(sin(a#)*500),200,500+(cos(a#)*500)
cmXpstn#=camera position X() : cmYpstn#=camera position Y() : cmZpstn#=camera position Z()
point camera 500,0,500
set cursor 0,0
print "FPS:" : print screen fps()
print "CamX:" : print cmXpstn# : print "CamY:" : print cmYpstn# : print "CamZ:" : print cmZpstn#

sync
loop

function matrix_heightmap(matnumber,imgnumber,x,y,scale)
make memblock from image 1,imgnumber
k=0
for i=0 to x
for j=0 to y
`text i*10,(y-j)*10,str$((memblock word(1,12+(k*2)))*0.001)
set matrix height matnumber,j,(x-i),(memblock word(1,12+(k*2)))*0.001*scale
k=k+1
next j
next i
endfunction

+ Code Snippet


sync on
sync rate 0
`hide mouse
autocam off

`backdrop / camera makeup
`cam1=1
`make camera (cam1)
`backdrop color (cam1),(0,0,0)
`position camera (cam1),0,0,0


`loading matrix and heightmap
`make matrix using height map
load image "11.bmp",1
make matrix 1,1000,1000,10,10
matrix_heightmap(1,1,10,10,3)
update matrix 1

`tryin' to texture matrix
load image "100.bmp",2
prepare matrix texture 1,2,10,10


do
a#=wrapvalue(a#+1)
position camera 500+(sin(a#)*500),200,500+(cos(a#)*500)
cmXpstn#=camera position X() : cmYpstn#=camera position Y() : cmZpstn#=camera position Z()
point camera 500,0,500
set cursor 0,0
print "FPS:" : print screen fps()
print "CamX:" : print cmXpstn# : print "CamY:" : print cmYpstn# : print "CamZ:" : print cmZpstn#

sync
loop

function matrix_heightmap(matnumber,imgnumber,x,y,scale)
make memblock from image 1,imgnumber
k=0
for i=0 to x
for j=0 to y
`text i*10,(y-j)*10,str$((memblock word(1,12+(k*2)))*0.001)
set matrix height matnumber,j,(x-i),(memblock word(1,12+(k*2)))*0.001*scale
k=k+1
next j
next i
endfunction

thanx

Back to top

Profile PM

Pheagey

22

Years of Service

User Offline

Joined: 26th Jan 2003

Location: Mid-Fl., USA

Posted: 29th Jan 2003 00:51

Link

bump

Back to top

Profile PM

Rob K

Retired Moderator

22

Years of Service

User Offline

Joined: 10th Sep 2002

Location: Surrey, United Kingdom

Posted: 29th Jan 2003 01:32

Link

The matrix is textured with a tile of images. If you wanted to split a single image over the entire matrix:

1) Use PREPARE MATRIX TEXTURE yourmatrix,image,number of matrix tiles across, number of matrix tiles down

If the image is split up into as many tiles as there are tiles on the matrix (which is what the above code will do) - then you can texture each matrix tile with the corresponding tile from the texture tile.

to texture the matrix, use:

SET MATRIX TILE matrixno,matrix tile x, matrix tile z, image tile

For the image tile, only a single number is used to refernce them, and supposing you split your image up into four tiles, they would look like this:

_________________
¦Tile 1 ¦ Tile 2 ¦
------------------
¦Tile 3 ¦ Tile 4 ¦
------------------

NOBODY has a forum name as stupid as Darth Shader. I do.

Back to top

Profile PM Email Website

Rob K

Retired Moderator

22

Years of Service

User Offline

Joined: 10th Sep 2002

Location: Surrey, United Kingdom

Posted: 29th Jan 2003 01:54

Link

This code should do what you want (I am not sure that it is 100% correct though). The important bit is the For loops which iterate through and texture the tiles. You will need to reset the image names.

`hide mouse
autocam off

`backdrop / camera makeup
`cam1=1
`make camera (cam1)
`backdrop color (cam1),(0,0,0)
`position camera (cam1),0,0,0

`loading matrix and heightmap
`make matrix using height map
load image "gfx/black.jpg",1
make matrix 1,1000,1000,10,10
matrix_heightmap(1,1,10,10,3)
update matrix 1

`tryin' to texture matrix
load image "gfx/backdrop.jpg",2
prepare matrix texture 1,2,10,10

iTile = 1

for iZ = 0 to 9
      for iX = 0 to 9
         set matrix tile 1,iX,(9-iZ),iTile
         inc iTile
      next iX
   next iZ

update matrix 1

position camera camera position x(),200,camera position z()

do
a#=wrapvalue(a#+1)
position camera 500+(sin(a#)*500),camera position y(),500+(cos(a#)*500)
cmXpstn#=camera position X() : cmYpstn#=camera position Y() : cmZpstn#=camera position Z()
point camera 500,0,500
set cursor 0,0
print "FPS:" : print screen fps()
print "CamX:" : print cmXpstn# : print "CamY:" : print cmYpstn# : print "CamZ:" : print cmZpstn#
if spacekey() = 1
   Position Camera Camera Position X(),Camera Position Y()+0.1,Camera Position Z()
endif
sync
loop

function matrix_heightmap(matnumber,imgnumber,x,y,scale)
make memblock from image 1,imgnumber
k=0
for i=0 to x
for j=0 to y
`text i*10,(y-j)*10,str$((memblock word(1,12+(k*2)))*0.001)
set matrix height matnumber,j,(x-i),(memblock word(1,12+(k*2)))*0.001*scale
k=k+1
next j
next i
endfunction

+ Code Snippet

`hide mouse
autocam off

`backdrop / camera makeup
`cam1=1
`make camera (cam1)
`backdrop color (cam1),(0,0,0)
`position camera (cam1),0,0,0


`loading matrix and heightmap
`make matrix using height map
load image "gfx/black.jpg",1
make matrix 1,1000,1000,10,10
matrix_heightmap(1,1,10,10,3)
update matrix 1

`tryin' to texture matrix
load image "gfx/backdrop.jpg",2
prepare matrix texture 1,2,10,10

iTile = 1

   for iZ = 0 to 9
      for iX = 0 to 9
         set matrix tile 1,iX,(9-iZ),iTile
         inc iTile
      next iX
   next iZ


update matrix 1

position camera camera position x(),200,camera position z()

do
a#=wrapvalue(a#+1)
position camera 500+(sin(a#)*500),camera position y(),500+(cos(a#)*500)
cmXpstn#=camera position X() : cmYpstn#=camera position Y() : cmZpstn#=camera position Z()
point camera 500,0,500
set cursor 0,0
print "FPS:" : print screen fps()
print "CamX:" : print cmXpstn# : print "CamY:" : print cmYpstn# : print "CamZ:" : print cmZpstn#
if spacekey() = 1
   Position Camera Camera Position X(),Camera Position Y()+0.1,Camera Position Z()
endif
sync
loop

function matrix_heightmap(matnumber,imgnumber,x,y,scale)
make memblock from image 1,imgnumber
k=0
for i=0 to x
for j=0 to y
`text i*10,(y-j)*10,str$((memblock word(1,12+(k*2)))*0.001)
set matrix height matnumber,j,(x-i),(memblock word(1,12+(k*2)))*0.001*scale
k=k+1
next j
next i
endfunction

NOBODY has a forum name as stupid as Darth Shader. I do.

Back to top

Profile PM Email Website

Pheagey

22

Years of Service

User Offline

Joined: 26th Jan 2003

Location: Mid-Fl., USA

Posted: 29th Jan 2003 05:53

Link

Thanks man. I'll let yea have a sneak peak at this before I release it. this helped alot. thanks again Darth Shader

Back to top

Profile PM

Pheagey

22

Years of Service

User Offline

Joined: 26th Jan 2003

Location: Mid-Fl., USA

Posted: 30th Jan 2003 16:46

Link

Ok, here's what I have:

sync on
sync rate 45
show mouse
autocam off

`loading matrix and heightmap
`make matrix using height map
load image "101.bmp",1
`mat#,wid,hei,Xseg,Zseg
make matrix 1,1000,1000,100,100
`mat#,img#,Xseg,Zseg,scale
matrix_heightmap(1,1,100,100,3)
update matrix 1

`tryin' to texture matrix
load image "landscape100.bmp",2
`mat3,img#,acr,dwn
prepare matrix texture 1,2,100,100

iTile = 1
`seg down
   for iZ = 0 to 99
   `seg across
      for iX = 0 to 99
         set matrix tile 1,iX,(99-iZ),iTile
         inc iTile
      next iX
   next iZ

update matrix 1

position camera camera position x(),400,camera position z()

do
a#=wrapvalue(a#+1)
position camera 500+(sin(a#)*500),camera position y(),500+(cos(a#)*500)
cmXpstn#=camera position X() : cmYpstn#=camera position Y() : cmZpstn#=camera position Z()
point camera 500,0,500
set cursor 0,0
print "FPS:" : print screen fps()
print "CamX:" : print cmXpstn# : print "CamY:" : print cmYpstn# : print "CamZ:" : print cmZpstn#
if spacekey() = 1
   Position Camera Camera Position X(),Camera Position Y()+0.1,Camera Position Z()
endif
sync
loop

function matrix_heightmap(matnumber,imgnumber,x,y,scale)
make memblock from image 1,imgnumber
k=0
for i=0 to x
for j=0 to y
`text i*10,(y-j)*10,str$((memblock word(1,12+(k*2)))*0.001)
set matrix height matnumber,j,(x-i),(memblock word(1,12+(k*2)))*0.001*scale
k=k+1
next j
next i
endfunction

+ Code Snippet

sync on
sync rate 45
show mouse
autocam off

`loading matrix and heightmap
`make matrix using height map
load image "101.bmp",1
`mat#,wid,hei,Xseg,Zseg
make matrix 1,1000,1000,100,100
`mat#,img#,Xseg,Zseg,scale
matrix_heightmap(1,1,100,100,3)
update matrix 1

`tryin' to texture matrix
load image "landscape100.bmp",2
`mat3,img#,acr,dwn
prepare matrix texture 1,2,100,100

iTile = 1
`seg down
   for iZ = 0 to 99
   `seg across
      for iX = 0 to 99
         set matrix tile 1,iX,(99-iZ),iTile
         inc iTile
      next iX
   next iZ


update matrix 1

position camera camera position x(),400,camera position z()

do
a#=wrapvalue(a#+1)
position camera 500+(sin(a#)*500),camera position y(),500+(cos(a#)*500)
cmXpstn#=camera position X() : cmYpstn#=camera position Y() : cmZpstn#=camera position Z()
point camera 500,0,500
set cursor 0,0
print "FPS:" : print screen fps()
print "CamX:" : print cmXpstn# : print "CamY:" : print cmYpstn# : print "CamZ:" : print cmZpstn#
if spacekey() = 1
   Position Camera Camera Position X(),Camera Position Y()+0.1,Camera Position Z()
endif
sync
loop

function matrix_heightmap(matnumber,imgnumber,x,y,scale)
make memblock from image 1,imgnumber
k=0
for i=0 to x
for j=0 to y
`text i*10,(y-j)*10,str$((memblock word(1,12+(k*2)))*0.001)
set matrix height matnumber,j,(x-i),(memblock word(1,12+(k*2)))*0.001*scale
k=k+1
next j
next i
endfunction

now when I do this:

+ Code Snippet

`loading matrix and heightmap
`make matrix using height map
load image "201.bmp",1
`mat#,wid,hei,Xseg,Zseg
make matrix 1,1000,1000,200,200
`mat#,img#,Xseg,Zseg,scale
matrix_heightmap(1,1,200,200,3)
update matrix 1

`tryin' to texture matrix
load image "landscape200.bmp",2
`mat3,img#,acr,dwn
prepare matrix texture 1,2,200,200

iTile = 1
`seg down
   for iZ = 0 to 199
   `seg across
      for iX = 0 to 199
         set matrix tile 1,iX,(199-iZ),iTile
         inc iTile
      next iX
   next iZ

or anything else to increase the texture resolution on the matrix I get a memblock out of range. How would I fix this?

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / A little matrix texture help please