quakeforge/tools/Forge/Bundles/MapEdit/TexturePalette.m

805 lines
17 KiB
Objective-C

#include <unistd.h>
#include "QF/qendian.h"
#include "QF/quakeio.h"
#include "QF/sys.h"
#include "QF/wadfile.h"
#include "QF/va.h"
#include "TexturePalette.h"
#include "Preferences.h"
#include "Project.h"
#include "Map.h"
#include "Entity.h"
#include "QuakeEd.h"
#include "SetBrush.h"
#include "Storage.h"
id texturepalette_i;
int tex_count;
qtexture_t qtextures[MAX_TEXTURES];
typedef struct {
char name[16];
unsigned width, height;
unsigned offsets[4]; // four mip maps stored
} miptex_t;
unsigned tex_palette[256];
unsigned badtex_d[] = {
0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
0, 0, 0, 0, 0, 0, 0, 0,
0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
0, 0, 0, 0, 0, 0, 0, 0,
0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
0, 0, 0, 0, 0, 0, 0, 0,
0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
0, 0, 0, 0, 0, 0, 0, 0,
0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
0, 0, 0, 0, 0, 0, 0, 0,
0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
0, 0, 0, 0, 0, 0, 0, 0,
0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
0, 0, 0, 0, 0, 0, 0, 0,
0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0,
0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
0, 0, 0, 0, 0, 0, 0, 0,
0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
0, 0, 0, 0, 0, 0, 0, 0,
0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
0, 0, 0, 0, 0, 0, 0, 0,
0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
0, 0, 0, 0, 0, 0, 0, 0,
0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
0, 0, 0, 0, 0, 0, 0, 0,
0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
0, 0, 0, 0, 0, 0, 0, 0,
0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff,
0, 0, 0, 0, 0, 0, 0, 0,
0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff, 0xffff
};
qtexture_t badtex = {"notexture", 16, 16, NULL, badtex_d, {{0, 0, 255, 255}}};
void
CleanupName (const char *in, char *out)
{
int i;
for (i = 0; i < 16; i++) {
if (!in[i])
break;
out[i] = toupper (in[i]);
}
for ( ; i < 16; i++)
out[i] = 0;
}
/*
==============
TEX_InitPalette
==============
*/
void
TEX_InitPalette (wad_t *wad, lumpinfo_t *pallump)
{
byte *pal, *opal;
int r, g, b, v;
int i;
opal = pal = malloc (pallump->size);
Qseek (wad->handle, pallump->filepos, SEEK_SET);
Qread (wad->handle, pal, pallump->size);
for (i = 0; i < 256; i++) {
r = pal[0];
g = pal[1];
b = pal[2];
pal += 3;
v = (r << 24) + (g << 16) + (b << 8) + 255;
v = BigLong (v);
tex_palette[i] = v;
}
free (opal);
}
/*
=================
TEX_ImageFromMiptex
=================
*/
void
TEX_ImageFromMiptex (wad_t *wad, lumpinfo_t *qtexlump)
{
miptex_t *qtex;
NSBitmapImageRep *bm;
byte *source;
unsigned *dest;
int width, height, i, count;
qtexture_t *q;
int tr, tg, tb;
qtex = malloc (qtexlump->size);
Qseek (wad->handle, qtexlump->filepos, SEEK_SET);
Qread (wad->handle, qtex, qtexlump->size);
width = LittleLong (qtex->width);
height = LittleLong (qtex->height);
bm = [[NSBitmapImageRep alloc]
initWithBitmapDataPlanes: NULL
pixelsWide: width
pixelsHigh: height
bitsPerSample: 8
samplesPerPixel: 3
hasAlpha: NO
isPlanar: NO
colorSpaceName: NSCalibratedRGBColorSpace
bytesPerRow: width * 4
bitsPerPixel: 32];
dest = (unsigned *) [bm bitmapData];
count = width * height;
source = (byte *) qtex + LittleLong (qtex->offsets[0]);
q = &qtextures[tex_count];
tex_count++;
q->width = width;
q->height = height;
if (q->rep)
[q->rep release];
q->rep = bm;
q->data = dest;
tr = tg = tb = 0;
for (i = 0; i < count; i++) {
dest[i] = tex_palette[source[i]];
tr += ((pixel32_t *) &dest[i])->chan[0];
tg += ((pixel32_t *) &dest[i])->chan[1];
tb += ((pixel32_t *) &dest[i])->chan[2];
}
q->flatcolor.chan[0] = tr / count;
q->flatcolor.chan[1] = tg / count;
q->flatcolor.chan[2] = tb / count;
q->flatcolor.chan[3] = 0xff;
free (qtex);
}
// =============================================================================
/*
=================
TEX_InitFromWad
=================
*/
int
TEX_InitFromWad (const char *path)
{
int i;
const char *newpath;
float start, stop;
wad_t *wad;
lumpinfo_t *lumpinfo;
NSString *errmsg;
int old_tex_count;
start = Sys_DoubleTime ();
newpath = [[project_i baseDirectoryPath] cString];
newpath = va ("%s%s%s", newpath, (newpath[0] ? "/" : ""), path);
errmsg = [NSString stringWithFormat: @"Failed to open '%s'", newpath];
Sys_Printf ("TEX_InitFromWad: loading %s\n", newpath);
wad = wad_open (newpath);
if (!wad) {
Sys_Printf ("TEX_InitFromWad: wad_open(%s) failed\n", path);
goto cleanup;
}
lumpinfo = wad->lumps;
if (strcasecmp (lumpinfo->name, "PALETTE")) {
lumpinfo_t tlump;
Sys_Printf ("TEX_InitFromWad: %s doesn't have palette at index 0\n", path);
lumpinfo = wad_find_lump (wad, "PALETTE");
if (!lumpinfo) {
Sys_Printf ("TEX_InitFromWad: %s doesn't have a palette\n", path);
goto cleanup;
}
// move the palette lump to the first entry
tlump = *lumpinfo;
*lumpinfo = wad->lumps[0];
wad->lumps[0] = tlump;
lumpinfo = wad->lumps;
}
TEX_InitPalette (wad, lumpinfo);
old_tex_count = tex_count;
tex_count = 0;
lumpinfo++;
for (i = 1; i < wad->numlumps; i++, lumpinfo++) {
if (lumpinfo->type != TYP_MIPTEX) {
Sys_Printf ("TEX_InitFromWad: %s is not a miptex!\n", lumpinfo->name);
continue;
}
CleanupName (lumpinfo->name, qtextures[tex_count].name);
TEX_ImageFromMiptex (wad, lumpinfo);
}
if (tex_count) {
for (i = tex_count; i < old_tex_count; i++) {
[qtextures[i].rep release];
qtextures[i].rep = nil;
}
} else {
goto cleanup;
}
wad_close (wad);
stop = Sys_DoubleTime ();
Sys_Printf ("loaded %s (%.3f seconds)\n", newpath, stop - start);
return 1;
cleanup:
if (wad)
wad_close (wad);
NSRunAlertPanel (@"Wad Error", errmsg, @"OK", nil, nil);
return 0;
}
/*
=================
TEX_NumForName
=================
*/
qtexture_t *
TEX_ForName (const char *name)
{
char newname[16];
int i;
qtexture_t *q;
CleanupName (name, newname);
for (i = 0, q = qtextures; i < tex_count; i++, q++) {
if (!strcmp (newname, q->name))
return q;
}
return &badtex;
}
// ===========================================================================
@implementation TexturePalette
- (id) init
{
[super init];
texturepalette_i = self;
selectedTexture = -1;
return self;
}
- (void) display
{
[[textureView_i superview] display];
}
- (const char *) currentWad
{
return currentwad;
}
- (id) initPaletteFromWadfile: (const char *)wf
{
int i;
texpal_t t;
qtexture_t *q;
strcpy (currentwad, wf);
[map_i makeGlobalPerform: @selector (flushTextures)];
selectedTexture = -1;
// Init textures WAD
if (!TEX_InitFromWad (wf))
return self;
// Create STORAGE
if (textureList_i) {
[textureList_i empty];
} else {
textureList_i = [[Storage alloc] initCount: 0
elementSize: sizeof (texpal_t)
description: NULL];
}
// Init STORAGE
for (i = 0, q = qtextures; i < tex_count; i++, q++) {
t.image = q->rep;
t.r.size.width = [t.image pixelsWide];
if (t.r.size.width < 64)
t.r.size.width = 64;
t.r.size.height = [t.image pixelsHigh] + TEX_SPACING;
t.name = q->name;
t.index = i;
t.display = 1;
[textureList_i addElement: &t];
}
// Calculate size of TextureView
[self alphabetize];
[self computeTextureViewSize];
[textureView_i setParent: self];
[self setSelectedTexture: 0];
return self;
}
// Return texture STORAGE list
- (id) getList
{
return textureList_i;
}
// Alphabetize texture list - reverse order!
- (id) alphabetize
{
int i;
int max;
texpal_t *t1p;
texpal_t *t2p;
texpal_t t1;
texpal_t t2;
int found;
max = [textureList_i count];
found = 1;
while (found) {
found = 0;
for (i = 0; i < max - 1; i++) {
t1p = [textureList_i elementAt: i];
t2p = [textureList_i elementAt: i + 1];
if (strcmp (t1p->name, t2p->name) < 0) {
t1 = *t1p;
t2 = *t2p;
[textureList_i replaceElementAt: i with: &t2];
[textureList_i replaceElementAt: i + 1 with: &t1];
found = 1;
}
}
}
return self;
}
- (id) computeTextureViewSize
{
int i;
int max;
int x;
texpal_t *t;
int y;
id view;
NSRect b;
int maxwidth;
int maxheight;
NSPoint pt;
max = [textureList_i count];
y = 0;
maxheight = 0;
x = TEX_INDENT;
view = [textureView_i superview];
b = [view bounds];
maxwidth = b.size.width;
for (i = 0; i < max; i++) {
t = [textureList_i elementAt: i];
if (x + t->r.size.width + TEX_INDENT > maxwidth) {
x = TEX_INDENT;
y += maxheight;
maxheight = 0;
}
if (t->r.size.height > maxheight)
maxheight = t->r.size.height;
t->r.origin.x = x;
t->r.origin.y = y;
x += t->r.size.width + TEX_INDENT;
if (i == max - 1)
y += t->r.size.height;
}
viewWidth = maxwidth;
viewHeight = y + TEX_SPACING;
[textureView_i setFrameSize: NSMakeSize (viewWidth, viewHeight)];
pt.x = pt.y = 0;
[textureView_i scrollPoint: pt];
return self;
}
- (id) windowResized
{
[self computeTextureViewSize];
return self;
}
- (id) texturedefChanged: sender
{
if ([map_i numSelected]) {
if ([[map_i currentEntity] modifiable]) {
[map_i makeSelectedPerform: @selector
(takeCurrentTexture)];
[quakeed_i updateAll];
} else {
Sys_Printf ("can't modify spawned entities\n");
}
}
[quakeed_i makeFirstResponder: quakeed_i];
return self;
}
- (id) clearTexinfo: sender
{
[field_Xshift_i setFloatValue: 0];
[field_Yshift_i setFloatValue: 0];
[field_Xscale_i setFloatValue: 1];
[field_Yscale_i setFloatValue: 1];
[field_Rotate_i setFloatValue: 0];
[self texturedefChanged: self];
return self;
}
// Set the selected texture
- (id) setSelectedTexture: (int)which
{
texpal_t *t;
NSRect r;
// wipe the fields
[self clearTexinfo: self];
if (which != selectedTexture) {
[textureView_i deselect];
selectedTexture = which;
t = [textureList_i elementAt: which];
r = t->r;
r.size.width += TEX_INDENT * 2;
r.size.height += TEX_INDENT * 2;
r.origin.x -= TEX_INDENT;
r.origin.y -= TEX_INDENT;
[textureView_i scrollRectToVisible: r];
[textureView_i display];
[sizeField_i setStringValue:
[NSString stringWithFormat: @"%d x %d",
(int) t->r.size.width,
(int) t->r.size.height - TEX_SPACING]];
}
[self texturedefChanged: self];
return self;
}
// Return the selected texture index
- (int) getSelectedTexture
{
return selectedTexture;
}
// Return the original tex_ index of the selected texture
// so the texture info can be indexed from tex_images, etc.
- (int) getSelectedTexIndex
{
texpal_t *t;
if (selectedTexture == -1)
return -1;
t = [textureList_i elementAt: selectedTexture];
return t->index;
}
// Return the name of the selected texture
- (const char *) getSelTextureName
{
texpal_t *t;
if (selectedTexture == -1)
return NULL;
t = [textureList_i elementAt: selectedTexture];
return t->name;
}
// Set selected texture by texture name
- (id) setTextureByName: (const char *)name
{
texpal_t *t;
int i;
int max;
char *nm = strdup (name);
max = [textureList_i count];
CleanupName (nm, nm);
for (i = 0; i < max; i++) {
t = [textureList_i elementAt: i];
if (!strcmp (t->name, nm)) {
free (nm);
[self setSelectedTexture: i];
return self;
}
}
free (nm);
return self;
}
// ===================================================
//
// Action methods
//
// ===================================================
// Search for texture named in searchField
- (id) searchForTexture: sender
{
int i;
int max;
int len;
NSMutableString *strname;
const char *name;
texpal_t *t;
if (selectedTexture == -1)
return self;
max = [textureList_i count];
strname = [[sender stringValue] mutableCopy];
[strname uppercaseString];
[sender setStringValue: strname];
name = [strname cString];
len = strlen (name);
for (i = selectedTexture - 1; i >= 0; i--) {
t = [textureList_i elementAt: i];
if (!strncmp (t->name, name, len)) {
[self setTextureByName: t->name];
[sender selectText: sender];
[self texturedefChanged: self];
return self;
}
}
for (i = max - 1; i >= selectedTexture; i--) {
t = [textureList_i elementAt: i];
if (!strncmp (t->name, name, len)) {
[self setTextureByName: t->name];
[sender selectText: sender];
[self texturedefChanged: self];
return self;
}
}
[self texturedefChanged: self];
return self;
}
// Set texture def from outside TexturePalette
- (id) setTextureDef: (texturedef_t *)td
{
[self setTextureByName: td->texture];
[field_Xshift_i setFloatValue: td->shift[0]];
[field_Yshift_i setFloatValue: td->shift[1]];
[field_Xscale_i setFloatValue: td->scale[0]];
[field_Yscale_i setFloatValue: td->scale[1]];
[field_Rotate_i setFloatValue: td->rotate];
[self texturedefChanged: self];
return self;
}
// Return the current texture def to passed *
- (id) getTextureDef: (texturedef_t *)td
{
if (selectedTexture == -1) {
memset (td, 0, sizeof (*td));
strcpy (td->texture, "notexture");
return self;
}
strncpy (td->texture, [self getSelTextureName], 16);
td->shift[0] = [field_Xshift_i floatValue];
td->shift[1] = [field_Yshift_i floatValue];
td->scale[0] = [field_Xscale_i floatValue];
td->scale[1] = [field_Yscale_i floatValue];
td->rotate = [field_Rotate_i floatValue];
return self;
}
// ============================================================================
// Change value in a field
- (id) changeField: (id)
field by: (int)amount
{
int val;
val = [field intValue];
val += amount;
[field setIntValue: val];
[self texturedefChanged: self];
return self;
}
// Inc/Dec the XShift field
- (id) incXShift: sender
{
[self changeField: field_Xshift_i by: 8];
return self;
}
- (id) decXShift: sender
{
[self changeField: field_Xshift_i by: -8];
return self;
}
// Inc/Dec the YShift field
- (id) incYShift: sender
{
[self changeField: field_Yshift_i by: 8];
return self;
}
- (id) decYShift: sender
{
[self changeField: field_Yshift_i by: -8];
return self;
}
// Inc/Dec the Rotate field
- (id) incRotate: sender
{
[self changeField: field_Rotate_i by: 90];
return self;
}
- (id) decRotate: sender
{
[self changeField: field_Rotate_i by: -90];
return self;
}
// Inc/Dec the Xscale field
- (id) incXScale: sender
{
[field_Xscale_i setIntValue: 1];
[self texturedefChanged: self];
return self;
}
- (id) decXScale: sender
{
[field_Xscale_i setIntValue: -1];
[self texturedefChanged: self];
return self;
}
// Inc/Dec the Yscale field
- (id) incYScale: sender
{
[field_Yscale_i setIntValue: 1];
[self texturedefChanged: self];
return self;
}
- (id) decYScale: sender
{
[field_Yscale_i setIntValue: -1];
[self texturedefChanged: self];
return self;
}
// ============================================================================
// Search for texture in entire palette
// Return index of texturedef, or -1 if unsuccessful
- (int) searchForTextureInPalette: (const char *)texture
{
int i;
int max;
texpal_t *t;
if (selectedTexture == -1)
return -1;
max = [textureList_i count];
for (i = 0; i < max; i++) {
t = [textureList_i elementAt: i];
if (!strcmp (t->name, texture))
return i;
}
return -1;
};
// Scan thru map & display only textures that are in map
- (id) onlyShowMapTextures: sender
{
int max;
int i;
int j;
id brushes;
SetBrush *b;
int numfaces;
face_t *f;
int index;
// Turn 'em off
if ([sender intValue]) {
max = [textureList_i count];
for (i = 0; i < max; i++)
[self setDisplayFlag: i to: 0];
brushes = [map_i objectAtIndex: 0];
max = [brushes count];
for (i = 0; i < max; i++) {
b = (SetBrush *) [brushes objectAtIndex: i];
numfaces = [b getNumBrushFaces];
for (j = 0; j < numfaces; j++) {
f = [b getBrushFace: j];
index = [self searchForTextureInPalette: f->texture.
texture];
if (index >= 0)
[self setDisplayFlag: index to: 1];
}
}
}
// Turn 'em on
else {
max = [textureList_i count];
for (i = 0; i < max; i++)
[self setDisplayFlag: i to: 1];
}
[textureView_i display];
return self;
}
- (id) setDisplayFlag: (int)
index to: (int)value
{
texpal_t *tp;
tp = [textureList_i elementAt: index];
tp->display = value;
return self;
};
@end