ref: bea7b7bf8ccbc2bc41906517079e76fcfb31cb5a
dir: /common/aselib.c/
/* =========================================================================== Copyright (C) 1999-2005 Id Software, Inc. This file is part of Quake III Arena source code. Quake III Arena source code is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. Quake III Arena source code is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with Foobar; if not, write to the Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA =========================================================================== */ #include "aselib.h" #include <assert.h> #include <stdio.h> #include <stdlib.h> #define MAX_ASE_MATERIALS 32 #define MAX_ASE_OBJECTS 64 #define MAX_ASE_ANIMATIONS 32 #define MAX_ASE_ANIMATION_FRAMES 512 #define VERBOSE( x ) { if ( ase.verbose ) { printf x ; } } typedef struct { float x, y, z; float nx, ny, nz; float s, t; } aseVertex_t; typedef struct { float s, t; } aseTVertex_t; typedef int aseFace_t[3]; typedef struct { int numFaces; int numVertexes; int numTVertexes; int timeValue; aseVertex_t *vertexes; aseTVertex_t *tvertexes; aseFace_t *faces, *tfaces; int currentFace, currentVertex; } aseMesh_t; typedef struct { int numFrames; aseMesh_t frames[MAX_ASE_ANIMATION_FRAMES]; int currentFrame; } aseMeshAnimation_t; typedef struct { char name[128]; } aseMaterial_t; /* ** contains the animate sequence of a single surface ** using a single material */ typedef struct { char name[128]; int materialRef; int numAnimations; aseMeshAnimation_t anim; } aseGeomObject_t; typedef struct { int numMaterials; aseMaterial_t materials[MAX_ASE_MATERIALS]; aseGeomObject_t objects[MAX_ASE_OBJECTS]; char *buffer; char *curpos; int len; int currentObject; qboolean verbose; qboolean grabAnims; } ase_t; static char s_token[1024]; static ase_t ase; static void ASE_Process( void ); static void ASE_FreeGeomObject( int ndx ); /* ** ASE_Load */ void ASE_Load( const char *filename, qboolean verbose, qboolean grabAnims ) { FILE *fp = fopen( filename, "rb" ); if ( !fp ) Error( "File not found '%s'", filename ); memset( &ase, 0, sizeof( ase ) ); ase.verbose = verbose; ase.grabAnims = grabAnims; ase.len = Q_filelength( fp ); ase.curpos = ase.buffer = malloc( ase.len ); printf( "Processing '%s'\n", filename ); if ( fread( ase.buffer, ase.len, 1, fp ) != 1 ) { fclose( fp ); Error( "fread() != -1 for '%s'", filename ); } fclose( fp ); ASE_Process(); } /* ** ASE_Free */ void ASE_Free( void ) { int i; for ( i = 0; i < ase.currentObject; i++ ) { ASE_FreeGeomObject( i ); } } /* ** ASE_GetNumSurfaces */ int ASE_GetNumSurfaces( void ) { return ase.currentObject; } /* ** ASE_GetSurfaceName */ const char *ASE_GetSurfaceName( int which ) { aseGeomObject_t *pObject = &ase.objects[which]; if ( !pObject->anim.numFrames ) return 0; return pObject->name; } /* ** ASE_GetSurfaceAnimation ** ** Returns an animation (sequence of polysets) */ polyset_t *ASE_GetSurfaceAnimation( int which, int *pNumFrames, int skipFrameStart, int skipFrameEnd, int maxFrames ) { aseGeomObject_t *pObject = &ase.objects[which]; polyset_t *psets; int numFramesInAnimation; int numFramesToKeep; int i, f; if ( !pObject->anim.numFrames ) return 0; if ( pObject->anim.numFrames > maxFrames && maxFrames != -1 ) { numFramesInAnimation = maxFrames; } else { numFramesInAnimation = pObject->anim.numFrames; if ( maxFrames != -1 ) printf( "WARNING: ASE_GetSurfaceAnimation maxFrames > numFramesInAnimation\n" ); } if ( skipFrameEnd != -1 ) numFramesToKeep = numFramesInAnimation - ( skipFrameEnd - skipFrameStart + 1 ); else numFramesToKeep = numFramesInAnimation; *pNumFrames = numFramesToKeep; psets = calloc( sizeof( polyset_t ) * numFramesToKeep, 1 ); for ( f = 0, i = 0; i < numFramesInAnimation; i++ ) { int t; aseMesh_t *pMesh = &pObject->anim.frames[i]; if ( skipFrameStart != -1 ) { if ( i >= skipFrameStart && i <= skipFrameEnd ) continue; } strcpy( psets[f].name, pObject->name ); strcpy( psets[f].materialname, ase.materials[pObject->materialRef].name ); psets[f].triangles = calloc( sizeof( triangle_t ) * pObject->anim.frames[i].numFaces, 1 ); psets[f].numtriangles = pObject->anim.frames[i].numFaces; for ( t = 0; t < pObject->anim.frames[i].numFaces; t++ ) { int k; for ( k = 0; k < 3; k++ ) { psets[f].triangles[t].verts[k][0] = pMesh->vertexes[pMesh->faces[t][k]].x; psets[f].triangles[t].verts[k][1] = pMesh->vertexes[pMesh->faces[t][k]].y; psets[f].triangles[t].verts[k][2] = pMesh->vertexes[pMesh->faces[t][k]].z; if ( pMesh->tvertexes && pMesh->tfaces ) { psets[f].triangles[t].texcoords[k][0] = pMesh->tvertexes[pMesh->tfaces[t][k]].s; psets[f].triangles[t].texcoords[k][1] = pMesh->tvertexes[pMesh->tfaces[t][k]].t; } } } f++; } return psets; } static void ASE_FreeGeomObject( int ndx ) { aseGeomObject_t *pObject; int i; pObject = &ase.objects[ndx]; for ( i = 0; i < pObject->anim.numFrames; i++ ) { if ( pObject->anim.frames[i].vertexes ) { free( pObject->anim.frames[i].vertexes ); } if ( pObject->anim.frames[i].tvertexes ) { free( pObject->anim.frames[i].tvertexes ); } if ( pObject->anim.frames[i].faces ) { free( pObject->anim.frames[i].faces ); } if ( pObject->anim.frames[i].tfaces ) { free( pObject->anim.frames[i].tfaces ); } } memset( pObject, 0, sizeof( *pObject ) ); } static aseMesh_t *ASE_GetCurrentMesh( void ) { aseGeomObject_t *pObject; if ( ase.currentObject >= MAX_ASE_OBJECTS ) { Error( "Too many GEOMOBJECTs" ); return 0; // never called } pObject = &ase.objects[ase.currentObject]; if ( pObject->anim.currentFrame >= MAX_ASE_ANIMATION_FRAMES ) { Error( "Too many MESHes" ); return 0; } return &pObject->anim.frames[pObject->anim.currentFrame]; } static int CharIsTokenDelimiter( int ch ) { if ( ch <= 32 ) return 1; return 0; } static int ASE_GetToken( qboolean restOfLine ) { int i = 0; if ( ase.buffer == 0 ) return 0; if ( ( ase.curpos - ase.buffer ) == ase.len ) return 0; // skip over crap while ( ( ( ase.curpos - ase.buffer ) < ase.len ) && ( *ase.curpos <= 32 ) ) { ase.curpos++; } while ( ( ase.curpos - ase.buffer ) < ase.len ) { s_token[i] = *ase.curpos; ase.curpos++; i++; if ( ( CharIsTokenDelimiter( s_token[i-1] ) && !restOfLine ) || ( ( s_token[i-1] == '\n' ) || ( s_token[i-1] == '\r' ) ) ) { s_token[i-1] = 0; break; } } s_token[i] = 0; return 1; } static void ASE_ParseBracedBlock( void (*parser)( const char *token ) ) { int indent = 0; while ( ASE_GetToken( qfalse ) ) { if ( !strcmp( s_token, "{" ) ) { indent++; } else if ( !strcmp( s_token, "}" ) ) { --indent; if ( indent == 0 ) break; else if ( indent < 0 ) Error( "Unexpected '}'" ); } else { if ( parser ) parser( s_token ); } } } static void ASE_SkipEnclosingBraces( void ) { int indent = 0; while ( ASE_GetToken( qfalse ) ) { if ( !strcmp( s_token, "{" ) ) { indent++; } else if ( !strcmp( s_token, "}" ) ) { indent--; if ( indent == 0 ) break; else if ( indent < 0 ) Error( "Unexpected '}'" ); } } } static void ASE_SkipRestOfLine( void ) { ASE_GetToken( qtrue ); } static void ASE_KeyMAP_DIFFUSE( const char *token ) { char buffer[1024], buff1[1024], buff2[1024]; char *buf1, *buf2; int i = 0, count; if ( !strcmp( token, "*BITMAP" ) ) { ASE_GetToken( qfalse ); strcpy( buffer, s_token + 1 ); if ( strchr( buffer, '"' ) ) *strchr( buffer, '"' ) = 0; while ( buffer[i] ) { if ( buffer[i] == '\\' ) buffer[i] = '/'; i++; } buf1 = buffer; buf2 = gamedir; // need to compare win32 volumes to potential unix junk // if ( (gamedir[1] == ':' && (buffer[0] == '/' && buffer[1] == '/')) || (buffer[1] == ':' && (gamedir[0] == '/' && gamedir[1] == '/')) ) { if (buffer[1] == ':') { buf1 = buffer + 2; buf2 = gamedir + 2; } else { buf1 = gamedir + 2; buf2 = buffer +2; } count = 0; while (*buf2 && count < 2) { if (*buf2 == '/') { count++; } buf2++; } } strcpy(buff1, buf1); strlwr(buff1); strcpy(buff2, buf2); strlwr(buff2); if ( strstr( buff2, buff1 + 2 ) ) { strcpy( ase.materials[ase.numMaterials].name, strstr( buff2, buff1 + 2 ) + strlen( buff1 ) - 2 ); } else { sprintf( ase.materials[ase.numMaterials].name, "(not converted: '%s')", buffer ); printf( "WARNING: illegal material name '%s'\n", buffer ); } } else { } } static void ASE_KeyMATERIAL( const char *token ) { if ( !strcmp( token, "*MAP_DIFFUSE" ) ) { ASE_ParseBracedBlock( ASE_KeyMAP_DIFFUSE ); } else { } } static void ASE_KeyMATERIAL_LIST( const char *token ) { if ( !strcmp( token, "*MATERIAL_COUNT" ) ) { ASE_GetToken( qfalse ); VERBOSE( ( "..num materials: %s\n", s_token ) ); if ( atoi( s_token ) > MAX_ASE_MATERIALS ) { Error( "Too many materials!" ); } ase.numMaterials = 0; } else if ( !strcmp( token, "*MATERIAL" ) ) { VERBOSE( ( "..material %d ", ase.numMaterials ) ); ASE_ParseBracedBlock( ASE_KeyMATERIAL ); ase.numMaterials++; } } static void ASE_KeyMESH_VERTEX_LIST( const char *token ) { aseMesh_t *pMesh = ASE_GetCurrentMesh(); if ( !strcmp( token, "*MESH_VERTEX" ) ) { ASE_GetToken( qfalse ); // skip number ASE_GetToken( qfalse ); pMesh->vertexes[pMesh->currentVertex].y = atof( s_token ); ASE_GetToken( qfalse ); pMesh->vertexes[pMesh->currentVertex].x = -atof( s_token ); ASE_GetToken( qfalse ); pMesh->vertexes[pMesh->currentVertex].z = atof( s_token ); pMesh->currentVertex++; if ( pMesh->currentVertex > pMesh->numVertexes ) { Error( "pMesh->currentVertex >= pMesh->numVertexes" ); } } else { Error( "Unknown token '%s' while parsing MESH_VERTEX_LIST", token ); } } static void ASE_KeyMESH_FACE_LIST( const char *token ) { aseMesh_t *pMesh = ASE_GetCurrentMesh(); if ( !strcmp( token, "*MESH_FACE" ) ) { ASE_GetToken( qfalse ); // skip face number ASE_GetToken( qfalse ); // skip label ASE_GetToken( qfalse ); // first vertex pMesh->faces[pMesh->currentFace][0] = atoi( s_token ); ASE_GetToken( qfalse ); // skip label ASE_GetToken( qfalse ); // second vertex pMesh->faces[pMesh->currentFace][2] = atoi( s_token ); ASE_GetToken( qfalse ); // skip label ASE_GetToken( qfalse ); // third vertex pMesh->faces[pMesh->currentFace][1] = atoi( s_token ); ASE_GetToken( qtrue ); /* if ( ( p = strstr( s_token, "*MESH_MTLID" ) ) != 0 ) { p += strlen( "*MESH_MTLID" ) + 1; mtlID = atoi( p ); } else { Error( "No *MESH_MTLID found for face!" ); } */ pMesh->currentFace++; } else { Error( "Unknown token '%s' while parsing MESH_FACE_LIST", token ); } } static void ASE_KeyTFACE_LIST( const char *token ) { aseMesh_t *pMesh = ASE_GetCurrentMesh(); if ( !strcmp( token, "*MESH_TFACE" ) ) { int a, b, c; ASE_GetToken( qfalse ); ASE_GetToken( qfalse ); a = atoi( s_token ); ASE_GetToken( qfalse ); c = atoi( s_token ); ASE_GetToken( qfalse ); b = atoi( s_token ); pMesh->tfaces[pMesh->currentFace][0] = a; pMesh->tfaces[pMesh->currentFace][1] = b; pMesh->tfaces[pMesh->currentFace][2] = c; pMesh->currentFace++; } else { Error( "Unknown token '%s' in MESH_TFACE", token ); } } static void ASE_KeyMESH_TVERTLIST( const char *token ) { aseMesh_t *pMesh = ASE_GetCurrentMesh(); if ( !strcmp( token, "*MESH_TVERT" ) ) { char u[80], v[80], w[80]; ASE_GetToken( qfalse ); ASE_GetToken( qfalse ); strcpy( u, s_token ); ASE_GetToken( qfalse ); strcpy( v, s_token ); ASE_GetToken( qfalse ); strcpy( w, s_token ); pMesh->tvertexes[pMesh->currentVertex].s = atof( u ); pMesh->tvertexes[pMesh->currentVertex].t = 1.0f - atof( v ); pMesh->currentVertex++; if ( pMesh->currentVertex > pMesh->numTVertexes ) { Error( "pMesh->currentVertex > pMesh->numTVertexes" ); } } else { Error( "Unknown token '%s' while parsing MESH_TVERTLIST" ); } } static void ASE_KeyMESH( const char *token ) { aseMesh_t *pMesh = ASE_GetCurrentMesh(); if ( !strcmp( token, "*TIMEVALUE" ) ) { ASE_GetToken( qfalse ); pMesh->timeValue = atoi( s_token ); VERBOSE( ( ".....timevalue: %d\n", pMesh->timeValue ) ); } else if ( !strcmp( token, "*MESH_NUMVERTEX" ) ) { ASE_GetToken( qfalse ); pMesh->numVertexes = atoi( s_token ); VERBOSE( ( ".....TIMEVALUE: %d\n", pMesh->timeValue ) ); VERBOSE( ( ".....num vertexes: %d\n", pMesh->numVertexes ) ); } else if ( !strcmp( token, "*MESH_NUMFACES" ) ) { ASE_GetToken( qfalse ); pMesh->numFaces = atoi( s_token ); VERBOSE( ( ".....num faces: %d\n", pMesh->numFaces ) ); } else if ( !strcmp( token, "*MESH_NUMTVFACES" ) ) { ASE_GetToken( qfalse ); if ( atoi( s_token ) != pMesh->numFaces ) { Error( "MESH_NUMTVFACES != MESH_NUMFACES" ); } } else if ( !strcmp( token, "*MESH_NUMTVERTEX" ) ) { ASE_GetToken( qfalse ); pMesh->numTVertexes = atoi( s_token ); VERBOSE( ( ".....num tvertexes: %d\n", pMesh->numTVertexes ) ); } else if ( !strcmp( token, "*MESH_VERTEX_LIST" ) ) { pMesh->vertexes = calloc( sizeof( aseVertex_t ) * pMesh->numVertexes, 1 ); pMesh->currentVertex = 0; VERBOSE( ( ".....parsing MESH_VERTEX_LIST\n" ) ); ASE_ParseBracedBlock( ASE_KeyMESH_VERTEX_LIST ); } else if ( !strcmp( token, "*MESH_TVERTLIST" ) ) { pMesh->currentVertex = 0; pMesh->tvertexes = calloc( sizeof( aseTVertex_t ) * pMesh->numTVertexes, 1 ); VERBOSE( ( ".....parsing MESH_TVERTLIST\n" ) ); ASE_ParseBracedBlock( ASE_KeyMESH_TVERTLIST ); } else if ( !strcmp( token, "*MESH_FACE_LIST" ) ) { pMesh->faces = calloc( sizeof( aseFace_t ) * pMesh->numFaces, 1 ); pMesh->currentFace = 0; VERBOSE( ( ".....parsing MESH_FACE_LIST\n" ) ); ASE_ParseBracedBlock( ASE_KeyMESH_FACE_LIST ); } else if ( !strcmp( token, "*MESH_TFACELIST" ) ) { pMesh->tfaces = calloc( sizeof( aseFace_t ) * pMesh->numFaces, 1 ); pMesh->currentFace = 0; VERBOSE( ( ".....parsing MESH_TFACE_LIST\n" ) ); ASE_ParseBracedBlock( ASE_KeyTFACE_LIST ); } else if ( !strcmp( token, "*MESH_NORMALS" ) ) { ASE_ParseBracedBlock( 0 ); } } static void ASE_KeyMESH_ANIMATION( const char *token ) { aseMesh_t *pMesh = ASE_GetCurrentMesh(); // loads a single animation frame if ( !strcmp( token, "*MESH" ) ) { VERBOSE( ( "...found MESH\n" ) ); assert( pMesh->faces == 0 ); assert( pMesh->vertexes == 0 ); assert( pMesh->tvertexes == 0 ); memset( pMesh, 0, sizeof( *pMesh ) ); ASE_ParseBracedBlock( ASE_KeyMESH ); if ( ++ase.objects[ase.currentObject].anim.currentFrame == MAX_ASE_ANIMATION_FRAMES ) { Error( "Too many animation frames" ); } } else { Error( "Unknown token '%s' while parsing MESH_ANIMATION", token ); } } static void ASE_KeyGEOMOBJECT( const char *token ) { if ( !strcmp( token, "*NODE_NAME" ) ) { char *name = ase.objects[ase.currentObject].name; ASE_GetToken( qtrue ); VERBOSE( ( " %s\n", s_token ) ); strcpy( ase.objects[ase.currentObject].name, s_token + 1 ); if ( strchr( ase.objects[ase.currentObject].name, '"' ) ) *strchr( ase.objects[ase.currentObject].name, '"' ) = 0; if ( strstr( name, "tag" ) == name ) { while ( strchr( name, '_' ) != strrchr( name, '_' ) ) { *strrchr( name, '_' ) = 0; } while ( strrchr( name, ' ' ) ) { *strrchr( name, ' ' ) = 0; } } } else if ( !strcmp( token, "*NODE_PARENT" ) ) { ASE_SkipRestOfLine(); } // ignore unused data blocks else if ( !strcmp( token, "*NODE_TM" ) || !strcmp( token, "*TM_ANIMATION" ) ) { ASE_ParseBracedBlock( 0 ); } // ignore regular meshes that aren't part of animation else if ( !strcmp( token, "*MESH" ) && !ase.grabAnims ) { /* if ( strstr( ase.objects[ase.currentObject].name, "tag_" ) == ase.objects[ase.currentObject].name ) { s_forceStaticMesh = true; ASE_ParseBracedBlock( ASE_KeyMESH ); s_forceStaticMesh = false; } */ ASE_ParseBracedBlock( ASE_KeyMESH ); if ( ++ase.objects[ase.currentObject].anim.currentFrame == MAX_ASE_ANIMATION_FRAMES ) { Error( "Too many animation frames" ); } ase.objects[ase.currentObject].anim.numFrames = ase.objects[ase.currentObject].anim.currentFrame; ase.objects[ase.currentObject].numAnimations++; /* // ignore meshes that aren't part of animations if this object isn't a // a tag else { ASE_ParseBracedBlock( 0 ); } */ } // according to spec these are obsolete else if ( !strcmp( token, "*MATERIAL_REF" ) ) { ASE_GetToken( qfalse ); ase.objects[ase.currentObject].materialRef = atoi( s_token ); } // loads a sequence of animation frames else if ( !strcmp( token, "*MESH_ANIMATION" ) ) { if ( ase.grabAnims ) { VERBOSE( ( "..found MESH_ANIMATION\n" ) ); if ( ase.objects[ase.currentObject].numAnimations ) { Error( "Multiple MESH_ANIMATIONS within a single GEOM_OBJECT" ); } ASE_ParseBracedBlock( ASE_KeyMESH_ANIMATION ); ase.objects[ase.currentObject].anim.numFrames = ase.objects[ase.currentObject].anim.currentFrame; ase.objects[ase.currentObject].numAnimations++; } else { ASE_SkipEnclosingBraces(); } } // skip unused info else if ( !strcmp( token, "*PROP_MOTIONBLUR" ) || !strcmp( token, "*PROP_CASTSHADOW" ) || !strcmp( token, "*PROP_RECVSHADOW" ) ) { ASE_SkipRestOfLine(); } } static void ConcatenateObjects( aseGeomObject_t *pObjA, aseGeomObject_t *pObjB ) { } static void CollapseObjects( void ) { int i; int numObjects = ase.currentObject; for ( i = 0; i < numObjects; i++ ) { int j; // skip tags if ( strstr( ase.objects[i].name, "tag" ) == ase.objects[i].name ) { continue; } if ( !ase.objects[i].numAnimations ) { continue; } for ( j = i + 1; j < numObjects; j++ ) { if ( strstr( ase.objects[j].name, "tag" ) == ase.objects[j].name ) { continue; } if ( ase.objects[i].materialRef == ase.objects[j].materialRef ) { if ( ase.objects[j].numAnimations ) { ConcatenateObjects( &ase.objects[i], &ase.objects[j] ); } } } } } /* ** ASE_Process */ static void ASE_Process( void ) { while ( ASE_GetToken( qfalse ) ) { if ( !strcmp( s_token, "*3DSMAX_ASCIIEXPORT" ) || !strcmp( s_token, "*COMMENT" ) ) { ASE_SkipRestOfLine(); } else if ( !strcmp( s_token, "*SCENE" ) ) ASE_SkipEnclosingBraces(); else if ( !strcmp( s_token, "*MATERIAL_LIST" ) ) { VERBOSE( ("MATERIAL_LIST\n") ); ASE_ParseBracedBlock( ASE_KeyMATERIAL_LIST ); } else if ( !strcmp( s_token, "*GEOMOBJECT" ) ) { VERBOSE( ("GEOMOBJECT" ) ); ASE_ParseBracedBlock( ASE_KeyGEOMOBJECT ); if ( strstr( ase.objects[ase.currentObject].name, "Bip" ) || strstr( ase.objects[ase.currentObject].name, "ignore_" ) ) { ASE_FreeGeomObject( ase.currentObject ); VERBOSE( ( "(discarding BIP/ignore object)\n" ) ); } else if ( ( strstr( ase.objects[ase.currentObject].name, "h_" ) != ase.objects[ase.currentObject].name ) && ( strstr( ase.objects[ase.currentObject].name, "l_" ) != ase.objects[ase.currentObject].name ) && ( strstr( ase.objects[ase.currentObject].name, "u_" ) != ase.objects[ase.currentObject].name ) && ( strstr( ase.objects[ase.currentObject].name, "tag" ) != ase.objects[ase.currentObject].name ) && ase.grabAnims ) { VERBOSE( ( "(ignoring improperly labeled object '%s')\n", ase.objects[ase.currentObject].name ) ); ASE_FreeGeomObject( ase.currentObject ); } else { if ( ++ase.currentObject == MAX_ASE_OBJECTS ) { Error( "Too many GEOMOBJECTs" ); } } } else if ( s_token[0] ) { printf( "Unknown token '%s'\n", s_token ); } } if ( !ase.currentObject ) Error( "No animation data!" ); CollapseObjects(); }