root/GtkRadiant/trunk/libs/picomodel/pm_md2.c

/* -----------------------------------------------------------------------------

PicoModel Library 

Copyright (c) 2002, Randy Reddig & seaw0lf
All rights reserved.

Redistribution and use in source and binary forms, with or without modification,
are permitted provided that the following conditions are met:

Redistributions of source code must retain the above copyright notice, this list
of conditions and the following disclaimer.

Redistributions in binary form must reproduce the above copyright notice, this
list of conditions and the following disclaimer in the documentation and/or
other materials provided with the distribution.

Neither the names of the copyright holders nor the names of its contributors may
be used to endorse or promote products derived from this software without
specific prior written permission. 

THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

----------------------------------------------------------------------------- */

/*
Nurail: Used pm_md3.c (Randy Reddig) as a template.
*/


/* marker */
#define PM_MD2_C

/* dependencies */
#include "picointernal.h"


/* md2 model format */
#define MD2_MAGIC                               "IDP2"
#define MD2_VERSION                             8

#define MD2_NUMVERTEXNORMALS    162
#define MD2_MAX_SKINNAME                64
#define MD2_MAX_TRIANGLES               4096
#define MD2_MAX_VERTS                   2048
#define MD2_MAX_FRAMES                  512
#define MD2_MAX_MD2SKINS                32
#define MD2_MAX_SKINNAME                64

#ifndef byte
        #define byte unsigned char
#endif

typedef struct index_LUT_s
{
        short   Vert;
        short   ST;
        struct  index_LUT_s     *next;

} index_LUT_t;

typedef struct index_DUP_LUT_s
{
        short                   ST;
        short                   OldVert;

} index_DUP_LUT_t;

typedef struct
{
        short   s;
        short   t;
} md2St_t;

typedef struct
{
        short   index_xyz[3];
        short   index_st[3];
} md2Triangle_t;

typedef struct
{
        byte    v[3];                   // scaled byte to fit in frame mins/maxs
        byte    lightnormalindex;
} md2XyzNormal_t;

typedef struct md2Frame_s
{
        float           scale[3];       // multiply byte verts by this
        float           translate[3];   // then add this
        char            name[16];       // frame name from grabbing
        md2XyzNormal_t  verts[1];       // variable sized
}
md2Frame_t;


/* md2 model file md2 structure */
typedef struct md2_s
{
        char    magic[ 4 ];
        int     version;

        int     skinWidth;
        int     skinHeight;
        int     frameSize;

        int     numSkins;
        int     numXYZ;
        int     numST;
        int     numTris;
        int     numGLCmds;
        int     numFrames;

        int     ofsSkins;
        int     ofsST;
        int     ofsTris;
        int     ofsFrames;
        int     ofsGLCmds;
        int     ofsEnd;
}
md2_t;

float   md2_normals[ MD2_NUMVERTEXNORMALS ][ 3 ] =
{
        { -0.525731f, 0.000000f, 0.850651f },
        { -0.442863f, 0.238856f, 0.864188f }, 
        { -0.295242f, 0.000000f, 0.955423f }, 
        { -0.309017f, 0.500000f, 0.809017f }, 
        { -0.162460f, 0.262866f, 0.951056f }, 
        { 0.000000f, 0.000000f, 1.000000f },
        { 0.000000f, 0.850651f, 0.525731f },
        { -0.147621f, 0.716567f, 0.681718f },
        { 0.147621f, 0.716567f, 0.681718f }, 
        { 0.000000f, 0.525731f, 0.850651f }, 
        { 0.309017f, 0.500000f, 0.809017f }, 
        { 0.525731f, 0.000000f, 0.850651f }, 
        { 0.295242f, 0.000000f, 0.955423f }, 
        { 0.442863f, 0.238856f, 0.864188f }, 
        { 0.162460f, 0.262866f, 0.951056f }, 
        { -0.681718f, 0.147621f, 0.716567f }, 
        { -0.809017f, 0.309017f, 0.500000f }, 
        { -0.587785f, 0.425325f, 0.688191f }, 
        { -0.850651f, 0.525731f, 0.000000f }, 
        { -0.864188f, 0.442863f, 0.238856f }, 
        { -0.716567f, 0.681718f, 0.147621f }, 
        { -0.688191f, 0.587785f, 0.425325f }, 
        { -0.500000f, 0.809017f, 0.309017f }, 
        { -0.238856f, 0.864188f, 0.442863f }, 
        { -0.425325f, 0.688191f, 0.587785f }, 
        { -0.716567f, 0.681718f, -0.147621f }, 
        { -0.500000f, 0.809017f, -0.309017f }, 
        { -0.525731f, 0.850651f, 0.000000f }, 
        { 0.000000f, 0.850651f, -0.525731f }, 
        { -0.238856f, 0.864188f, -0.442863f }, 
        { 0.000000f, 0.955423f, -0.295242f }, 
        { -0.262866f, 0.951056f, -0.162460f }, 
        { 0.000000f, 1.000000f, 0.000000f }, 
        { 0.000000f, 0.955423f, 0.295242f }, 
        { -0.262866f, 0.951056f, 0.162460f }, 
        { 0.238856f, 0.864188f, 0.442863f }, 
        { 0.262866f, 0.951056f, 0.162460f }, 
        { 0.500000f, 0.809017f, 0.309017f }, 
        { 0.238856f, 0.864188f, -0.442863f }, 
        { 0.262866f, 0.951056f, -0.162460f }, 
        { 0.500000f, 0.809017f, -0.309017f }, 
        { 0.850651f, 0.525731f, 0.000000f }, 
        { 0.716567f, 0.681718f, 0.147621f }, 
        { 0.716567f, 0.681718f, -0.147621f }, 
        { 0.525731f, 0.850651f, 0.000000f }, 
        { 0.425325f, 0.688191f, 0.587785f }, 
        { 0.864188f, 0.442863f, 0.238856f }, 
        { 0.688191f, 0.587785f, 0.425325f }, 
        { 0.809017f, 0.309017f, 0.500000f }, 
        { 0.681718f, 0.147621f, 0.716567f }, 
        { 0.587785f, 0.425325f, 0.688191f }, 
        { 0.955423f, 0.295242f, 0.000000f }, 
        { 1.000000f, 0.000000f, 0.000000f }, 
        { 0.951056f, 0.162460f, 0.262866f }, 
        { 0.850651f, -0.525731f, 0.000000f }, 
        { 0.955423f, -0.295242f, 0.000000f }, 
        { 0.864188f, -0.442863f, 0.238856f }, 
        { 0.951056f, -0.162460f, 0.262866f }, 
        { 0.809017f, -0.309017f, 0.500000f }, 
        { 0.681718f, -0.147621f, 0.716567f }, 
        { 0.850651f, 0.000000f, 0.525731f }, 
        { 0.864188f, 0.442863f, -0.238856f }, 
        { 0.809017f, 0.309017f, -0.500000f }, 
        { 0.951056f, 0.162460f, -0.262866f }, 
        { 0.525731f, 0.000000f, -0.850651f }, 
        { 0.681718f, 0.147621f, -0.716567f }, 
        { 0.681718f, -0.147621f, -0.716567f }, 
        { 0.850651f, 0.000000f, -0.525731f }, 
        { 0.809017f, -0.309017f, -0.500000f }, 
        { 0.864188f, -0.442863f, -0.238856f }, 
        { 0.951056f, -0.162460f, -0.262866f }, 
        { 0.147621f, 0.716567f, -0.681718f }, 
        { 0.309017f, 0.500000f, -0.809017f }, 
        { 0.425325f, 0.688191f, -0.587785f }, 
        { 0.442863f, 0.238856f, -0.864188f }, 
        { 0.587785f, 0.425325f, -0.688191f }, 
        { 0.688191f, 0.587785f, -0.425325f }, 
        { -0.147621f, 0.716567f, -0.681718f }, 
        { -0.309017f, 0.500000f, -0.809017f }, 
        { 0.000000f, 0.525731f, -0.850651f }, 
        { -0.525731f, 0.000000f, -0.850651f }, 
        { -0.442863f, 0.238856f, -0.864188f }, 
        { -0.295242f, 0.000000f, -0.955423f }, 
        { -0.162460f, 0.262866f, -0.951056f }, 
        { 0.000000f, 0.000000f, -1.000000f }, 
        { 0.295242f, 0.000000f, -0.955423f }, 
        { 0.162460f, 0.262866f, -0.951056f }, 
        { -0.442863f, -0.238856f, -0.864188f }, 
        { -0.309017f, -0.500000f, -0.809017f }, 
        { -0.162460f, -0.262866f, -0.951056f }, 
        { 0.000000f, -0.850651f, -0.525731f }, 
        { -0.147621f, -0.716567f, -0.681718f }, 
        { 0.147621f, -0.716567f, -0.681718f }, 
        { 0.000000f, -0.525731f, -0.850651f }, 
        { 0.309017f, -0.500000f, -0.809017f }, 
        { 0.442863f, -0.238856f, -0.864188f }, 
        { 0.162460f, -0.262866f, -0.951056f }, 
        { 0.238856f, -0.864188f, -0.442863f }, 
        { 0.500000f, -0.809017f, -0.309017f }, 
        { 0.425325f, -0.688191f, -0.587785f }, 
        { 0.716567f, -0.681718f, -0.147621f }, 
        { 0.688191f, -0.587785f, -0.425325f }, 
        { 0.587785f, -0.425325f, -0.688191f }, 
        { 0.000000f, -0.955423f, -0.295242f }, 
        { 0.000000f, -1.000000f, 0.000000f }, 
        { 0.262866f, -0.951056f, -0.162460f }, 
        { 0.000000f, -0.850651f, 0.525731f }, 
        { 0.000000f, -0.955423f, 0.295242f }, 
        { 0.238856f, -0.864188f, 0.442863f }, 
        { 0.262866f, -0.951056f, 0.162460f }, 
        { 0.500000f, -0.809017f, 0.309017f }, 
        { 0.716567f, -0.681718f, 0.147621f }, 
        { 0.525731f, -0.850651f, 0.000000f }, 
        { -0.238856f, -0.864188f, -0.442863f }, 
        { -0.500000f, -0.809017f, -0.309017f }, 
        { -0.262866f, -0.951056f, -0.162460f }, 
        { -0.850651f, -0.525731f, 0.000000f }, 
        { -0.716567f, -0.681718f, -0.147621f }, 
        { -0.716567f, -0.681718f, 0.147621f }, 
        { -0.525731f, -0.850651f, 0.000000f }, 
        { -0.500000f, -0.809017f, 0.309017f }, 
        { -0.238856f, -0.864188f, 0.442863f }, 
        { -0.262866f, -0.951056f, 0.162460f }, 
        { -0.864188f, -0.442863f, 0.238856f }, 
        { -0.809017f, -0.309017f, 0.500000f }, 
        { -0.688191f, -0.587785f, 0.425325f }, 
        { -0.681718f, -0.147621f, 0.716567f }, 
        { -0.442863f, -0.238856f, 0.864188f }, 
        { -0.587785f, -0.425325f, 0.688191f }, 
        { -0.309017f, -0.500000f, 0.809017f }, 
        { -0.147621f, -0.716567f, 0.681718f }, 
        { -0.425325f, -0.688191f, 0.587785f }, 
        { -0.162460f, -0.262866f, 0.951056f }, 
        { 0.442863f, -0.238856f, 0.864188f }, 
        { 0.162460f, -0.262866f, 0.951056f }, 
        { 0.309017f, -0.500000f, 0.809017f }, 
        { 0.147621f, -0.716567f, 0.681718f }, 
        { 0.000000f, -0.525731f, 0.850651f }, 
        { 0.425325f, -0.688191f, 0.587785f }, 
        { 0.587785f, -0.425325f, 0.688191f }, 
        { 0.688191f, -0.587785f, 0.425325f }, 
        { -0.955423f, 0.295242f, 0.000000f }, 
        { -0.951056f, 0.162460f, 0.262866f }, 
        { -1.000000f, 0.000000f, 0.000000f }, 
        { -0.850651f, 0.000000f, 0.525731f }, 
        { -0.955423f, -0.295242f, 0.000000f }, 
        { -0.951056f, -0.162460f, 0.262866f }, 
        { -0.864188f, 0.442863f, -0.238856f }, 
        { -0.951056f, 0.162460f, -0.262866f }, 
        { -0.809017f, 0.309017f, -0.500000f }, 
        { -0.864188f, -0.442863f, -0.238856f },
        { -0.951056f, -0.162460f, -0.262866f }, 
        { -0.809017f, -0.309017f, -0.500000f }, 
        { -0.681718f, 0.147621f, -0.716567f }, 
        { -0.681718f, -0.147621f, -0.716567f }, 
        { -0.850651f, 0.000000f, -0.525731f }, 
        { -0.688191f, 0.587785f, -0.425325f }, 
        { -0.587785f, 0.425325f, -0.688191f }, 
        { -0.425325f, 0.688191f, -0.587785f }, 
        { -0.425325f, -0.688191f, -0.587785f }, 
        { -0.587785f, -0.425325f, -0.688191f }, 
        { -0.688191f, -0.587785f, -0.425325f }, 
};


// _md2_canload()

static int _md2_canload( PM_PARAMS_CANLOAD )
{
        md2_t   *md2;

        /* to keep the compiler happy */
        *fileName = *fileName;

        /* sanity check */
        if( bufSize < ( sizeof( *md2 ) * 2) )
                return PICO_PMV_ERROR_SIZE;
        
        /* set as md2 */
        md2 = (md2_t*) buffer;
        
        /* check md2 magic */
        if( *((int*) md2->magic) != *((int*) MD2_MAGIC) ) 
                return PICO_PMV_ERROR_IDENT;
        
        /* check md2 version */
        if( _pico_little_long( md2->version ) != MD2_VERSION )
                return PICO_PMV_ERROR_VERSION;

        /* file seems to be a valid md2 */
        return PICO_PMV_OK;
}



// _md2_load() loads a quake2 md2 model file.


static picoModel_t *_md2_load( PM_PARAMS_LOAD )
{
        int                             i, j, dups, dup_index;
        short                   tot_numVerts;
        index_LUT_t             *p_index_LUT, *p_index_LUT2, *p_index_LUT3;
        index_DUP_LUT_t *p_index_LUT_DUPS;
        md2Triangle_t   *p_md2Triangle;

        char                    path[ MD2_MAX_SKINNAME ];
        char                    skinname[ MD2_MAX_SKINNAME ];
        md2_t                   *md2;
        md2St_t                 *texCoord;
        md2Frame_t              *frame;
        md2Triangle_t   *triangle;
        md2XyzNormal_t  *vertex;

        picoByte_t      *bb;
        picoModel_t             *picoModel;
        picoSurface_t   *picoSurface;
        picoShader_t    *picoShader;
        picoVec3_t              xyz, normal;
        picoVec2_t              st;
        picoColor_t             color;
        

        // md2 loading
        _pico_printf( PICO_NORMAL, "Loading \"%s\"", fileName );

        /* set as md2 */
        bb = (picoByte_t*) buffer;
        md2     = (md2_t*) buffer;

        /* check ident and version */
        if( *((int*) md2->magic) != *((int*) MD2_MAGIC) || _pico_little_long( md2->version ) != MD2_VERSION )
        {
                /* not an md2 file (todo: set error) */
                _pico_printf( PICO_ERROR, "%s is not an MD2 File!", fileName );
                return NULL;
        }
        
        // swap md2
        md2->version = _pico_little_long( md2->version );

        md2->skinWidth = _pico_little_long( md2->skinWidth );
        md2->skinHeight = _pico_little_long( md2->skinHeight );
        md2->frameSize = _pico_little_long( md2->frameSize );

        md2->numSkins = _pico_little_long( md2->numSkins );
        md2->numXYZ = _pico_little_long( md2->numXYZ );
        md2->numST = _pico_little_long( md2->numST );
        md2->numTris = _pico_little_long( md2->numTris );
        md2->numGLCmds = _pico_little_long( md2->numGLCmds );
        md2->numFrames = _pico_little_long( md2->numFrames );

        md2->ofsSkins = _pico_little_long( md2->ofsSkins );
        md2->ofsST = _pico_little_long( md2->ofsST );
        md2->ofsTris = _pico_little_long( md2->ofsTris );
        md2->ofsFrames = _pico_little_long( md2->ofsFrames );
        md2->ofsGLCmds = _pico_little_long( md2->ofsGLCmds );
        md2->ofsEnd = _pico_little_long( md2->ofsEnd );

        // do frame check
        if( md2->numFrames < 1 )
        {
                _pico_printf( PICO_ERROR, "%s has 0 frames!", fileName );
                return NULL;
        }
        
        if( frameNum < 0 || frameNum >= md2->numFrames )
        {
                _pico_printf( PICO_ERROR, "Invalid or out-of-range MD2 frame specified" );
                return NULL;
        }

        // Setup Frame
        frame = (md2Frame_t *) (bb + md2->ofsFrames + (sizeof(md2Frame_t) * frameNum));

        // swap frame scale and translation
        for( i = 0; i < 3; i++ )
        {
                frame->scale[ i ] = _pico_little_float( frame->scale[ i ] );
                frame->translate[ i ] = _pico_little_float( frame->translate[ i ] );
        }

        // swap triangles
        triangle = (md2Triangle_t *) ((picoByte_t *) (bb + md2->ofsTris) );
        for( i = 0; i < md2->numTris; i++, triangle++ )
        {
                for( j = 0; j < 3; j++ )
                {
                        triangle->index_xyz[ j ] = _pico_little_short( triangle->index_xyz[ j ] );
                        triangle->index_st[ j ] = _pico_little_short( triangle->index_st[ j ] );
                }
        }

        // swap st coords
        texCoord = (md2St_t*) ((picoByte_t *) (bb + md2->ofsST) );
        for( i = 0; i < md2->numST; i++, texCoord++ )
        {
                texCoord->s = _pico_little_short( texCoord->s );
                texCoord->t = _pico_little_short( texCoord->t );
        }

        // set Skin Name
        strncpy(skinname, (bb + md2->ofsSkins), MD2_MAX_SKINNAME );

        // Print out md2 values
        _pico_printf(PICO_VERBOSE,"Skins: %d  Verts: %d  STs: %d  Triangles: %d  Frames: %d\nSkin Name \"%s\"\n", md2->numSkins, md2->numXYZ, md2->numST, md2->numTris, md2->numFrames, skinname );

        // relative texture path - allows moving of models in game dir structure without changing the skinpath
        // e.g. used in ufo:ai
        if (skinname[0] == '.') {
                strncpy(path, fileName, MD2_MAX_SKINNAME);
                for (i = MD2_MAX_SKINNAME; i--;) {
                        // skip filename
                        if (path[i] == '/' || path[i] == '\\')
                                break;
                        path[i] = '\0';
                }
                strncat(path, &skinname[1], MD2_MAX_SKINNAME);
                strncpy(skinname, path, MD2_MAX_SKINNAME);

                // Print out md2 values
                _pico_printf(PICO_VERBOSE,"Relative skin path converted to: \"%s\" (%s)\n", skinname, fileName );
        }
        
        // detox Skin name
        _pico_setfext( skinname, "" );
        _pico_unixify( skinname );

        /* create new pico model */
        picoModel = PicoNewModel();
        if( picoModel == NULL )
        {
                _pico_printf( PICO_ERROR, "Unable to allocate a new model" );
                return NULL;
        }

        /* do model setup */
        PicoSetModelFrameNum( picoModel, frameNum );
        PicoSetModelNumFrames( picoModel, md2->numFrames ); /* sea */
        PicoSetModelName( picoModel, fileName );
        PicoSetModelFileName( picoModel, fileName );

        // allocate new pico surface
        picoSurface = PicoNewSurface( picoModel );
        if( picoSurface == NULL )
        {
                _pico_printf( PICO_ERROR, "Unable to allocate a new model surface" );
                PicoFreeModel( picoModel );
                return NULL;
        }


        PicoSetSurfaceType( picoSurface, PICO_TRIANGLES );
        PicoSetSurfaceName( picoSurface, frame->name );
        picoShader = PicoNewShader( picoModel );
        if( picoShader == NULL )
        {
                _pico_printf( PICO_ERROR, "Unable to allocate a new model shader" );
                PicoFreeModel( picoModel );
                return NULL;
        }

        PicoSetShaderName( picoShader, skinname );

        // associate current surface with newly created shader
        PicoSetSurfaceShader( picoSurface, picoShader );

        // Init LUT for Verts
        p_index_LUT = (index_LUT_t *)_pico_alloc(sizeof(index_LUT_t) * md2->numXYZ);
        for(i=0; i<md2->numXYZ; i++)
        {
                p_index_LUT[i].Vert = -1;
                p_index_LUT[i].ST = -1;
                p_index_LUT[i].next = NULL;
        }

        // Fill in Look Up Table, and allocate/fill Linked List from vert array as needed for dup STs per Vert.
        tot_numVerts = md2->numXYZ;
        dups = 0;
        for(i=0; i<md2->numTris; i++)
        {
                p_md2Triangle = (md2Triangle_t *) ( bb + md2->ofsTris + (sizeof(md2Triangle_t)*i));
                for(j=0; j<3; j++)
                {
                        if (p_index_LUT[p_md2Triangle->index_xyz[j]].ST == -1) // No Main Entry
                                p_index_LUT[p_md2Triangle->index_xyz[j]].ST = p_md2Triangle->index_st[j];

                        else if (p_md2Triangle->index_st[j] == p_index_LUT[p_md2Triangle->index_xyz[j]].ST ) // Equal to Main Entry
                                continue;

                        else if ( (p_index_LUT[p_md2Triangle->index_xyz[j]].next == NULL) )  // Not equal to Main entry, and no LL entry
                        {       // Add first entry of LL from Main
                                p_index_LUT2 = (index_LUT_t *)_pico_alloc(sizeof(index_LUT_t));
                                if (p_index_LUT2 == NULL)
                                        _pico_printf( PICO_ERROR," Couldn't allocate memory!\n");
                                p_index_LUT[p_md2Triangle->index_xyz[j]].next = (index_LUT_t *)p_index_LUT2;
                                p_index_LUT2->Vert = dups;
                                p_index_LUT2->ST = p_md2Triangle->index_st[j];
                                p_index_LUT2->next = NULL;
                                p_md2Triangle->index_xyz[j] = dups + md2->numXYZ; // Make change in Tri hunk
                                dups++;
                        }
                        else // Try to find in LL from Main Entry
                        {
                                p_index_LUT3 = p_index_LUT2 = p_index_LUT[p_md2Triangle->index_xyz[j]].next;
                                while ( (p_index_LUT2 != NULL) && (p_md2Triangle->index_xyz[j] != p_index_LUT2->Vert) ) // Walk down LL
                                {
                                        p_index_LUT3 = p_index_LUT2;
                                        p_index_LUT2 = p_index_LUT2->next;
                                }
                                p_index_LUT2 = p_index_LUT3;

                                if ( p_md2Triangle->index_st[j] == p_index_LUT2->ST ) // Found it
                                {
                                        p_md2Triangle->index_xyz[j] = p_index_LUT2->Vert + md2->numXYZ; // Make change in Tri hunk
                                        continue;
                                }

                                if ( p_index_LUT2->next == NULL)  // Didn't find it. Add entry to LL.
                                {
                                        // Add the Entry
                                        p_index_LUT3 = (index_LUT_t *)_pico_alloc(sizeof(index_LUT_t));
                                        if (p_index_LUT3 == NULL)
                                                _pico_printf( PICO_ERROR," Couldn't allocate memory!\n");
                                        p_index_LUT2->next = (index_LUT_t *)p_index_LUT3;
                                        p_index_LUT3->Vert = p_md2Triangle->index_xyz[j];
                                        p_index_LUT3->ST = p_md2Triangle->index_st[j];
                                        p_index_LUT3->next = NULL;
                                        p_md2Triangle->index_xyz[j] = dups + md2->numXYZ; // Make change in Tri hunk
                                        dups++;
                                }
                        }
                }
        }

        // malloc and build array for Dup STs
        p_index_LUT_DUPS = (index_DUP_LUT_t *)_pico_alloc(sizeof(index_DUP_LUT_t) * dups);
        if (p_index_LUT_DUPS == NULL)
                _pico_printf( PICO_ERROR," Couldn't allocate memory!\n");

        dup_index = 0;
        for(i=0; i<md2->numXYZ; i++)
        {
                p_index_LUT2 = p_index_LUT[i].next;
                while (p_index_LUT2 != NULL)
                {
                        p_index_LUT_DUPS[p_index_LUT2->Vert].OldVert = i;
                        p_index_LUT_DUPS[p_index_LUT2->Vert].ST = p_index_LUT2->ST;
                        dup_index++;
                        p_index_LUT2 = p_index_LUT2->next;
                }
        }

        // Build Picomodel
        triangle = (md2Triangle_t *) ((picoByte_t *) (bb + md2->ofsTris) );
        texCoord = (md2St_t*) ((picoByte_t *) (bb + md2->ofsST) );
        vertex = (md2XyzNormal_t*) ((picoByte_t*) (frame->verts) );
        for( j = 0; j < md2->numTris; j++, triangle++ )
        {
                PicoSetSurfaceIndex( picoSurface, j*3   , triangle->index_xyz[0] );
                PicoSetSurfaceIndex( picoSurface, j*3+1 , triangle->index_xyz[1] );
                PicoSetSurfaceIndex( picoSurface, j*3+2 , triangle->index_xyz[2] );
        }

        for(i=0; i< md2->numXYZ; i++, vertex++)
        {
                /* set vertex origin */
                xyz[ 0 ] = vertex->v[0] * frame->scale[0] + frame->translate[0];
                xyz[ 1 ] = vertex->v[1] * frame->scale[1] + frame->translate[1];
                xyz[ 2 ] = vertex->v[2] * frame->scale[2] + frame->translate[2];
                PicoSetSurfaceXYZ( picoSurface, i , xyz );

                /* set normal */
                normal[ 0 ] = md2_normals[vertex->lightnormalindex][0];
                normal[ 1 ] = md2_normals[vertex->lightnormalindex][1];
                normal[ 2 ] = md2_normals[vertex->lightnormalindex][2];
                PicoSetSurfaceNormal( picoSurface, i , normal );

                /* set st coords */
                st[ 0 ] =  ((texCoord[p_index_LUT[i].ST].s) / ((float)md2->skinWidth));
                st[ 1 ] =  (texCoord[p_index_LUT[i].ST].t / ((float)md2->skinHeight));
                PicoSetSurfaceST( picoSurface, 0, i , st );
        }

        if (dups)
        {
                for(i=0; i<dups; i++)
                {
                        j = p_index_LUT_DUPS[i].OldVert;
                        /* set vertex origin */
                        xyz[ 0 ] = frame->verts[j].v[0] * frame->scale[0] + frame->translate[0];
                        xyz[ 1 ] = frame->verts[j].v[1] * frame->scale[1] + frame->translate[1];
                        xyz[ 2 ] = frame->verts[j].v[2] * frame->scale[2] + frame->translate[2];
                        PicoSetSurfaceXYZ( picoSurface, i + md2->numXYZ , xyz );

                        /* set normal */
                        normal[ 0 ] = md2_normals[frame->verts[j].lightnormalindex][0];
                        normal[ 1 ] = md2_normals[frame->verts[j].lightnormalindex][1];
                        normal[ 2 ] = md2_normals[frame->verts[j].lightnormalindex][2];
                        PicoSetSurfaceNormal( picoSurface, i + md2->numXYZ , normal );

                        /* set st coords */
                        st[ 0 ] =  ((texCoord[p_index_LUT_DUPS[i].ST].s) / ((float)md2->skinWidth));
                        st[ 1 ] =  (texCoord[p_index_LUT_DUPS[i].ST].t / ((float)md2->skinHeight));
                        PicoSetSurfaceST( picoSurface, 0, i + md2->numXYZ , st );
                }
        }

        /* set color */
        PicoSetSurfaceColor( picoSurface, 0, 0, color );

        // Free up malloc'ed LL entries
        for(i=0; i<md2->numXYZ; i++)
        {
                if(p_index_LUT[i].next != NULL)
                {
                        p_index_LUT2 = p_index_LUT[i].next;
                        do {
                                p_index_LUT3 = p_index_LUT2->next;
                                _pico_free(p_index_LUT2);
                                p_index_LUT2 = p_index_LUT3;
                                dups--;
                        } while (p_index_LUT2 != NULL);
                }
        }

        if (dups)
                _pico_printf(PICO_WARNING, " Not all LL mallocs freed\n");

        // Free malloc'ed LUTs
        _pico_free(p_index_LUT);
        _pico_free(p_index_LUT_DUPS);

        /* return the new pico model */
        return picoModel;

}



/* pico file format module definition */
const picoModule_t picoModuleMD2 =
{
        "0.875",                                                /* module version string */
        "Quake 2 MD2",                                  /* module display name */
        "Nurail",                                               /* author's name */
        "2003 Nurail",                                  /* module copyright */
        {
                "md2", NULL, NULL, NULL         /* default extensions to use */
        },
        _md2_canload,                                   /* validation routine */
        _md2_load,                                              /* load routine */
         NULL,                                                  /* save validation routine */
         NULL                                                   /* save routine */
};