TheGameCreators - CodeBase - .x file exporter

Category: Mesh

Version: 1.0

Information

Uploaded: 23rd Mar 2009 01:50

Modified: 25th Mar 2009 00:17

Author: Visigoth

Summary

some functions to export a limbed model from DBpro to .x file format. Retains limbs, unlike builtin command which just makes one big mesh. So, you can build say a tile based terrain and save it out with all the tiled limbs intact. exported file loads up into milkshape and directx viewer fine.

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

function export_to_x2(filename$ as string,id)

limbs = 0

repeat

inc limbs,1

until limb exist(id,limbs) = 0

if file exist(filename$)

delete file filename$

open to write 1,filename$

else

open to write 1,filename$

endif

write string 1,"xof 0303txt 0032"

write string 1,"// xfile exporter by Mike Shihrer, aka Visigoth"

write string 1,""

cl = (limbs - 1)

for i = 0 to (limbs - 1)

get_frame_data(id,cl)

dec cl,1

next i

close file 1

endfunction

function get_frame_data(id,lc)

write string 1," Frame Limb_" + str$(lc) + " {"  // open frame

write string 1,"  FrameTransformMatrix {"

write string 1,"  1.000000, 0.000000, 0.000000, 0.000000,"

write string 1,"  0.000000, 1.000000, 0.000000, 0.000000,"

write string 1,"  0.000000, 0.000000, 1.000000, 0.000000,"

write string 1,"  " + str$(limb position x(id,lc),6) + ", " +  str$(limb position y(id,lc),6) + ", " + str$(limb position z(id,lc),6) + ", 1.000000;;"

write string 1,"  }"

write string 1," "

write string 1," Mesh Limb_" + str$(lc) + " {"  //open mesh

get_mesh_data(id,lc)

write string 1," "

write string 1," MeshNormals {"

get_normals_data(id,lc)

write string 1," }"

write string 1," "

write string 1," MeshTextureCoords {"

get_texcoord_data(id,lc)

write string 1," }"

write string 1," "

write string 1," MeshVertexColors {"

get_color_data(id,lc)

write string 1," }"

write string 1," "

write string 1," MeshMaterialList {" //open mesh material list

write string 1," 1;"

lock vertexdata for limb id,lc

write string 1,"  " + str$((get vertexdata index count()/3)) + ";"

for ii = 1 to (get vertexdata index count() / 3)

write string 1," 0;"

next ii

unlock vertexdata

write string 1,"  Material Mat_Limb_" + str$(lc) + "{"

write string 1,"  1.000000,1.000000,1.000000,1.000000;;"

write string 1,"  1.000000;"

write string 1,"  0.000000,0.000000,0.000000;;"

write string 1,"   TextureFileName {"

write string 1,"  " + chr$(34) + limb texture name(id,lc) + chr$(34) + ";"

write string 1,"   }" //close texture

write string 1,"  }" //close material name

write string 1,"  }" // close material list

write string 1," }" //close mesh

write string 1,"}" //close frame

endfunction

function get_mesh_data(id,limb)

lock vertexdata for limb id,limb

verts = get vertexdata vertex count()

indexes = get vertexdata index count()

faces = indexes / 3

write string 1,"  " + str$(verts) + ";"

for i = 0 to (verts - 2)

write string 1,"  " + str$(get vertexdata position x(i),6) + "," + str$(get vertexdata position y(i),6) + "," + str$(get vertexdata position z(i),6) + ";,"

next i

write string 1,"  " + str$(get vertexdata position x(i),6) + "," + str$(get vertexdata position y(i),6) + "," + str$(get vertexdata position z(i),6) + ";;"

write string 1,"  " + str$(faces) + ";"

for i = 0 to (indexes - 6) step 3

write string 1,"  3;" + str$(get indexdata(i)) + "," +  str$(get indexdata(i + 1)) + "," + str$(get indexdata(i + 2)) + ";,"

next i

write string 1,"  3;" + str$(get indexdata(i)) + "," +  str$(get indexdata(i + 1)) + "," + str$(get indexdata(i + 2)) + ";;"

unlock vertexdata

endfunction

function get_normals_data(id,limb)

lock vertexdata for limb id,limb

verts = get vertexdata vertex count()

indexes = get vertexdata index count()

faces = indexes / 3

write string 1,"  " + str$(verts) + ";"

for i = 0 to (verts - 2)

write string 1,"  " + str$(get vertexdata normals x(i),6) + "," + str$(get vertexdata normals y(i),6) + "," + str$(get vertexdata normals z(i),6) + ";,"

next i

write string 1,"  " + str$(get vertexdata normals x(i),6) + "," + str$(get vertexdata normals y(i),6) + "," + str$(get vertexdata normals z(i),6) + ";;"

write string 1,"  " + str$(faces) + ";"

for i = 0 to (indexes - 6) step 3

write string 1,"  3;" + str$(get indexdata(i)) + "," +  str$(get indexdata(i + 1)) + "," + str$(get indexdata(i + 2)) + ";,"

next i

write string 1,"  3;" + str$(get indexdata(i)) + "," +  str$(get indexdata(i + 1)) + "," + str$(get indexdata(i + 2)) + ";;"

unlock vertexdata

endfunction

function get_texcoord_data(id,limb)

lock vertexdata for limb id,limb

verts = get vertexdata vertex count()

write string 1,"  " + str$(verts) + ";"

for i = 0 to (verts - 2)

write string 1,"  " + str$(get vertexdata u(i),6) + "," + str$(get vertexdata v(i),6) + ";,"

next i

write string 1,"  " + str$(get vertexdata u(i),6) + "," + str$(get vertexdata v(i),6) + ";;"

unlock vertexdata

endfunction

function get_color_data(id,limb)

color as dword

lock vertexdata for limb id,limb

verts = get vertexdata vertex count()

write string 1,"  " + str$(verts) + ";"

for i = 0 to (verts - 2)

color = get vertexdata diffuse(i)

write string 1,"  " + str$(i)+ ";" + str$(rgbr(color),6) + ";" + str$(rgbg(color),6) + ";" + str$(rgbb(color),6) + ";1.000000;;,"

next i

write string 1,"  " + str$(i)+ ";" + str$(rgbr(color),6) + ";" + str$(rgbg(color),6) + ";" + str$(rgbb(color),6) + ";1.000000;;;"

Author Name:	Visigoth
CodeBase Entries:	18

CodeBase - .x file exporter

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments