Converting memblock matrix from DBP to DBCE

Author

Message

DARKGuy

21

Years of Service

User Offline

Joined: 28th Nov 2003

Location:

Posted: 8th Jun 2004 04:17

Link

Hi guys!!

I was going to post this in the Jesticular's post but I didn't wanted to go off topic, so I did this post.

Reading what Phelax said, I searched in the codebase for the memblock matrix code, and it was there, too bad it was for DBPro only, so I'm trying to pass it to DBC Enhanced (DBCE).

This is my work so far, I tried to convert it and now I have this problem, most of the code works, I rem'd the instructions whose load the matrix height data because I don't have that "height.dat", and there's a little problem with "make object object(mem),object(mem)". DBCE doesn't let to use "make object" alone, it must be a make object cube, sphere, plain or something like that. I wonder, that can be replaced with other instructions to make that? perhaps using memblocks too?

C'mon! let's make this code for DBC too! ^_^

` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com

sync on : sync rate 0
randomize timer()
set display mode 800,600,16

load image "d:\grass.bmp",1

rem read heightmap
dim height#(64,64)
remstart
open to read 1,"height.dat"
for x=0 to 64
for z=0 to 64
read float 1,height#(x,z)
height#(x,z)=height#(x,z)*600.0
next z
next x
close file 1
remend

rem needed vars!
dim tilex(128)
dim tilez(128)
dim tilesizex#(128)
dim tilesizez#(128)
dim texture(128)
dim xpart#(128)
dim ypart#(128)
dim object(128)

rem make sea texture
make memblock 10,(64*64*4)+12
write memblock dword 10,0,64
write memblock dword 10,4,64
write memblock dword 10,8,32
for x=1 to 64
for y=1 to 64
height#=((height#(x-1,(65-y)-1)+height#(x,(65-y)-1)+height#(x-1,(65-y))+height#(x,(65-y)))/4.00)*1.25
if height#>350 then color=rgb(250,250,250)
if height#<150 then color=rgb(0,0,250)
if height#<=350 and height#>=150 then color=rgb((height#-150)*1.25,(height#-150)*1.25,250)
write memblock dword 10,12+((((y-1)*64)+(x-1))*4),color
next y
next x
make image from memblock 2,10
delete memblock 10

rem make the object
makematrix(1,64*60.0,64*60.0,64,64) : makematrix(2,64*60.0,64*60.0,8,8) : makematrix(3,64*60.0,64*60.0,8,8)
texturematrix(1,1,32.0,32.0) : texturematrix(2,2,1.0,1.0) : texturematrix(3,2,1.0,1.0)

color backdrop rgb(150,150,255)
position camera 0,50,0
set camera range 1,20000

rem setup matrix
for x=0 to tilex(1)
for z=0 to tilez(1)

if height#(x,z)>=200 and height#(x,z)<300 then color=rgb(int(200-((height#(x,z)-200)*1.50)),int(150+((height#(x,z)-200)*1.00)),50)
if height#(x,z)>=300 and height#(x,z)<400 then color=rgb(int(50+((height#(x,z)-300)*1.00)),int(250-((height#(x,z)-300)*1.00)),int(50+((height#(x,z)-300)*1.00)))

if height#(x,z)>=400 then color=rgb(150,150,150)
if height#(x,z)<200 then color=rgb(200,150,50)
setmatrixheight(1,x,z,height#(x,z)*1.50)
setmatrixcolor(1,x,z,color)

next z
next x
normalizematrix(1,0,0,tilex(1),tilez(1))
updatematrix(1) : updatematrix(2) : updatematrix(3)

rem position the matrix
positionmatrix(2,0.0,300.0,0.0)
positionmatrix(3,0.0,300.0,0.0)
ghostmatrix(2,0)
ghostmatrix(3,1)
set object 50002,1,0,1,1

rem vars
time=timer()
fase#=0.00
fogged=0

do

text 0,0,str$(screen fps())
text 0,20,str$(statistic(1))

rem get time
dt#=(timer()-time)/1000.0
time=timer()

yrotate camera wrapvalue(camera angle y()+mousemovex())
xrotate camera wrapvalue(camera angle x()+mousemovey())
if mouseclick()=1 then move camera 200*dt#
if mouseclick()=2 then move camera -200*dt#
height#=getgroundheight(1,camera position x(),camera position z())+5.0
if camera position y()<height# then position camera camera position x(),height#,camera position z()

rem waving effect
positionmatrix(2,0.0,310+(sin(fase#)*10).0,0.0)
positionmatrix(3,0.0,310+(sin(fase#)*10).0,0.0)
fase#=fase#+(45*dt#)

rem fogeffect
if camera position y()<310+(sin(fase#)*10) and fogged=0
fogged=1
fog on
fog color rgb(50,50,250)
fog distance 200
color backdrop rgb(75,75,255)
color ambient light rgb(75,75,250)
endif
if camera position y()>=310+(sin(fase#)*10) and fogged=1
fogged=0
fog off
color backdrop rgb(150,150,255)
color ambient light rgb(255,255,255)
endif

sync
loop

function makematrix(mem,x#,z#,tilex,tilez)
tilex(mem)=tilex
tilez(mem)=tilez
tilesizex#(mem)=x#/tilex(mem)
tilesizez#(mem)=z#/tilez(mem)
polys=2*tilex*tilez
size=(polys*36*3)+12
make memblock mem,size
write memblock dword mem,0,338
write memblock dword mem,4,36
write memblock dword mem,8,polys*3

pos=12

for x=1 to tilex(mem)
for z=1 to tilez(mem)
writevectordata(mem,pos,(x-1.0)*tilesizex#(mem),0.000,(z-1.0)*tilesizez#(mem),0.000,1.000,0.000,rgb(255,255,255),0.000,1.000)
writevectordata(mem,pos+36,x*tilesizex#(mem),0.000,z*tilesizez#(mem),0.000,1.000,0.000,rgb(255,255,255),1.000,0.000)
writevectordata(mem,pos+72,x*tilesizex#(mem),0.000,(z-1.0)*tilesizez#(mem),0.000,1.000,0.000,rgb(255,255,255),1.000,1.000)
writevectordata(mem,pos+108,(x-1.0)*tilesizex#(mem),0.000,(z-1.0)*tilesizez#(mem),0.000,1.000,0.000,rgb(255,255,255),0.000,1.000)
writevectordata(mem,pos+144,(x-1.0)*tilesizex#(mem),0.000,z*tilesizez#(mem),0.000,1.000,0.000,rgb(255,255,255),0.000,0.000)
writevectordata(mem,pos+180,x*tilesizex#(mem),0.000,z*tilesizez#(mem),0.000,1.000,0.000,rgb(255,255,255),1.000,0.000)
pos=pos+216
next z
next x

object(mem)=mem+50000
make mesh from memblock object(mem),mem
make object plain object(mem),100,100
`object(mem)

endfunction

function writevectordata(mem,pos,X#,Y#,Z#,NX#,NY#,NZ#,color,TU#,TV#)
write memblock float mem,pos,X#
write memblock float mem,pos+4,Y#
write memblock float mem,pos+8,Z#
write memblock float mem,pos+12,NX#
write memblock float mem,pos+16,NY#
write memblock float mem,pos+20,NZ#
write memblock dword mem,pos+24,color
write memblock float mem,pos+28,TU#
write memblock float mem,pos+32,TV#
endfunction

function setmatrixheight(mem,x,z,y#)

if x-1>=0 and z-1>=0
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+40,y#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+184,y#
endif

if x-1>=0 and z<tilez(mem)
write memblock float mem,12+(216*(((x-1)*tilez(mem))+z))+76,y#
endif

if x<tilex(mem) and z-1>=0
write memblock float mem,12+(216*((x*tilez(mem))+(z-1)))+148,y#
endif

if x<tilex(mem) and z<tilez(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+4,y#
write memblock float mem,12+(216*((x*tilez(mem))+z))+112,y#
endif
endfunction

function setmatrixcolor(mem,x,z,color)
if x-1>=0 and z-1>=0
write memblock dword mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+60,color
write memblock dword mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+204,color
endif

if x-1>=0 and z<tilez(mem)
write memblock dword mem,12+(216*(((x-1)*tilez(mem))+z))+96,color
endif

if x<tilex(mem) and z-1>=0
write memblock dword mem,12+(216*((x*tilez(mem))+(z-1)))+168,color
endif

if x<tilex(mem) and z<tilez(mem)
write memblock dword mem,12+(216*((x*tilez(mem))+z))+24,color
write memblock dword mem,12+(216*((x*tilez(mem))+z))+132,color
endif
endfunction

function setmatrixnormal(mem,x,z,nx#,ny#,nz#)
if x-1>=0 and z-1>=0
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+48,nx#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+52,ny#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+56,nz#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+192,nx#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+196,ny#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+200,nz#
endif

if x-1>=0 and z<tilez(mem)
write memblock float mem,12+(216*(((x-1)*tilez(mem))+z))+84,nx#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+z))+88,ny#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+z))+92,nz#
endif

if x<tilex(mem) and z-1>=0
write memblock float mem,12+(216*((x*tilez(mem))+(z-1)))+156,nx#
write memblock float mem,12+(216*((x*tilez(mem))+(z-1)))+160,ny#
write memblock float mem,12+(216*((x*tilez(mem))+(z-1)))+164,nz#
endif

if x<tilex(mem) and z<tilez(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+12,nx#
write memblock float mem,12+(216*((x*tilez(mem))+z))+16,ny#
write memblock float mem,12+(216*((x*tilez(mem))+z))+20,nz#
write memblock float mem,12+(216*((x*tilez(mem))+z))+120,nx#
write memblock float mem,12+(216*((x*tilez(mem))+z))+124,ny#
write memblock float mem,12+(216*((x*tilez(mem))+z))+128,nz#
endif
endfunction

function getmatrixheight(mem,x,z)

if x-1>=0 and z-1>=0
height#=memblock float(mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+40)
else
if x<tilex(mem) and z<tilez(mem)
height#=memblock float(mem,12+(216*((x*tilez(mem))+z))+4)
else
height#=memblock float(mem,12+(216*(((x-1)*tilez(mem))+z))+76)
endif
endif

endfunction height#

function randomizematrix(mem,bx,bz,ex,ez,value#)
for x=bx to ex
for z=bz to ez
setmatrixheight(mem,x,z,(rnd(int(value#*100))/100.0)-(0.5*value#))
next z
next x
endfunction

function normalizematrix(mem,bx,bz,ex,ez)

if bx<=0 then bx=1
if bz<=0 then bz=1
if ex>=tilex(mem) then ex=tilex(mem)-1
if ez>=tilez(mem) then ez=tilez(mem)-1

rem Use matrix normals to make it smooth
for z=bz to ez
   for x=bx to ex

rem Get matrix heights
      h8#=getmatrixheight(mem,x,z-1)
      h4#=getmatrixheight(mem,x-1,z)
      h#=getmatrixheight(mem,x,z)
      h2#=getmatrixheight(mem,x,z)

rem 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#)

rem 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#)

rem Make normal from projected angle
      nx#=sin(ax#)
      ny#=cos(ax#)
      nz#=sin(az#)

rem Setting matrix normal for smoothness
      setmatrixnormal(1,x,z,nx#,ny#,nz#)

next x
next z

endfunction

function updatematrix(mem)
change mesh from memblock object(mem),mem
change mesh object(mem),0,object(mem)
texture object object(mem),texture(mem)
endfunction

function getgroundheight(mem,x#,z#)
if x#>=0 and z#>=0 and x#<tilex(mem)*tilesizex#(mem) and z#<tilez(mem)*tilesizez#(mem)
xt=int(x#/tilesizex#(mem))
zt=int(z#/tilesizez#(mem))
if (((xt+1)*tilesizex#(mem))-x#)+(z#-(zt*tilesizez#(mem)))<=tilesizex#(mem)
dx#=getmatrixheight(mem,xt+1,zt)-getmatrixheight(mem,xt,zt)
dz#=getmatrixheight(mem,xt+1,zt+1)-getmatrixheight(mem,xt+1,zt)
else
dx#=getmatrixheight(mem,xt+1,zt+1)-getmatrixheight(mem,xt,zt+1)
dz#=getmatrixheight(mem,xt,zt+1)-getmatrixheight(mem,xt,zt)
endif
height#=(((x#-(xt*tilesizex#(mem)))/tilesizex#(mem))*dx#)+(((z#-(zt*tilesizez#(mem)))/tilesizez#(mem))*dz#)+getmatrixheight(mem,xt,zt)
endif
endfunction height#

function preparematrixtexture(mem,image,xsplit,ysplit)
texture(mem)=image
xpart#(mem)=1.000/xsplit
ypart#(mem)=1.000/ysplit
for x=0 to tilex(mem)-1
for z=0 to tilez(mem)-1
setmatrixtile(mem,x,z,1,1)
next z
next x
endfunction

function setmatrixtile(mem,x,z,xtex,ytex)
write memblock float mem,12+(216*((x*tilez(mem))+z))+28,(xtex-1)*xpart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+32,ytex*ypart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+64,xtex*xpart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+68,(ytex-1)*ypart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+100,xtex*xpart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+104,ytex*ypart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+136,(xtex-1)*xpart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+140,ytex*ypart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+172,(xtex-1)*xpart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+176,(ytex-1)*ypart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+208,xtex*xpart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+212,(ytex-1)*ypart#(mem)
endfunction

function texturematrix(mem,image,xtile#,ztile#)
texture(mem)=image
texx#=xtile#/tilex(mem)
texz#=ztile#/tilez(mem)
for x=0 to tilex(mem)-1
for z=0 to tilez(mem)-1
z2=(tilez(mem)-z)-1
write memblock float mem,12+(216*((x*tilez(mem))+z2))+28,(x*texx#)
value#=((z+1)*texz#) : if value#=0.00 then value#=1.00
write memblock float mem,12+(216*((x*tilez(mem))+z2))+32,value#
value#=((x+1)*texx#) : if value#=0.00 then value#=1.00
write memblock float mem,12+(216*((x*tilez(mem))+z2))+64,value#
write memblock float mem,12+(216*((x*tilez(mem))+z2))+68,(z*texz#)
value#=((x+1)*texx#) : if value#=0.00 then value#=1.00
write memblock float mem,12+(216*((x*tilez(mem))+z2))+100,value#
value#=((z+1)*texz#) : if value#=0.00 then value#=1.00
write memblock float mem,12+(216*((x*tilez(mem))+z2))+104,value#
write memblock float mem,12+(216*((x*tilez(mem))+z2))+136,(x*texx#)
value#=((z+1)*texz#) : if value#=0.00 then value#=1.00
write memblock float mem,12+(216*((x*tilez(mem))+z2))+140,value#
write memblock float mem,12+(216*((x*tilez(mem))+z2))+172,(x*texx#)
write memblock float mem,12+(216*((x*tilez(mem))+z2))+176,(z*texz#)
value#=((x+1)*texx#) : if value#=0.00 then value#=1.00
write memblock float mem,12+(216*((x*tilez(mem))+z2))+208,value#
write memblock float mem,12+(216*((x*tilez(mem))+z2))+212,(z*texz#)
next z
next x
endfunction

function positionmatrix(mem,x#,y#,z#)
position object object(mem),x#,y#,z#
endfunction

function ghostmatrix(mem,ghost)
ghost object on object(mem),ghost
endfunction

+ Code Snippet

` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com

sync on : sync rate 0
randomize timer()
set display mode 800,600,16

load image "d:\grass.bmp",1

rem read heightmap
dim height#(64,64)
remstart
open to read 1,"height.dat"
for x=0 to 64
for z=0 to 64
read float 1,height#(x,z)
height#(x,z)=height#(x,z)*600.0
next z
next x
close file 1
remend

rem needed vars!
dim tilex(128)
dim tilez(128)
dim tilesizex#(128)
dim tilesizez#(128)
dim texture(128)
dim xpart#(128)
dim ypart#(128)
dim object(128)

rem make sea texture
make memblock 10,(64*64*4)+12
write memblock dword 10,0,64
write memblock dword 10,4,64
write memblock dword 10,8,32
for x=1 to 64
for y=1 to 64
height#=((height#(x-1,(65-y)-1)+height#(x,(65-y)-1)+height#(x-1,(65-y))+height#(x,(65-y)))/4.00)*1.25
if height#>350 then color=rgb(250,250,250)
if height#<150 then color=rgb(0,0,250)
if height#<=350 and height#>=150 then color=rgb((height#-150)*1.25,(height#-150)*1.25,250)
write memblock dword 10,12+((((y-1)*64)+(x-1))*4),color
next y
next x
make image from memblock 2,10
delete memblock 10

rem make the object
makematrix(1,64*60.0,64*60.0,64,64) : makematrix(2,64*60.0,64*60.0,8,8) : makematrix(3,64*60.0,64*60.0,8,8)
texturematrix(1,1,32.0,32.0) : texturematrix(2,2,1.0,1.0) : texturematrix(3,2,1.0,1.0)

color backdrop rgb(150,150,255)
position camera 0,50,0
set camera range 1,20000


rem setup matrix
for x=0 to tilex(1)
for z=0 to tilez(1)

if height#(x,z)>=200 and height#(x,z)<300 then color=rgb(int(200-((height#(x,z)-200)*1.50)),int(150+((height#(x,z)-200)*1.00)),50)
if height#(x,z)>=300 and height#(x,z)<400 then color=rgb(int(50+((height#(x,z)-300)*1.00)),int(250-((height#(x,z)-300)*1.00)),int(50+((height#(x,z)-300)*1.00)))

if height#(x,z)>=400 then color=rgb(150,150,150)
if height#(x,z)<200 then color=rgb(200,150,50)
setmatrixheight(1,x,z,height#(x,z)*1.50)
setmatrixcolor(1,x,z,color)

next z
next x
normalizematrix(1,0,0,tilex(1),tilez(1))
updatematrix(1) : updatematrix(2) : updatematrix(3)

rem position the matrix
positionmatrix(2,0.0,300.0,0.0)
positionmatrix(3,0.0,300.0,0.0)
ghostmatrix(2,0)
ghostmatrix(3,1)
set object 50002,1,0,1,1




rem vars
time=timer()
fase#=0.00
fogged=0





do

text 0,0,str$(screen fps())
text 0,20,str$(statistic(1))

rem get time
dt#=(timer()-time)/1000.0
time=timer()

yrotate camera wrapvalue(camera angle y()+mousemovex())
xrotate camera wrapvalue(camera angle x()+mousemovey())
if mouseclick()=1 then move camera 200*dt#
if mouseclick()=2 then move camera -200*dt#
height#=getgroundheight(1,camera position x(),camera position z())+5.0
if camera position y()<height# then position camera camera position x(),height#,camera position z()

rem waving effect
positionmatrix(2,0.0,310+(sin(fase#)*10).0,0.0)
positionmatrix(3,0.0,310+(sin(fase#)*10).0,0.0)
fase#=fase#+(45*dt#)

rem fogeffect
if camera position y()<310+(sin(fase#)*10) and fogged=0
fogged=1
fog on
fog color rgb(50,50,250)
fog distance 200
color backdrop rgb(75,75,255)
color ambient light rgb(75,75,250)
endif
if camera position y()>=310+(sin(fase#)*10) and fogged=1
fogged=0
fog off
color backdrop rgb(150,150,255)
color ambient light rgb(255,255,255)
endif


sync
loop







function makematrix(mem,x#,z#,tilex,tilez)
tilex(mem)=tilex
tilez(mem)=tilez
tilesizex#(mem)=x#/tilex(mem)
tilesizez#(mem)=z#/tilez(mem)
polys=2*tilex*tilez
size=(polys*36*3)+12
make memblock mem,size
write memblock dword mem,0,338
write memblock dword mem,4,36
write memblock dword mem,8,polys*3


pos=12

for x=1 to tilex(mem)
for z=1 to tilez(mem)
writevectordata(mem,pos,(x-1.0)*tilesizex#(mem),0.000,(z-1.0)*tilesizez#(mem),0.000,1.000,0.000,rgb(255,255,255),0.000,1.000)
writevectordata(mem,pos+36,x*tilesizex#(mem),0.000,z*tilesizez#(mem),0.000,1.000,0.000,rgb(255,255,255),1.000,0.000)
writevectordata(mem,pos+72,x*tilesizex#(mem),0.000,(z-1.0)*tilesizez#(mem),0.000,1.000,0.000,rgb(255,255,255),1.000,1.000)
writevectordata(mem,pos+108,(x-1.0)*tilesizex#(mem),0.000,(z-1.0)*tilesizez#(mem),0.000,1.000,0.000,rgb(255,255,255),0.000,1.000)
writevectordata(mem,pos+144,(x-1.0)*tilesizex#(mem),0.000,z*tilesizez#(mem),0.000,1.000,0.000,rgb(255,255,255),0.000,0.000)
writevectordata(mem,pos+180,x*tilesizex#(mem),0.000,z*tilesizez#(mem),0.000,1.000,0.000,rgb(255,255,255),1.000,0.000)
pos=pos+216
next z
next x

object(mem)=mem+50000
make mesh from memblock object(mem),mem
make object plain object(mem),100,100
`object(mem)

endfunction

function writevectordata(mem,pos,X#,Y#,Z#,NX#,NY#,NZ#,color,TU#,TV#)
write memblock float mem,pos,X#
write memblock float mem,pos+4,Y#
write memblock float mem,pos+8,Z#
write memblock float mem,pos+12,NX#
write memblock float mem,pos+16,NY#
write memblock float mem,pos+20,NZ#
write memblock dword mem,pos+24,color
write memblock float mem,pos+28,TU#
write memblock float mem,pos+32,TV#
endfunction

function setmatrixheight(mem,x,z,y#)

if x-1>=0 and z-1>=0
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+40,y#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+184,y#
endif

if x-1>=0 and z<tilez(mem)
write memblock float mem,12+(216*(((x-1)*tilez(mem))+z))+76,y#
endif

if x<tilex(mem) and z-1>=0
write memblock float mem,12+(216*((x*tilez(mem))+(z-1)))+148,y#
endif

if x<tilex(mem) and z<tilez(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+4,y#
write memblock float mem,12+(216*((x*tilez(mem))+z))+112,y#
endif
endfunction

function setmatrixcolor(mem,x,z,color)
if x-1>=0 and z-1>=0
write memblock dword mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+60,color
write memblock dword mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+204,color
endif

if x-1>=0 and z<tilez(mem)
write memblock dword mem,12+(216*(((x-1)*tilez(mem))+z))+96,color
endif

if x<tilex(mem) and z-1>=0
write memblock dword mem,12+(216*((x*tilez(mem))+(z-1)))+168,color
endif

if x<tilex(mem) and z<tilez(mem)
write memblock dword mem,12+(216*((x*tilez(mem))+z))+24,color
write memblock dword mem,12+(216*((x*tilez(mem))+z))+132,color
endif
endfunction

function setmatrixnormal(mem,x,z,nx#,ny#,nz#)
if x-1>=0 and z-1>=0
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+48,nx#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+52,ny#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+56,nz#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+192,nx#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+196,ny#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+200,nz#
endif

if x-1>=0 and z<tilez(mem)
write memblock float mem,12+(216*(((x-1)*tilez(mem))+z))+84,nx#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+z))+88,ny#
write memblock float mem,12+(216*(((x-1)*tilez(mem))+z))+92,nz#
endif

if x<tilex(mem) and z-1>=0
write memblock float mem,12+(216*((x*tilez(mem))+(z-1)))+156,nx#
write memblock float mem,12+(216*((x*tilez(mem))+(z-1)))+160,ny#
write memblock float mem,12+(216*((x*tilez(mem))+(z-1)))+164,nz#
endif

if x<tilex(mem) and z<tilez(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+12,nx#
write memblock float mem,12+(216*((x*tilez(mem))+z))+16,ny#
write memblock float mem,12+(216*((x*tilez(mem))+z))+20,nz#
write memblock float mem,12+(216*((x*tilez(mem))+z))+120,nx#
write memblock float mem,12+(216*((x*tilez(mem))+z))+124,ny#
write memblock float mem,12+(216*((x*tilez(mem))+z))+128,nz#
endif
endfunction

function getmatrixheight(mem,x,z)

if x-1>=0 and z-1>=0
height#=memblock float(mem,12+(216*(((x-1)*tilez(mem))+(z-1)))+40)
else
if x<tilex(mem) and z<tilez(mem)
height#=memblock float(mem,12+(216*((x*tilez(mem))+z))+4)
else
height#=memblock float(mem,12+(216*(((x-1)*tilez(mem))+z))+76)
endif
endif

endfunction height#

function randomizematrix(mem,bx,bz,ex,ez,value#)
for x=bx to ex
for z=bz to ez
setmatrixheight(mem,x,z,(rnd(int(value#*100))/100.0)-(0.5*value#))
next z
next x
endfunction

function normalizematrix(mem,bx,bz,ex,ez)

if bx<=0 then bx=1
if bz<=0 then bz=1
if ex>=tilex(mem) then ex=tilex(mem)-1
if ez>=tilez(mem) then ez=tilez(mem)-1

rem Use matrix normals to make it smooth
for z=bz to ez
   for x=bx to ex

      rem Get matrix heights
      h8#=getmatrixheight(mem,x,z-1)
      h4#=getmatrixheight(mem,x-1,z)
      h#=getmatrixheight(mem,x,z)
      h2#=getmatrixheight(mem,x,z)

      rem 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#)

      rem 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#)

      rem Make normal from projected angle
      nx#=sin(ax#)
      ny#=cos(ax#)
      nz#=sin(az#)

      rem Setting matrix normal for smoothness
      setmatrixnormal(1,x,z,nx#,ny#,nz#)

   next x
next z

endfunction

function updatematrix(mem)
change mesh from memblock object(mem),mem
change mesh object(mem),0,object(mem)
texture object object(mem),texture(mem)
endfunction

function getgroundheight(mem,x#,z#)
if x#>=0 and z#>=0 and x#<tilex(mem)*tilesizex#(mem) and z#<tilez(mem)*tilesizez#(mem)
xt=int(x#/tilesizex#(mem))
zt=int(z#/tilesizez#(mem))
if (((xt+1)*tilesizex#(mem))-x#)+(z#-(zt*tilesizez#(mem)))<=tilesizex#(mem)
dx#=getmatrixheight(mem,xt+1,zt)-getmatrixheight(mem,xt,zt)
dz#=getmatrixheight(mem,xt+1,zt+1)-getmatrixheight(mem,xt+1,zt)
else
dx#=getmatrixheight(mem,xt+1,zt+1)-getmatrixheight(mem,xt,zt+1)
dz#=getmatrixheight(mem,xt,zt+1)-getmatrixheight(mem,xt,zt)
endif
height#=(((x#-(xt*tilesizex#(mem)))/tilesizex#(mem))*dx#)+(((z#-(zt*tilesizez#(mem)))/tilesizez#(mem))*dz#)+getmatrixheight(mem,xt,zt)
endif
endfunction height#

function preparematrixtexture(mem,image,xsplit,ysplit)
texture(mem)=image
xpart#(mem)=1.000/xsplit
ypart#(mem)=1.000/ysplit
for x=0 to tilex(mem)-1
for z=0 to tilez(mem)-1
setmatrixtile(mem,x,z,1,1)
next z
next x
endfunction

function setmatrixtile(mem,x,z,xtex,ytex)
write memblock float mem,12+(216*((x*tilez(mem))+z))+28,(xtex-1)*xpart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+32,ytex*ypart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+64,xtex*xpart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+68,(ytex-1)*ypart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+100,xtex*xpart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+104,ytex*ypart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+136,(xtex-1)*xpart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+140,ytex*ypart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+172,(xtex-1)*xpart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+176,(ytex-1)*ypart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+208,xtex*xpart#(mem)
write memblock float mem,12+(216*((x*tilez(mem))+z))+212,(ytex-1)*ypart#(mem)
endfunction

function texturematrix(mem,image,xtile#,ztile#)
texture(mem)=image
texx#=xtile#/tilex(mem)
texz#=ztile#/tilez(mem)
for x=0 to tilex(mem)-1
for z=0 to tilez(mem)-1
z2=(tilez(mem)-z)-1
write memblock float mem,12+(216*((x*tilez(mem))+z2))+28,(x*texx#)
value#=((z+1)*texz#) : if value#=0.00 then value#=1.00
write memblock float mem,12+(216*((x*tilez(mem))+z2))+32,value#
value#=((x+1)*texx#) : if value#=0.00 then value#=1.00
write memblock float mem,12+(216*((x*tilez(mem))+z2))+64,value#
write memblock float mem,12+(216*((x*tilez(mem))+z2))+68,(z*texz#)
value#=((x+1)*texx#) : if value#=0.00 then value#=1.00
write memblock float mem,12+(216*((x*tilez(mem))+z2))+100,value#
value#=((z+1)*texz#) : if value#=0.00 then value#=1.00
write memblock float mem,12+(216*((x*tilez(mem))+z2))+104,value#
write memblock float mem,12+(216*((x*tilez(mem))+z2))+136,(x*texx#)
value#=((z+1)*texz#) : if value#=0.00 then value#=1.00
write memblock float mem,12+(216*((x*tilez(mem))+z2))+140,value#
write memblock float mem,12+(216*((x*tilez(mem))+z2))+172,(x*texx#)
write memblock float mem,12+(216*((x*tilez(mem))+z2))+176,(z*texz#)
value#=((x+1)*texx#) : if value#=0.00 then value#=1.00
write memblock float mem,12+(216*((x*tilez(mem))+z2))+208,value#
write memblock float mem,12+(216*((x*tilez(mem))+z2))+212,(z*texz#)
next z
next x
endfunction


function positionmatrix(mem,x#,y#,z#)
position object object(mem),x#,y#,z#
endfunction

function ghostmatrix(mem,ghost)
ghost object on object(mem),ghost
endfunction

:: Pentium 300 Mhz, 8Mb video card, 64Mb RAM, 5 gb & 1.6 gb HD's, W98SE, Sound Blaster AWE 32 ::

http://darkguy.redgaming.net

Back to top

Profile PM Email

Arkheii

21

Years of Service

User Offline

Joined: 15th Jun 2003

Location: QC, Philippines

Posted: 8th Jun 2004 07:10 Edited at: 8th Jun 2004 07:13

Link

The use of the make object plain command was dissappointing, because from experience, plains are still slow and unoptimized for "patching" like that (wasted vertices as opposed to optimizing the mesh).

I'll give it a shot. It could take a while though, as I'm determined to get rid of the make object plain command and instead replace the code to really make a mesh.

edit: If I stumble into pro-specific features, I'd have to write from scratch. Pro and Classic memblock mesh formats are different.

Back to top

Profile PM

DARKGuy

21

Years of Service

User Offline

Joined: 28th Nov 2003

Location:

Posted: 8th Jun 2004 09:04

Link

about the make object plain...well I tried and didn't worked, so I leaved it like that, the original instruction is this:

make object object(mem),object(mem),0

Oh well...as long as the DBC community have a faster matrix, it's ok

Thanks!!!!

Quote: "New forum!!
http://darkbasicforum.proboards3.com"

Back to top

Profile PM Email

Phaelax

DBPro Master

22

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 8th Jun 2004 09:49

Link

Not sure what make object plain has to do with anything, but this function makes a plain using memblocks.

function make_plane(obj as integer, width as float, height as float)
   width = width/2.0
   height = height/2.0

make memblock 100,204
   write memblock dword 100, 0, 274
   write memblock dword 100, 4, 32
   write memblock dword 100, 8, 6

write memblock float 100, 12, -width
   write memblock float 100, 16, -height
   write memblock float 100, 20, 0

write memblock float 100, 44, -width
   write memblock float 100, 48, height
   write memblock float 100, 52, 0

write memblock float 100, 76, width
   write memblock float 100, 80, height
   write memblock float 100, 84, 0

write memblock float 100, 108, -width
   write memblock float 100, 112, -height
   write memblock float 100, 116, 0

write memblock float 100, 140, width
   write memblock float 100, 144, height
   write memblock float 100, 148, 0

write memblock float 100, 172, width
   write memblock float 100, 176, -height
   write memblock float 100, 180, 0

make mesh from memblock 100,100
   make object obj, 100, 0
   delete memblock 100
endfunction

+ Code Snippet

function make_plane(obj as integer, width as float, height as float)
   width = width/2.0
   height = height/2.0

   make memblock 100,204
   write memblock dword 100, 0, 274
   write memblock dword 100, 4, 32
   write memblock dword 100, 8, 6

   write memblock float 100, 12, -width
   write memblock float 100, 16, -height
   write memblock float 100, 20, 0

   write memblock float 100, 44, -width
   write memblock float 100, 48, height
   write memblock float 100, 52, 0

   write memblock float 100, 76, width
   write memblock float 100, 80, height
   write memblock float 100, 84, 0

   write memblock float 100, 108, -width
   write memblock float 100, 112, -height
   write memblock float 100, 116, 0

   write memblock float 100, 140, width
   write memblock float 100, 144, height
   write memblock float 100, 148, 0

   write memblock float 100, 172, width
   write memblock float 100, 176, -height
   write memblock float 100, 180, 0

   make mesh from memblock 100,100
   make object obj, 100, 0
   delete memblock 100
endfunction

"eureka" - Archimedes

Back to top

Profile PM Email Website

DARKGuy

21

Years of Service

User Offline

Joined: 28th Nov 2003

Location:

Posted: 8th Jun 2004 11:10

Link

Man you have a memblock manual or something???

this will help arkheii in translating the code I think!!

NICE!

Quote: "New forum!!
http://darkbasicforum.proboards3.com"

Back to top

Profile PM Email

Arkheii

21

Years of Service

User Offline

Joined: 15th Jun 2003

Location: QC, Philippines

Posted: 8th Jun 2004 12:20

Link

@Phaelax: That's pro again... Pro and classic have different memblock mesh formats.

@DarkGuy: Everything you need to know about memblocks is in the help file. You'll be most interested in reading the image and mesh formats. Go to the command index and read about Make Mesh From Memblock commands, etc. and you should see the specifications for the formats.

Here's the one for meshes:

Memblock-Mesh (32 Byte Header)
-Header
--4 BYTES (DWORD) Number Of Vertices
--4 BYTES (DWORD) Offset in Bytes to Vertice Data
--4 BYTES (DWORD) Number Of Normals
--4 BYTES (DWORD) Offset in Bytes to Normals Data
--4 BYTES (DWORD) Number of Faces
--4 BYTES (DWORD) Offset in Bytes to Face Data
--4 BYTES (DWORD) Size Of All Face Data
--4 BYTES (DWORD) Offset in Bytes to Texture UV Data
-Data
--Vertice Data
---For Each Vertex
----4 BYTES (FLOAT) - X Position of 3D Geometry
----4 BYTES (FLOAT) - Y Position of 3D Geometry
----4 BYTES (FLOAT) - Z Position of 3D Geometry
--Normals Data
---For Each Normal
----4 BYTES (FLOAT) - X Normalised Normal of 3D Geometry
----4 BYTES (FLOAT) - Y Normalised Normal of 3D Geometry
----4 BYTES (FLOAT) - Z Normalised Normal of 3D Geometry
--Face Data
---For Each Face (a face makes a polygon using A,B and C as vector points)
!!! arkheii's note: TGC made a mistake here. In the help file, the following are documented to take up 2 bytes each, but DWORDs take up 4 bytes. !!!
----4 BYTES (DWORD) - Number of Vectors in Face (always use 3)
----4 BYTES (DWORD) - Index to Vertex in Vertex Data for Vector A
----4 BYTES (DWORD) - Index to Normal in Vertex Data for Vector A
----4 BYTES (DWORD) - Index to Vertex in Vertex Data for Vector B
----4 BYTES (DWORD) - Index to Normal in Vertex Data for Vector B
----4 BYTES (DWORD) - Index to Vertex in Vertex Data for Vector C
----4 BYTES (DWORD) - Index to Normal in Vertex Data for Vector C
--Texture Data
---For Each Vertex
----4 BYTES (FLOAT) - U Value of Texture
----4 BYTES (FLOAT) - V Value of Texture

+ Code Snippet

Memblock-Mesh (32 Byte Header)
-Header
--4 BYTES (DWORD) Number Of Vertices
--4 BYTES (DWORD) Offset in Bytes to Vertice Data
--4 BYTES (DWORD) Number Of Normals
--4 BYTES (DWORD) Offset in Bytes to Normals Data
--4 BYTES (DWORD) Number of Faces
--4 BYTES (DWORD) Offset in Bytes to Face Data
--4 BYTES (DWORD) Size Of All Face Data
--4 BYTES (DWORD) Offset in Bytes to Texture UV Data
-Data
--Vertice Data
---For Each Vertex
----4 BYTES (FLOAT) - X Position of 3D Geometry
----4 BYTES (FLOAT) - Y Position of 3D Geometry
----4 BYTES (FLOAT) - Z Position of 3D Geometry
--Normals Data
---For Each Normal
----4 BYTES (FLOAT) - X Normalised Normal of 3D Geometry
----4 BYTES (FLOAT) - Y Normalised Normal of 3D Geometry
----4 BYTES (FLOAT) - Z Normalised Normal of 3D Geometry
--Face Data
---For Each Face (a face makes a polygon using A,B and C as vector points)
!!! arkheii's note: TGC made a mistake here. In the help file, the following are documented to take up 2 bytes each, but DWORDs take up 4 bytes. !!!
----4 BYTES (DWORD) - Number of Vectors in Face (always use 3)
----4 BYTES (DWORD) - Index to Vertex in Vertex Data for Vector A
----4 BYTES (DWORD) - Index to Normal in Vertex Data for Vector A
----4 BYTES (DWORD) - Index to Vertex in Vertex Data for Vector B
----4 BYTES (DWORD) - Index to Normal in Vertex Data for Vector B
----4 BYTES (DWORD) - Index to Vertex in Vertex Data for Vector C
----4 BYTES (DWORD) - Index to Normal in Vertex Data for Vector C
--Texture Data
---For Each Vertex
----4 BYTES (FLOAT) - U Value of Texture
----4 BYTES (FLOAT) - V Value of Texture

Back to top

Profile PM

Arkheii

21

Years of Service

User Offline

Joined: 15th Jun 2003

Location: QC, Philippines

Posted: 8th Jun 2004 19:53 Edited at: 8th Jun 2004 20:15

Link

Sorry for double posting, but I think I just discovered something interesting enough to deserve a bump to get attention, as I could use some help...

edit: lol I misread the numbers. Nevermind, I guess it was just my routine, it wasn't calculating the size correctly, but I've yet to trace the problem.

btw, 100*100 matrix with hardly any slowdowns. Me likes!

Back to top

Profile PM

David T

Retired Moderator

22

Years of Service

User Offline

Joined: 27th Aug 2002

Location: England

Posted: 8th Jun 2004 20:42

Link

Quote: "there's a little problem with "make object object(mem),object(mem)". DBCE doesn't let to use "make object" alone, it must be a make object cube, sphere, plain or something like that."

It's just make object because it's using a mesh to make an object I think.

Two strings walk into a bar. I'll have a pint says the first$%ASLDJ09920D"$"$D. Excuse my friend says the second, he isn't null terminated.

Back to top

Profile PM Email Website

Arkheii

21

Years of Service

User Offline

Joined: 15th Jun 2003

Location: QC, Philippines

Posted: 8th Jun 2004 20:51

Link

*Blam this piece of crap!!!*

I am so annoyed... I have no idea why DB allows me to make small memblock matrices, but not bigger ones unless I explicitly give make memblock a big number like 128000000, and even then it limits me to around 100*100 matrices. But I'll think of a solution tomorrow. I mean, later this morning... much much later this morning... or this afternoon... *yawn*

Back to top

Profile PM

DARKGuy

21

Years of Service

User Offline

Joined: 28th Nov 2003

Location:

Posted: 9th Jun 2004 04:00

Link

whoooooooo at last this code can be done in DBC!!! whooooo better matrices!!

Quote: "btw, 100*100 matrix with hardly any slowdowns. Me likes!"

Me likes too

Quote: "New forum!!
http://darkbasicforum.proboards3.com"

Back to top

Profile PM Email

Arkheii

21

Years of Service

User Offline

Joined: 15th Jun 2003

Location: QC, Philippines

Posted: 10th Jun 2004 10:28 Edited at: 10th Jun 2004 10:39

Link

This is the bastard so far, after rewriting 3 times... No UV's or proper normals yet as I'm too lazy and I want to get this to run huge matrices first...

function makeMemMatrix(memNum,width#,depth#,tilesX,tilesZ)
if memblock exist(memNum) = 1
   exitfunction
else
   vertNum = (tilesX * tilesZ) * 4
   faceNum = (tilesX * tilesZ) * 2

vertOffset = 32
   normNum = vertNum
   normOffset = 32+(vertNum*12)
   faceOffset = 32+(vertNum*12)+(vertNum*12)
   faceSize = 28*faceNum
   UVOffset = 32+(vertNum*12)+(vertNum*12)+(28*faceNum)

memSize = 32 + (12*vertNum) + (12*vertNum) + (28*faceNum) + (8*vertNum)

make memblock memNum,memSize
`Want a 100*100 matrix? rem the last line and use this instead:
`   make memblock memNum,128000000

write memblock dword 1,0,vertNum
   write memblock dword 1,4,vertOffset
   write memblock dword 1,8,normNum
   write memblock dword 1,12,normOffset
   write memblock dword 1,16,faceNum
   write memblock dword 1,20,faceOffset
   write memblock dword 1,24,faceSize
   write memblock dword 1,28,UVOffset

vertCtr = 0
   faceCtr = 0
   tileWidth# = width#/(tilesX*1.0)
   tileDepth# = depth#/(tilesZ*1.0)

for cx = 0 to tilesX-1
      for cz = 0 to tilesZ-1
         `FACE1
         `    b
         `  / |
         `a - c
         `FACE2
         `c - a
         `| /
         `b

write memblock float memNum,vertOffset+(vertCtr*12),cx*tileWidth#
         write memblock float memNum,vertOffset+(vertCtr*12)+4,0.0
         write memblock float memNum,vertOffset+(vertCtr*12)+8,cz*tileDepth#

write memblock float memNum,normOffset+(vertCtr*12),cx*tileWidth#
         write memblock float memNum,normOffset+(vertCtr*12)+4,1.0
         write memblock float memNum,normOffset+(vertCtr*12)+8,cz*tileDepth#
         fvert1=vertCtr
         inc vertCtr

write memblock float memNum,vertOffset+(vertCtr*12),(cx+1)*tileWidth#
         write memblock float memNum,vertOffset+(vertCtr*12)+4,0.0
         write memblock float memNum,vertOffset+(vertCtr*12)+8,cz*tileDepth#

write memblock float memNum,normOffset+(vertCtr*12),(cx+1)*tileWidth#
         write memblock float memNum,normOffset+(vertCtr*12)+4,1.0
         write memblock float memNum,normOffset+(vertCtr*12)+8,cz*tileDepth#
         fvert2=vertCtr
         inc vertCtr

write memblock float memNum,vertOffset+(vertCtr*12),cx*tileWidth#
         write memblock float memNum,vertOffset+(vertCtr*12)+4,0.0
         write memblock float memNum,vertOffset+(vertCtr*12)+8,(cz+1)*tileDepth#

write memblock float memNum,normOffset+(vertCtr*12),cx*tileWidth#
         write memblock float memNum,normOffset+(vertCtr*12)+4,1.0
         write memblock float memNum,normOffset+(vertCtr*12)+8,(cz+1)*tileDepth#
         fvert3=vertCtr
         inc vertCtr

write memblock float memNum,vertOffset+(vertCtr*12),(cx+1)*tileWidth#
         write memblock float memNum,vertOffset+(vertCtr*12)+4,0.0
         write memblock float memNum,vertOffset+(vertCtr*12)+8,(cz+1)*tileDepth#

write memblock float memNum,normOffset+(vertCtr*12),(cx+1)*tileWidth#
         write memblock float memNum,normOffset+(vertCtr*12)+4,1.0
         write memblock float memNum,normOffset+(vertCtr*12)+8,(cz+1)*tileDepth#
         fvert4=vertCtr
         inc vertCtr

write memblock dword memNum,faceOffset+(faceCtr*28),3
         write memblock dword memNum,faceOffset+(faceCtr*28)+4,fvert1
         write memblock dword memNum,faceOffset+(faceCtr*28)+8,fvert1
         write memblock dword memNum,faceOffset+(faceCtr*28)+12,fvert4
         write memblock dword memNum,faceOffset+(faceCtr*28)+16,fvert4
         write memblock dword memNum,faceOffset+(faceCtr*28)+20,fvert2
         write memblock dword memNum,faceOffset+(faceCtr*28)+24,fvert2
         inc faceCtr

write memblock dword memNum,faceOffset+(faceCtr*28),3
         write memblock dword memNum,faceOffset+(faceCtr*28)+4,fvert4
         write memblock dword memNum,faceOffset+(faceCtr*28)+8,fvert4
         write memblock dword memNum,faceOffset+(faceCtr*28)+12,fvert1
         write memblock dword memNum,faceOffset+(faceCtr*28)+16,fvert1
         write memblock dword memNum,faceOffset+(faceCtr*28)+20,fvert3
         write memblock dword memNum,faceOffset+(faceCtr*28)+24,fvert3
         inc faceCtr

next cz
   next cx
endif

+ Code Snippet

function makeMemMatrix(memNum,width#,depth#,tilesX,tilesZ)
if memblock exist(memNum) = 1
   exitfunction
else
   vertNum = (tilesX * tilesZ) * 4
   faceNum = (tilesX * tilesZ) * 2

   vertOffset = 32
   normNum = vertNum
   normOffset = 32+(vertNum*12)
   faceOffset = 32+(vertNum*12)+(vertNum*12)
   faceSize = 28*faceNum
   UVOffset = 32+(vertNum*12)+(vertNum*12)+(28*faceNum)

   memSize = 32 + (12*vertNum) + (12*vertNum) + (28*faceNum) + (8*vertNum)

   make memblock memNum,memSize
`Want a 100*100 matrix? rem the last line and use this instead:
`   make memblock memNum,128000000

   write memblock dword 1,0,vertNum
   write memblock dword 1,4,vertOffset
   write memblock dword 1,8,normNum
   write memblock dword 1,12,normOffset
   write memblock dword 1,16,faceNum
   write memblock dword 1,20,faceOffset
   write memblock dword 1,24,faceSize
   write memblock dword 1,28,UVOffset

   vertCtr = 0
   faceCtr = 0
   tileWidth# = width#/(tilesX*1.0)
   tileDepth# = depth#/(tilesZ*1.0)

   for cx = 0 to tilesX-1
      for cz = 0 to tilesZ-1
         `FACE1
         `    b
         `  / |
         `a - c
         `FACE2
         `c - a
         `| /
         `b

         write memblock float memNum,vertOffset+(vertCtr*12),cx*tileWidth#
         write memblock float memNum,vertOffset+(vertCtr*12)+4,0.0
         write memblock float memNum,vertOffset+(vertCtr*12)+8,cz*tileDepth#

         write memblock float memNum,normOffset+(vertCtr*12),cx*tileWidth#
         write memblock float memNum,normOffset+(vertCtr*12)+4,1.0
         write memblock float memNum,normOffset+(vertCtr*12)+8,cz*tileDepth#
         fvert1=vertCtr
         inc vertCtr

         write memblock float memNum,vertOffset+(vertCtr*12),(cx+1)*tileWidth#
         write memblock float memNum,vertOffset+(vertCtr*12)+4,0.0
         write memblock float memNum,vertOffset+(vertCtr*12)+8,cz*tileDepth#

         write memblock float memNum,normOffset+(vertCtr*12),(cx+1)*tileWidth#
         write memblock float memNum,normOffset+(vertCtr*12)+4,1.0
         write memblock float memNum,normOffset+(vertCtr*12)+8,cz*tileDepth#
         fvert2=vertCtr
         inc vertCtr

         write memblock float memNum,vertOffset+(vertCtr*12),cx*tileWidth#
         write memblock float memNum,vertOffset+(vertCtr*12)+4,0.0
         write memblock float memNum,vertOffset+(vertCtr*12)+8,(cz+1)*tileDepth#

         write memblock float memNum,normOffset+(vertCtr*12),cx*tileWidth#
         write memblock float memNum,normOffset+(vertCtr*12)+4,1.0
         write memblock float memNum,normOffset+(vertCtr*12)+8,(cz+1)*tileDepth#
         fvert3=vertCtr
         inc vertCtr

         write memblock float memNum,vertOffset+(vertCtr*12),(cx+1)*tileWidth#
         write memblock float memNum,vertOffset+(vertCtr*12)+4,0.0
         write memblock float memNum,vertOffset+(vertCtr*12)+8,(cz+1)*tileDepth#

         write memblock float memNum,normOffset+(vertCtr*12),(cx+1)*tileWidth#
         write memblock float memNum,normOffset+(vertCtr*12)+4,1.0
         write memblock float memNum,normOffset+(vertCtr*12)+8,(cz+1)*tileDepth#
         fvert4=vertCtr
         inc vertCtr

         write memblock dword memNum,faceOffset+(faceCtr*28),3
         write memblock dword memNum,faceOffset+(faceCtr*28)+4,fvert1
         write memblock dword memNum,faceOffset+(faceCtr*28)+8,fvert1
         write memblock dword memNum,faceOffset+(faceCtr*28)+12,fvert4
         write memblock dword memNum,faceOffset+(faceCtr*28)+16,fvert4
         write memblock dword memNum,faceOffset+(faceCtr*28)+20,fvert2
         write memblock dword memNum,faceOffset+(faceCtr*28)+24,fvert2
         inc faceCtr

         write memblock dword memNum,faceOffset+(faceCtr*28),3
         write memblock dword memNum,faceOffset+(faceCtr*28)+4,fvert4
         write memblock dword memNum,faceOffset+(faceCtr*28)+8,fvert4
         write memblock dword memNum,faceOffset+(faceCtr*28)+12,fvert1
         write memblock dword memNum,faceOffset+(faceCtr*28)+16,fvert1
         write memblock dword memNum,faceOffset+(faceCtr*28)+20,fvert3
         write memblock dword memNum,faceOffset+(faceCtr*28)+24,fvert3
         inc faceCtr

      next cz
   next cx
endif

Call that, then use make mesh from memblock and make object.

And it _still_ has the same problems. When the matrix resolution is small (ie. 20*20) it works fine. It can't handle bigger resolutions though, like 50*50 or 100*100 unless you replace the memSize with a huge number (128000000 like I mentioned, or even bigger). A 100*100 matrix takes a while to load, but the FPS is fast. I need help. Badly. I'm assuming that I'm writing the mesh correctly, because small matrices work.

Back to top

Profile PM

DARKGuy

21

Years of Service

User Offline

Joined: 28th Nov 2003

Location:

Posted: 10th Jun 2004 19:41

Link

Awesome work arkheii! I'be glad to help but I can't because wireframe objects restart my PC :S until it gets textured, I can't see anything, but for the code I'm seeing, is great

whooooo better matrixes for dbc!

Quote: "New forum!!
http://darkbasicforum.proboards3.com"

Back to top

Profile PM Email

Phaelax

DBPro Master

22

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 10th Jun 2004 23:56

Link

Lemme install DBC and see why it's giving you problems with large numbers.

"eureka" - Archimedes

Back to top

Profile PM Email Website

Arkheii

21

Years of Service

User Offline

Joined: 15th Jun 2003

Location: QC, Philippines

Posted: 11th Jun 2004 05:55

Link

@DarkGuy: It's not a wireframe object, that func only generates the memblock. You then make a mesh from that then you make an object from that mesh. It's gonna look like a giant white plain (until you wireframe it, then you'd see the subdivisions).

@Phaelax: So you do have DBC afterall.

Might as well let the memblock expert do this, since I've never fiddled enough with things like this.

Back to top

Profile PM

Phaelax

DBPro Master

22

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 12th Jun 2004 23:33

Link

well, i found my enhancement cd. can't find the actual classic disc though. think i let someone borrow it.

"eureka" - Archimedes

Back to top

Profile PM Email Website

DARKGuy

21

Years of Service

User Offline

Joined: 28th Nov 2003

Location:

Posted: 13th Jun 2004 08:11

Link

ohhhhhhhh nice

Quote: "New forum!!
http://darkbasicforum.proboards3.com"

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / Converting memblock matrix from DBP to DBCE