source: trunk/src/formats/md3_loader.cc @ 197

// Copyright (C) 2012-2013 ChaosForge / Kornel Kisielewicz
// http://chaosforge.org/
//
// This file is part of NV Libraries.
// For conditions of distribution and use, see copyright notice in nv.hh

#include "nv/formats/md3_loader.hh"

#include <glm/gtc/constants.hpp>
#include <glm/gtx/string_cast.hpp>
#include "nv/logging.hh"
#include <cstring>

using namespace nv;

// based on http://www.icculus.org/~phaethon/q3/formats/md3format.html#Surface

// assuming low-endian
#define MD3_MAGIC         "IDP3"
#define MD3_MAX_FRAMES    1024
#define MD3_MAX_TAGS      16
#define MD3_MAX_SURFACES  32
#define MD3_MAX_SHADERS   256
#define MD3_MAX_VERTS     4096
#define MD3_MAX_TRIANGLES 8192
#define MD3_XYZ_SCALE     (1.0f/64.0f)

struct md3_vec3_t
{
        float xyz[3];
};

struct md3_header_t
{
        char   ident[4]; // IDP3
        sint32 version;  // 15
        uint8  name[64]; // path name
        sint32 flags;
        sint32 num_frames;     // Number of Frame objects, with a maximum of MD3_MAX_FRAMES. Current value of MD3_MAX_FRAMES is 1024.
        sint32 num_tags;       // Number of Tag objects, with a maximum of MD3_MAX_TAGS. Current value of MD3_MAX_TAGS is 16.
        sint32 num_surfaces;   // Number of Surface objects, with a maximum of MD3_MAX_SURFACES. Current value of MD3_MAX_SURFACES is 32.
        sint32 num_skins;      // Number of Skin objects. I should note that I have not seen an MD3 using this particular field for anything; this appears to be an artifact from the Quake 2 MD2 format. Surface objects have their own Shader field.
        sint32 ofs_frames;     // Relative offset from start of MD3 object where Frame objects start. The Frame objects are written sequentially, that is, when you read one Frame object, you do not need to seek() for the next object.
        sint32 ofs_tags;       // Relative offset from start of MD3 where Tag objects start. Similarly written sequentially.
        sint32 ofs_surfaces;   // Relative offset from start of MD3 where Surface objects start. Again, written sequentially.
        sint32 ofs_eof;        // Relative offset from start of MD3 to the end of the MD3 object. Note there is no offset for Skin objects.
};

struct md3_frame_t
{
        md3_vec3_t min_bounds;
        md3_vec3_t max_bounds;
        md3_vec3_t local_origin;
        float      radius;
        uint8      name[16];
};

struct md3_tag_t
{
        uint8      name[64];
        md3_vec3_t origin;
        md3_vec3_t axis[3];
};

struct md3_surface_header_t
{
        char   ident[4]; // IDP3
        uint8  name[64]; // path name
        sint32 flags;
        sint32 num_frames;
        sint32 num_shaders;
        sint32 num_verts;
        sint32 num_triangles;
        sint32 ofs_triangles;
        sint32 ofs_shaders;
        sint32 ofs_st;
        sint32 ofs_xyznormal;
        sint32 ofs_end;
};

struct md3_shader_t
{
        uint8  name[64]; 
        sint32 shader_index;
};

struct md3_triangle_t
{
        sint32 indexes[3];
};

struct md3_texcoord_t
{
        float  st[2];
};

struct md3_vertex_t
{
        sint16 x;
        sint16 y;
        sint16 z;
        uint16 normal;
};

struct md3_surface_t
{
        md3_surface_header_t header;
        md3_shader_t*        shaders;
        md3_triangle_t*      triangles;
        md3_texcoord_t*      st;
        md3_vertex_t*        vertices;
};

struct md3_t
{
        md3_header_t   header;
        md3_frame_t*   frames;
        md3_tag_t*     tags;
        md3_surface_t* surfaces;
        // extra information (not in md3 file)
        sint32         vertices_per_frame;
};

static bool check_md3_magic( char* magic )
{
        return magic[0] == 'I' && magic[1] == 'D' && magic[2] == 'P' && magic[3] == '3';
}

static void free_md3_surface( md3_surface_t * surface )
{
        delete[] surface->shaders;
        delete[] surface->triangles;
        delete[] surface->st;
        delete[] surface->vertices;
}

static void free_md3( md3_t * md3 )
{
        sint32 count = md3->header.num_surfaces;
        for ( sint32 i = 0; i < count; ++i )
        {
                free_md3_surface( &md3->surfaces[i] );
        }
        delete[] md3->frames;
        delete[] md3->tags;
        delete[] md3->surfaces;
}

static bool read_surface( md3_surface_t * surface, nv::stream& source )
{
        sint32 pos = source.tell();
        source.read( &surface->header, sizeof(md3_surface_header_t), 1 );

        if ( !check_md3_magic( surface->header.ident ) )          return false;
        if ( surface->header.num_frames    >  MD3_MAX_FRAMES )    return false;
        if ( surface->header.num_shaders   >  MD3_MAX_SHADERS )   return false;
        if ( surface->header.num_verts     >  MD3_MAX_VERTS )     return false;
        if ( surface->header.num_triangles >  MD3_MAX_TRIANGLES ) return false;

        surface->shaders   = new md3_shader_t  [ surface->header.num_shaders ];
        surface->vertices  = new md3_vertex_t  [ surface->header.num_verts * surface->header.num_frames ];
        surface->st        = new md3_texcoord_t[ surface->header.num_verts ];
        surface->triangles = new md3_triangle_t[ surface->header.num_triangles ];

        source.seek( pos + surface->header.ofs_shaders, origin::SET );
        source.read( surface->shaders, sizeof( md3_shader_t ), surface->header.num_shaders );

        source.seek( pos + surface->header.ofs_triangles, origin::SET );
        source.read( surface->triangles, sizeof( md3_triangle_t ), surface->header.num_triangles );

        source.seek( pos + surface->header.ofs_st, origin::SET );
        source.read( surface->st, sizeof( md3_texcoord_t ), surface->header.num_verts );

        source.seek( pos + surface->header.ofs_xyznormal, origin::SET );
        source.read( surface->vertices, sizeof( md3_vertex_t ), surface->header.num_verts * surface->header.num_frames );

        if ( source.tell() != static_cast<std::size_t>( pos + surface->header.ofs_end ) ) return false;

        return true;
}

static bool read_md3( md3_t * md3, nv::stream& source )
{
        md3->frames   = nullptr;
        md3->tags     = nullptr;
        md3->surfaces = nullptr;

        source.read( &md3->header, sizeof(md3_header_t), 1 );

        if ( !check_md3_magic( md3->header.ident ) )        return false;
        if ( md3->header.num_frames   >  MD3_MAX_FRAMES )   return false;
        if ( md3->header.num_tags     >  MD3_MAX_TAGS )     return false;
        if ( md3->header.num_surfaces >  MD3_MAX_SURFACES ) 
        {
                // to always have a safe free
                md3->header.num_surfaces = 0;
                return false;
        }

        md3->frames   = new md3_frame_t  [ md3->header.num_frames ];
        md3->tags     = new md3_tag_t    [ md3->header.num_tags * md3->header.num_frames ];
        md3->surfaces = new md3_surface_t[ md3->header.num_surfaces ];
        std::memset( md3->surfaces, 0, md3->header.num_surfaces * sizeof(md3_surface_t) );

        source.seek( md3->header.ofs_frames, origin::SET );
        source.read( md3->frames, sizeof( md3_frame_t ), md3->header.num_frames );

        source.seek( md3->header.ofs_tags, origin::SET );
        source.read( md3->tags, sizeof( md3_tag_t ), md3->header.num_tags * md3->header.num_frames );

        source.seek( md3->header.ofs_surfaces, origin::SET );
        md3->vertices_per_frame = 0;

        for ( sint32 i = 0; i < md3->header.num_surfaces; ++i )
        {
                if ( !read_surface( md3->surfaces + i, source ) ) return false;
                if ( md3->header.num_frames != md3->surfaces[i].header.num_frames ) return false;
                md3->vertices_per_frame += md3->surfaces[i].header.num_verts;
        }
        return true;
}

static inline vec3 md3_vec3( const md3_vec3_t& v )
{
//      return vec3( v.xyz[0], v.xyz[1], v.xyz[2] );
        return vec3( v.xyz[0], v.xyz[2], v.xyz[1] );
}

static inline vec2 md3_texcoord( const md3_texcoord_t& v )
{
        return vec2( v.st[0], v.st[1] );
}

static vec3 s_normal_cache[256*256];
static bool s_normal_ready = false;

md3_loader::md3_loader()
        : m_md3( nullptr ), m_size( 0 )
{
        if ( !s_normal_ready )
        {
                float pi      = glm::pi<float>();
                float convert = (2 * pi) / 255.0f;
                int n = 0;
                for ( int lat = 0; lat < 256; ++lat )
                {
                        float flat    = lat * convert;
                        float sin_lat = glm::sin( flat );
                        float cos_lat = glm::cos( flat );
                        for ( int lng = 0; lng < 256; ++lng, ++n )
                        {
                                float flng    = lng * convert;
                                float sin_lng = glm::sin( flng );
                                float cos_lng = glm::cos( flng );
                                s_normal_cache[n].x = cos_lat * sin_lng;
//                              s_normal_cache[n].y = sin_lat * sin_lng;
//                              s_normal_cache[n].z = cos_lng;
                                s_normal_cache[n].z = sin_lat * sin_lng;
                                s_normal_cache[n].y = cos_lng;
                        }
                }

                s_normal_ready = true;
        }
}


nv::md3_loader::~md3_loader()
{
        if (m_md3 != nullptr)
        {
                free_md3( (md3_t*)(m_md3) );
                delete (md3_t*)m_md3;
        }
}

bool nv::md3_loader::load( stream& source )
{
        m_tags.clear();
        m_size = 0;

        m_md3 = (void*)(new md3_t);
        if ( !read_md3( (md3_t*)m_md3, source ) )
        {
                return false;
        }
        return true;
}

mesh* nv::md3_loader::release_mesh()
{
        return get_frame( 0 );
}

mesh* nv::md3_loader::get_frame( sint32 frame )
{
        mesh* m = new mesh();
        md3_t* md3 = (md3_t*)m_md3;

        NV_LOG( LOG_INFO, "Tags:" );
        for ( sint32 i = 0; i < md3->header.num_tags; ++i )
        {
                const md3_tag_t& rtag = md3->tags[i + md3->header.num_tags * frame];

                md3_tag& tag   = m_tags[ (char*)(rtag.name) ];
                tag.name       = (char*)(rtag.name);
                vec4 axisx     = vec4( md3_vec3( rtag.axis[0] ), 0.0 );
                vec4 axisz     = vec4( md3_vec3( rtag.axis[1] ), 0.0 );
                vec4 axisy     = vec4( md3_vec3( rtag.axis[2] ), 0.0 );
                vec4 origin    = vec4( md3_vec3( rtag.origin ),  1.0 );
                tag.transform  = glm::mat4( axisx, axisy, axisz, origin );
                NV_LOG( LOG_INFO, "Tag " << tag.name << " found" );
        }

        vertex_attribute< vec3 >* position = m->add_attribute<vec3>("nv_position");
        vertex_attribute< vec3 >* normal   = m->add_attribute<vec3>("nv_normal");
        vertex_attribute< vec2 >* texcoord = m->add_attribute<vec2>("nv_texcoord");
        vertex_attribute< uint16 >* indices  = m->add_indices<uint16>();

        load_positions( position->get(), frame );
        load_normals( normal->get(), frame );

        load_texcoords( texcoord->get() );
        load_indicies( indices->get() );

        m_size = indices->get().size();
        return m;
}

void nv::md3_loader::load_tags( std::vector<mat4>& t, const std::string& tag )
{
        md3_t* md3 = (md3_t*)m_md3;
        t.clear();
        for ( sint32 f = 0; f < md3->header.num_frames; ++f )
        {
                for ( sint32 i = 0; i < md3->header.num_tags; ++i )
                {
                        const md3_tag_t& rtag = md3->tags[i + md3->header.num_tags * f];
                        std::string rname((char*)(rtag.name));
                        if (rname == tag)
                        {
                                vec4 axisx     = vec4( md3_vec3( rtag.axis[0] ), 0.0 );
                                vec4 axisz     = vec4( md3_vec3( rtag.axis[1] ), 0.0 );
                                vec4 axisy     = vec4( md3_vec3( rtag.axis[2] ), 0.0 );
                                vec4 origin    = vec4( md3_vec3( rtag.origin ),  1.0 );
                                t.emplace_back( axisx, axisy, axisz, origin );
                        }
                }

        }
}

sint32 md3_loader::get_max_frames() const
{
        return ((md3_t*)m_md3)->header.num_frames;
}

void md3_loader::load_tag_names( std::vector< std::string >& tags )
{
        tags.clear();
        md3_t* md3 = (md3_t*)m_md3;
        for ( sint32 i = 0; i < md3->header.num_tags; ++i )
        {
                const md3_tag_t& rtag = md3->tags[i + md3->header.num_tags];
                tags.push_back( (char*)(rtag.name) );
        }
}

mat4 md3_loader::get_tag( sint32 frame, const std::string& name ) const
{
        md3_t* md3 = (md3_t*)m_md3;
        for ( sint32 i = 0; i < md3->header.num_tags; ++i )
        {
                const md3_tag_t& rtag = md3->tags[i + md3->header.num_tags * frame];
                std::string rname((char*)(rtag.name));
                if (rname == name)
                {
                        vec4 axisx     = vec4( md3_vec3( rtag.axis[0] ), 0.0 );
                        vec4 axisz     = vec4( md3_vec3( rtag.axis[1] ), 0.0 );
                        vec4 axisy     = vec4( md3_vec3( rtag.axis[2] ), 0.0 );
                        vec4 origin    = vec4( md3_vec3( rtag.origin ),  1.0 );
                        return glm::mat4( axisx, axisy, axisz, origin );
                }
        }
        return glm::mat4();
}

const md3_tag* md3_loader::get_tag( const std::string& name ) const
{
        auto it = m_tags.find( name );
        if ( it == m_tags.end() ) return nullptr;
        return &(it->second);
}

void md3_loader::load_positions( std::vector<vec3>& p, sint32 frame /*=-1*/ )
{
        md3_t* md3 = (md3_t*)m_md3;
        sint32 num_surfaces = md3->header.num_surfaces;
        p.clear();
        sint32 current_frame = ( frame == -1 ? 0 : frame );
        sint32 frame_count   = ( frame == -1 ? md3->header.num_frames : 1 );

        p.reserve( md3->vertices_per_frame * frame_count );

        while ( frame_count > 0 )
        {
                for ( sint32 i = 0; i < num_surfaces; ++i )
                {
                        md3_surface_t& surface = md3->surfaces[i];
                        sint32         vcount  = surface.header.num_verts;
                        sint32         offset  = vcount * current_frame;
                        sint32         limit   = vcount + offset;
                        for (sint32 j = offset; j < limit; ++j )
                        {
                                md3_vertex_t& v = surface.vertices[j];
                                p.push_back( vec3( v.x * MD3_XYZ_SCALE, v.z * MD3_XYZ_SCALE, v.y * MD3_XYZ_SCALE ) );
                        }
                }
                ++current_frame;
                --frame_count;
        }
}

void md3_loader::load_normals( std::vector<vec3>& n, sint32 frame /*=-1*/ )
{
        md3_t* md3 = (md3_t*)m_md3;
        sint32 num_surfaces = md3->header.num_surfaces;
        n.clear();
        sint32 current_frame = ( frame == -1 ? 0 : frame );
        sint32 frame_count   = ( frame == -1 ? md3->header.num_frames : 1 );

        n.reserve( md3->vertices_per_frame * frame_count );

        while ( frame_count > 0 )
        {
                for ( sint32 i = 0; i < num_surfaces; ++i )
                {
                        md3_surface_t& surface = md3->surfaces[i];
                        sint32         vcount  = surface.header.num_verts;
                        sint32         offset  = vcount * current_frame;
                        sint32         limit   = vcount + offset;
                        for (sint32 j = offset; j < limit; ++j )
                        {
                                n.push_back( s_normal_cache[ surface.vertices[j].normal ] );
                        }
                }
                ++current_frame;
                --frame_count;
        }
}

void md3_loader::load_texcoords( std::vector<vec2>& t )
{
        md3_t* md3 = (md3_t*)m_md3;
        sint32 num_surfaces = md3->header.num_surfaces;
        t.clear();
        for ( sint32 i = 0; i < num_surfaces; ++i )
        {
                const md3_surface_t& surface = md3->surfaces[i];
                const sint32         vcount  = surface.header.num_verts;
                t.reserve( t.size() + vcount );
                for (sint32 j = 0; j < vcount; ++j )
                {
                        t.push_back( md3_texcoord( surface.st[j] ) );
                }
        }
}

void md3_loader::load_indicies( std::vector<uint16>& idx )
{
        md3_t* md3 = (md3_t*)m_md3;
        sint32 num_surfaces = md3->header.num_surfaces;
        idx.clear();
        sint32 index_base = 0;
        for ( sint32 i = 0; i < num_surfaces; ++i )
        {
                const md3_surface_t& surface = md3->surfaces[i];
                const sint32         tcount  = surface.header.num_triangles;

                idx.reserve( idx.size() + tcount * 3 );
                for (sint32 j = 0; j < tcount; ++j )
                {
                        const md3_triangle_t& t = surface.triangles[j];
                        idx.push_back( static_cast< uint16 >( index_base + t.indexes[0] ) );
                        idx.push_back( static_cast< uint16 >( index_base + t.indexes[1] ) );
                        idx.push_back( static_cast< uint16 >( index_base + t.indexes[2] ) );
                }

                index_base += surface.header.num_verts;
        }

}

keyframed_mesh_data::keyframed_mesh_data( keyframed_loader* loader )
{
        loader->load_positions( m_positions );
        loader->load_normals( m_normals );
        loader->load_texcoords( m_texcoords );
        loader->load_indicies( m_indices );

        std::vector< std::string > names;

        md3_loader* md3loader = dynamic_cast< md3_loader* >( loader );
        if ( md3loader != nullptr )
        {
                md3loader->load_tag_names( names );
                for ( auto& name : names )
                {
                        md3loader->load_tags( m_tags[ name ], name );
                }
        }

        m_frames = loader->get_max_frames();
}