quakeforge/libs/video/renderer/r_progs.c

241 lines
5.3 KiB
C
Raw Normal View History

/*
r_progs.c
QC interface to the renderer
Copyright (C) 1996-1997 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:
Free Software Foundation, Inc.
59 Temple Place - Suite 330
Boston, MA 02111-1307, USA
*/
#ifdef HAVE_CONFIG_H
# include "config.h"
#endif
static __attribute__ ((unused)) const char rcsid[] =
"$Id$";
#ifdef HAVE_STRING_H
# include <string.h>
#endif
#ifdef HAVE_STRINGS_H
# include <strings.h>
#endif
#include <stdlib.h>
#include "QF/console.h"
#include "QF/draw.h"
#include "QF/hash.h"
#include "QF/progs.h"
#include "QF/render.h"
typedef struct {
int width;
int height;
qpic_t *pic;
} bi_qpic_t;
typedef struct qpic_res_s {
char *name;
bi_qpic_t *pic;
} qpic_res_t;
typedef struct {
hashtab_t *pic_hash;
} draw_resources_t;
static qpic_t *
get_qpic (progs_t *pr, int arg, const char *func)
{
bi_qpic_t *pic;
if (arg <= ((pr_type_t *) pr->zone - pr->pr_globals)
|| arg >= pr->globals_size)
PR_RunError (pr, "%s: Invalid qpic_t: %d %d", func, arg, pr->globals_size);
pic = (bi_qpic_t *)(pr->pr_globals + arg);
return pic->pic;
}
static void
bi_Draw_CachePic (progs_t *pr)
{
draw_resources_t *res = PR_Resources_Find (pr, "Draw");
const char *path = P_GSTRING (pr, 0);
2002-07-24 21:39:03 +00:00
int alpha = P_INT (pr, 1);
qpic_t *pic = Draw_CachePic (path, alpha);
bi_qpic_t *qpic;
qpic_res_t *rpic = Hash_Find (res->pic_hash, path);
if (!pic) {
Con_DPrintf ("can't load %s\n", path);
2002-07-24 21:39:03 +00:00
R_INT (pr) = 0;
return;
}
if (rpic) {
qpic = rpic->pic;
qpic->pic = pic;
2002-07-24 21:39:03 +00:00
R_INT (pr) = (pr_type_t *)qpic - pr->pr_globals;
return;
}
qpic = PR_Zone_Malloc (pr, sizeof (bi_qpic_t));
qpic->width = pic->width;
qpic->height = pic->height;
qpic->pic = pic;
2002-07-24 21:39:03 +00:00
R_INT (pr) = (pr_type_t *)qpic - pr->pr_globals;
rpic = malloc (sizeof (qpic_res_t));
rpic->name = strdup (path);
rpic->pic = qpic;
Hash_Add (res->pic_hash, rpic);
}
static void
bi_Draw_Pic (progs_t *pr)
{
2002-07-24 21:39:03 +00:00
int x = P_INT (pr, 0);
int y = P_INT (pr, 1);
qpic_t *pic = get_qpic (pr, P_INT (pr, 2), "Draw_Pic");
Draw_Pic (x, y, pic);
}
2002-07-24 21:39:03 +00:00
static void
bi_Draw_SubPic (progs_t *pr)
{
int x = P_INT (pr, 0);
int y = P_INT (pr, 1);
qpic_t *pic = get_qpic (pr, P_INT (pr, 2), "Draw_SubPic");
int srcx = P_INT (pr, 3);
int srcy = P_INT (pr, 4);
int width = P_INT (pr, 5);
int height = P_INT (pr, 6);
Draw_SubPic (x, y, pic, srcx, srcy, width, height);
}
static void
bi_Draw_CenterPic (progs_t *pr)
{
2002-07-24 21:39:03 +00:00
int x = P_INT (pr, 0);
int y = P_INT (pr, 1);
qpic_t *pic = get_qpic (pr, P_INT (pr, 2), "Draw_CenterPic");
Draw_Pic (x - pic->width / 2, y, pic);
}
static void
bi_Draw_Character (progs_t *pr)
{
2002-07-24 21:39:03 +00:00
int x = P_INT (pr, 0);
int y = P_INT (pr, 1);
int c = P_INT (pr, 2);
Draw_Character (x, y, c);
}
2002-01-20 00:03:34 +00:00
static void
bi_Draw_String (progs_t *pr)
{
2002-07-24 21:39:03 +00:00
int x = P_INT (pr, 0);
int y = P_INT (pr, 1);
const char *text = P_GSTRING (pr, 2);
2002-01-20 00:03:34 +00:00
Draw_String (x, y, text);
}
static void
bi_Draw_nString (progs_t *pr)
{
2002-07-24 21:39:03 +00:00
int x = P_INT (pr, 0);
int y = P_INT (pr, 1);
const char *text = P_GSTRING (pr, 2);
2002-07-24 21:39:03 +00:00
int n = P_INT (pr, 3);
Draw_nString (x, y, text, n);
}
static void
bi_Draw_AltString (progs_t *pr)
{
2002-07-24 21:39:03 +00:00
int x = P_INT (pr, 0);
int y = P_INT (pr, 1);
const char *text = P_GSTRING (pr, 2);
Draw_AltString (x, y, text);
}
/*
bi_Draw_Fill
Draws a filled area with a color
(only a wrapper function to original qf-api)
*/
static void
bi_Draw_Fill (progs_t *pr)
{
2002-07-24 21:39:03 +00:00
int x = P_INT (pr, 0);
int y = P_INT (pr, 1);
int w = P_INT (pr, 2);
int h = P_INT (pr, 3);
int color = P_INT (pr, 4);
Draw_Fill (x, y, w, h, color);
}
static const char *
bi_draw_get_key (void *p, void *unused)
{
return ((qpic_res_t *) p)->name;
}
static void
bi_draw_free (void *_p, void *unused)
{
qpic_res_t *p = (qpic_res_t *) _p;
free (p->name);
free (p);
}
static void
bi_draw_clear (progs_t *pr, void *data)
{
draw_resources_t *res = (draw_resources_t *) data;
Hash_FlushTable (res->pic_hash);
}
void
R_Progs_Init (progs_t *pr)
{
draw_resources_t *res = malloc (sizeof (draw_resources_t));
res->pic_hash = Hash_NewTable (61, bi_draw_get_key, bi_draw_free, 0);
PR_Resources_Register (pr, "Draw", res, bi_draw_clear);
PR_AddBuiltin (pr, "Draw_CachePic", bi_Draw_CachePic, -1);
PR_AddBuiltin (pr, "Draw_Pic", bi_Draw_Pic, -1);
2002-07-24 21:39:03 +00:00
PR_AddBuiltin (pr, "Draw_SubPic", bi_Draw_SubPic, -1);
PR_AddBuiltin (pr, "Draw_CenterPic", bi_Draw_CenterPic, -1);
PR_AddBuiltin (pr, "Draw_Character", bi_Draw_Character, -1);
2002-01-20 00:03:34 +00:00
PR_AddBuiltin (pr, "Draw_String", bi_Draw_String, -1);
PR_AddBuiltin (pr, "Draw_nString", bi_Draw_nString, -1);
PR_AddBuiltin (pr, "Draw_AltString", bi_Draw_AltString, -1);
PR_AddBuiltin (pr, "Draw_Fill", bi_Draw_Fill, -1);
}