Added copies of old numbered releases.0.01

1 files changed, 594 insertions, 0 deletions

diff --git a/texture.c b/texture.c
new file mode 100644
index 0000000..eb29d01
--- /dev/null
+++ b/texture.c
@@ -0,0 +1,594 @@
+/*
+
+    viDOOM - level editor for DOOM
+
+    Copyright (C) 2000  Ian Cowburn (ianc@noddybox.demon.co.uk)
+
+    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
+
+    -------------------------------------------------------------------------
+
+    Stores lists of the graphical information from the WADs
+
+*/
+static const char rcs_id[]="$Id$";
+
+#include "config.h"
+#include "globals.h"
+
+#include <string.h>
+
+#include "texture.h"
+#include "wad.h"
+#include "mem.h"
+#include "gfx.h"
+#include "platgui.h"
+#include "gui.h"
+#include "vstring.h"
+
+
+PLAT_IMG_PICKLIST	*flat_picklist=NULL;
+PLAT_IMG_PICKLIST	*texture_picklist=NULL;
+
+/* The height and width of a texture are actually stored along with the 
+   texture name
+*/
+#define TXTNUMWID	8
+#define TXTHEIGHT	10
+#define TXTWIDTH	20
+#define TXTMALLOC	31
+
+/* ---------------------------------------- PRIVATE FUNCTIONS
+*/
+static int CmpText(const void *a,const void *b)
+{
+    const PLAT_IMG_PICKLIST *p1,*p2;
+
+    p1=a;
+    p2=b;
+
+    return(StrCaseCmp(p1->text,p2->text));
+}
+
+
+static Byte *GetShort(Byte *p,Short *s)
+{
+    *s=(Short)(*p++);
+    *s|=((Short)(*p++))<<8;
+    return(p);
+}
+
+
+static Byte *GetLong(Byte *p,Long *l)
+{
+    *l=(Long)(*p++);
+    *l|=((Long)(*p++))<<8;
+    *l|=((Long)(*p++))<<16;
+    *l|=((Long)(*p++))<<24;
+    return(p);
+}
+
+static Byte *GetName(Byte *p,char *s)
+{
+    int f;
+
+    for(f=0;f<8;f++)
+    	*s++=*p++;
+
+    *s=0;
+    return(p);
+}
+
+
+static void BMPlot(int x,int y,int c,GFX_BITMAP *bm)
+{
+    if ((x>=0)&&(x<bm->w)&&(y>=0)&&(y<bm->h))
+        *(bm->data+(x)+(y*bm->w))=c;
+}
+
+
+static void DecodeLump(Byte *lump, int ox, int oy, GFX_BITMAP *bm)
+{
+    Short lw,lh,lox,loy;
+    Byte *base;
+    Byte *col;
+    Long off;
+    int x,y,f;
+    Byte cno;
+
+    base=lump;
+    lump=GetShort(lump,&lw);
+    lump=GetShort(lump,&lh);
+    lump=GetShort(lump,&lox);
+    lump=GetShort(lump,&loy);
+
+    lox=MAX(lox,0);
+    loy=MAX(loy,0);
+
+    for(x=0;x<lw;x++)
+    	{
+	lump=GetLong(lump,&off);
+	col=base+off;
+
+	while(*col!=0xff)
+	    {
+	    y=*col++;
+	    cno=*col++;
+	    col++;
+
+	    for(f=0;f<cno;f++)
+		{
+		BMPlot(ox+x,oy+y,(int)*col,bm);
+		col++;
+		y++;
+		}
+
+	    col++;
+	    }
+	}
+}
+
+
+static GFX_IMAGE GetTexture(Byte *t_ent, Byte *pn, GFX_BITMAP *bm)
+{
+    char name[9];
+    Short no,w,h,xo,yo,pno;
+    int f;
+    Byte *patch;
+
+    /* Skip over name and 2 always zero fields
+    */
+    t_ent+=8+2+2;
+
+    /* Get height and width of texture (limited to max size of bitmap)
+    */
+    t_ent=GetShort(t_ent,&w);
+    bm->w=MIN(w,MAX_GFXBM_W);
+
+    t_ent=GetShort(t_ent,&h);
+    bm->h=MIN(h,MAX_GFXBM_H);
+
+    /* Once we have the width and height, return if the actual image is not to
+       be loaded
+    */
+    if (!load_textures)
+    	return(NULL);
+
+    /* Skip over always zero fields
+    */
+    t_ent+=4;
+
+    /* The bitmap is filled with the transparent colour
+    */
+    memset(bm->data,243,w*h);
+
+    /* Get no of patches that make up this texture
+    */
+    t_ent=GetShort(t_ent,&no);
+
+    /* Read each patch and add to the texture
+    */
+    for(f=0;f<no;f++)
+    	{
+	/* Patch offsets and number then skip remaining
+	*/
+	t_ent=GetShort(t_ent,&xo);
+	t_ent=GetShort(t_ent,&yo);
+	t_ent=GetShort(t_ent,&pno);
+	t_ent+=4;
+
+        /* Get the name from the Pname entry and load the lump
+	*/
+	GetName(pn+4+8*pno,name);
+
+	if (!(patch=GetLump(name,NULL)))
+	    GFX_exit(EXIT_FAILURE,"Failed to find patch %s\n",name);
+
+	/* Decode the graphics lump and load it into the bitmap
+	*/
+	DecodeLump(patch,xo,yo,bm);
+
+	Release(patch);
+	}
+
+    return(GFX_create_image(bm));
+}
+
+
+static void ReadTextures(char *name,Byte *texture,
+				Byte *pn,int *i,GFX_BITMAP *bm)
+{
+    Long no;
+    Long off;
+    Byte *base;
+    int f;
+
+    base=texture;
+
+    /* Get the no of the textures
+    */
+    texture=GetLong(texture,&no);
+
+    /* Loop through all the textures and create the picklist entry
+    */
+    for(f=0;f<no;f++)
+	{
+    	texture=GetLong(texture,&off);
+
+	texture_picklist[*i].text=Grab(TXTMALLOC);
+
+	GetName(base+off,texture_picklist[*i].text);
+
+	GuiDrawInfoBox((load_textures ?
+				"Please wait.  Reading wall texture graphics":
+				"Please wait.  Reading wall texture names"),
+			GUI_CENTRE,GUI_CENTRE,TRUE,
+			    "Lump %s|Texture %s|%d%% complete",
+				name,texture_picklist[*i].text,
+					f*100/no);
+	GFX_redraw();
+
+	texture_picklist[*i].img=GetTexture(base+off,pn,bm);
+	sprintf(texture_picklist[*i].text+TXTWIDTH,
+					"%*.*d",TXTNUMWID,TXTNUMWID,bm->w);
+	sprintf(texture_picklist[*i].text+TXTHEIGHT,
+					"%*.*d",TXTNUMWID,TXTNUMWID,bm->h);
+
+
+	(*i)++;
+	}
+}
+
+
+/* ------------------------------ EXPORTED FUNCTIONS
+*/
+
+void ReadWADFlats(void)
+{
+    WadDir *wd;
+    Iterator i;
+    int found;
+    int done;
+    GFX_BITMAP bm;
+    Byte *pal;
+    int no;
+    int ip;
+    int f;
+
+    if (!(pal=GetLump("PLAYPAL",NULL)))
+    	GFX_exit(EXIT_FAILURE,"There MUST be a PLAYPAL lump in the WADs!!\n");
+
+    if (flat_picklist)
+	{
+	ip=0;
+	while(flat_picklist[ip].text)
+	    {
+	    Release(flat_picklist[ip].text);
+	    if (flat_picklist[ip].img)
+		GFX_destroy_image(flat_picklist[ip].img);
+	    }
+
+    	Release(flat_picklist);
+	}
+
+    /* Get number of flats (Naughty..  Means we read through dir twice...)
+    */
+    i=GetWadDir();
+
+    found=FALSE;
+    done=FALSE;
+    no=0;
+
+    while((i)&&(!done))
+    	{
+	wd=IteratorData(i);
+
+	if (!found)
+	    found=!StrCaseCmp(wd->name,"F_START");
+	else
+	    if (!(done=!StrCaseCmp(wd->name,"F_END")))
+		if (wd->size==0x1000)
+		    no++;
+
+	i=IteratorNext(i);
+	}
+
+    IteratorClear(i);
+    flat_picklist=Grab(sizeof(PLAT_IMG_PICKLIST)*(no+1));
+    flat_picklist[no].text=NULL;
+    flat_picklist[no].img=NULL;
+
+    /* Palette and size for bitmap
+    */
+    bm.w=64;
+    bm.h=64;
+
+    for(f=0;f<256;f++)
+    	{
+	int r,g,b;
+
+	r=(int)(pal[f*3]*gfx_brighten);
+	g=(int)(pal[f*3+1]*gfx_brighten);
+	b=(int)(pal[f*3+2]*gfx_brighten);
+
+	r=MIN(255,r);
+	g=MIN(255,g);
+	b=MIN(255,b);
+
+	bm.pal[f]=V_RGB(r,g,b);
+	}
+
+    /* Load in the names and graphics
+    */
+    i=GetWadDir();
+
+    found=FALSE;
+    done=FALSE;
+    ip=0;
+
+    while((i)&&(!done))
+    	{
+	wd=IteratorData(i);
+
+	if (!found)
+	    found=!StrCaseCmp(wd->name,"F_START");
+	else
+	    if (!(done=!StrCaseCmp(wd->name,"F_END")))
+		if (wd->size==0x1000)
+		    {
+		    flat_picklist[ip].text=Strdup(wd->name);
+
+		    if (load_flats)
+			{
+			/* GFX_BITMAP and DOOM flats are actually in the same
+			   format
+			*/
+			if (!(bm.data=GetLump(wd->name,NULL)))
+			    GFX_exit(EXIT_FAILURE,
+					"Failed to load flat %s\n",wd->name);
+
+			flat_picklist[ip].img=GFX_create_image(&bm);
+
+			Release(bm.data);
+			}
+		    else
+			flat_picklist[ip].img=NULL;
+
+		    GuiDrawInfoBox((load_flats ?
+					"Please wait.  Reading flat graphics":
+					"Please wait.  Reading flat names"),
+				    GUI_CENTRE,GUI_CENTRE,TRUE,
+					"Flat %s|%d%% complete",
+						wd->name,ip*100/no);
+		    GFX_redraw();
+
+		    ip++;
+		    }
+
+	i=IteratorNext(i);
+	}
+
+    IteratorClear(i);
+    Release(pal);
+
+    /* Sort the list if requested
+    */
+    if (sort_flats)
+	qsort(flat_picklist,no-1,sizeof(PLAT_IMG_PICKLIST),CmpText);
+
+    /* Set the client indexes
+    */
+    for(f=0;f<no;f++)
+    	flat_picklist[f].client_index=f;
+}
+
+
+void ReadWADTextures(void)
+{
+    Long t1_size,t2_size;
+    int no;
+    Byte *t1=NULL;
+    Byte *t2=NULL;
+    Byte *pn=NULL;
+    Byte *pal=NULL;
+    GFX_BITMAP bm;
+    int ip;
+    int f;
+
+    if (!(pal=GetLump("PLAYPAL",NULL)))
+    	GFX_exit(EXIT_FAILURE,"There MUST be a PLAYPAL lump in the WADs!!\n");
+
+    if (!(t1=GetLump("TEXTURE1",NULL)))
+    	GFX_exit(EXIT_FAILURE,"There MUST be a TEXTURE1 lump in the WADs!!\n");
+
+    if ((game==DOOM)||(game==ULTIMATE_DOOM))
+	if (!(t2=GetLump("TEXTURE2",NULL)))
+	    GFX_exit(EXIT_FAILURE,
+			"There MUST be a TEXTURE2 lump in the WADs!!\n");
+
+    if (!(pn=GetLump("PNAMES",NULL)))
+    	GFX_exit(EXIT_FAILURE,"There MUST be a PNAMES lump in the WADs!!\n");
+
+    if (texture_picklist)
+	{
+	ip=0;
+	while(texture_picklist[ip].text)
+	    {
+	    Release(texture_picklist[ip].text);
+	    if (texture_picklist[ip].img)
+		GFX_destroy_image(texture_picklist[ip].img);
+	    }
+
+    	Release(texture_picklist);
+	}
+
+    /* Calculate the size of the resulting picklist + extra two -
+       one for the empty '-' texture and the other for the end of list marker.
+    */
+    GetLong(t1,&t1_size);
+
+    if (t2)
+	GetLong(t2,&t2_size);
+    else
+    	t2_size=0;
+
+    no=t1_size+t2_size+2;
+
+    texture_picklist=Grab(sizeof(PLAT_IMG_PICKLIST)*no);
+
+    /* Storage and palette for bitmap
+    */
+    bm.data=Grab(MAX_GFXBM_W*MAX_GFXBM_H);
+
+    for(f=0;f<256;f++)
+    	{
+	int r,g,b;
+
+	r=(int)(pal[f*3]*gfx_brighten);
+	g=(int)(pal[f*3+1]*gfx_brighten);
+	b=(int)(pal[f*3+2]*gfx_brighten);
+
+	r=MIN(255,r);
+	g=MIN(255,g);
+	b=MIN(255,b);
+
+	bm.pal[f]=V_RGB(r,g,b);
+	}
+
+    /* Create '-' texture
+    */
+    ip=0;
+
+    texture_picklist[ip].text=Grab(TXTMALLOC);
+    strcpy(texture_picklist[ip].text,empty_texture);
+    sprintf(texture_picklist[ip].text+TXTHEIGHT,
+				    "%*.*d",TXTNUMWID,TXTNUMWID,0);
+    sprintf(texture_picklist[ip].text+TXTWIDTH,
+				    "%*.*d",TXTNUMWID,TXTNUMWID,0);
+
+    texture_picklist[ip].img=NULL;
+    ip++;
+
+    /* Read the patches from TEXTURE1 and possible TEXTURE2
+    */
+    ReadTextures("TEXTURE1",t1,pn,&ip,&bm);
+
+    if (t2)
+	ReadTextures("TEXTURE2",t2,pn,&ip,&bm);
+
+    /* Create end of picklist marker
+    */
+    texture_picklist[ip].text=NULL;
+
+    Release(bm.data);
+    Release(t1);
+    Release(t2);
+    Release(pn);
+    Release(pal);
+
+    /* Sort the list if requested
+    */
+    if (sort_textures)
+	qsort(&texture_picklist[1],no-2,sizeof(PLAT_IMG_PICKLIST),CmpText);
+
+    /* Set the client indexes
+    */
+    for(f=0;f<no;f++)
+    	texture_picklist[f].client_index=f;
+}
+
+
+void TextureSize(char *name, int *width, int *height)
+{
+    int f;
+
+    f=0;
+    while(texture_picklist[f].text)
+    	{
+	if (STREQ(texture_picklist[f].text,name))
+	    {
+	    if (width)
+	    	*width=atoi(texture_picklist[f].text+TXTWIDTH);
+
+	    if (height)
+	    	*height=atoi(texture_picklist[f].text+TXTHEIGHT);
+
+	    return;
+	    }
+
+	f++;
+	}
+
+    if (width)
+    	*width=0;
+
+    if (height)
+    	*height=0;
+}
+
+
+GFX_IMAGE DecodeGraphicsLump(char *lump)
+{
+    Byte *obj;
+    Byte *base;
+    Byte *pal;
+    GFX_BITMAP bm;
+    GFX_IMAGE img;
+    int f;
+    Short w,h;
+
+    if (!(obj=GetLump(lump,NULL)))
+    	return(NULL);
+
+    if (!(pal=GetLump("PLAYPAL",NULL)))
+    	GFX_exit(EXIT_FAILURE,"There MUST be a PLAYPAL lump in the WADs!!\n");
+
+    base=obj;
+    obj=GetShort(obj,&w);
+    obj=GetShort(obj,&h);
+
+    bm.w=w;
+    bm.h=h;
+    bm.data=Grab(w*h);
+
+    for(f=0;f<256;f++)
+    	{
+	int r,g,b;
+
+	r=(int)(pal[f*3]*gfx_brighten);
+	g=(int)(pal[f*3+1]*gfx_brighten);
+	b=(int)(pal[f*3+2]*gfx_brighten);
+
+	r=MIN(255,r);
+	g=MIN(255,g);
+	b=MIN(255,b);
+
+	bm.pal[f]=V_RGB(r,g,b);
+	}
+
+    DecodeLump(base,0,0,&bm);
+
+    img=GFX_create_image(&bm);
+
+    Release(bm.data);
+    Release(base);
+    Release(pal);
+
+    return(img);
+}
+
+
+/* END OF FILE */
+