XeNTaX

Code: Select all

#include "xentax.h"
#include "x_file.h"
#include "x_win32.h"
#include "x_stream.h"
using namespace std;

// HieLay 0x2A80

struct treenode {
 real32 m[16];
 real32 x;
 real32 y;
 real32 z;
 uint32 parent;
 deque<uint32> children;
};

bool traverse_tree(deque<treenode>& tree, uint32 root)
{
 // get parent
 uint32 parent = tree[root].parent;

 // get relative position
 real32 x = tree[root].m[12];
 real32 y = tree[root].m[13];
 real32 z = tree[root].m[14];
 tree[root].x = x;
 tree[root].y = y;
 tree[root].z = z;

 // relative-to-absolute position
 if(parent != 0xFFFFFFFF) {
    tree[root].x += tree[parent].x;
    tree[root].y += tree[parent].y;
    tree[root].z += tree[parent].z;
   }

 // DFS
 for(size_t i = 0; i < tree[root].children.size(); i++)
     traverse_tree(tree, tree[root].children[i]);

 return true;
}

bool TestDOA5(void)
{
 const char* filename = "HITOMI_DLC_006.TMC";
 ifstream ifile(filename, ios::binary);
 if(!ifile) return error("1");

 // move to HieLay
 uint32 hielayoffset = 0x2A80;
 ifile.seekg(hielayoffset);
 if(ifile.fail()) return error("2");

 // read magic number
 auto magic = BE_read_uint64(ifile);
 if(magic != 0x4869654C61790000L) return error("3");

 // read signature
 auto signature = BE_read_uint32(ifile);
 if(signature != 0xFF000101) return error("4");

 // read headersize
 auto headersize = BE_read_uint32(ifile);
 if(headersize != 0x30) return error("5");

 // read chunksize
 auto chunksize = BE_read_uint32(ifile);
 if(chunksize == 0) return error("6");

 // read number of joints
 auto njoints1 = BE_read_uint32(ifile);
 auto njoints2 = BE_read_uint32(ifile);
 if(njoints1 == 0) return error("7");
 if(njoints2 == 0) return error("8");
 if(njoints1 != njoints2) return error("9");

 // read zero
 auto z01 = BE_read_uint32(ifile);
 if(ifile.fail()) return error("10");

 // read headersize #2
 auto headersize2 = BE_read_uint32(ifile);
 if(headersize2 != 0x30) return error("11a");
 if(headersize != headersize2) return error("11b");

 // read zero
 auto z02 = BE_read_uint32(ifile);
 if(ifile.fail()) return error("12");

 // read offset to matrices
 auto moffset = BE_read_uint32(ifile);
 if(moffset == 0) return error("13");

 // read zero
 auto z03 = BE_read_uint32(ifile);
 if(ifile.fail()) return error("14");

 // move back to the beginning
 ifile.seekg(hielayoffset);
 if(ifile.fail()) return error("15");

 // read hielay section
 boost::shared_array<char> data(new char[chunksize]);
 ifile.read(data.get(), chunksize);
 if(ifile.fail()) return error("16");

 // create binary stream
 binary_stream bs(data, chunksize);

 // move to matrix offsets
 bs.seek(headersize);
 if(bs.fail()) return error("17");

 // read offsets
 deque<uint32> offsets;
 for(auto i = 0u; i < njoints1; i++) {
     auto item = bs.BE_read_uint32();
     if(item == 0) return error("18");
     offsets.push_back(item);
    }

 // read adjacency list
 deque<treenode> adjlist;
 for(auto i = 0u; i < njoints1; i++)
    {
     // move to data
     bs.seek(offsets[i]);
     if(bs.fail()) return error("19");

     // read matrix
     treenode node;
     bs.BE_read_array(&node.m[0], 16);
     if(bs.fail()) return error("20");

     // x, y, z
     auto x = node.m[12];
     auto y = node.m[13];
     auto z = node.m[14];

     // parent
     node.parent = bs.BE_read_uint32();
     if(bs.fail()) return error("21");

     // children
     auto children = bs.BE_read_uint32();
     if(bs.fail()) return error("22");

     // unknowns
     auto unk01 = bs.BE_read_uint32();
     auto unk02 = bs.BE_read_uint32();
     if(bs.fail()) return error("23");

     // children
     for(auto j = 0u; j < children; j++) {
         auto index = bs.BE_read_uint32();
         if(bs.fail()) return error("24");
         node.children.push_back(index);
        }

     // add node
     adjlist.push_back(node);
    }

 // traverse tree to compute relative to absolute
 traverse_tree(adjlist, 0);

 // create output file
 stringstream ss;
 ss << GetPathnameFromFilename(filename) << GetShortFilenameWithoutExtension(filename) << ".OBJ";
 ofstream ofile(ss.str().c_str());
 if(!ofile) return error("25");

 // print vertices
 for(size_t i = 0; i < adjlist.size(); i++) {
     real32 x = adjlist[i].x;
     real32 y = adjlist[i].y;
     real32 z = adjlist[i].z;
     ofile << "v " << x << " " << y << " " << z << endl;
    }

 // print faces
 for(size_t i = 0; i < adjlist.size(); i++) {
     for(size_t j = 0; j < adjlist[i].children.size(); j++) {
         uint32 a = i + 1;
         uint32 b = adjlist[i].children[j] + 1;
         ofile << "f " << a << " " << b << endl;
        }
    }

 return true;
}

int main()
{
 TestDOA5();
 return 0;
}