8a603a5d0fa09b596993b0e6013f8278c838b757
[xonotic/netradiant.git] / libs / picomodel / pm_md2.c
1 /* -----------------------------------------------------------------------------
2
3 PicoModel Library 
4
5 Copyright (c) 2002, Randy Reddig & seaw0lf
6 All rights reserved.
7
8 Redistribution and use in source and binary forms, with or without modification,
9 are permitted provided that the following conditions are met:
10
11 Redistributions of source code must retain the above copyright notice, this list
12 of conditions and the following disclaimer.
13
14 Redistributions in binary form must reproduce the above copyright notice, this
15 list of conditions and the following disclaimer in the documentation and/or
16 other materials provided with the distribution.
17
18 Neither the names of the copyright holders nor the names of its contributors may
19 be used to endorse or promote products derived from this software without
20 specific prior written permission. 
21
22 THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
23 ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
24 WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
25 DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
26 ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
27 (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
28 LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
29 ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
30 (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
31 SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
32
33 ----------------------------------------------------------------------------- */
34
35 /*
36 Nurail: Used pm_md3.c (Randy Reddig) as a template.
37 */
38
39
40 /* marker */
41 #define PM_MD2_C
42
43 /* dependencies */
44 #include "picointernal.h"
45
46
47 /* md2 model format */
48 #define MD2_MAGIC                               "IDP2"
49 #define MD2_VERSION                             8
50
51 #define MD2_NUMVERTEXNORMALS    162
52 #define MD2_MAX_SKINNAME                64
53 #define MD2_MAX_TRIANGLES               4096
54 #define MD2_MAX_VERTS                   2048
55 #define MD2_MAX_FRAMES                  512
56 #define MD2_MAX_MD2SKINS                32
57 #define MD2_MAX_SKINNAME                64
58
59 #ifndef byte
60         #define byte unsigned char
61 #endif
62
63 typedef struct index_LUT_s
64 {
65         short   Vert;
66         short   ST;
67         struct  index_LUT_s     *next;
68
69 } index_LUT_t;
70
71 typedef struct index_DUP_LUT_s
72 {
73         short                   ST;
74         short                   OldVert;
75
76 } index_DUP_LUT_t;
77
78 typedef struct
79 {
80         short   s;
81         short   t;
82 } md2St_t;
83
84 typedef struct
85 {
86         short   index_xyz[3];
87         short   index_st[3];
88 } md2Triangle_t;
89
90 typedef struct
91 {
92         byte    v[3];                   // scaled byte to fit in frame mins/maxs
93         byte    lightnormalindex;
94 } md2XyzNormal_t;
95
96 typedef struct md2Frame_s
97 {
98         float           scale[3];       // multiply byte verts by this
99         float           translate[3];   // then add this
100         char            name[16];       // frame name from grabbing
101         md2XyzNormal_t  verts[1];       // variable sized
102 }
103 md2Frame_t;
104
105
106 /* md2 model file md2 structure */
107 typedef struct md2_s
108 {
109         char    magic[ 4 ];
110         int     version;
111
112         int     skinWidth;
113         int     skinHeight;
114         int     frameSize;
115
116         int     numSkins;
117         int     numXYZ;
118         int     numST;
119         int     numTris;
120         int     numGLCmds;
121         int     numFrames;
122
123         int     ofsSkins;
124         int     ofsST;
125         int     ofsTris;
126         int     ofsFrames;
127         int     ofsGLCmds;
128         int     ofsEnd;
129 }
130 md2_t;
131
132 float   md2_normals[ MD2_NUMVERTEXNORMALS ][ 3 ] =
133 {
134         { -0.525731f, 0.000000f, 0.850651f },
135         { -0.442863f, 0.238856f, 0.864188f }, 
136         { -0.295242f, 0.000000f, 0.955423f }, 
137         { -0.309017f, 0.500000f, 0.809017f }, 
138         { -0.162460f, 0.262866f, 0.951056f }, 
139         { 0.000000f, 0.000000f, 1.000000f },
140         { 0.000000f, 0.850651f, 0.525731f },
141         { -0.147621f, 0.716567f, 0.681718f },
142         { 0.147621f, 0.716567f, 0.681718f }, 
143         { 0.000000f, 0.525731f, 0.850651f }, 
144         { 0.309017f, 0.500000f, 0.809017f }, 
145         { 0.525731f, 0.000000f, 0.850651f }, 
146         { 0.295242f, 0.000000f, 0.955423f }, 
147         { 0.442863f, 0.238856f, 0.864188f }, 
148         { 0.162460f, 0.262866f, 0.951056f }, 
149         { -0.681718f, 0.147621f, 0.716567f }, 
150         { -0.809017f, 0.309017f, 0.500000f }, 
151         { -0.587785f, 0.425325f, 0.688191f }, 
152         { -0.850651f, 0.525731f, 0.000000f }, 
153         { -0.864188f, 0.442863f, 0.238856f }, 
154         { -0.716567f, 0.681718f, 0.147621f }, 
155         { -0.688191f, 0.587785f, 0.425325f }, 
156         { -0.500000f, 0.809017f, 0.309017f }, 
157         { -0.238856f, 0.864188f, 0.442863f }, 
158         { -0.425325f, 0.688191f, 0.587785f }, 
159         { -0.716567f, 0.681718f, -0.147621f }, 
160         { -0.500000f, 0.809017f, -0.309017f }, 
161         { -0.525731f, 0.850651f, 0.000000f }, 
162         { 0.000000f, 0.850651f, -0.525731f }, 
163         { -0.238856f, 0.864188f, -0.442863f }, 
164         { 0.000000f, 0.955423f, -0.295242f }, 
165         { -0.262866f, 0.951056f, -0.162460f }, 
166         { 0.000000f, 1.000000f, 0.000000f }, 
167         { 0.000000f, 0.955423f, 0.295242f }, 
168         { -0.262866f, 0.951056f, 0.162460f }, 
169         { 0.238856f, 0.864188f, 0.442863f }, 
170         { 0.262866f, 0.951056f, 0.162460f }, 
171         { 0.500000f, 0.809017f, 0.309017f }, 
172         { 0.238856f, 0.864188f, -0.442863f }, 
173         { 0.262866f, 0.951056f, -0.162460f }, 
174         { 0.500000f, 0.809017f, -0.309017f }, 
175         { 0.850651f, 0.525731f, 0.000000f }, 
176         { 0.716567f, 0.681718f, 0.147621f }, 
177         { 0.716567f, 0.681718f, -0.147621f }, 
178         { 0.525731f, 0.850651f, 0.000000f }, 
179         { 0.425325f, 0.688191f, 0.587785f }, 
180         { 0.864188f, 0.442863f, 0.238856f }, 
181         { 0.688191f, 0.587785f, 0.425325f }, 
182         { 0.809017f, 0.309017f, 0.500000f }, 
183         { 0.681718f, 0.147621f, 0.716567f }, 
184         { 0.587785f, 0.425325f, 0.688191f }, 
185         { 0.955423f, 0.295242f, 0.000000f }, 
186         { 1.000000f, 0.000000f, 0.000000f }, 
187         { 0.951056f, 0.162460f, 0.262866f }, 
188         { 0.850651f, -0.525731f, 0.000000f }, 
189         { 0.955423f, -0.295242f, 0.000000f }, 
190         { 0.864188f, -0.442863f, 0.238856f }, 
191         { 0.951056f, -0.162460f, 0.262866f }, 
192         { 0.809017f, -0.309017f, 0.500000f }, 
193         { 0.681718f, -0.147621f, 0.716567f }, 
194         { 0.850651f, 0.000000f, 0.525731f }, 
195         { 0.864188f, 0.442863f, -0.238856f }, 
196         { 0.809017f, 0.309017f, -0.500000f }, 
197         { 0.951056f, 0.162460f, -0.262866f }, 
198         { 0.525731f, 0.000000f, -0.850651f }, 
199         { 0.681718f, 0.147621f, -0.716567f }, 
200         { 0.681718f, -0.147621f, -0.716567f }, 
201         { 0.850651f, 0.000000f, -0.525731f }, 
202         { 0.809017f, -0.309017f, -0.500000f }, 
203         { 0.864188f, -0.442863f, -0.238856f }, 
204         { 0.951056f, -0.162460f, -0.262866f }, 
205         { 0.147621f, 0.716567f, -0.681718f }, 
206         { 0.309017f, 0.500000f, -0.809017f }, 
207         { 0.425325f, 0.688191f, -0.587785f }, 
208         { 0.442863f, 0.238856f, -0.864188f }, 
209         { 0.587785f, 0.425325f, -0.688191f }, 
210         { 0.688191f, 0.587785f, -0.425325f }, 
211         { -0.147621f, 0.716567f, -0.681718f }, 
212         { -0.309017f, 0.500000f, -0.809017f }, 
213         { 0.000000f, 0.525731f, -0.850651f }, 
214         { -0.525731f, 0.000000f, -0.850651f }, 
215         { -0.442863f, 0.238856f, -0.864188f }, 
216         { -0.295242f, 0.000000f, -0.955423f }, 
217         { -0.162460f, 0.262866f, -0.951056f }, 
218         { 0.000000f, 0.000000f, -1.000000f }, 
219         { 0.295242f, 0.000000f, -0.955423f }, 
220         { 0.162460f, 0.262866f, -0.951056f }, 
221         { -0.442863f, -0.238856f, -0.864188f }, 
222         { -0.309017f, -0.500000f, -0.809017f }, 
223         { -0.162460f, -0.262866f, -0.951056f }, 
224         { 0.000000f, -0.850651f, -0.525731f }, 
225         { -0.147621f, -0.716567f, -0.681718f }, 
226         { 0.147621f, -0.716567f, -0.681718f }, 
227         { 0.000000f, -0.525731f, -0.850651f }, 
228         { 0.309017f, -0.500000f, -0.809017f }, 
229         { 0.442863f, -0.238856f, -0.864188f }, 
230         { 0.162460f, -0.262866f, -0.951056f }, 
231         { 0.238856f, -0.864188f, -0.442863f }, 
232         { 0.500000f, -0.809017f, -0.309017f }, 
233         { 0.425325f, -0.688191f, -0.587785f }, 
234         { 0.716567f, -0.681718f, -0.147621f }, 
235         { 0.688191f, -0.587785f, -0.425325f }, 
236         { 0.587785f, -0.425325f, -0.688191f }, 
237         { 0.000000f, -0.955423f, -0.295242f }, 
238         { 0.000000f, -1.000000f, 0.000000f }, 
239         { 0.262866f, -0.951056f, -0.162460f }, 
240         { 0.000000f, -0.850651f, 0.525731f }, 
241         { 0.000000f, -0.955423f, 0.295242f }, 
242         { 0.238856f, -0.864188f, 0.442863f }, 
243         { 0.262866f, -0.951056f, 0.162460f }, 
244         { 0.500000f, -0.809017f, 0.309017f }, 
245         { 0.716567f, -0.681718f, 0.147621f }, 
246         { 0.525731f, -0.850651f, 0.000000f }, 
247         { -0.238856f, -0.864188f, -0.442863f }, 
248         { -0.500000f, -0.809017f, -0.309017f }, 
249         { -0.262866f, -0.951056f, -0.162460f }, 
250         { -0.850651f, -0.525731f, 0.000000f }, 
251         { -0.716567f, -0.681718f, -0.147621f }, 
252         { -0.716567f, -0.681718f, 0.147621f }, 
253         { -0.525731f, -0.850651f, 0.000000f }, 
254         { -0.500000f, -0.809017f, 0.309017f }, 
255         { -0.238856f, -0.864188f, 0.442863f }, 
256         { -0.262866f, -0.951056f, 0.162460f }, 
257         { -0.864188f, -0.442863f, 0.238856f }, 
258         { -0.809017f, -0.309017f, 0.500000f }, 
259         { -0.688191f, -0.587785f, 0.425325f }, 
260         { -0.681718f, -0.147621f, 0.716567f }, 
261         { -0.442863f, -0.238856f, 0.864188f }, 
262         { -0.587785f, -0.425325f, 0.688191f }, 
263         { -0.309017f, -0.500000f, 0.809017f }, 
264         { -0.147621f, -0.716567f, 0.681718f }, 
265         { -0.425325f, -0.688191f, 0.587785f }, 
266         { -0.162460f, -0.262866f, 0.951056f }, 
267         { 0.442863f, -0.238856f, 0.864188f }, 
268         { 0.162460f, -0.262866f, 0.951056f }, 
269         { 0.309017f, -0.500000f, 0.809017f }, 
270         { 0.147621f, -0.716567f, 0.681718f }, 
271         { 0.000000f, -0.525731f, 0.850651f }, 
272         { 0.425325f, -0.688191f, 0.587785f }, 
273         { 0.587785f, -0.425325f, 0.688191f }, 
274         { 0.688191f, -0.587785f, 0.425325f }, 
275         { -0.955423f, 0.295242f, 0.000000f }, 
276         { -0.951056f, 0.162460f, 0.262866f }, 
277         { -1.000000f, 0.000000f, 0.000000f }, 
278         { -0.850651f, 0.000000f, 0.525731f }, 
279         { -0.955423f, -0.295242f, 0.000000f }, 
280         { -0.951056f, -0.162460f, 0.262866f }, 
281         { -0.864188f, 0.442863f, -0.238856f }, 
282         { -0.951056f, 0.162460f, -0.262866f }, 
283         { -0.809017f, 0.309017f, -0.500000f }, 
284         { -0.864188f, -0.442863f, -0.238856f },
285         { -0.951056f, -0.162460f, -0.262866f }, 
286         { -0.809017f, -0.309017f, -0.500000f }, 
287         { -0.681718f, 0.147621f, -0.716567f }, 
288         { -0.681718f, -0.147621f, -0.716567f }, 
289         { -0.850651f, 0.000000f, -0.525731f }, 
290         { -0.688191f, 0.587785f, -0.425325f }, 
291         { -0.587785f, 0.425325f, -0.688191f }, 
292         { -0.425325f, 0.688191f, -0.587785f }, 
293         { -0.425325f, -0.688191f, -0.587785f }, 
294         { -0.587785f, -0.425325f, -0.688191f }, 
295         { -0.688191f, -0.587785f, -0.425325f }, 
296 };
297
298
299 // _md2_canload()
300
301 static int _md2_canload( PM_PARAMS_CANLOAD )
302 {
303         md2_t   *md2;
304
305         /* to keep the compiler happy */
306         *fileName = *fileName;
307
308         /* sanity check */
309         if( bufSize < ( sizeof( *md2 ) * 2) )
310                 return PICO_PMV_ERROR_SIZE;
311         
312         /* set as md2 */
313         md2 = (md2_t*) buffer;
314         
315         /* check md2 magic */
316         if( *((int*) md2->magic) != *((int*) MD2_MAGIC) ) 
317                 return PICO_PMV_ERROR_IDENT;
318         
319         /* check md2 version */
320         if( _pico_little_long( md2->version ) != MD2_VERSION )
321                 return PICO_PMV_ERROR_VERSION;
322
323         /* file seems to be a valid md2 */
324         return PICO_PMV_OK;
325 }
326
327
328
329 // _md2_load() loads a quake2 md2 model file.
330
331
332 static picoModel_t *_md2_load( PM_PARAMS_LOAD )
333 {
334         int                             i, j, dups, dup_index;
335         short                   tot_numVerts;
336         index_LUT_t             *p_index_LUT, *p_index_LUT2, *p_index_LUT3;
337         index_DUP_LUT_t *p_index_LUT_DUPS;
338         md2Triangle_t   *p_md2Triangle;
339
340         char                    skinname[ MD2_MAX_SKINNAME ];
341         md2_t                   *md2;
342         md2St_t                 *texCoord;
343         md2Frame_t              *frame;
344         md2Triangle_t   *triangle;
345         md2XyzNormal_t  *vertex;
346
347         picoByte_t      *bb;
348         picoModel_t             *picoModel;
349         picoSurface_t   *picoSurface;
350         picoShader_t    *picoShader;
351         picoVec3_t              xyz, normal;
352         picoVec2_t              st;
353         picoColor_t             color;
354         
355
356         // md2 loading
357         _pico_printf( PICO_NORMAL, "Loading \"%s\"", fileName );
358
359         /* set as md2 */
360         bb = (picoByte_t*) buffer;
361         md2     = (md2_t*) buffer;
362
363         /* check ident and version */
364         if( *((int*) md2->magic) != *((int*) MD2_MAGIC) || _pico_little_long( md2->version ) != MD2_VERSION )
365         {
366                 /* not an md2 file (todo: set error) */
367                 _pico_printf( PICO_ERROR, "%s is not an MD2 File!", fileName );
368                 return NULL;
369         }
370         
371         // swap md2
372         md2->version = _pico_little_long( md2->version );
373
374         md2->skinWidth = _pico_little_long( md2->skinWidth );
375         md2->skinHeight = _pico_little_long( md2->skinHeight );
376         md2->frameSize = _pico_little_long( md2->frameSize );
377
378         md2->numSkins = _pico_little_long( md2->numSkins );
379         md2->numXYZ = _pico_little_long( md2->numXYZ );
380         md2->numST = _pico_little_long( md2->numST );
381         md2->numTris = _pico_little_long( md2->numTris );
382         md2->numGLCmds = _pico_little_long( md2->numGLCmds );
383         md2->numFrames = _pico_little_long( md2->numFrames );
384
385         md2->ofsSkins = _pico_little_long( md2->ofsSkins );
386         md2->ofsST = _pico_little_long( md2->ofsST );
387         md2->ofsTris = _pico_little_long( md2->ofsTris );
388         md2->ofsFrames = _pico_little_long( md2->ofsFrames );
389         md2->ofsGLCmds = _pico_little_long( md2->ofsGLCmds );
390         md2->ofsEnd = _pico_little_long( md2->ofsEnd );
391
392         // do frame check
393         if( md2->numFrames < 1 )
394         {
395                 _pico_printf( PICO_ERROR, "%s has 0 frames!", fileName );
396                 return NULL;
397         }
398         
399         if( frameNum < 0 || frameNum >= md2->numFrames )
400         {
401                 _pico_printf( PICO_ERROR, "Invalid or out-of-range MD2 frame specified" );
402                 return NULL;
403         }
404
405         // Setup Frame
406         frame = (md2Frame_t *) (bb + md2->ofsFrames + (sizeof(md2Frame_t) * frameNum));
407
408         // swap frame scale and translation
409         for( i = 0; i < 3; i++ )
410         {
411                 frame->scale[ i ] = _pico_little_float( frame->scale[ i ] );
412                 frame->translate[ i ] = _pico_little_float( frame->translate[ i ] );
413         }
414
415         // swap triangles
416         triangle = (md2Triangle_t *) ((picoByte_t *) (bb + md2->ofsTris) );
417         for( i = 0; i < md2->numTris; i++, triangle++ )
418         {
419                 for( j = 0; j < 3; j++ )
420                 {
421                         triangle->index_xyz[ j ] = _pico_little_short( triangle->index_xyz[ j ] );
422                         triangle->index_st[ j ] = _pico_little_short( triangle->index_st[ j ] );
423                 }
424         }
425
426         // swap st coords
427         texCoord = (md2St_t*) ((picoByte_t *) (bb + md2->ofsST) );
428         for( i = 0; i < md2->numST; i++, texCoord++ )
429         {
430                 texCoord->s = _pico_little_short( texCoord->s );
431                 texCoord->t = _pico_little_short( texCoord->t );
432         }
433
434         // set Skin Name
435         strncpy(skinname, (bb + md2->ofsSkins), MD2_MAX_SKINNAME );
436
437         // Print out md2 values
438         _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 );
439
440         // detox Skin name
441         _pico_setfext( skinname, "" );
442         _pico_unixify( skinname );
443
444         /* create new pico model */
445         picoModel = PicoNewModel();
446         if( picoModel == NULL )
447         {
448                 _pico_printf( PICO_ERROR, "Unable to allocate a new model" );
449                 return NULL;
450         }
451
452         /* do model setup */
453         PicoSetModelFrameNum( picoModel, frameNum );
454         PicoSetModelNumFrames( picoModel, md2->numFrames ); /* sea */
455         PicoSetModelName( picoModel, fileName );
456         PicoSetModelFileName( picoModel, fileName );
457
458         // allocate new pico surface
459         picoSurface = PicoNewSurface( picoModel );
460         if( picoSurface == NULL )
461         {
462                 _pico_printf( PICO_ERROR, "Unable to allocate a new model surface" );
463                 PicoFreeModel( picoModel );
464                 return NULL;
465         }
466
467
468         PicoSetSurfaceType( picoSurface, PICO_TRIANGLES );
469         PicoSetSurfaceName( picoSurface, frame->name );
470         picoShader = PicoNewShader( picoModel );
471         if( picoShader == NULL )
472         {
473                 _pico_printf( PICO_ERROR, "Unable to allocate a new model shader" );
474                 PicoFreeModel( picoModel );
475                 return NULL;
476         }
477
478         PicoSetShaderName( picoShader, skinname );
479
480         // associate current surface with newly created shader
481         PicoSetSurfaceShader( picoSurface, picoShader );
482
483         // Init LUT for Verts
484         p_index_LUT = (index_LUT_t *)_pico_alloc(sizeof(index_LUT_t) * md2->numXYZ);
485         for(i=0; i<md2->numXYZ; i++)
486         {
487                 p_index_LUT[i].Vert = -1;
488                 p_index_LUT[i].ST = -1;
489                 p_index_LUT[i].next = NULL;
490         }
491
492         // Fill in Look Up Table, and allocate/fill Linked List from vert array as needed for dup STs per Vert.
493         tot_numVerts = md2->numXYZ;
494         dups = 0;
495         for(i=0; i<md2->numTris; i++)
496         {
497                 p_md2Triangle = (md2Triangle_t *) ( bb + md2->ofsTris + (sizeof(md2Triangle_t)*i));
498                 for(j=0; j<3; j++)
499                 {
500                         if (p_index_LUT[p_md2Triangle->index_xyz[j]].ST == -1) // No Main Entry
501                                 p_index_LUT[p_md2Triangle->index_xyz[j]].ST = p_md2Triangle->index_st[j];
502
503                         else if (p_md2Triangle->index_st[j] == p_index_LUT[p_md2Triangle->index_xyz[j]].ST ) // Equal to Main Entry
504                                 continue;
505
506                         else if ( (p_index_LUT[p_md2Triangle->index_xyz[j]].next == NULL) )  // Not equal to Main entry, and no LL entry
507                         {       // Add first entry of LL from Main
508                                 p_index_LUT2 = (index_LUT_t *)_pico_alloc(sizeof(index_LUT_t));
509                                 if (p_index_LUT2 == NULL)
510                                         _pico_printf( PICO_ERROR," Couldn't allocate memory!\n");
511                                 p_index_LUT[p_md2Triangle->index_xyz[j]].next = (index_LUT_t *)p_index_LUT2;
512                                 p_index_LUT2->Vert = dups;
513                                 p_index_LUT2->ST = p_md2Triangle->index_st[j];
514                                 p_index_LUT2->next = NULL;
515                                 p_md2Triangle->index_xyz[j] = dups + md2->numXYZ; // Make change in Tri hunk
516                                 dups++;
517                         }
518                         else // Try to find in LL from Main Entry
519                         {
520                                 p_index_LUT3 = p_index_LUT2 = p_index_LUT[p_md2Triangle->index_xyz[j]].next;
521                                 while ( (p_index_LUT2 != NULL) && (p_md2Triangle->index_xyz[j] != p_index_LUT2->Vert) ) // Walk down LL
522                                 {
523                                         p_index_LUT3 = p_index_LUT2;
524                                         p_index_LUT2 = p_index_LUT2->next;
525                                 }
526                                 p_index_LUT2 = p_index_LUT3;
527
528                                 if ( p_md2Triangle->index_st[j] == p_index_LUT2->ST ) // Found it
529                                 {
530                                         p_md2Triangle->index_xyz[j] = p_index_LUT2->Vert + md2->numXYZ; // Make change in Tri hunk
531                                         continue;
532                                 }
533
534                                 if ( p_index_LUT2->next == NULL)  // Didn't find it. Add entry to LL.
535                                 {
536                                         // Add the Entry
537                                         p_index_LUT3 = (index_LUT_t *)_pico_alloc(sizeof(index_LUT_t));
538                                         if (p_index_LUT3 == NULL)
539                                                 _pico_printf( PICO_ERROR," Couldn't allocate memory!\n");
540                                         p_index_LUT2->next = (index_LUT_t *)p_index_LUT3;
541                                         p_index_LUT3->Vert = p_md2Triangle->index_xyz[j];
542                                         p_index_LUT3->ST = p_md2Triangle->index_st[j];
543                                         p_index_LUT3->next = NULL;
544                                         p_md2Triangle->index_xyz[j] = dups + md2->numXYZ; // Make change in Tri hunk
545                                         dups++;
546                                 }
547                         }
548                 }
549         }
550
551         // malloc and build array for Dup STs
552         p_index_LUT_DUPS = (index_DUP_LUT_t *)_pico_alloc(sizeof(index_DUP_LUT_t) * dups);
553         if (p_index_LUT_DUPS == NULL)
554                 _pico_printf( PICO_ERROR," Couldn't allocate memory!\n");
555
556         dup_index = 0;
557         for(i=0; i<md2->numXYZ; i++)
558         {
559                 p_index_LUT2 = p_index_LUT[i].next;
560                 while (p_index_LUT2 != NULL)
561                 {
562                         p_index_LUT_DUPS[p_index_LUT2->Vert].OldVert = i;
563                         p_index_LUT_DUPS[p_index_LUT2->Vert].ST = p_index_LUT2->ST;
564                         dup_index++;
565                         p_index_LUT2 = p_index_LUT2->next;
566                 }
567         }
568
569         // Build Picomodel
570         triangle = (md2Triangle_t *) ((picoByte_t *) (bb + md2->ofsTris) );
571         texCoord = (md2St_t*) ((picoByte_t *) (bb + md2->ofsST) );
572         vertex = (md2XyzNormal_t*) ((picoByte_t*) (frame->verts) );
573         for( j = 0; j < md2->numTris; j++, triangle++ )
574         {
575                 PicoSetSurfaceIndex( picoSurface, j*3   , triangle->index_xyz[0] );
576                 PicoSetSurfaceIndex( picoSurface, j*3+1 , triangle->index_xyz[1] );
577                 PicoSetSurfaceIndex( picoSurface, j*3+2 , triangle->index_xyz[2] );
578         }
579
580         for(i=0; i< md2->numXYZ; i++, vertex++)
581         {
582                 /* set vertex origin */
583                 xyz[ 0 ] = vertex->v[0] * frame->scale[0] + frame->translate[0];
584                 xyz[ 1 ] = vertex->v[1] * frame->scale[1] + frame->translate[1];
585                 xyz[ 2 ] = vertex->v[2] * frame->scale[2] + frame->translate[2];
586                 PicoSetSurfaceXYZ( picoSurface, i , xyz );
587
588                 /* set normal */
589                 normal[ 0 ] = md2_normals[vertex->lightnormalindex][0];
590                 normal[ 1 ] = md2_normals[vertex->lightnormalindex][1];
591                 normal[ 2 ] = md2_normals[vertex->lightnormalindex][2];
592                 PicoSetSurfaceNormal( picoSurface, i , normal );
593
594                 /* set st coords */
595                 st[ 0 ] =  ((texCoord[p_index_LUT[i].ST].s) / ((float)md2->skinWidth));
596                 st[ 1 ] =  (texCoord[p_index_LUT[i].ST].t / ((float)md2->skinHeight));
597                 PicoSetSurfaceST( picoSurface, 0, i , st );
598         }
599
600         if (dups)
601         {
602                 for(i=0; i<dups; i++)
603                 {
604                         j = p_index_LUT_DUPS[i].OldVert;
605                         /* set vertex origin */
606                         xyz[ 0 ] = frame->verts[j].v[0] * frame->scale[0] + frame->translate[0];
607                         xyz[ 1 ] = frame->verts[j].v[1] * frame->scale[1] + frame->translate[1];
608                         xyz[ 2 ] = frame->verts[j].v[2] * frame->scale[2] + frame->translate[2];
609                         PicoSetSurfaceXYZ( picoSurface, i + md2->numXYZ , xyz );
610
611                         /* set normal */
612                         normal[ 0 ] = md2_normals[frame->verts[j].lightnormalindex][0];
613                         normal[ 1 ] = md2_normals[frame->verts[j].lightnormalindex][1];
614                         normal[ 2 ] = md2_normals[frame->verts[j].lightnormalindex][2];
615                         PicoSetSurfaceNormal( picoSurface, i + md2->numXYZ , normal );
616
617                         /* set st coords */
618                         st[ 0 ] =  ((texCoord[p_index_LUT_DUPS[i].ST].s) / ((float)md2->skinWidth));
619                         st[ 1 ] =  (texCoord[p_index_LUT_DUPS[i].ST].t / ((float)md2->skinHeight));
620                         PicoSetSurfaceST( picoSurface, 0, i + md2->numXYZ , st );
621                 }
622         }
623
624         /* set color */
625         PicoSetSurfaceColor( picoSurface, 0, 0, color );
626
627         // Free up malloc'ed LL entries
628         for(i=0; i<md2->numXYZ; i++)
629         {
630                 if(p_index_LUT[i].next != NULL)
631                 {
632                         p_index_LUT2 = p_index_LUT[i].next;
633                         do {
634                                 p_index_LUT3 = p_index_LUT2->next;
635                                 _pico_free(p_index_LUT2);
636                                 p_index_LUT2 = p_index_LUT3;
637                                 dups--;
638                         } while (p_index_LUT2 != NULL);
639                 }
640         }
641
642         if (dups)
643                 _pico_printf(PICO_WARNING, " Not all LL mallocs freed\n");
644
645         // Free malloc'ed LUTs
646         _pico_free(p_index_LUT);
647         _pico_free(p_index_LUT_DUPS);
648
649         /* return the new pico model */
650         return picoModel;
651
652 }
653
654
655
656 /* pico file format module definition */
657 const picoModule_t picoModuleMD2 =
658 {
659         "0.875",                                                /* module version string */
660         "Quake 2 MD2",                                  /* module display name */
661         "Nurail",                                               /* author's name */
662         "2003 Nurail",                                  /* module copyright */
663         {
664                 "md2", NULL, NULL, NULL         /* default extensions to use */
665         },
666         _md2_canload,                                   /* validation routine */
667         _md2_load,                                              /* load routine */
668          NULL,                                                  /* save validation routine */
669          NULL                                                   /* save routine */
670 };