+++ /dev/null
-/*
-Copyright (C) 1999-2006 Id Software, Inc. and contributors.
-For a list of contributors, see the accompanying CONTRIBUTORS file.
-
-This file is part of GtkRadiant.
-
-GtkRadiant 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.
-
-GtkRadiant 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 GtkRadiant; if not, write to the Free Software
-Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
-*/
-
-
-#include "qdata.h"
-
-byte *byteimage, *lbmpalette;
-int byteimagewidth, byteimageheight;
-
-qboolean TrueColorImage;
-unsigned *longimage;
-int longimagewidth, longimageheight;
-
-char pic_prefix[1024];
-extern char *g_outputDir;
-
-/*
-===============
-Cmd_Pic
-===============
-*/
-
-void Cmd_Pic (void)
-{
- int xl,yl,xh,yh,w,h;
- byte *dest, *source;
- int flags, value, contents;
- char lumpname[128];
- char animname[128];
- byte buffer[256*256];
- unsigned bufferl[256*256];
- char filename[1024];
- unsigned *destl, *sourcel;
- int linedelta, x, y;
- int size;
- miptex_t *qtex;
- miptex32_t *qtex32;
- float scale_x, scale_y;
-
- GetScriptToken (false);
- strcpy (lumpname, token);
-
- GetScriptToken (false);
- xl = atoi (token);
- GetScriptToken (false);
- yl = atoi (token);
- GetScriptToken (false);
- w = atoi (token);
- GetScriptToken (false);
- h = atoi (token);
-
- total_x += w;
- total_y += h;
- total_textures++;
-
- if ( (w & 7) || (h & 7) )
- Error ("line %i: miptex sizes must be multiples of 8", scriptline);
-
- flags = 0;
- contents = 0;
- value = 0;
-
- animname[0] = 0;
-
- scale_x = scale_y = 0.5;
-
- if (TrueColorImage)
- {
- sprintf (filename, "%spics/%s/%s.m32", g_outputDir, pic_prefix, lumpname);
- if (g_release)
- return; // textures are only released by $maps
-
- xh = xl+w;
- yh = yl+h;
-
- if (xl >= longimagewidth || xh > longimagewidth ||
- yl >= longimageheight || yh > longimageheight)
- {
- Error ("line %i: bad clip dimmensions (%d,%d) (%d,%d) > image (%d,%d)", scriptline, xl,yl,w,h,longimagewidth,longimageheight);
- }
-
- sourcel = longimage + (yl*longimagewidth) + xl;
- destl = bufferl;
- linedelta = (longimagewidth - w);
-
- for (y=yl ; y<yh ; y++)
- {
- for (x=xl ; x<xh ; x++)
- {
- *destl++ = *sourcel++; // RGBA
- }
- sourcel += linedelta;
- }
-
- qtex32 = CreateMip32(bufferl, w, h, &size, false);
-
- qtex32->flags |= LittleLong(flags);
- qtex32->contents = contents;
- qtex32->value = value;
- qtex32->scale_x = scale_x;
- qtex32->scale_y = scale_y;
- sprintf (qtex32->name, "%s/%s", pic_prefix, lumpname);
- if (animname[0])
- sprintf (qtex32->animname, "%s/%s", pic_prefix, animname);
-
- //
- // write it out
- //
- printf ("writing %s\n", filename);
- SaveFile (filename, (byte *)qtex32, size);
-
- free (qtex32);
- }
- else
- {
- sprintf (filename, "%spics/%s/%s.m8", g_outputDir, pic_prefix, lumpname);
- if (g_release)
- return; // textures are only released by $maps
-
- xh = xl+w;
- yh = yl+h;
-
- if (xl >= byteimagewidth || xh > byteimagewidth ||
- yl >= byteimageheight || yh > byteimageheight)
- {
- Error ("line %i: bad clip dimmensions (%d,%d) (%d,%d) > image (%d,%d)", scriptline, xl,yl,w,h,byteimagewidth,byteimageheight);
- }
-
- source = byteimage + yl*byteimagewidth + xl;
- dest = buffer;
- linedelta = byteimagewidth - w;
-
- for (y=yl ; y<yh ; y++)
- {
- for (x=xl ; x<xh ; x++)
- {
- *dest++ = *source++;
- }
- source += linedelta;
- }
-
- qtex = CreateMip(buffer, w, h, lbmpalette, &size, false);
-
- qtex->flags = flags;
- qtex->contents = contents;
- qtex->value = value;
- sprintf (qtex->name, "%s/%s", pic_prefix, lumpname);
- if (animname[0])
- sprintf (qtex->animname, "%s/%s", pic_prefix, animname);
-
- //
- // write it out
- //
- printf ("writing %s\n", filename);
- SaveFile (filename, (byte *)qtex, size);
-
- free (qtex);
- }
-}
-
-
-/*
-===============
-Cmd_picdir
-===============
-*/
-void Cmd_Picdir (void)
-{
- char filename[1024];
-
- GetScriptToken (false);
- strcpy (pic_prefix, token);
- // create the directory if needed
- sprintf (filename, "%sPics", g_outputDir);
- Q_mkdir (filename);
- sprintf (filename, "%sPics/%s", g_outputDir, pic_prefix);
- Q_mkdir (filename);
-}
-
-