+ Mod_FreeSkinFiles(skinfiles);
+}
+
+void Mod_DARKPLACESMODEL_Load(model_t *mod, void *buffer, void *bufferend)
+{
+ dpmheader_t *pheader;
+ dpmframe_t *frame;
+ dpmbone_t *bone;
+ dpmmesh_t *dpmmesh;
+ unsigned char *pbase;
+ int i, j, k;
+ skinfile_t *skinfiles;
+ unsigned char *data;
+
+ pheader = (dpmheader_t *)buffer;
+ pbase = (unsigned char *)buffer;
+ if (memcmp(pheader->id, "DARKPLACESMODEL\0", 16))
+ Host_Error ("Mod_DARKPLACESMODEL_Load: %s is not a darkplaces model");
+ if (BigLong(pheader->type) != 2)
+ Host_Error ("Mod_DARKPLACESMODEL_Load: only type 2 (hierarchical skeletal pose) models are currently supported (name = %s)", loadmodel->name);
+
+ loadmodel->type = mod_alias;
+ loadmodel->flags = 0; // there are no flags on zym models
+ loadmodel->synctype = ST_RAND;
+
+ // byteswap header
+ pheader->type = BigLong(pheader->type);
+ pheader->filesize = BigLong(pheader->filesize);
+ pheader->mins[0] = BigFloat(pheader->mins[0]);
+ pheader->mins[1] = BigFloat(pheader->mins[1]);
+ pheader->mins[2] = BigFloat(pheader->mins[2]);
+ pheader->maxs[0] = BigFloat(pheader->maxs[0]);
+ pheader->maxs[1] = BigFloat(pheader->maxs[1]);
+ pheader->maxs[2] = BigFloat(pheader->maxs[2]);
+ pheader->yawradius = BigFloat(pheader->yawradius);
+ pheader->allradius = BigFloat(pheader->allradius);
+ pheader->num_bones = BigLong(pheader->num_bones);
+ pheader->num_meshs = BigLong(pheader->num_meshs);
+ pheader->num_frames = BigLong(pheader->num_frames);
+ pheader->ofs_bones = BigLong(pheader->ofs_bones);
+ pheader->ofs_meshs = BigLong(pheader->ofs_meshs);
+ pheader->ofs_frames = BigLong(pheader->ofs_frames);
+
+ if (pheader->num_bones < 1 || pheader->num_meshs < 1)
+ {
+ Con_Printf("%s has no geometry\n");
+ return;
+ }
+ if (pheader->num_frames < 1)
+ {
+ Con_Printf("%s has no frames\n");
+ return;
+ }
+
+ loadmodel->DrawSky = NULL;
+ loadmodel->Draw = R_Q1BSP_Draw;
+ loadmodel->CompileShadowVolume = R_Q1BSP_CompileShadowVolume;
+ loadmodel->DrawShadowVolume = R_Q1BSP_DrawShadowVolume;
+ loadmodel->DrawLight = R_Q1BSP_DrawLight;
+ loadmodel->TraceBox = Mod_MDLMD2MD3_TraceBox;
+
+ // model bbox
+ for (i = 0;i < 3;i++)
+ {
+ loadmodel->normalmins[i] = pheader->mins[i];
+ loadmodel->normalmaxs[i] = pheader->maxs[i];
+ loadmodel->yawmins[i] = i != 2 ? -pheader->yawradius : pheader->mins[i];
+ loadmodel->yawmaxs[i] = i != 2 ? pheader->yawradius : pheader->maxs[i];
+ loadmodel->rotatedmins[i] = -pheader->allradius;
+ loadmodel->rotatedmaxs[i] = pheader->allradius;
+ }
+ loadmodel->radius = pheader->allradius;
+ loadmodel->radius2 = pheader->allradius * pheader->allradius;
+
+ // load external .skin files if present
+ skinfiles = Mod_LoadSkinFiles();
+ if (loadmodel->numskins < 1)
+ loadmodel->numskins = 1;
+
+ loadmodel->numframes = pheader->num_frames;
+ loadmodel->num_bones = pheader->num_bones;
+ loadmodel->num_poses = loadmodel->num_bones * loadmodel->numframes;
+ loadmodel->num_textures = loadmodel->nummeshes = loadmodel->nummodelsurfaces = loadmodel->num_surfaces = pheader->num_meshs;
+
+ // do most allocations as one merged chunk
+ data = (unsigned char *)Mem_Alloc(loadmodel->mempool, loadmodel->num_surfaces * sizeof(msurface_t) + loadmodel->num_surfaces * sizeof(int) + loadmodel->nummeshes * sizeof(surfmesh_t *) + loadmodel->nummeshes * sizeof(surfmesh_t) + loadmodel->num_surfaces * loadmodel->numskins * sizeof(texture_t) + loadmodel->numskins * sizeof(animscene_t) + loadmodel->num_bones * sizeof(aliasbone_t) + loadmodel->num_poses * sizeof(float[12]) + loadmodel->numframes * sizeof(animscene_t));
+ loadmodel->data_surfaces = (msurface_t *)data;data += loadmodel->num_surfaces * sizeof(msurface_t);
+ loadmodel->surfacelist = (int *)data;data += loadmodel->num_surfaces * sizeof(int);
+ loadmodel->meshlist = (surfmesh_t **)data;data += loadmodel->num_surfaces * sizeof(surfmesh_t *);
+ loadmodel->data_textures = (texture_t *)data;data += loadmodel->num_surfaces * loadmodel->numskins * sizeof(texture_t);
+ loadmodel->skinscenes = (animscene_t *)data;data += loadmodel->numskins * sizeof(animscene_t);
+ loadmodel->data_bones = (aliasbone_t *)data;data += loadmodel->num_bones * sizeof(aliasbone_t);
+ loadmodel->data_poses = (float *)data;data += loadmodel->num_poses * sizeof(float[12]);
+ loadmodel->animscenes = (animscene_t *)data;data += loadmodel->numframes * sizeof(animscene_t);
+ for (i = 0;i < loadmodel->numskins;i++)
+ {
+ loadmodel->skinscenes[i].firstframe = i;
+ loadmodel->skinscenes[i].framecount = 1;
+ loadmodel->skinscenes[i].loop = true;
+ loadmodel->skinscenes[i].framerate = 10;
+ }
+ for (i = 0;i < loadmodel->num_surfaces;i++)
+ {
+ loadmodel->surfacelist[i] = i;
+ loadmodel->meshlist[i] = (surfmesh_t *)data;data += sizeof(surfmesh_t);
+ }
+
+ // load the bone info
+ bone = (dpmbone_t *) (pbase + pheader->ofs_bones);
+ for (i = 0;i < loadmodel->num_bones;i++)
+ {
+ memcpy(loadmodel->data_bones[i].name, bone[i].name, sizeof(bone[i].name));
+ loadmodel->data_bones[i].flags = BigLong(bone[i].flags);
+ loadmodel->data_bones[i].parent = BigLong(bone[i].parent);
+ if (loadmodel->data_bones[i].parent >= i)
+ Host_Error("%s bone[%i].parent >= %i", loadmodel->name, i, i);
+ }
+
+ // load the frames
+ frame = (dpmframe_t *) (pbase + pheader->ofs_frames);
+ for (i = 0;i < loadmodel->numframes;i++)
+ {
+ const float *poses;
+ memcpy(loadmodel->animscenes[i].name, frame->name, sizeof(frame->name));
+ loadmodel->animscenes[i].firstframe = i;
+ loadmodel->animscenes[i].framecount = 1;
+ loadmodel->animscenes[i].loop = true;
+ loadmodel->animscenes[i].framerate = 10;
+ // load the bone poses for this frame
+ poses = (float *) (pbase + BigLong(frame->ofs_bonepositions));
+ for (j = 0;j < loadmodel->num_bones*12;j++)
+ loadmodel->data_poses[i * loadmodel->num_bones*12 + j] = BigFloat(poses[j]);
+ // stuff not processed here: mins, maxs, yawradius, allradius
+ frame++;
+ }
+
+ // load the meshes now
+ dpmmesh = (dpmmesh_t *) (pbase + pheader->ofs_meshs);
+ for (i = 0;i < loadmodel->num_surfaces;i++)
+ {
+ const int *inelements;
+ int *outelements;
+ const float *intexcoord;
+ surfmesh_t *mesh;
+ msurface_t *surface;
+
+ mesh = loadmodel->meshlist[i];
+ mesh->num_triangles = BigLong(dpmmesh->num_tris);
+ mesh->num_vertices = BigLong(dpmmesh->num_verts);
+
+ // to find out how many weights exist we two a two-stage load...
+ mesh->num_vertexboneweights = 0;
+ data = (unsigned char *) (pbase + BigLong(dpmmesh->ofs_verts));
+ for (j = 0;j < mesh->num_vertices;j++)
+ {
+ int numweights = BigLong(((dpmvertex_t *)data)->numbones);
+ mesh->num_vertexboneweights += numweights;
+ data += sizeof(dpmvertex_t);
+ data += numweights * sizeof(dpmbonevert_t);
+ }
+
+ // allocate things now that we know how many
+ mesh->data_vertexboneweights = (surfmeshvertexboneweight_t *)Mem_Alloc(loadmodel->mempool, mesh->num_vertexboneweights * sizeof(surfmeshvertexboneweight_t));
+ mesh->data_element3i = (int *)Mem_Alloc(loadmodel->mempool, mesh->num_triangles * sizeof(int[3]));
+ mesh->data_neighbor3i = (int *)Mem_Alloc(loadmodel->mempool, mesh->num_triangles * sizeof(int[3]));
+ mesh->data_texcoordtexture2f = (float *)Mem_Alloc(loadmodel->mempool, mesh->num_vertices * sizeof(float[2]));
+
+ inelements = (int *) (pbase + BigLong(dpmmesh->ofs_indices));
+ outelements = mesh->data_element3i;
+ for (j = 0;j < mesh->num_triangles;j++)
+ {
+ // swap element order to flip triangles, because Quake uses clockwise (rare) and dpm uses counterclockwise (standard)
+ outelements[0] = BigLong(inelements[2]);
+ outelements[1] = BigLong(inelements[1]);
+ outelements[2] = BigLong(inelements[0]);
+ inelements += 3;
+ outelements += 3;
+ }
+
+ intexcoord = (float *) (pbase + BigLong(dpmmesh->ofs_texcoords));
+ for (j = 0;j < mesh->num_vertices*2;j++)
+ mesh->data_texcoordtexture2f[j] = BigFloat(intexcoord[j]);
+
+ // now load them for real
+ mesh->num_vertexboneweights = 0;
+ data = (unsigned char *) (pbase + BigLong(dpmmesh->ofs_verts));
+ for (j = 0;j < mesh->num_vertices;j++)
+ {
+ int numweights = BigLong(((dpmvertex_t *)data)->numbones);
+ data += sizeof(dpmvertex_t);
+ for (k = 0;k < numweights;k++)
+ {
+ const dpmbonevert_t *vert = (dpmbonevert_t *) data;
+ // stuff not processed here: normal
+ mesh->data_vertexboneweights[mesh->num_vertexboneweights].vertexindex = j;
+ mesh->data_vertexboneweights[mesh->num_vertexboneweights].boneindex = BigLong(vert->bonenum);
+ mesh->data_vertexboneweights[mesh->num_vertexboneweights].origin[0] = BigFloat(vert->origin[0]);
+ mesh->data_vertexboneweights[mesh->num_vertexboneweights].origin[1] = BigFloat(vert->origin[1]);
+ mesh->data_vertexboneweights[mesh->num_vertexboneweights].origin[2] = BigFloat(vert->origin[2]);
+ mesh->data_vertexboneweights[mesh->num_vertexboneweights].origin[3] = BigFloat(vert->influence);
+ mesh->num_vertexboneweights++;
+ data += sizeof(dpmbonevert_t);
+ }
+ }
+
+ // since dpm models do not have named sections, reuse their shader name as the section name
+ if (dpmmesh->shadername[0])
+ Mod_BuildAliasSkinsFromSkinFiles(loadmodel->data_textures + i, skinfiles, dpmmesh->shadername, dpmmesh->shadername);
+ else
+ for (j = 0;j < loadmodel->numskins;j++)
+ Mod_BuildAliasSkinFromSkinFrame(loadmodel->data_textures + i + j * loadmodel->num_surfaces, NULL);
+
+ Mod_ValidateElements(mesh->data_element3i, mesh->num_triangles, mesh->num_vertices, __FILE__, __LINE__);
+ Mod_BuildTriangleNeighbors(mesh->data_neighbor3i, mesh->data_element3i, mesh->num_triangles);
+ Mod_Alias_Mesh_CompileFrameZero(mesh);
+
+ surface = loadmodel->data_surfaces + i;
+ surface->groupmesh = mesh;
+ surface->texture = loadmodel->data_textures + i;
+ surface->num_firsttriangle = 0;
+ surface->num_triangles = mesh->num_triangles;
+ surface->num_firstvertex = 0;
+ surface->num_vertices = mesh->num_vertices;
+
+ dpmmesh++;
+ }
+ Mod_FreeSkinFiles(skinfiles);
+}
+
+static void Mod_PSKMODEL_AnimKeyToMatrix(float *origin, float *quat, matrix4x4_t *m)
+{
+ float x = quat[0], y = quat[1], z = quat[2], w = quat[3];
+ m->m[0][0]=1-2*(y*y+z*z);m->m[0][1]= 2*(x*y-z*w);m->m[0][2]= 2*(x*z+y*w);m->m[0][3]=origin[0];
+ m->m[1][0]= 2*(x*y+z*w);m->m[1][1]=1-2*(x*x+z*z);m->m[1][2]= 2*(y*z-x*w);m->m[1][3]=origin[1];
+ m->m[2][0]= 2*(x*z-y*w);m->m[2][1]= 2*(y*z+x*w);m->m[2][2]=1-2*(x*x+y*y);m->m[2][3]=origin[2];
+ m->m[3][0]= 0 ;m->m[3][1]= 0 ;m->m[3][2]= 0 ;m->m[3][3]=1;
+}
+
+// no idea why PSK/PSA files contain weird quaternions but they do...
+#define PSKQUATNEGATIONS
+void Mod_PSKMODEL_Load(model_t *mod, void *buffer, void *bufferend)
+{
+ int i, j, index, version, recordsize, numrecords;
+ int numpnts, numvtxw, numfaces, nummatts, numbones, numrawweights, numanimbones, numanims, numanimkeys;
+ fs_offset_t filesize;
+ pskpnts_t *pnts;
+ pskvtxw_t *vtxw;
+ pskface_t *faces;
+ pskmatt_t *matts;
+ pskboneinfo_t *bones;
+ pskrawweights_t *rawweights;
+ pskboneinfo_t *animbones;
+ pskaniminfo_t *anims;
+ pskanimkeys_t *animkeys;
+ void *animfilebuffer, *animbuffer, *animbufferend;
+ pskchunk_t *pchunk;
+ surfmesh_t *mesh;
+ skinfile_t *skinfiles;
+ char animname[MAX_QPATH];
+
+ pchunk = (pskchunk_t *)buffer;
+ if (strcmp(pchunk->id, "ACTRHEAD"))
+ Host_Error ("Mod_PSKMODEL_Load: %s is not an Unreal Engine ActorX (.psk + .psa) model");
+
+ loadmodel->type = mod_alias;
+ loadmodel->DrawSky = NULL;
+ loadmodel->Draw = R_Q1BSP_Draw;
+ loadmodel->CompileShadowVolume = R_Q1BSP_CompileShadowVolume;
+ loadmodel->DrawShadowVolume = R_Q1BSP_DrawShadowVolume;
+ loadmodel->DrawLight = R_Q1BSP_DrawLight;
+ loadmodel->TraceBox = Mod_MDLMD2MD3_TraceBox;
+ loadmodel->flags = 0; // there are no flags on zym models
+ loadmodel->synctype = ST_RAND;
+
+ // load external .skin files if present
+ skinfiles = Mod_LoadSkinFiles();
+ if (loadmodel->numskins < 1)
+ loadmodel->numskins = 1;
+ loadmodel->skinscenes = (animscene_t *)Mem_Alloc(loadmodel->mempool, loadmodel->numskins * sizeof(animscene_t));
+ for (i = 0;i < loadmodel->numskins;i++)
+ {
+ loadmodel->skinscenes[i].firstframe = i;
+ loadmodel->skinscenes[i].framecount = 1;
+ loadmodel->skinscenes[i].loop = true;
+ loadmodel->skinscenes[i].framerate = 10;
+ }
+
+ FS_StripExtension(loadmodel->name, animname, sizeof(animname));
+ strlcat(animname, ".psa", sizeof(animname));
+ animbuffer = animfilebuffer = FS_LoadFile(animname, loadmodel->mempool, false, &filesize);
+ animbufferend = (void *)((unsigned char*)animbuffer + (int)filesize);
+ if (animbuffer == NULL)
+ Host_Error("%s: can't find .psa file (%s)", loadmodel->name, animname);
+
+ numpnts = 0;
+ pnts = NULL;
+ numvtxw = 0;
+ vtxw = NULL;
+ numfaces = 0;
+ faces = NULL;
+ nummatts = 0;
+ matts = NULL;
+ numbones = 0;
+ bones = NULL;
+ numrawweights = 0;
+ rawweights = NULL;
+ numanims = 0;
+ anims = NULL;
+ numanimkeys = 0;
+ animkeys = NULL;
+
+ while (buffer < bufferend)
+ {
+ pchunk = (pskchunk_t *)buffer;
+ buffer = (void *)((unsigned char *)buffer + sizeof(pskchunk_t));
+ version = LittleLong(pchunk->version);
+ recordsize = LittleLong(pchunk->recordsize);
+ numrecords = LittleLong(pchunk->numrecords);
+ if (developer.integer >= 100)
+ Con_Printf("%s: %s %x: %i * %i = %i\n", loadmodel->name, pchunk->id, version, recordsize, numrecords, recordsize * numrecords);
+ if (version != 0x1e83b9 && version != 0x1e9179 && version != 0x2e && version != 0x12f2bc && version != 0x12f2f0)
+ Con_Printf ("%s: chunk %s has unknown version %x (0x1e83b9, 0x1e9179, 0x2e, 0x12f2bc, 0x12f2f0 are currently supported), trying to load anyway!\n", loadmodel->name, pchunk->id, version);
+ if (!strcmp(pchunk->id, "ACTRHEAD"))
+ {
+ // nothing to do
+ }
+ else if (!strcmp(pchunk->id, "PNTS0000"))
+ {
+ pskpnts_t *p;
+ if (recordsize != sizeof(*p))
+ Host_Error("%s: %s has unsupported recordsize", loadmodel->name, pchunk->id);
+ // byteswap in place and keep the pointer
+ numpnts = numrecords;
+ pnts = (pskpnts_t *)buffer;
+ for (index = 0, p = (pskpnts_t *)buffer;index < numrecords;index++, p++)
+ {
+ p->origin[0] = LittleFloat(p->origin[0]);
+ p->origin[1] = LittleFloat(p->origin[1]);
+ p->origin[2] = LittleFloat(p->origin[2]);
+ }
+ buffer = p;
+ }
+ else if (!strcmp(pchunk->id, "VTXW0000"))
+ {
+ pskvtxw_t *p;
+ if (recordsize != sizeof(*p))
+ Host_Error("%s: %s has unsupported recordsize", loadmodel->name, pchunk->id);
+ // byteswap in place and keep the pointer
+ numvtxw = numrecords;
+ vtxw = (pskvtxw_t *)buffer;
+ for (index = 0, p = (pskvtxw_t *)buffer;index < numrecords;index++, p++)
+ {
+ p->pntsindex = LittleShort(p->pntsindex);
+ p->texcoord[0] = LittleFloat(p->texcoord[0]);
+ p->texcoord[1] = LittleFloat(p->texcoord[1]);
+ if (p->pntsindex >= numpnts)
+ {
+ Con_Printf("%s: vtxw->pntsindex %i >= numpnts %i\n", loadmodel->name, p->pntsindex, numpnts);
+ p->pntsindex = 0;
+ }
+ }
+ buffer = p;
+ }
+ else if (!strcmp(pchunk->id, "FACE0000"))
+ {
+ pskface_t *p;
+ if (recordsize != sizeof(*p))
+ Host_Error("%s: %s has unsupported recordsize", loadmodel->name, pchunk->id);
+ // byteswap in place and keep the pointer
+ numfaces = numrecords;
+ faces = (pskface_t *)buffer;
+ for (index = 0, p = (pskface_t *)buffer;index < numrecords;index++, p++)
+ {
+ p->vtxwindex[0] = LittleShort(p->vtxwindex[0]);
+ p->vtxwindex[1] = LittleShort(p->vtxwindex[1]);
+ p->vtxwindex[2] = LittleShort(p->vtxwindex[2]);
+ p->group = LittleLong(p->group);
+ if (p->vtxwindex[0] >= numvtxw)
+ {
+ Con_Printf("%s: face->vtxwindex[0] %i >= numvtxw %i\n", loadmodel->name, p->vtxwindex[0], numvtxw);
+ p->vtxwindex[0] = 0;
+ }
+ if (p->vtxwindex[1] >= numvtxw)
+ {
+ Con_Printf("%s: face->vtxwindex[1] %i >= numvtxw %i\n", loadmodel->name, p->vtxwindex[1], numvtxw);
+ p->vtxwindex[1] = 0;
+ }
+ if (p->vtxwindex[2] >= numvtxw)
+ {
+ Con_Printf("%s: face->vtxwindex[2] %i >= numvtxw %i\n", loadmodel->name, p->vtxwindex[2], numvtxw);
+ p->vtxwindex[2] = 0;
+ }
+ }
+ buffer = p;
+ }
+ else if (!strcmp(pchunk->id, "MATT0000"))
+ {
+ pskmatt_t *p;
+ if (recordsize != sizeof(*p))
+ Host_Error("%s: %s has unsupported recordsize", loadmodel->name, pchunk->id);
+ // byteswap in place and keep the pointer
+ nummatts = numrecords;
+ matts = (pskmatt_t *)buffer;
+ for (index = 0, p = (pskmatt_t *)buffer;index < numrecords;index++, p++)
+ {
+ }
+ buffer = p;
+ }
+ else if (!strcmp(pchunk->id, "REFSKELT"))
+ {
+ pskboneinfo_t *p;
+ if (recordsize != sizeof(*p))
+ Host_Error("%s: %s has unsupported recordsize", loadmodel->name, pchunk->id);
+ // byteswap in place and keep the pointer
+ numbones = numrecords;
+ bones = (pskboneinfo_t *)buffer;
+ for (index = 0, p = (pskboneinfo_t *)buffer;index < numrecords;index++, p++)
+ {
+ p->numchildren = LittleLong(p->numchildren);
+ p->parent = LittleLong(p->parent);
+ p->basepose.quat[0] = LittleFloat(p->basepose.quat[0]);
+ p->basepose.quat[1] = LittleFloat(p->basepose.quat[1]);
+ p->basepose.quat[2] = LittleFloat(p->basepose.quat[2]);
+ p->basepose.quat[3] = LittleFloat(p->basepose.quat[3]);
+ p->basepose.origin[0] = LittleFloat(p->basepose.origin[0]);
+ p->basepose.origin[1] = LittleFloat(p->basepose.origin[1]);
+ p->basepose.origin[2] = LittleFloat(p->basepose.origin[2]);
+ p->basepose.unknown = LittleFloat(p->basepose.unknown);
+ p->basepose.size[0] = LittleFloat(p->basepose.size[0]);
+ p->basepose.size[1] = LittleFloat(p->basepose.size[1]);
+ p->basepose.size[2] = LittleFloat(p->basepose.size[2]);
+#ifdef PSKQUATNEGATIONS
+ if (index)
+ {
+ p->basepose.quat[0] *= -1;
+ p->basepose.quat[1] *= -1;
+ p->basepose.quat[2] *= -1;
+ }
+ else
+ {
+ p->basepose.quat[0] *= 1;
+ p->basepose.quat[1] *= -1;
+ p->basepose.quat[2] *= 1;
+ }
+#endif
+ if (p->parent < 0 || p->parent >= numbones)
+ {
+ Con_Printf("%s: bone->parent %i >= numbones %i\n", loadmodel->name, p->parent, numbones);
+ p->parent = 0;
+ }
+ }
+ buffer = p;
+ }
+ else if (!strcmp(pchunk->id, "RAWWEIGHTS"))
+ {
+ pskrawweights_t *p;
+ if (recordsize != sizeof(*p))
+ Host_Error("%s: %s has unsupported recordsize", loadmodel->name, pchunk->id);
+ // byteswap in place and keep the pointer
+ numrawweights = numrecords;
+ rawweights = (pskrawweights_t *)buffer;
+ for (index = 0, p = (pskrawweights_t *)buffer;index < numrecords;index++, p++)
+ {
+ p->weight = LittleFloat(p->weight);
+ p->pntsindex = LittleLong(p->pntsindex);
+ p->boneindex = LittleLong(p->boneindex);
+ if (p->pntsindex < 0 || p->pntsindex >= numpnts)
+ {
+ Con_Printf("%s: weight->pntsindex %i >= numpnts %i\n", loadmodel->name, p->pntsindex, numpnts);
+ p->pntsindex = 0;
+ }
+ if (p->boneindex < 0 || p->boneindex >= numbones)
+ {
+ Con_Printf("%s: weight->boneindex %i >= numbones %i\n", loadmodel->name, p->boneindex, numbones);
+ p->boneindex = 0;
+ }
+ }
+ buffer = p;
+ }
+ }
+
+ while (animbuffer < animbufferend)
+ {
+ pchunk = (pskchunk_t *)animbuffer;
+ animbuffer = (void *)((unsigned char *)animbuffer + sizeof(pskchunk_t));
+ version = LittleLong(pchunk->version);
+ recordsize = LittleLong(pchunk->recordsize);
+ numrecords = LittleLong(pchunk->numrecords);
+ if (developer.integer >= 100)
+ Con_Printf("%s: %s %x: %i * %i = %i\n", animname, pchunk->id, version, recordsize, numrecords, recordsize * numrecords);
+ if (version != 0x1e83b9 && version != 0x1e9179 && version != 0x2e && version != 0x12f2bc && version != 0x12f2f0)
+ Con_Printf ("%s: chunk %s has unknown version %x (0x1e83b9, 0x1e9179, 0x2e, 0x12f2bc, 0x12f2f0 are currently supported), trying to load anyway!\n", animname, pchunk->id, version);
+ if (!strcmp(pchunk->id, "ANIMHEAD"))
+ {
+ // nothing to do
+ }
+ else if (!strcmp(pchunk->id, "BONENAMES"))
+ {
+ pskboneinfo_t *p;
+ if (recordsize != sizeof(*p))
+ Host_Error("%s: %s has unsupported recordsize", animname, pchunk->id);
+ // byteswap in place and keep the pointer
+ numanimbones = numrecords;
+ animbones = (pskboneinfo_t *)animbuffer;
+ // NOTE: supposedly psa does not need to match the psk model, the
+ // bones missing from the psa would simply use their base
+ // positions from the psk, but this is hard for me to implement
+ // and people can easily make animations that match.
+ if (numanimbones != numbones)
+ Host_Error("%s: this loader only supports animations with the same bones as the mesh");
+ for (index = 0, p = (pskboneinfo_t *)animbuffer;index < numrecords;index++, p++)
+ {
+ p->numchildren = LittleLong(p->numchildren);
+ p->parent = LittleLong(p->parent);
+ p->basepose.quat[0] = LittleFloat(p->basepose.quat[0]);
+ p->basepose.quat[1] = LittleFloat(p->basepose.quat[1]);
+ p->basepose.quat[2] = LittleFloat(p->basepose.quat[2]);
+ p->basepose.quat[3] = LittleFloat(p->basepose.quat[3]);
+ p->basepose.origin[0] = LittleFloat(p->basepose.origin[0]);
+ p->basepose.origin[1] = LittleFloat(p->basepose.origin[1]);
+ p->basepose.origin[2] = LittleFloat(p->basepose.origin[2]);
+ p->basepose.unknown = LittleFloat(p->basepose.unknown);
+ p->basepose.size[0] = LittleFloat(p->basepose.size[0]);
+ p->basepose.size[1] = LittleFloat(p->basepose.size[1]);
+ p->basepose.size[2] = LittleFloat(p->basepose.size[2]);
+#ifdef PSKQUATNEGATIONS
+ if (index)
+ {
+ p->basepose.quat[0] *= -1;
+ p->basepose.quat[1] *= -1;
+ p->basepose.quat[2] *= -1;
+ }
+ else
+ {
+ p->basepose.quat[0] *= 1;
+ p->basepose.quat[1] *= -1;
+ p->basepose.quat[2] *= 1;
+ }
+#endif
+ if (p->parent < 0 || p->parent >= numanimbones)
+ {
+ Con_Printf("%s: bone->parent %i >= numanimbones %i\n", animname, p->parent, numanimbones);
+ p->parent = 0;
+ }
+ // check that bones are the same as in the base
+ if (strcmp(p->name, bones[index].name) || p->parent != bones[index].parent)
+ Host_Error("%s: this loader only supports animations with the same bones as the mesh", animname);
+ }
+ animbuffer = p;
+ }
+ else if (!strcmp(pchunk->id, "ANIMINFO"))
+ {
+ pskaniminfo_t *p;
+ if (recordsize != sizeof(*p))
+ Host_Error("%s: %s has unsupported recordsize", animname, pchunk->id);
+ // byteswap in place and keep the pointer
+ numanims = numrecords;
+ anims = (pskaniminfo_t *)animbuffer;
+ for (index = 0, p = (pskaniminfo_t *)animbuffer;index < numrecords;index++, p++)
+ {
+ p->numbones = LittleLong(p->numbones);
+ p->playtime = LittleFloat(p->playtime);
+ p->fps = LittleFloat(p->fps);
+ p->firstframe = LittleLong(p->firstframe);
+ p->numframes = LittleLong(p->numframes);
+ if (p->numbones != numbones)
+ {
+ Con_Printf("%s: animinfo->numbones != numbones, trying to load anyway!\n", animname);
+ }
+ }
+ animbuffer = p;
+ }
+ else if (!strcmp(pchunk->id, "ANIMKEYS"))
+ {
+ pskanimkeys_t *p;
+ if (recordsize != sizeof(*p))
+ Host_Error("%s: %s has unsupported recordsize", animname, pchunk->id);
+ numanimkeys = numrecords;
+ animkeys = (pskanimkeys_t *)animbuffer;
+ for (index = 0, p = (pskanimkeys_t *)animbuffer;index < numrecords;index++, p++)
+ {
+ p->origin[0] = LittleFloat(p->origin[0]);
+ p->origin[1] = LittleFloat(p->origin[1]);
+ p->origin[2] = LittleFloat(p->origin[2]);
+ p->quat[0] = LittleFloat(p->quat[0]);
+ p->quat[1] = LittleFloat(p->quat[1]);
+ p->quat[2] = LittleFloat(p->quat[2]);
+ p->quat[3] = LittleFloat(p->quat[3]);
+ p->frametime = LittleFloat(p->frametime);
+#ifdef PSKQUATNEGATIONS
+ if (index % numbones)
+ {
+ p->quat[0] *= -1;
+ p->quat[1] *= -1;
+ p->quat[2] *= -1;
+ }
+ else
+ {
+ p->quat[0] *= 1;
+ p->quat[1] *= -1;
+ p->quat[2] *= 1;
+ }
+#endif
+ }
+ animbuffer = p;
+ // TODO: allocate bonepose stuff
+ }
+ else
+ Con_Printf("%s: unknown chunk ID \"%s\"\n", animname, pchunk->id);
+ }
+
+ if (!numpnts || !pnts || !numvtxw || !vtxw || !numfaces || !faces || !nummatts || !matts || !numbones || !bones || !numrawweights || !rawweights || !numanims || !anims || !numanimkeys || !animkeys)
+ Host_Error("%s: missing required chunks", loadmodel->name);
+
+ // FIXME: model bbox
+ // model bbox
+ for (i = 0;i < 3;i++)
+ {
+ loadmodel->normalmins[i] = -128;
+ loadmodel->normalmaxs[i] = 128;
+ loadmodel->yawmins[i] = -128;
+ loadmodel->yawmaxs[i] = 128;
+ loadmodel->rotatedmins[i] = -128;
+ loadmodel->rotatedmaxs[i] = 128;
+ }
+ loadmodel->radius = 128;
+ loadmodel->radius2 = loadmodel->radius * loadmodel->radius;
+
+ loadmodel->numframes = 0;
+ for (index = 0;index < numanims;index++)
+ loadmodel->numframes += anims[index].numframes;
+
+ loadmodel->num_bones = numbones;
+ loadmodel->num_poses = loadmodel->num_bones * loadmodel->numframes;
+ loadmodel->num_textures = loadmodel->nummeshes = loadmodel->nummodelsurfaces = loadmodel->num_surfaces = nummatts;
+
+ if (numanimkeys != loadmodel->num_bones * loadmodel->numframes)
+ Host_Error("%s: %s has incorrect number of animation keys", animname, pchunk->id);
+
+ loadmodel->data_poses = (float *)Mem_Alloc(loadmodel->mempool, loadmodel->num_poses * sizeof(float[12]));
+ loadmodel->animscenes = (animscene_t *)Mem_Alloc(loadmodel->mempool, loadmodel->numframes * sizeof(animscene_t));
+ loadmodel->data_textures = (texture_t *)Mem_Alloc(loadmodel->mempool, loadmodel->num_surfaces * loadmodel->numskins * sizeof(texture_t));
+ loadmodel->data_surfaces = (msurface_t *)Mem_Alloc(loadmodel->mempool, loadmodel->num_surfaces * sizeof(msurface_t));
+ loadmodel->surfacelist = (int *)Mem_Alloc(loadmodel->mempool, loadmodel->num_surfaces * sizeof(int));
+ loadmodel->data_bones = (aliasbone_t *)Mem_Alloc(loadmodel->mempool, loadmodel->num_bones * sizeof(aliasbone_t));
+
+ loadmodel->meshlist = (surfmesh_t **)Mem_Alloc(loadmodel->mempool, sizeof(surfmesh_t *));
+ mesh = loadmodel->meshlist[0] = (surfmesh_t *)Mem_Alloc(loadmodel->mempool, sizeof(surfmesh_t));
+ mesh->num_vertices = numvtxw;
+ mesh->num_triangles = numfaces;
+ mesh->data_element3i = (int *)Mem_Alloc(loadmodel->mempool, mesh->num_triangles * sizeof(int[3]));
+ mesh->data_neighbor3i = (int *)Mem_Alloc(loadmodel->mempool, mesh->num_triangles * sizeof(int[3]));
+ mesh->data_texcoordtexture2f = (float *)Mem_Alloc(loadmodel->mempool, mesh->num_vertices * sizeof(float[2]));
+
+ // create surfaces
+ for (index = 0, i = 0;index < nummatts;index++)
+ {
+ // since psk models do not have named sections, reuse their shader name as the section name
+ if (matts[index].name[0])
+ Mod_BuildAliasSkinsFromSkinFiles(loadmodel->data_textures + index, skinfiles, matts[index].name, matts[index].name);
+ else
+ for (j = 0;j < loadmodel->numskins;j++)
+ Mod_BuildAliasSkinFromSkinFrame(loadmodel->data_textures + index + j * loadmodel->num_surfaces, NULL);
+ loadmodel->surfacelist[index] = index;
+ loadmodel->data_surfaces[index].groupmesh = loadmodel->meshlist[0];
+ loadmodel->data_surfaces[index].texture = loadmodel->data_textures + index;
+ loadmodel->data_surfaces[index].num_firstvertex = 0;
+ loadmodel->data_surfaces[index].num_vertices = loadmodel->meshlist[0]->num_vertices;
+ }
+
+ // copy over the texcoords
+ for (index = 0;index < numvtxw;index++)
+ {
+ mesh->data_texcoordtexture2f[index*2+0] = vtxw[index].texcoord[0];
+ mesh->data_texcoordtexture2f[index*2+1] = vtxw[index].texcoord[1];
+ }
+
+ // loading the faces is complicated because we need to sort them into surfaces by mattindex
+ for (index = 0;index < numfaces;index++)
+ loadmodel->data_surfaces[faces[index].mattindex].num_triangles++;
+ for (index = 0, i = 0;index < nummatts;index++)
+ {
+ loadmodel->data_surfaces[index].num_firsttriangle = i;
+ i += loadmodel->data_surfaces[index].num_triangles;
+ loadmodel->data_surfaces[index].num_triangles = 0;
+ }
+ for (index = 0;index < numfaces;index++)
+ {
+ i = (loadmodel->data_surfaces[faces[index].mattindex].num_firsttriangle + loadmodel->data_surfaces[faces[index].mattindex].num_triangles++)*3;
+ mesh->data_element3i[i+0] = faces[index].vtxwindex[0];
+ mesh->data_element3i[i+1] = faces[index].vtxwindex[1];
+ mesh->data_element3i[i+2] = faces[index].vtxwindex[2];
+ }
+
+ // copy over the bones
+ for (index = 0;index < numbones;index++)
+ {
+ strlcpy(loadmodel->data_bones[index].name, bones[index].name, sizeof(loadmodel->data_bones[index].name));
+ loadmodel->data_bones[index].parent = (index || bones[index].parent > 0) ? bones[index].parent : -1;
+ if (loadmodel->data_bones[index].parent >= index)
+ Host_Error("%s bone[%i].parent >= %i", loadmodel->name, index, index);
+ }
+
+ // build bone-relative vertex weights from the psk point weights
+ mesh->num_vertexboneweights = 0;
+ for (index = 0;index < numvtxw;index++)
+ for (j = 0;j < numrawweights;j++)
+ if (rawweights[j].pntsindex == vtxw[index].pntsindex)
+ mesh->num_vertexboneweights++;
+ mesh->data_vertexboneweights = (surfmeshvertexboneweight_t *)Mem_Alloc(loadmodel->mempool, mesh->num_vertexboneweights * sizeof(surfmeshvertexboneweight_t));
+ mesh->num_vertexboneweights = 0;
+ for (index = 0;index < numvtxw;index++)
+ {
+ for (j = 0;j < numrawweights;j++)
+ {
+ if (rawweights[j].pntsindex == vtxw[index].pntsindex)
+ {
+ matrix4x4_t matrix, inversematrix;
+ mesh->data_vertexboneweights[mesh->num_vertexboneweights].vertexindex = index;
+ mesh->data_vertexboneweights[mesh->num_vertexboneweights].boneindex = rawweights[j].boneindex;
+ mesh->data_vertexboneweights[mesh->num_vertexboneweights].weight = rawweights[j].weight;
+ matrix = identitymatrix;
+ for (i = rawweights[j].boneindex;i >= 0;i = loadmodel->data_bones[i].parent)
+ {
+ matrix4x4_t childmatrix, tempmatrix;
+ Mod_PSKMODEL_AnimKeyToMatrix(bones[i].basepose.origin, bones[i].basepose.quat, &tempmatrix);
+ childmatrix = matrix;
+ Matrix4x4_Concat(&matrix, &tempmatrix, &childmatrix);
+ }
+ Matrix4x4_Invert_Simple(&inversematrix, &matrix);
+ Matrix4x4_Transform(&inversematrix, pnts[rawweights[j].pntsindex].origin, mesh->data_vertexboneweights[mesh->num_vertexboneweights].origin);
+ VectorScale(mesh->data_vertexboneweights[mesh->num_vertexboneweights].origin, mesh->data_vertexboneweights[mesh->num_vertexboneweights].weight, mesh->data_vertexboneweights[mesh->num_vertexboneweights].origin);
+ mesh->num_vertexboneweights++;
+ }
+ }
+ }
+
+ // set up the animscenes based on the anims
+ for (index = 0, i = 0;index < numanims;index++)
+ {
+ for (j = 0;j < anims[index].numframes;j++, i++)
+ {
+ dpsnprintf(loadmodel->animscenes[i].name, sizeof(loadmodel->animscenes[i].name), "%s_%d", anims[index].name, j);
+ loadmodel->animscenes[i].firstframe = i;
+ loadmodel->animscenes[i].framecount = 1;
+ loadmodel->animscenes[i].loop = true;
+ loadmodel->animscenes[i].framerate = 10;
+ }
+ }
+
+ // load the poses from the animkeys
+ for (index = 0;index < numanimkeys;index++)
+ {
+ matrix4x4_t matrix;
+ Mod_PSKMODEL_AnimKeyToMatrix(animkeys[index].origin, animkeys[index].quat, &matrix);
+ loadmodel->data_poses[index*12+0] = matrix.m[0][0];
+ loadmodel->data_poses[index*12+1] = matrix.m[0][1];
+ loadmodel->data_poses[index*12+2] = matrix.m[0][2];
+ loadmodel->data_poses[index*12+3] = matrix.m[0][3];
+ loadmodel->data_poses[index*12+4] = matrix.m[1][0];
+ loadmodel->data_poses[index*12+5] = matrix.m[1][1];
+ loadmodel->data_poses[index*12+6] = matrix.m[1][2];
+ loadmodel->data_poses[index*12+7] = matrix.m[1][3];
+ loadmodel->data_poses[index*12+8] = matrix.m[2][0];
+ loadmodel->data_poses[index*12+9] = matrix.m[2][1];
+ loadmodel->data_poses[index*12+10] = matrix.m[2][2];
+ loadmodel->data_poses[index*12+11] = matrix.m[2][3];
+ }
+
+ // compile extra data we want
+ Mod_ValidateElements(mesh->data_element3i, mesh->num_triangles, mesh->num_vertices, __FILE__, __LINE__);
+ Mod_BuildTriangleNeighbors(mesh->data_neighbor3i, mesh->data_element3i, mesh->num_triangles);
+ Mod_Alias_Mesh_CompileFrameZero(mesh);
+
+ Mem_Free(animfilebuffer);
+ Mod_FreeSkinFiles(skinfiles);