ericw-tools/qbsp/map.c

699 lines
16 KiB
C

/*
Copyright (C) 1996-1997 Id Software, Inc.
Copyright (C) 1997 Greg Lewis
This program 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.
This program 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 this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
See file, 'COPYING', for details.
*/
// map.c
#include "qbsp.h"
#include "parser.h"
#define info_player_start 1
#define info_player_deathmatch 2
#define info_player_coop 4
int cAnimtex;
int rgfStartSpots;
/*
===============
FindMiptex
===============
*/
int FindMiptex (char *szName)
{
int i;
for (i=0 ; i<cMiptex; i++)
{
if (!strcmp (szName, rgszMiptex[i]))
return i;
}
strcpy(rgszMiptex[i], szName);
cMiptex++;
if (szName[0] == '+')
cAnimtex++;
return i;
}
/*
===============
FindTexinfo
Returns a global texinfo number
===============
*/
int FindTexinfo (texinfo_t *t)
{
int i, j;
texinfo_t *tex;
// set the special flag
if ((rgszMiptex[t->miptex][0] == '*' || !strnicmp(rgszMiptex[t->miptex], "sky",3)) && !options.fSplitspecial)
t->flags |= TEX_SPECIAL;
tex = pWorldEnt->pTexinfo;
for (i=0; i<pWorldEnt->iTexinfo; i++, tex++)
{
if (t->miptex != tex->miptex)
continue;
if (t->flags != tex->flags)
continue;
for (j=0 ; j<8 ; j++)
if (t->vecs[0][j] != tex->vecs[0][j])
break;
if (j != 8)
continue;
return i;
}
// allocate a new texture
pWorldEnt->pTexinfo[i] = *t;
pWorldEnt->iTexinfo++;
map.cTotal[BSPTEXINFO]++;
return i;
}
//============================================================================
/*
=================
ParseEpair
=================
*/
void ParseEpair (Parser *pParser)
{
epair_t *e;
char *szToken;
e = (epair_t *)AllocMem(OTHER, sizeof(epair_t));
e->next = map.rgEntities[map.iEntities].epairs;
map.rgEntities[map.iEntities].epairs = e;
szToken = pParser->GetToken();
if (strlen(szToken) >= MAX_KEY-1)
Message(msgError, errEpairTooLong, pParser->GetLineNum());
e->key = copystring(szToken);
pParser->ParseToken (false);
if (strlen(szToken) >= MAX_VALUE-1)
Message(msgError, errEpairTooLong, pParser->GetLineNum());
e->value = copystring(szToken);
if (!stricmp(e->key, "origin"))
sscanf(e->value, "%f %f %f",
&(map.rgEntities[map.iEntities].origin[0]),
&(map.rgEntities[map.iEntities].origin[1]),
&(map.rgEntities[map.iEntities].origin[2]));
else if (!stricmp(e->key, "classname"))
{
if (!stricmp(e->value, "info_player_start"))
{
if (rgfStartSpots & info_player_start)
Message(msgWarning, warnMultipleStarts);
rgfStartSpots |= info_player_start;
}
else if (!stricmp(e->value, "info_player_deathmatch"))
rgfStartSpots |= info_player_deathmatch;
else if (!stricmp(e->value, "info_player_coop"))
rgfStartSpots |= info_player_coop;
}
}
//============================================================================
/*
==================
textureAxisFromPlane
==================
*/
void TextureAxisFromPlane(plane_t *pln, vec3_t xv, vec3_t yv)
{
vec3_t baseaxis[18] =
{
{0,0,1}, {1,0,0}, {0,-1,0}, // floor
{0,0,-1}, {1,0,0}, {0,-1,0}, // ceiling
{1,0,0}, {0,1,0}, {0,0,-1}, // west wall
{-1,0,0}, {0,1,0}, {0,0,-1}, // east wall
{0,1,0}, {1,0,0}, {0,0,-1}, // south wall
{0,-1,0}, {1,0,0}, {0,0,-1} // north wall
};
int bestaxis;
float dot,best;
int i;
best = 0;
bestaxis = 0;
for (i=0 ; i<6 ; i++)
{
dot = DotProduct (pln->normal, baseaxis[i*3]);
if (dot > best ||
(dot == best && !options.fOldaxis))
{
best = dot;
bestaxis = i;
}
}
VectorCopy (baseaxis[bestaxis*3+1], xv);
VectorCopy (baseaxis[bestaxis*3+2], yv);
}
//=============================================================================
/*
=================
ParseBrush
=================
*/
void ParseBrush (Parser *pParser)
{
vec3_t planepts[3];
vec3_t t1, t2, t3;
int i,j;
texinfo_t tx;
vec_t d;
int shift[2], rotate;
float scale[2];
char *szToken;
int iFace;
map.rgBrushes[map.iBrushes].iFaceEnd = map.iFaces+1;
szToken = pParser->GetToken();
do
{
if (!pParser->ParseToken (true))
break;
if (!strcmp (szToken, "}") )
break;
// read the three point plane definition
for (i=0; i<3; i++)
{
if (i != 0)
pParser->ParseToken (true);
if (strcmp (szToken, "(") )
Message(msgError, errInvalidMapPlane, pParser->GetLineNum());
for (j=0 ; j<3 ; j++)
{
pParser->ParseToken (false);
planepts[i][j] = (float)atoi(szToken);
}
pParser->ParseToken (false);
if (strcmp (szToken, ")") )
Message(msgError, errInvalidMapPlane, pParser->GetLineNum());
}
// read the texturedef
memset (&tx, 0, sizeof(tx));
pParser->ParseToken (false);
tx.miptex = FindMiptex (szToken);
pParser->ParseToken (false);
shift[0] = atoi(szToken);
pParser->ParseToken (false);
shift[1] = atoi(szToken);
pParser->ParseToken (false);
rotate = atoi(szToken);
pParser->ParseToken (false);
scale[0] = atof(szToken);
pParser->ParseToken (false);
scale[1] = atof(szToken);
// if the three points are all on a previous plane, it is a
// duplicate plane
for (iFace = map.rgBrushes[map.iBrushes].iFaceEnd-1; iFace > map.iFaces; iFace--)
{
for (i=0; i<3; i++)
{
d = DotProduct(planepts[i], map.rgFaces[iFace].plane.normal) -
map.rgFaces[iFace].plane.dist;
if (d < -ON_EPSILON || d > ON_EPSILON)
break;
}
if (i==3)
break;
}
if (iFace > map.iFaces)
{
Message(msgWarning, warnBrushDuplicatePlane, pParser->GetLineNum());
continue;
}
if (map.iFaces < 0)
Message(msgError, errLowFaceCount);
// convert to a vector / dist plane
for (j=0; j<3; j++)
{
t1[j] = planepts[0][j] - planepts[1][j];
t2[j] = planepts[2][j] - planepts[1][j];
t3[j] = planepts[1][j];
}
CrossProduct(t1,t2, map.rgFaces[map.iFaces].plane.normal);
if (VectorCompare (map.rgFaces[map.iFaces].plane.normal, vec3_origin))
{
Message(msgWarning, warnNoPlaneNormal, pParser->GetLineNum());
break;
}
VectorNormalize (map.rgFaces[map.iFaces].plane.normal);
map.rgFaces[map.iFaces].plane.dist =
DotProduct (t3, map.rgFaces[map.iFaces].plane.normal);
// fake proper texture vectors from QuakeEd style
{
vec3_t vecs[2];
int sv, tv;
float ang, sinv, cosv;
float ns, nt;
TextureAxisFromPlane(&(map.rgFaces[map.iFaces].plane), vecs[0], vecs[1]);
if (!scale[0])
scale[0] = 1;
if (!scale[1])
scale[1] = 1;
// rotate axis
if (rotate == 0)
{ sinv = 0 ; cosv = 1; }
else if (rotate == 90)
{ sinv = 1 ; cosv = 0; }
else if (rotate == 180)
{ sinv = 0 ; cosv = -1; }
else if (rotate == 270)
{ sinv = -1 ; cosv = 0; }
else
{
ang = (float)rotate / 180 * Q_PI;
sinv = sin(ang);
cosv = cos(ang);
}
if (vecs[0][0])
sv = 0;
else if (vecs[0][1])
sv = 1;
else
sv = 2;
if (vecs[1][0])
tv = 0;
else if (vecs[1][1])
tv = 1;
else
tv = 2;
for (i=0 ; i<2 ; i++)
{
ns = cosv * vecs[i][sv] - sinv * vecs[i][tv];
nt = sinv * vecs[i][sv] + cosv * vecs[i][tv];
vecs[i][sv] = ns;
vecs[i][tv] = nt;
}
for (i=0 ; i<2 ; i++)
for (j=0 ; j<3 ; j++)
tx.vecs[i][j] = vecs[i][j] / scale[i];
tx.vecs[0][3] = (float)shift[0];
tx.vecs[1][3] = (float)shift[1];
}
// unique the texinfo
map.rgFaces[map.iFaces].texinfo = FindTexinfo (&tx);
map.iFaces--;
Message(msgPercent, map.cFaces-map.iFaces-1, map.cFaces);
} while (1);
map.rgBrushes[map.iBrushes].iFaceStart = map.iFaces+1;
map.iBrushes--;
}
/*
================
ParseEntity
================
*/
bool ParseEntity (Parser *pParser)
{
char *szToken;
szToken = pParser->GetToken();
if (!pParser->ParseToken(true))
return false;
if (strcmp (szToken, "{") )
Message(msgError, errParseEntity, pParser->GetLineNum());
if (map.iEntities >= map.cEntities)
Message(msgError, errLowEntCount);
pCurEnt->iBrushEnd = map.iBrushes+1;
do
{
if (!pParser->ParseToken(true))
Message(msgError, errUnexpectedEOF);
if (!strcmp (szToken, "}"))
break;
else if (!strcmp (szToken, "{") )
ParseBrush (pParser);
else
ParseEpair (pParser);
} while (1);
// Allocate some model memory while we're here
pCurEnt->iBrushStart = map.iBrushes+1;
if (pCurEnt->iBrushStart != pCurEnt->iBrushEnd)
{
pCurEnt->pModels = (dmodel_t *)AllocMem(BSPMODEL, 1);
pCurEnt->cModels = 1;
}
map.iEntities++;
pCurEnt++;
return true;
}
/*
================
PreParseFile
================
*/
void PreParseFile (char *buf)
{
int braces = 0;
map.cEntities = map.cBrushes = map.cFaces = 0;
// Very simple... we just want numbers here. Invalid formats are
// detected later. Problems with deviant .MAP formats.
while (*buf != 0)
{
if (*buf == '\"')
{
buf++;
// Quoted string... skip to end of quote
while (*buf != '\"' && *buf)
buf++;
if (!*buf)
break;
}
else if (*buf == '/' && *(buf+1) == '/')
{
// Comment... skip to end of line
while (*buf != '\n' && *buf)
buf++;
if (!*buf)
break;
}
else if (*buf == '{')
{
if (braces == 0)
map.cEntities++;
else if (braces == 1)
map.cBrushes++;
braces++;
}
else if (*buf == '}')
braces--;
else if (*buf == '(')
map.cFaces++;
buf++;
}
if (map.cFaces % 3 != 0)
Message(msgWarning, warnBadMapFaceCount);
map.cFaces /= 3;
map.rgFaces = (mapface_t *)AllocMem(MAPFACE, map.cFaces);
map.rgBrushes = (mapbrush_t *)AllocMem(MAPBRUSH, map.cBrushes);
map.rgEntities = (mapentity_t *)AllocMem(MAPENTITY, map.cEntities);
// While we're here...
pWorldEnt = map.rgEntities;
// Allocate maximum memory here, copy over later
// Maximum possible is one miptex/texinfo per face
rgszMiptex = (miptex_t *)AllocMem(MIPTEX, map.cFaces);
pWorldEnt->pTexinfo = (texinfo_t *)AllocMem(BSPTEXINFO, map.cFaces);
pWorldEnt->cTexinfo = map.cFaces;
}
/*
================
LoadMapFile
================
*/
void LoadMapFile(void)
{
Parser *pParser;
File MapFile;
char *pBuf;
int i, j, length;
void *pTemp;
Message(msgProgress, "LoadMapFile");
length = MapFile.LoadFile(options.szMapName, (void **)&pBuf);
PreParseFile(pBuf);
pParser = new Parser(pBuf);
// Faces are loaded in reverse order, to be compatible with origqbsp.
// Brushes too.
map.iFaces = map.cFaces-1;
map.iBrushes = map.cBrushes-1;
map.iEntities = 0;
pCurEnt = &map.rgEntities[0];
while (ParseEntity (pParser))
;
FreeMem(pBuf, OTHER, length+1);
delete pParser;
// Print out warnings for entities
if (!(rgfStartSpots & info_player_start))
Message(msgWarning, warnNoPlayerStart);
if (!(rgfStartSpots & info_player_deathmatch))
Message(msgWarning, warnNoPlayerDeathmatch);
// if (!(rgfStartSpots & info_player_coop))
// Message(msgWarning, warnNoPlayerCoop);
// Clean up texture memory
if (cMiptex > map.cFaces)
Message(msgError, errLowMiptexCount);
else if (cMiptex < map.cFaces)
{
// For stuff in AddAnimatingTex, make room available
pTemp = (void *)rgszMiptex;
rgszMiptex = (miptex_t *)AllocMem(MIPTEX, cMiptex + cAnimtex * 20);
memcpy(rgszMiptex, pTemp, cMiptex * rgcMemSize[MIPTEX]);
FreeMem(pTemp, MIPTEX, map.cFaces);
}
if (pWorldEnt->iTexinfo > pWorldEnt->cTexinfo)
Message(msgError, errLowTexinfoCount);
else if (pWorldEnt->iTexinfo < pWorldEnt->cTexinfo)
{
pTemp = (void *)pWorldEnt->pTexinfo;
pWorldEnt->pTexinfo = (texinfo_t *)AllocMem(BSPTEXINFO, pWorldEnt->iTexinfo);
memcpy(pWorldEnt->pTexinfo, pTemp, pWorldEnt->iTexinfo * rgcMemSize[BSPTEXINFO]);
FreeMem(pTemp, BSPTEXINFO, pWorldEnt->cTexinfo);
pWorldEnt->cTexinfo = pWorldEnt->iTexinfo;
}
// One plane per face + 6 for portals
cPlanes = map.cFaces + 6;
// Count # of unique planes
for (i=0; i<map.cFaces; i++)
{
map.rgFaces[i].fUnique = true;
for (j=0; j<i; j++)
if (map.rgFaces[j].fUnique &&
VectorCompare(map.rgFaces[i].plane.normal, map.rgFaces[j].plane.normal) &&
fabs(map.rgFaces[i].plane.dist - map.rgFaces[j].plane.dist) < EQUAL_EPSILON)
{
map.rgFaces[i].fUnique = false;
cPlanes--;
break;
}
}
// Now iterate through brushes, add one plane for each face below 6 axis aligned faces.
// This compensates for planes added in ExpandBrush.
int cAxis;
for (i=0; i<map.cBrushes; i++)
{
cAxis = 0;
for (j=map.rgBrushes[i].iFaceStart; j<map.rgBrushes[i].iFaceEnd; j++)
{
if ((fabs(map.rgFaces[j].plane.normal[0]) - (1-0.0001)) > 0 ||
(fabs(map.rgFaces[j].plane.normal[1]) - (1-0.0001)) > 0 ||
(fabs(map.rgFaces[j].plane.normal[2]) - (1-0.0001)) > 0)
cAxis++;
}
if (6-cAxis > 0)
cPlanes += 6-cAxis;
}
// cPlanes*3 because of 3 hulls, then add 20% as a fudge factor for hull edge bevel planes
cPlanes = 3*cPlanes + cPlanes/5;
pPlanes = (plane_t *)AllocMem(PLANE, cPlanes);
Message(msgStat, "%5i faces", map.cFaces);
Message(msgStat, "%5i brushes", map.cBrushes);
Message(msgStat, "%5i entities", map.cEntities);
Message(msgStat, "%5i unique texnames", cMiptex);
Message(msgStat, "%5i texinfo", pWorldEnt->cTexinfo);
Message(msgLiteral, "\n");
}
void PrintEntity(int iEntity)
{
epair_t *ep;
for (ep=map.rgEntities[iEntity].epairs ; ep ; ep=ep->next)
Message(msgStat, "%20s : %s", ep->key, ep->value);
}
char *ValueForKey(int iEntity, char *key)
{
epair_t *ep;
for (ep=map.rgEntities[iEntity].epairs; ep; ep=ep->next)
if (!strcmp (ep->key, key))
return ep->value;
return NULL;
}
void SetKeyValue (int iEntity, char *key, char *value)
{
epair_t *ep;
for (ep=map.rgEntities[iEntity].epairs ; ep ; ep=ep->next)
if (!strcmp (ep->key, key) )
{
delete ep->value;
ep->value = copystring(value);
return;
}
ep = (epair_t *)AllocMem(OTHER, sizeof(epair_t));
ep->next = map.rgEntities[iEntity].epairs;
map.rgEntities[iEntity].epairs = ep;
ep->key = copystring(key);
ep->value = copystring(value);
}
void GetVectorForKey(int iEntity, char *szKey, vec3_t vec)
{
char *k;
double v1, v2, v3;
k = ValueForKey (iEntity, szKey);
v1 = v2 = v3 = 0;
// scanf into doubles, then assign, so it is vec_t size independent
sscanf (k, "%lf %lf %lf", &v1, &v2, &v3);
vec[0] = v1;
vec[1] = v2;
vec[2] = v3;
}
void WriteEntitiesToString (void)
{
char *pCur;
epair_t *ep;
char szLine[129];
int iEntity;
int cLen;
map.cTotal[BSPENT] = 0;
for (iEntity=0; iEntity<map.cEntities; iEntity++)
{
ep = map.rgEntities[iEntity].epairs;
// ent got removed
if (!ep)
{
map.rgEntities[iEntity].cEntdata = 0;
map.rgEntities[iEntity].pEntdata = NULL;
continue;
}
cLen = 0;
while (ep)
{
int i = strlen(ep->key) + strlen(ep->value) + 6;
if (i <= 128)
cLen += i;
else
cLen += 128;
ep = ep->next;
}
// Add 4 for {\n and }\n
cLen += 4;
map.rgEntities[iEntity].cEntdata = cLen;
map.cTotal[BSPENT] += cLen;
map.rgEntities[iEntity].pEntdata = pCur = (char *)AllocMem(BSPENT, cLen);
*pCur = 0;
strcat(pCur, "{\n");
pCur += 2;
for (ep = map.rgEntities[iEntity].epairs; ep; ep=ep->next)
{
// Limit on Quake's strings of 128 bytes
sprintf(szLine, "\"%.*s\" \"%.*s\"\n", MAX_KEY, ep->key, 122-strlen(ep->key), ep->value);
strcat(pCur, szLine);
pCur += strlen(szLine);
}
// No terminating null on this string
pCur[0] = '}';
pCur[1] = '\n';
}
}