Subversion Repositories Kolibri OS

// Emacs style mode select   -*- C++ -*-

//-----------------------------------------------------------------------------

//

// $Id:$

//

// Copyright (C) 1993-1996 by id Software, Inc.

//

// This source is available for distribution and/or modification

// only under the terms of the DOOM Source Code License as

// published by id Software. All rights reserved.

//

// The source is distributed in the hope that it will be useful,

// but WITHOUT ANY WARRANTY; without even the implied warranty of

// FITNESS FOR A PARTICULAR PURPOSE. See the DOOM Source Code License

// for more details.

//

// $Log:$

//

// Revision 1.3  1997/01/29 20:10

// DESCRIPTION:

//      Preparation of data for rendering,

//      generation of lookups, caching, retrieval by name.

//

//-----------------------------------------------------------------------------

static const char

rcsid[] = "$Id: r_data.c,v 1.4 1997/02/03 16:47:55 b1 Exp $";

#include "i_system.h"

#include "z_zone.h"

#include "m_swap.h"

#include "w_wad.h"

#include "doomdef.h"

#include "r_local.h"

#include "p_local.h"

#include "doomstat.h"

#include "r_sky.h"

#include  

#include "r_data.h"

//

// Graphics.

// DOOM graphics for walls and sprites

// is stored in vertical runs of opaque pixels (posts).

// A column is composed of zero or more posts,

// a patch or sprite is composed of zero or more columns.

//

//

// Texture definition.

// Each texture is composed of one or more patches,

// with patches being lumps stored in the WAD.

// The lumps are referenced by number, and patched

// into the rectangular texture space using origin

// and possibly other attributes.

//

typedef struct

{

    short       originx;

    short       originy;

    short       patch;

    short       stepdir;

    short       colormap;

} mappatch_t;

//

// Texture definition.

// A DOOM wall texture is a list of patches

// which are to be combined in a predefined order.

//

typedef struct

{

    char                name[8];

    int                 masked;

    short               width;

    short               height;

    void                **columndirectory;      // OBSOLETE

    short               patchcount;

    mappatch_t  patches[1];

} maptexture_t;

// A single patch from a texture definition,

//  basically a rectangular area within

//  the texture rectangle.

typedef struct

{

    // Block origin (allways UL),

    // which has allready accounted

    // for the internal origin of the patch.

    int         originx;

    int         originy;

    int         patch;

} texpatch_t;

// A maptexturedef_t describes a rectangular texture,

//  which is composed of one or more mappatch_t structures

//  that arrange graphic patches.

typedef struct

{

    // Keep name for switch changing, etc.

    char        name[8];

    short int   width;

    short int   height;

    // All the patches[patchcount]

    //  are drawn back to front into the cached texture.

    short int   patchcount;

    texpatch_t  patches[1];

} texture_t;

int             firstflat;

int             lastflat;

int             numflats;

int             firstpatch;

int             lastpatch;

int             numpatches;

int             firstspritelump;

int             lastspritelump;

int             numspritelumps;

int             numtextures;

texture_t**     textures;

int*                    texturewidthmask;

// needed for texture pegging

fixed_t*                textureheight;

int*                    texturecompositesize;

short**                 texturecolumnlump;

unsigned short**        texturecolumnofs;

byte**                  texturecomposite;

// for global animation

int*            flattranslation;

int*            texturetranslation;

// needed for pre rendering

fixed_t*        spritewidth;

fixed_t*        spriteoffset;

fixed_t*        spritetopoffset;

lighttable_t    *colormaps;

//

// MAPTEXTURE_T CACHING

// When a texture is first needed,

//  it counts the number of composite columns

//  required in the texture and allocates space

//  for a column directory and any new columns.

// The directory will simply point inside other patches

//  if there is only one patch in a given column,

//  but any columns with multiple patches

//  will have new column_ts generated.

//

//

// R_DrawColumnInCache

// Clip and draw a column

//  from a patch into a cached post.

//

void

R_DrawColumnInCache

( column_t*     patch,

  byte*         cache,

  int           originy,

  int           cacheheight )

{

    int         count;

    int         position;

    byte*       source;

    byte*       dest;

    dest = (byte *)cache + 3;

    while (patch->topdelta != 0xff)

    {

        source = (byte *)patch + 3;

        count = patch->length;

        position = originy + patch->topdelta;

        if (position < 0)

        {

            count += position;

            position = 0;

        }

        if (position + count > cacheheight)

            count = cacheheight - position;

        if (count > 0)

            memcpy (cache + position, source, count);

        patch = (column_t *)(  (byte *)patch + patch->length + 4);

    }

}

//

// R_GenerateComposite

// Using the texture definition,

//  the composite texture is created from the patches,

//  and each column is cached.

//

void R_GenerateComposite (int texnum)

{

    byte*               block;

    texture_t*          texture;

    texpatch_t*         patch;

    patch_t*            realpatch;

    int                 x;

    int                 x1;

    int                 x2;

    int                 i;

    column_t*           patchcol;

    short*              collump;

    unsigned short*     colofs;

    texture = textures[texnum];

    block = Z_Malloc (texturecompositesize[texnum],

                      PU_STATIC,

                      &texturecomposite[texnum]);

    collump = texturecolumnlump[texnum];

    colofs = texturecolumnofs[texnum];

    // Composite the columns together.

    patch = texture->patches;

    for (i=0 , patch = texture->patches;

         ipatchcount;

         i++, patch++)

    {

        realpatch = W_CacheLumpNum (patch->patch, PU_CACHE);

        x1 = patch->originx;

        x2 = x1 + SHORT(realpatch->width);

        if (x1<0)

            x = 0;

        else

            x = x1;

        if (x2 > texture->width)

            x2 = texture->width;

        for ( ; x

        {

            // Column does not have multiple patches?

            if (collump[x] >= 0)

                continue;

            patchcol = (column_t *)((byte *)realpatch

                                    + LONG(realpatch->columnofs[x-x1]));

            R_DrawColumnInCache (patchcol,

                                 block + colofs[x],

                                 patch->originy,

                                 texture->height);

        }

    }

    // Now that the texture has been built in column cache,

    //  it is purgable from zone memory.

    Z_ChangeTag (block, PU_CACHE);

}

//

// R_GenerateLookup

//

void R_GenerateLookup (int texnum)

{

    texture_t*          texture;

    byte*               patchcount;     // patchcount[texture->width]

    texpatch_t*         patch;

    patch_t*            realpatch;

    int                 x;

    int                 x1;

    int                 x2;

    int                 i;

    short*              collump;

    unsigned short*     colofs;

    texture = textures[texnum];

    // Composited texture not created yet.

    texturecomposite[texnum] = 0;

    texturecompositesize[texnum] = 0;

    collump = texturecolumnlump[texnum];

    colofs = texturecolumnofs[texnum];

    // Now count the number of columns

    //  that are covered by more than one patch.

    // Fill in the lump / offset, so columns

    //  with only a single patch are all done.

    patchcount = (byte *)alloca (texture->width);

    memset (patchcount, 0, texture->width);

    patch = texture->patches;

    for (i=0 , patch = texture->patches;

         ipatchcount;

         i++, patch++)

    {

        realpatch = W_CacheLumpNum (patch->patch, PU_CACHE);

        x1 = patch->originx;

        x2 = x1 + SHORT(realpatch->width);

        if (x1 < 0)

            x = 0;

        else

            x = x1;

        if (x2 > texture->width)

            x2 = texture->width;

        for ( ; x

        {

            patchcount[x]++;

            collump[x] = patch->patch;

            colofs[x] = LONG(realpatch->columnofs[x-x1])+3;

        }

    }

    for (x=0 ; xwidth ; x++)

    {

        if (!patchcount[x])

        {

            printf ("R_GenerateLookup: column without a patch (%s)\n",

                    texture->name);

            return;

        }

        // I_Error ("R_GenerateLookup: column without a patch");

        if (patchcount[x] > 1)

        {

            // Use the cached block.

            collump[x] = -1;

            colofs[x] = texturecompositesize[texnum];

            if (texturecompositesize[texnum] > 0x10000-texture->height)

            {

                I_Error ("R_GenerateLookup: texture %i is >64k",

                         texnum);

            }

            texturecompositesize[texnum] += texture->height;

        }

    }

}

//

// R_GetColumn

//

byte*

R_GetColumn

( int           tex,

  int           col )

{

    int         lump;

    int         ofs;

    col &= texturewidthmask[tex];

    lump = texturecolumnlump[tex][col];

    ofs = texturecolumnofs[tex][col];

    if (lump > 0)

        return (byte *)W_CacheLumpNum(lump,PU_CACHE)+ofs;

    if (!texturecomposite[tex])

        R_GenerateComposite (tex);

    return texturecomposite[tex] + ofs;

}

//

// R_InitTextures

// Initializes the texture list

//  with the textures from the world map.

//

void R_InitTextures (void)

{

    maptexture_t*       mtexture;

    texture_t*          texture;

    mappatch_t*         mpatch;

    texpatch_t*         patch;

    int                 i;

    int                 j;

    int*                maptex;

    int*                maptex2;

    int*                maptex1;

    char                name[9];

    char*               names;

    char*               name_p;

    int*                patchlookup;

    int                 totalwidth;

    int                 nummappatches;

    int                 offset;

    int                 maxoff;

    int                 maxoff2;

    int                 numtextures1;

    int                 numtextures2;

    int*                directory;

    int                 temp1;

    int                 temp2;

    int                 temp3;

    // Load the patch names from pnames.lmp.

    name[8] = 0;

    names = W_CacheLumpName ("PNAMES", PU_STATIC);

    nummappatches = LONG ( *((int *)names) );

    name_p = names+4;

    patchlookup = alloca (nummappatches*sizeof(*patchlookup));

    for (i=0 ; i

    {

        strncpy (name,name_p+i*8, 8);

        patchlookup[i] = W_CheckNumForName (name);

    }

    Z_Free (names);

    // Load the map texture definitions from textures.lmp.

    // The data is contained in one or two lumps,

    //  TEXTURE1 for shareware, plus TEXTURE2 for commercial.

    maptex = maptex1 = W_CacheLumpName ("TEXTURE1", PU_STATIC);

    numtextures1 = LONG(*maptex);

    maxoff = W_LumpLength (W_GetNumForName ("TEXTURE1"));

    directory = maptex+1;

    if (W_CheckNumForName ("TEXTURE2") != -1)

    {

        maptex2 = W_CacheLumpName ("TEXTURE2", PU_STATIC);

        numtextures2 = LONG(*maptex2);

        maxoff2 = W_LumpLength (W_GetNumForName ("TEXTURE2"));

    }

    else

    {

        maptex2 = NULL;

        numtextures2 = 0;

        maxoff2 = 0;

    }

    numtextures = numtextures1 + numtextures2;

    textures = Z_Malloc (numtextures*4, PU_STATIC, 0);

    texturecolumnlump = Z_Malloc (numtextures*4, PU_STATIC, 0);

    texturecolumnofs = Z_Malloc (numtextures*4, PU_STATIC, 0);

    texturecomposite = Z_Malloc (numtextures*4, PU_STATIC, 0);

    texturecompositesize = Z_Malloc (numtextures*4, PU_STATIC, 0);

    texturewidthmask = Z_Malloc (numtextures*4, PU_STATIC, 0);

    textureheight = Z_Malloc (numtextures*4, PU_STATIC, 0);

    totalwidth = 0;

    //  Really complex printing shit...

    temp1 = W_GetNumForName ("S_START");  // P_???????

    temp2 = W_GetNumForName ("S_END") - 1;

    temp3 = ((temp2-temp1+63)/64) + ((numtextures+63)/64);

    printf("[");

    for (i = 0; i < temp3; i++)

        printf(" ");

    printf("         ]");

    for (i = 0; i < temp3; i++)

        printf("\x8");

    printf("\x8\x8\x8\x8\x8\x8\x8\x8\x8\x8");

    for (i=0 ; i

    {

        if (!(i&63))

            printf (".");

        if (i == numtextures1)

        {

            // Start looking in second texture file.

            maptex = maptex2;

            maxoff = maxoff2;

            directory = maptex+1;

        }

        offset = LONG(*directory);

        if (offset > maxoff)

            I_Error ("R_InitTextures: bad texture directory");

        mtexture = (maptexture_t *) ( (byte *)maptex + offset);

        texture = textures[i] =

            Z_Malloc (sizeof(texture_t)

                      + sizeof(texpatch_t)*(SHORT(mtexture->patchcount)-1),

                      PU_STATIC, 0);

        texture->width = SHORT(mtexture->width);

        texture->height = SHORT(mtexture->height);

        texture->patchcount = SHORT(mtexture->patchcount);

        memcpy (texture->name, mtexture->name, sizeof(texture->name));

        mpatch = &mtexture->patches[0];

        patch = &texture->patches[0];

        for (j=0 ; jpatchcount ; j++, mpatch++, patch++)

        {

            patch->originx = SHORT(mpatch->originx);

            patch->originy = SHORT(mpatch->originy);

            patch->patch = patchlookup[SHORT(mpatch->patch)];

            if (patch->patch == -1)

            {

                I_Error ("R_InitTextures: Missing patch in texture %s",

                         texture->name);

            }

        }

        texturecolumnlump[i] = Z_Malloc (texture->width*2, PU_STATIC,0);

        texturecolumnofs[i] = Z_Malloc (texture->width*2, PU_STATIC,0);

        j = 1;

        while (j*2 <= texture->width)

            j<<=1;

        texturewidthmask[i] = j-1;

        textureheight[i] = texture->height<

        totalwidth += texture->width;

    }

    Z_Free (maptex1);

    if (maptex2)

        Z_Free (maptex2);

    // Precalculate whatever possible.

    for (i=0 ; i

        R_GenerateLookup (i);

    // Create translation table for global animation.

    texturetranslation = Z_Malloc ((numtextures+1)*4, PU_STATIC, 0);

    for (i=0 ; i

        texturetranslation[i] = i;

}

//

// R_InitFlats

//

void R_InitFlats (void)

{

    int         i;

    firstflat = W_GetNumForName ("F_START") + 1;

    lastflat = W_GetNumForName ("F_END") - 1;

    numflats = lastflat - firstflat + 1;

    // Create translation table for global animation.

    flattranslation = Z_Malloc ((numflats+1)*4, PU_STATIC, 0);

    for (i=0 ; i

        flattranslation[i] = i;

}

//

// R_InitSpriteLumps

// Finds the width and hoffset of all sprites in the wad,

//  so the sprite does not need to be cached completely

//  just for having the header info ready during rendering.

//

void R_InitSpriteLumps (void)

{

    int         i;

    patch_t     *patch;

    firstspritelump = W_GetNumForName ("S_START") + 1;

    lastspritelump = W_GetNumForName ("S_END") - 1;

    numspritelumps = lastspritelump - firstspritelump + 1;

    spritewidth = Z_Malloc (numspritelumps*4, PU_STATIC, 0);

    spriteoffset = Z_Malloc (numspritelumps*4, PU_STATIC, 0);

    spritetopoffset = Z_Malloc (numspritelumps*4, PU_STATIC, 0);

    for (i=0 ; i< numspritelumps ; i++)

    {

        if (!(i&63))

            printf (".");

        patch = W_CacheLumpNum (firstspritelump+i, PU_CACHE);

        spritewidth[i] = SHORT(patch->width)<

        spriteoffset[i] = SHORT(patch->leftoffset)<

        spritetopoffset[i] = SHORT(patch->topoffset)<

    }

}

//

// R_InitColormaps

//

void R_InitColormaps (void)

{

    int lump, length;

    // Load in the light tables,

    //  256 byte align tables.

    lump = W_GetNumForName("COLORMAP");

    length = W_LumpLength (lump) + 255;

    colormaps = Z_Malloc (length, PU_STATIC, 0);

    colormaps = (byte *)( ((int)colormaps + 255)&~0xff);

    W_ReadLump (lump,colormaps);

}

//

// R_InitData

// Locates all the lumps

//  that will be used by all views

// Must be called after W_Init.

//

void R_InitData (void)

{

    R_InitTextures ();

    printf ("InitTextures\n\r");

    R_InitFlats ();

    printf ("InitFlats\n\r");

    R_InitSpriteLumps ();

    printf ("InitSprites\n\r");

    R_InitColormaps ();

    printf ("InitColormaps\n\r");

}

//

// R_FlatNumForName

// Retrieval, get a flat number for a flat name.

//

int R_FlatNumForName (char* name)

{

    int         i;

    char        namet[9];

    i = W_CheckNumForName (name);

    if (i == -1)

    {

        namet[8] = 0;

        memcpy (namet, name,8);

        I_Error ("R_FlatNumForName: %s not found",namet);

    }

    return i - firstflat;

}

//

// R_CheckTextureNumForName

// Check whether texture is available.

// Filter out NoTexture indicator.

//

int     R_CheckTextureNumForName (char *name)

{

    int         i;

    // "NoTexture" marker.

    if (name[0] == '-')

        return 0;

    for (i=0 ; i

        if (!strnicmp (textures[i]->name, name, 8) )

            return i;

    return -1;

}

//

// R_TextureNumForName

// Calls R_CheckTextureNumForName,

//  aborts with error message.

//

int     R_TextureNumForName (char* name)

{

    int         i;

    i = R_CheckTextureNumForName (name);

    if (i==-1)

    {

        I_Error ("R_TextureNumForName: %s not found",

                 name);

    }

    return i;

}

//

// R_PrecacheLevel

// Preloads all relevant graphics for the level.

//

int             flatmemory;

int             texturememory;

int             spritememory;

void R_PrecacheLevel (void)

{

    char*               flatpresent;

    char*               texturepresent;

    char*               spritepresent;

    int                 i;

    int                 j;

    int                 k;

    int                 lump;

    texture_t*          texture;

    thinker_t*          th;

    spriteframe_t*      sf;

    if (demoplayback)

        return;

    // Precache flats.

    flatpresent = alloca(numflats);

    memset (flatpresent,0,numflats);

    for (i=0 ; i

    {

        flatpresent[sectors[i].floorpic] = 1;

        flatpresent[sectors[i].ceilingpic] = 1;

    }

    flatmemory = 0;

    for (i=0 ; i

    {

        if (flatpresent[i])

        {

            lump = firstflat + i;

            flatmemory += lumpinfo[lump].size;

            W_CacheLumpNum(lump, PU_CACHE);

        }

    }

    // Precache textures.

    texturepresent = alloca(numtextures);

    memset (texturepresent,0, numtextures);

    for (i=0 ; i

    {

        texturepresent[sides[i].toptexture] = 1;

        texturepresent[sides[i].midtexture] = 1;

        texturepresent[sides[i].bottomtexture] = 1;

    }

    // Sky texture is always present.

    // Note that F_SKY1 is the name used to

    //  indicate a sky floor/ceiling as a flat,

    //  while the sky texture is stored like

    //  a wall texture, with an episode dependend

    //  name.

    texturepresent[skytexture] = 1;

    texturememory = 0;

    for (i=0 ; i

    {

        if (!texturepresent[i])

            continue;

        texture = textures[i];

        for (j=0 ; jpatchcount ; j++)

        {

            lump = texture->patches[j].patch;

            texturememory += lumpinfo[lump].size;

            W_CacheLumpNum(lump , PU_CACHE);

        }

    }

    // Precache sprites.

    spritepresent = alloca(numsprites);

    memset (spritepresent,0, numsprites);

    for (th = thinkercap.next ; th != &thinkercap ; th=th->next)

    {

        if (th->function.acp1 == (actionf_p1)P_MobjThinker)

            spritepresent[((mobj_t *)th)->sprite] = 1;

    }

    spritememory = 0;

    for (i=0 ; i

    {

        if (!spritepresent[i])

            continue;

        for (j=0 ; j

        {

            sf = &sprites[i].spriteframes[j];

            for (k=0 ; k<8 ; k++)

            {

                lump = firstspritelump + sf->lump[k];

                spritememory += lumpinfo[lump].size;

                W_CacheLumpNum(lump , PU_CACHE);

            }

        }

    }

}