r_model.cpp

Go to the documentation of this file.

/*
Copyright (C) 1997-2001 Id Software, Inc.

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.

*/

#include "r_local.h"

static model_t r_models[MAX_MOD_KNOWN];
static int r_numModels;
static int r_numModelsStatic;

model_t* r_mapTiles[MAX_MAPTILES];
int r_numMapTiles;

/* the inline * models from the current map are kept separate */
model_t r_modelsInline[MAX_MOD_KNOWN];
int r_numModelsInline;

static char* r_actorSkinNames[MAX_ACTORSKINNAME];
static int r_numActorSkinName;

static char const* const mod_extensions[] = {
    "md2", "md3", "obj", nullptr
};

void R_ModModellist_f (void)
{
    int i;
    model_t* mod;

    Com_Printf("Loaded models:\n");
    Com_Printf("Type | #Slot | #Tris   | #Meshes | Filename\n");
    for (i = 0, mod = r_models; i < r_numModels; i++, mod++) {
        if (!mod->name[0]) {
            Com_Printf("Empty slot %i\n", i);
            continue;
        }
        switch(mod->type) {
        case mod_alias_md3:
            Com_Printf("MD3 ");
            break;
        case mod_alias_md2:
            Com_Printf("MD2 ");
            break;
        case mod_bsp:
            Com_Printf("BSP ");
            break;
        case mod_bsp_submodel:
            Com_Printf("SUB ");
            break;
        case mod_obj:
            Com_Printf("OBJ ");
            break;
        default:
            Com_Printf("%3i ", mod->type);
            break;
        }
        if (mod->alias.num_meshes) {
            Com_Printf(" | %5i | %7i | %7i | %s (skins: %i)\n", i, mod->alias.num_meshes, mod->alias.meshes[0].num_tris, mod->name, mod->alias.meshes[0].num_skins);
            for (int j = 0; j < mod->alias.meshes[0].num_skins; j++) {
                mAliasSkin_t* skin = &mod->alias.meshes[0].skins[j];
                Com_Printf("     \\-- skin %i: '%s' (texnum %i and image type %i)\n", j + 1, skin->name, skin->skin->texnum, skin->skin->type);
            }
        } else
            Com_Printf(" | %5i | %7i | unknown | %s\n", i, mod->alias.num_meshes, mod->name);
    }
    Com_Printf("%4i models loaded\n", r_numModels);
    Com_Printf(" - %4i static models\n", r_numModelsStatic);
    Com_Printf(" - %4i bsp models\n", r_numMapTiles);
    Com_Printf(" - %4i inline models\n", r_numModelsInline);
}

model_t* R_AllocModelSlot (void)
{
    /* get new model */
    if (r_numModels < 0 || r_numModels >= MAX_MOD_KNOWN)
        Com_Error(ERR_DROP, "R_ModAddMapTile: r_numModels >= MAX_MOD_KNOWN");
    return &r_models[r_numModels++];
}

static void R_LoadModelAsync (model_t* mod, byte* buf, int modfilelen)
{
    /* call the appropriate loader */
    switch (LittleLong(*(unsigned* ) buf)) {
    case IDALIASHEADER:
        /* MD2 header */
        R_ModLoadAliasMD2Model(mod, buf, modfilelen, true);
        break;

    case IDMD3HEADER:
        /* MD3 header */
        R_ModLoadAliasMD3Model(mod, buf, modfilelen);
        break;

    case IDBSPHEADER:
        Com_Error(ERR_FATAL, "R_ModForName: don't load BSPs with this function");
        break;

    default:
    {
        const char* ext = Com_GetExtension(mod->name);
        if (ext != nullptr && !Q_strcasecmp(ext, "obj"))
            R_LoadObjModel(mod, buf, modfilelen);
        else
            Com_Error(ERR_FATAL, "R_ModForName: unknown fileid for %s", mod->name);
    }
    }

    /* load the animations */
    char animname[MAX_QPATH];
    Com_StripExtension(mod->name, animname, sizeof(animname));
    Com_DefaultExtension(animname, sizeof(animname), ".anm");

    /* try to load the animation file */
    if (FS_CheckFile("%s", animname) != -1) {
        R_ModLoadAnims(&mod->alias, animname);
    }

    FS_FreeFile(buf);

    mod->loaded = true;
}

static bool R_LoadModel (model_t* mod, const char* filename)
{
    byte* buf;
    int modfilelen;

    if (filename[0] == '\0')
        Com_Error(ERR_FATAL, "R_ModForName: nullptr name");

    /* load the file */
    modfilelen = FS_LoadFile(filename, &buf);
    if (!buf)
        return false;

    OBJZERO(*mod);
    Q_strncpyz(mod->name, filename, sizeof(mod->name));

    R_LoadModelAsync(mod, buf, modfilelen);
    return true;
}

bool R_ModelExists (const char* name)
{
    if (Com_GetExtension(name) == nullptr) {
        for (int i = 0; mod_extensions[i] != nullptr; i++) {
            if (FS_CheckFile("models/%s.%s", name, mod_extensions[i]) != -1) {
                return true;
            }
        }
        return false;
    }

    return FS_CheckFile("models/%s", name) != -1;
}

model_t* R_FindModel (const char* name)
{
    model_t* mod;
    model_t model;
    bool loaded = false;
    int i;

    if (!name || !name[0])
        return nullptr;

    /* search for existing models */
    mod = R_GetModel(name);
    if (mod != nullptr)
        return mod;

    /* no inline bsp models here */
    if (name[0] == '*')
        return nullptr;

    /* load model */
    if (Com_GetExtension(name) == nullptr) {
        char filename[MAX_QPATH];

        for (i = 0; mod_extensions[i] != nullptr; i++) {
            Com_sprintf(filename, sizeof(filename), "models/%s.%s", name, mod_extensions[i]);
            loaded = R_LoadModel(&model, filename);
            if (loaded) {
                /* use short name */
                Q_strncpyz(model.name, name, sizeof(model.name));
                break;
            }
        }
    } else {
        loaded = R_LoadModel(&model, name);
    }

    if (!loaded) {
        Com_Printf("R_FindModel: Could not find: '%s'\n", name);
        return nullptr;
    }

    /* register the new model only after the loading is finished */

    /* find a free model slot spot */
    for (i = 0, mod = r_models; i < r_numModels; i++, mod++) {
        if (!mod->name[0])
            break;
    }
    if (i == r_numModels) {
        if (r_numModels == MAX_MOD_KNOWN)
            Com_Error(ERR_FATAL, "r_numModels == MAX_MOD_KNOWN");
        r_numModels++;
    }

    /* copy the model to the slot */
    r_models[i] = model;
    return &r_models[i];
}

model_t* R_GetModel (const char* name)
{
    model_t* mod;
    int i;

    if (name[0] == '\0')
        Com_Error(ERR_FATAL, "R_ModForName: nullptr name");

    /* inline models are grabbed only from worldmodel */
    if (name[0] == '*') {
        i = atoi(name + 1) - 1;
        if (i < 0 || i >= r_numModelsInline)
            Com_Error(ERR_FATAL, "bad inline model number '%s' (%i/%i)", name, i, r_numModelsInline);
        return &r_modelsInline[i];
    }

    /* search the currently loaded models */
    for (i = 0, mod = r_models; i < r_numModels; i++, mod++)
        if (Q_streq(mod->name, name))
            return mod;
    return nullptr;
}

#define MEM_TAG_STATIC_MODELS 1

void R_SwitchModelMemPoolTag (void)
{
    r_numModelsStatic = r_numModels;
    Mem_ChangeTag(vid_modelPool, 0, MEM_TAG_STATIC_MODELS);

    /* mark the static model textures as it_static, thus R_FreeWorldImages
     * won't free them */
    int i;
    model_t* mod;
    for (i = 0, mod = r_models; i < r_numModelsStatic; i++, mod++) {
        if (!mod->alias.num_meshes)
            Com_Printf("Model '%s' has no meshes\n", mod->name);
        for (int j = 0; j < mod->alias.num_meshes; j++) {
            mAliasMesh_t* mesh = &mod->alias.meshes[j];
            if (!mesh->num_skins)
                Com_Printf("Model '%s' has no skins\n", mod->name);
            for (int k = 0; k < mesh->num_skins; k++) {
                mAliasSkin_t* modelSkin = &mesh->skins[k];
                if (modelSkin->skin != r_noTexture)
                    modelSkin->skin->type = it_static;
                else
                    Com_Printf("No skin for #%i of '%s'\n", j, mod->name);
            }
        }
    }

    Com_Printf("%i static models loaded\n", r_numModels);
}

int R_ModAllocateActorSkin (const char* name)
{
    if (r_numActorSkinName >= lengthof(r_actorSkinNames))
        return -1;

    r_actorSkinNames[r_numActorSkinName] = Mem_StrDup(name);

    return r_numActorSkinName++;
}

bool R_UseActorSkin (void)
{
    return r_numActorSkinName != 0;
}

static const char* R_GetActorSkin (int id)
{
    assert(id >= 0 && id < r_numActorSkinName);
    return r_actorSkinNames[id];
}

void R_LoadActorSkinsFromModel (mAliasMesh_t* outMesh, image_t* defaultSkin)
{
    assert(outMesh);

    outMesh->num_skins = r_numActorSkinName;
    outMesh->skins = Mem_PoolAllocTypeN(mAliasSkin_t, outMesh->num_skins, vid_modelPool);

    if (defaultSkin == r_noTexture)
        Com_Printf("R_LoadActorSkinsFromModel: No default skin found for model \"%s\"\n", outMesh->name);

    for (int i = 0; i < outMesh->num_skins; i++) {
        mAliasSkin_t* modelSkin = &outMesh->skins[i];
        if (i == 0) {
            modelSkin->skin = defaultSkin;
        } else {
            const char* skin = R_GetActorSkin(i);
            modelSkin->skin = R_AliasModelGetSkin(nullptr, va("%s_%s", defaultSkin->name, skin));
            if (modelSkin->skin == r_noTexture) {
                Com_Printf("R_LoadActorSkinsFromModel: Skin %s_%s not found, defaulting to: %s\n",
                        defaultSkin->name, skin, defaultSkin->name);
                modelSkin->skin = defaultSkin;
            }
        }
        Q_strncpyz(modelSkin->name, modelSkin->skin->name, sizeof(outMesh->skins[i].name));
    }
}

void R_ShutdownModels (bool complete)
{
    int i;
    const int start = complete ? 0 : r_numModelsStatic;

    /* free the vertex buffer - but not for the static models
     * the world, the submodels and all the misc_models are located in the
     * r_models array */
    for (i = start; i < r_numModels; i++) {
        model_t* mod = &r_models[i];
        mBspModel_t* bsp = &mod->bsp;

        if (bsp->vertex_buffer)
            qglDeleteBuffers(1, &bsp->vertex_buffer);
        if (bsp->texcoord_buffer)
            qglDeleteBuffers(1, &bsp->texcoord_buffer);
        if (bsp->lmtexcoord_buffer)
            qglDeleteBuffers(1, &bsp->lmtexcoord_buffer);
        if (bsp->normal_buffer)
            qglDeleteBuffers(1, &bsp->normal_buffer);
        if (bsp->tangent_buffer)
            qglDeleteBuffers(1, &bsp->tangent_buffer);
        if (bsp->index_buffer)
            qglDeleteBuffers(1, &bsp->index_buffer);
    }

    /* don't free the static models with the tag MEM_TAG_STATIC_MODELS */
    if (complete) {
        if (vid_modelPool)
            Mem_FreePool(vid_modelPool);
        if (vid_lightPool)
            Mem_FreePool(vid_lightPool);
        r_numModels = 0;
        r_numModelsInline = 0;
        r_numMapTiles = 0;
        OBJZERO(r_models);
    } else {
        if (vid_modelPool)
            Mem_FreeTag(vid_modelPool, 0);
        if (vid_lightPool)
            Mem_FreeTag(vid_lightPool, 0);
        r_numModels = r_numModelsStatic;
    }
}

void R_ModelInit ()
{
}

void R_ModelShutdown ()
{
    R_ShutdownModels(true);
}