TheGameCreators - CodeBase - VXV (x file exporter )

Return to the CodeBase listing

Category: Basic 3D

Version: 1.0

Information

Uploaded: 14th Sep 2003 10:08

Modified: 14th Sep 2003 10:15

Author: Dr OcCuLt

Summary

this lets you exporter x file from DBpro ( this do not do animation )

Full Description

this is a set of FUNCTION for makeing exporting .x file in DBpro you must have the media tool kit to run the any of the FUNCTION. you can get a copy from the codebase. saver_test: this start a demo where DB exports a cube as a X file saver_setup: this dim all the arryas thet VXV needs.IF THE DO NOT CALL THIS NO OF THE FUNCTION WILL WORK! saver_add(tag as Integer,skin as Integer,x as Float,y as Float,z as Float ): this add a object to the object buffer. where tag in the object number , sikn is the Material number and x y and z is the objects POSITION. FUNCTION Material_add(file as string,name as string ): this add a TEXTURE to the Material buffer where file is the file name of the texture and name is the of the Material (Material must have it own name thay can not be number ie."1" but numbers can be uesed "TEXTURE1" ) the Material you enetr 1st is Material number=0 for the 2nd is Material number=1 and so on. saver_SAVE(NAME AS STRING ): this will save all the objects in the object buffer to the file NAME if the file name exits it will be copyed over.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

saver_test:

gosub saver_setup

Material_add("brick1_t.BMP","brink01")

n=new_obj()

make object cube n,10

saver_add(N,0,OBJECT POSITION X(N),OBJECT POSITION y(N),OBJECT POSITION z(N))

saver_SAVE("cube.X")

RETURN

saver_setup:

type color_t

r as Float

b as Float

g as Float

A as Float

endtype

type Material_t

FACE AS color_t

POWER as Float

specular AS color_t

emissive AS color_t

file as string

name as string

endtype

type vex3_t

x as Float

y as Float

z as Float

endtype

type vex2_t

u as Float

v as Float

endtype

type vexP_t

pos as vex3_t

nol as vex3_t

uv as vex2_t

endtype

type pol_t

vexA as vexP_t

vexB as vexP_t

vexC as vexP_t

skin as Integer

endtype

dim pol(5000) as pol_t

GLOBAL pol_num as Integer:pol_num=0

DIM VEX(5000) AS vex3_t

GLOBAL VEX_num as Integer:VEX_num=0

DIM LINKS(100) as Integer

DIM UVMAP(100) AS vex2_t

DIM MAT(50) AS Material_t

GLOBAL mat_num as Integer:mat_num=0

GLOBAL VAL_F as FLOAT

RETURN

FUNCTION saver_add(tag as Integer,skin as Integer,x as Float,y as Float,z as Float )

CONVERT OBJECT FVF tag,338

M=NEW_MESH()

MAKE MESH FROM OBJECT M,tag

MEM=NEW_MEMBLOCK()

MAKE MEMBLOCK FROM MESH MEM,M

VS=MEMBLOCK DWORD(MEM,4)

s=MEMBLOCK DWORD(MEM,8)

k=12

p=s/3

rem   PRINT "S=";S;" P=";P

rem   SYNC

WAIT KEY

for i=1 to p

pol_num=pol_num+1

pol(pol_num).vexA.pos.x=MEMBLOCK FLOAT(MEM,k)+x

pol(pol_num).vexA.pos.y=MEMBLOCK FLOAT(MEM,k+4)+y

pol(pol_num).vexA.pos.z=MEMBLOCK FLOAT(MEM,k+8)+z

pol(pol_num).vexA.nol.x=MEMBLOCK FLOAT(MEM,k+12)

pol(pol_num).vexA.nol.y=MEMBLOCK FLOAT(MEM,k+16)

pol(pol_num).vexA.nol.z=MEMBLOCK FLOAT(MEM,k+20)

pol(pol_num).vexA.UV.u=MEMBLOCK FLOAT(MEM,k+28)

pol(pol_num).vexA.UV.v=MEMBLOCK FLOAT(MEM,k+32)

k=VS+K

pol(pol_num).vexB.pos.x=MEMBLOCK FLOAT(MEM,k)+x

pol(pol_num).vexB.pos.y=MEMBLOCK FLOAT(MEM,k+4)+y

pol(pol_num).vexB.pos.z=MEMBLOCK FLOAT(MEM,k+8)+z

pol(pol_num).vexB.nol.x=MEMBLOCK FLOAT(MEM,k+12)

pol(pol_num).vexB.nol.y=MEMBLOCK FLOAT(MEM,k+16)

pol(pol_num).vexB.nol.z=MEMBLOCK FLOAT(MEM,k+20)

pol(pol_num).vexB.UV.u=MEMBLOCK FLOAT(MEM,k+28)

pol(pol_num).vexB.UV.v=MEMBLOCK FLOAT(MEM,k+32)

k=VS+k

pol(pol_num).vexC.pos.x=MEMBLOCK FLOAT(MEM,k)+x

pol(pol_num).vexC.pos.y=MEMBLOCK FLOAT(MEM,k+4)+y

pol(pol_num).vexC.pos.z=MEMBLOCK FLOAT(MEM,k+8)+z

pol(pol_num).vexC.nol.x=MEMBLOCK FLOAT(MEM,k+12)

pol(pol_num).vexC.nol.y=MEMBLOCK FLOAT(MEM,k+16)

pol(pol_num).vexC.nol.z=MEMBLOCK FLOAT(MEM,k+20)

pol(pol_num).vexC.UV.u=MEMBLOCK FLOAT(MEM,k+28)

pol(pol_num).vexC.UV.v=MEMBLOCK FLOAT(MEM,k+32)

k=VS+k

pol(pol_num).skin=skin

next i

delete MEMBLOCK MEM

delete MESH m

endFUNCTION

FUNCTION saver_SAVE(NAME AS STRING )

if FILE EXIST(name)=1 then DELETE FILE name

IO=NEW_FILE()

OPEN TO WRITE IO,NAME

rem   WRITE STRING IO,"test"

WRITE STRING IO,"xof 0302txt 0032"

WRITE STRING IO,"template XSkinMeshHeader {"

WRITE STRING IO,"<3cf169ce-ff7c-44ab-93c0-f78f62d172e2>"

WRITE STRING IO,"WORD nMaxSkinWeightsPerVertex;"

WRITE STRING IO,"WORD nMaxSkinWeightsPerFace;"

WRITE STRING IO,"WORD nBones;"

WRITE STRING IO,"}"

WRITE STRING IO,"template SkinWeights {"

WRITE STRING IO,"<6f0d123b-bad2-4167-a0d0-80224f25fabb>"

WRITE STRING IO,"STRING transformNodeName;"

WRITE STRING IO,"DWORD nWeights;"

WRITE STRING IO,"array DWORD vertexIndices[nWeights];"

WRITE STRING IO,"array FLOAT weights[nWeights];"

WRITE STRING IO,"Matrix4x4 matrixOffset;"

WRITE STRING IO,"}"

WRITE STRING IO,"template VertexElement {"

WRITE STRING IO,"<f752461c-1e23-48f6-b9f8-8350850f336f>"

WRITE STRING IO,"DWORD Type;"

WRITE STRING IO,"DWORD Method;"

WRITE STRING IO,"DWORD Usage;"

WRITE STRING IO,"DWORD UsageIndex;"

WRITE STRING IO,"}"

for i=1 to mat_num

WRITE STRING IO,"Material "+MAT(i).name+" {"

temp$=STR_ROD(MAT(i).FACE.R)+";"

temp$=TEMP$+STR_ROD(MAT(i).FACE.G)+";"

temp$=TEMP$+STR_ROD(MAT(i).FACE.B)+";"

temp$=TEMP$+STR_ROD(MAT(i).FACE.A)+";;"

WRITE STRING IO,temp$

WRITE STRING IO,STR_ROD(MAT(i).power)+";"

rem MAT(mat_num).power=2.143547

temp$=STR_ROD(MAT(i).specular.R)+";"

temp$=TEMP$+STR_ROD(MAT(i).specular.G)+";"

temp$=TEMP$+STR_ROD(MAT(i).specular.B)+";;"

WRITE STRING IO,temp$

temp$=STR_ROD(MAT(i).emissive.R)+";"

temp$=TEMP$+STR_ROD(MAT(i).emissive.G)+";"

temp$=TEMP$+STR_ROD(MAT(i).emissive.B)+";;"

WRITE STRING IO,temp$

WRITE STRING IO,"TextureFilename {"

temp$=CHR$(34)+MAT(i).file+CHR$(34)+";"

WRITE STRING IO,temp$

WRITE STRING IO,"}}"

next i

WRITE STRING IO,"Frame Frame01 {"

WRITE STRING IO,"FrameTransformMatrix {"

WRITE STRING IO,"1.000000,0.000000,0.000000,0.000000,"

WRITE STRING IO,"0.000000,1.000000,0.000000,0.000000,"

WRITE STRING IO,"0.000000,0.000000,1.000000,0.000000,"

WRITE STRING IO,"0.000000,0.000000,0.000000,1.000000;;"

WRITE STRING IO,"}"

WRITE STRING IO,"Mesh Mesh01 {"

WRITE STRING IO,STR$(pol_num*3)+";"

FOR I=1 TO pol_num

TEMP$=STR_ROD(pol(i).vexA.pos.X)+";"

TEMP$=TEMP$+STR_ROD(pol(i).vexA.pos.Y)+";"

TEMP$=TEMP$+STR_ROD(pol(i).vexA.pos.Z)+";,"

WRITE STRING IO,temp$

TEMP$=STR_ROD(pol(i).vexB.pos.X)+";"

TEMP$=TEMP$+STR_ROD(pol(i).vexB.pos.Y)+";"

TEMP$=TEMP$+STR_ROD(pol(i).vexB.pos.Z)+";,"

WRITE STRING IO,temp$

TEMP$=STR_ROD(pol(i).vexC.pos.X)+";"

TEMP$=TEMP$+STR_ROD(pol(i).vexC.pos.Y)+";"

TEMP$=TEMP$+STR_ROD(pol(i).vexC.pos.Z)+";"

IF I=pol_num

TEMP$=TEMP$+";"

ELSE

TEMP$=TEMP$+","

ENDIF

WRITE STRING IO,temp$

NEXT I

WRITE STRING IO,STR$(pol_num)+";"

v=0

FOR I=1 TO pol_num

TEMP$="3;"+STR$(v)+","+STR$(v+1)+","+STR$(v+2)+";"

v=v+3

IF I=pol_num

TEMP$=TEMP$+";"

ELSE

TEMP$=TEMP$+","

ENDIF

WRITE STRING IO,temp$

NEXT I

WRITE STRING IO,"MeshNormals {"

WRITE STRING IO,STR$(pol_num*3)+";"

FOR I=1 TO pol_num

TEMP$=STR_ROD(pol(i).vexA.nol.X)+";"

TEMP$=TEMP$+STR_ROD(pol(i).vexA.nol.Y)+";"

TEMP$=TEMP$+STR_ROD(pol(i).vexA.nol.Z)+";,"

WRITE STRING IO,temp$

TEMP$=STR_ROD(pol(i).vexB.nol.X)+";"

TEMP$=TEMP$+STR_ROD(pol(i).vexB.nol.Y)+";"

TEMP$=TEMP$+STR_ROD(pol(i).vexB.nol.Z)+";,"

WRITE STRING IO,temp$

TEMP$=STR_ROD(pol(i).vexC.nol.X)+";"

TEMP$=TEMP$+STR_ROD(pol(i).vexC.nol.Y)+";"

TEMP$=TEMP$+STR_ROD(pol(i).vexC.nol.Z)+";"

IF I=pol_num

TEMP$=TEMP$+";"

ELSE

TEMP$=TEMP$+","

ENDIF

WRITE STRING IO,temp$

NEXT I

WRITE STRING IO,STR$(pol_num)+";"

v=0

FOR I=1 TO pol_num

TEMP$="3;"+STR$(v)+","+STR$(v+1)+","+STR$(v+2)+";"

v=v+3

IF I=pol_num

TEMP$=TEMP$+";"

ELSE

TEMP$=TEMP$+","

ENDIF

WRITE STRING IO,temp$

NEXT I

WRITE STRING IO,"}"

WRITE STRING IO,"MeshMaterialList {"

WRITE STRING IO,str$(mat_num)+";"

WRITE STRING IO,STR$(pol_num)+";"

FOR I=1 TO pol_num

TEMP$=STR$(pol(i).skin)

IF I=pol_num

TEMP$=TEMP$+";;"

ELSE

TEMP$=TEMP$+","

ENDIF

WRITE STRING IO,temp$

NEXT I

for i=1 to mat_num

WRITE STRING IO,"{"+MAT(i).name+"}"

next i

WRITE STRING IO,"}"

WRITE STRING IO,"MeshTextureCoords {"

WRITE STRING IO,STR$(pol_num*3)+";"

FOR I=1 TO pol_num

TEMP$=STR_ROD(pol(i).vexA.uv.u)+";"

TEMP$=TEMP$+STR_ROD(pol(i).vexA.uv.v)+";,"

WRITE STRING IO,temp$

TEMP$=STR_ROD(pol(i).vexB.uv.u)+";"

TEMP$=TEMP$+STR_ROD(pol(i).vexB.uv.v)+";,"

WRITE STRING IO,temp$

TEMP$=STR_ROD(pol(i).vexC.uv.u)+";"

TEMP$=TEMP$+STR_ROD(pol(i).vexC.uv.v)+";"

IF I=pol_num

TEMP$=TEMP$+";"

ELSE

TEMP$=TEMP$+","

ENDIF

WRITE STRING IO,temp$

NEXT I

WRITE STRING IO,"}}}"

REMSTART

for i=1 to p

pol_num=pol_num+1

pol(pol_num).vexA.pos.x=MEMBLOCK FLOAT(MEM,k)

pol(pol_num).vexA.pos.y=MEMBLOCK FLOAT(MEM,k+4)

pol(pol_num).vexA.pos.z=MEMBLOCK FLOAT(MEM,k+8)

pol(pol_num).vexA.nol.x=MEMBLOCK FLOAT(MEM,k+12)

pol(pol_num).vexA.nol.y=MEMBLOCK FLOAT(MEM,k+16)

pol(pol_num).vexA.nol.z=MEMBLOCK FLOAT(MEM,k+20)

pol(pol_num).vexA.UV.u=MEMBLOCK FLOAT(MEM,k+28)

pol(pol_num).vexA.UV.v=MEMBLOCK FLOAT(MEM,k+32)

k=VS+k

pol(pol_num).vexB.pos.x=MEMBLOCK FLOAT(MEM,k)

pol(pol_num).vexB.pos.y=MEMBLOCK FLOAT(MEM,k+4)

pol(pol_num).vexB.pos.z=MEMBLOCK FLOAT(MEM,k+8)

pol(pol_num).vexB.nol.x=MEMBLOCK FLOAT(MEM,k+12)

pol(pol_num).vexB.nol.y=MEMBLOCK FLOAT(MEM,k+16)

pol(pol_num).vexB.nol.z=MEMBLOCK FLOAT(MEM,k+20)

pol(pol_num).vexB.UV.u=MEMBLOCK FLOAT(MEM,k+28)

pol(pol_num).vexB.UV.v=MEMBLOCK FLOAT(MEM,k+32)

k=VS+k

pol(pol_num).vexC.pos.x=MEMBLOCK FLOAT(MEM,k)

pol(pol_num).vexC.pos.y=MEMBLOCK FLOAT(MEM,k+4)

pol(pol_num).vexC.pos.z=MEMBLOCK FLOAT(MEM,k+8)

pol(pol_num).vexC.nol.x=MEMBLOCK FLOAT(MEM,k+12)

pol(pol_num).vexC.nol.y=MEMBLOCK FLOAT(MEM,k+16)

pol(pol_num).vexC.nol.z=MEMBLOCK FLOAT(MEM,k+20)

pol(pol_num).vexC.UV.u=MEMBLOCK FLOAT(MEM,k+28)

pol(pol_num).vexC.UV.v=MEMBLOCK FLOAT(MEM,k+32)

k=VS+k

next i

pol(pol_num).skin=skin

REMEND

close file IO

endFUNCTION

FUNCTION Material_add(file as string,name as string )

mat_num=mat_num+1

MAT(mat_num).name=name

MAT(mat_num).FACE.R=0.8

MAT(mat_num).FACE.G=0.8

MAT(mat_num).FACE.B=0.8

MAT(mat_num).FACE.A=1.000000

MAT(mat_num).power=0.0

MAT(mat_num).specular.R=0

MAT(mat_num).specular.G=0

MAT(mat_num).specular.B=0

MAT(mat_num).emissive.R=0

MAT(mat_num).emissive.G=0

MAT(mat_num).emissive.B=0

MAT(mat_num).file=file

rem specular AS color_t

rem     emissive AS color_t

endFUNCTION

FUNCTION STR_ROD(V as FLOAT )

p=1

if V<>ABS(V)

P=-1

endif

V=ABS(V)

j=int(v*100000)-int(v*10000)*10

if j>5 then v=v+0.0001

a=int(v*10000)-int(v*1000)*10

a=ABS(a)

b=int(v*1000)-int(v*100)*10

b=ABS(b)

c=int(v*100)-int(v*10)*10

c=ABS(c)

d=int(v*10)-int(v)*10

d=ABS(d)

e=int(v)

temp$=STR$(e)+"."+STR$(d)+STR$(c)+STR$(b)+STR$(a)

if p=-1 then temp$="-"+temp$

endFUNCTION temp$

Download

Please login to download

Comments

No comments yet.

Author Name:	Dr OcCuLt
CodeBase Entries:	2

CodeBase - VXV (x file exporter )

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments