[renderer] Remove dead r_part_comp.c

This commit is contained in:
Bill Currie 2023-10-03 21:27:04 +09:00
parent a905dcd4f9
commit ef6b10afb1

View file

@ -1,511 +0,0 @@
/*
r_part.c
Interface for particles
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
#ifdef HAVE_STRING_H
# include <string.h>
#endif
#ifdef HAVE_STRINGS_H
# include <strings.h>
#endif
#include "QF/alloc.h"
#include "QF/cbuf.h"
#include "QF/cvar.h"
#include "QF/dstring.h"
#include "QF/hash.h"
#include "QF/qargs.h"
#include "QF/render.h"
#include "QF/script.h"
#include "QF/segtext.h"
#include "QF/sys.h"
#include "compat.h"
#include "r_internal.h"
typedef enum {
pt_phys_done,
pt_phys_add_vel,
pt_phys_sub_slowgrav,
pt_phys_add_grav,
pt_phys_sub_grav,
pt_phys_add_fastgrav,
pt_phys_add_ramp, // die
pt_phys_fade_alpha, // die
pt_phys_color_ramp1,
pt_phys_color_ramp2,
pt_phys_color_ramp3,
pt_phys_alpha_ramp,
pt_phys_explode_vel,
pt_phys_damp_vel,
pt_phys_grow_scale,
pt_phys_shrink_scale, // die
pt_phys_custom, // die
} pt_phys_e;
typedef struct {
const char *name;
pt_phys_e opcode;
int num_params;
} pt_phys_opcode_t;
typedef struct {
char *name;
qboolean (*func) (particle_t *part, void *data);
void *data;
} pt_phys_func_t;
typedef union pt_phys_op_s {
int32_t op;
float parm;
} pt_phys_op_t;
typedef struct pt_phys_script_s {
struct pt_phys_script_s *next;
char *name;
pt_phys_op_t *script;
} pt_phys_script_t;
const char particle_types[] =
#include "particles.pc"
;
static pt_phys_func_t *phys_funcs;
static int num_phys_funcs;
static int max_phys_funcs;
static pt_phys_script_t *phys_script_freelist;
static hashtab_t *phys_scripts;
static pt_phys_opcode_t part_phys_opcodes[] =
{
{"add_vel", pt_phys_add_vel, 0},
{"sub_slowgrav", pt_phys_sub_slowgrav, 0},
{"add_grav", pt_phys_add_grav, 0},
{"sub_grav", pt_phys_sub_grav, 0},
{"add_fastgrav", pt_phys_add_fastgrav, 0},
{"add_ramp", pt_phys_add_ramp, 2},
{"fade_alpha", pt_phys_fade_alpha, 1},
{"color_ramp1", pt_phys_color_ramp1, 0},
{"color_ramp2", pt_phys_color_ramp2, 0},
{"color_ramp3", pt_phys_color_ramp3, 0},
{"alpha_ramp", pt_phys_alpha_ramp, 1},
{"explode_vel", pt_phys_explode_vel, 1},
{"damp_vel", pt_phys_damp_vel, 1},
{"grow_scale", pt_phys_grow_scale, 1},
{"shrink_scale", pt_phys_shrink_scale, 1},
{0, pt_phys_done, 0},
};
unsigned int r_maxparticles, numparticles;
particle_t *active_particles, *free_particles, *particles, **freeparticles;
vec3_t r_pright, r_pup, r_ppn;
/*
R_MaxParticlesCheck
Misty-chan: Dynamically change the maximum amount of particles on the fly.
Thanks to a LOT of help from Taniwha, Deek, Mercury, Lordhavoc, and lots of
others.
*/
static void
R_MaxParticlesCheck (void)
{
psystem_t *ps = &r_psystem;//FIXME
unsigned maxparticles = 0;
maxparticles = r_particles ? r_particles_max : 0;
if (ps->maxparticles == maxparticles) {
return;
}
size_t size = sizeof (particle_t) + sizeof (partparm_t)
+ sizeof (int *);
if (ps->particles) {
Sys_Free (ps->particles, ps->maxparticles * size);
ps->particles = 0;
ps->partparams = 0;
ps->partramps = 0;
}
ps->maxparticles = maxparticles;
if (ps->maxparticles) {
ps->particles = Sys_Alloc (ps->maxparticles * size);
ps->partparams = (partparm_t *) &ps->particles[ps->maxparticles];
ps->partramps = (const int **) &ps->partparams[ps->maxparticles];
}
R_ClearParticles ();
}
void
R_ClearParticles (void)
{
psystem_t *ps = &r_psystem;//FIXME
ps->numparticles = 0;
}
void
R_RunParticles (float dT)
{
psystem_t *ps = &r_psystem;//FIXME
vec4f_t gravity = ps->gravity;
unsigned j = 0;
for (unsigned i = 0; i < ps->numparticles; i++) {
particle_t *p = &ps->particles[i];
partparm_t *parm = &ps->partparams[i];
if (p->live <= 0 || p->ramp >= parm->ramp_max) {
continue;
}
const int *ramp = ps->partramps[i];
if (i > j) {
ps->particles[j] = *p;
ps->partparams[j] = *parm;
ps->partramps[j] = ramp;
}
j += 1;
p->pos += dT * p->vel;
p->vel += dT * (p->vel * parm->drag + gravity * parm->drag[3]);
p->ramp += dT * parm->ramp;
p->live -= dT;
if (ramp) {
p->icolor = ramp[(int)p->ramp];
}
}
ps->numparticles = j;
}
static inline qboolean
custom_func (particle_t *part, int op)
{
int func;
func = op - pt_phys_custom;
if (func < 0 || func >= num_phys_funcs) {
Sys_Error ("invalid custom particle physics opcode: %d", op);
}
if (phys_funcs[func].func (part, phys_funcs[func].data)) {
part->die = -1;
return true;
}
return false;
}
void
R_RunParticlePhysics (particle_t *part)
{
const pt_phys_op_t *op;
float parm, max;
if (!part->physics) {
// safety net for physicsless particles
add_ramp (part, 1, 4);
return;
}
for (op = part->physics; ; op++) {
if (op->op >= pt_phys_custom) {
if (custom_func (part, op->op))
return;
}
switch ((pt_phys_e) op->op) {
case pt_phys_done:
return;
case pt_phys_add_vel:
add_vel (part);
break;
case pt_phys_sub_slowgrav:
sub_slowgrav (part);
break;
case pt_phys_add_grav:
add_grav (part);
break;
case pt_phys_sub_grav:
sub_grav (part);
break;
case pt_phys_add_fastgrav:
add_fastgrav (part);
break;
case pt_phys_add_ramp:
parm = (++op)->parm;
max = (++op)->parm;
if (add_ramp (part, parm, max))
return;
break;
case pt_phys_fade_alpha:
parm = (++op)->parm;
if (fade_alpha (part, parm))
return;
break;
case pt_phys_color_ramp1:
part->color = ramp1[((int) part->ramp) % sizeof (ramp1)];
break;
case pt_phys_color_ramp2:
part->color = ramp2[((int) part->ramp) % sizeof (ramp2)];
break;
case pt_phys_color_ramp3:
part->color = ramp3[((int) part->ramp) % sizeof (ramp3)];
break;
case pt_phys_alpha_ramp:
parm = (++op)->parm;
part->alpha = (parm - part->ramp) / parm;
break;
case pt_phys_explode_vel:
parm = (++op)->parm;
VectorMultAdd (part->vel, vr_data.frametime * parm, part->vel,
part->vel);
break;
case pt_phys_damp_vel:
parm = (++op)->parm;
part->vel[0] -= part->vel[0] * vr_data.frametime * parm;
part->vel[1] -= part->vel[1] * vr_data.frametime * parm;
break;
case pt_phys_grow_scale:
parm = (++op)->parm;
part->scale += vr_data.frametime * parm;
break;
case pt_phys_shrink_scale:
parm = (++op)->parm;
part->scale -= vr_data.frametime * parm;
if (part->scale <= 0.0) {
part->die = -1;
return;
}
break;
case pt_phys_custom:
// handled above
break;
}
}
}
static pt_phys_opcode_t *
part_find_opcode (const char *name)
{
pt_phys_opcode_t *op;
for (op = part_phys_opcodes; op->name; op++) {
if (strcmp (op->name, name) == 0)
return op;
}
return 0;
}
static pt_phys_func_t *
part_find_function (const char *name)
{
pt_phys_func_t *func;
//FIXME is a hash table worth it?
for (func = phys_funcs; func - phys_funcs < num_phys_funcs; func++) {
if (strcmp (func->name, name) == 0)
return func;
}
return 0;
}
static void
part_add_op (dstring_t *phys, int op)
{
int offs = phys->size;
phys->size += sizeof (pt_phys_op_t);
dstring_adjust (phys);
((pt_phys_op_t *) (phys->str + offs))->op = op;
}
static void
part_add_parm (dstring_t *phys, float parm)
{
int offs = phys->size;
phys->size += sizeof (pt_phys_op_t);
dstring_adjust (phys);
((pt_phys_op_t *) (phys->str + offs))->parm = parm;
}
static pt_phys_script_t *
new_phys_script (void)
{
pt_phys_script_t *phys_script;
ALLOC (16, pt_phys_script_t, phys_script, phys_script);
return phys_script;
}
static void
free_phys_script (pt_phys_script_t *phys_script)
{
FREE (phys_script, phys_script);
}
static const char *
part_script_get_key (const void *_s, void *unused)
{
const pt_phys_script_t *s = (const pt_phys_script_t *) _s;
return s->name;
}
static void
part_script_free (void *_s, void *unused)
{
pt_phys_script_t *s = (pt_phys_script_t *) _s;
free (s->name);
free (s->script);
free_phys_script (s);
}
qboolean
R_CompileParticlePhysics (const char *name, const char *code)
{
cbuf_args_t *args = Cbuf_ArgsNew ();
script_t *script = Script_New ();
pt_phys_opcode_t *opcode;
pt_phys_script_t *phys;
pt_phys_func_t *func;
dstring_t *phys_build = dstring_new ();
int i;
qboolean ret = false;
if (!phys_scripts) {
phys_scripts = Hash_NewTable (61, part_script_get_key,
part_script_free, 0);
}
Script_Start (script, "name", code);
while (Script_GetToken (script, 1)) {
args->argc = 0;
Cbuf_ArgsAdd (args, Script_Token (script));
while (Script_TokenAvailable (script, 0)) {
Script_GetToken (script, 0);
Cbuf_ArgsAdd (args, Script_Token (script));
}
Sys_Printf ("%s:%d: %s\n", name, script->line, args->argv[0]->str);
if ((func = part_find_function (args->argv[0]->str))) {
if (args->argc > 1) {
Sys_Printf ("%s:%d: warning: ignoring extra args\n",
name, script->line);
}
part_add_op (phys_build, pt_phys_custom + (func - phys_funcs));
} else if ((opcode = part_find_opcode (args->argv[0]->str))) {
part_add_op (phys_build, opcode->opcode);
if (args->argc - 1 > opcode->num_params) {
Sys_Printf ("%s:%d: warning: ignoring extra args\n",
name, script->line);
args->argc = opcode->num_params + 1;
}
for (i = 1; i < args->argc; i++) {
char *end;
float parm = strtof (args->argv[i]->str, &end);
if (end == args->argv[i]->str) {
Sys_Printf ("%s:%d: warning: bad float\n",
name, script->line);
} else if (*end) {
Sys_Printf ("%s:%d: warning: ignoring extra chars\n",
name, script->line);
}
part_add_parm (phys_build, parm);
}
if (args->argc - 1 > opcode->num_params) {
Sys_Printf ("%s:%d: warning: setting parms %d+ to zero\n",
name, script->line, args->argc - 1);
for (i--; i < opcode->num_params; i++)
part_add_parm (phys_build, 0);
}
} else {
Sys_Printf ("%s:%d: warning: unknown opcode/function: %s\n",
name, script->line, args->argv[0]->str);
}
}
if (phys_build->size) {
part_add_op (phys_build, pt_phys_done);
phys = new_phys_script ();
phys->name = strdup (name);
phys->script = (pt_phys_op_t *) dstring_freeze (phys_build);
Hash_Add (phys_scripts, phys);
ret = true;
} else {
dstring_delete (phys_build);
}
Script_Delete (script);
Cbuf_ArgsDelete (args);
return ret;
}
const pt_phys_op_t *
R_ParticlePhysics (const char *type)
{
pt_phys_script_t *phys;
if (!phys_scripts)
return 0;
if ((phys = Hash_Find (phys_scripts, type)))
return phys->script;
return 0;
}
qboolean
R_AddParticlePhysicsFunction (const char *name,
qboolean (*func) (particle_t *part, void *data),
void *data)
{
int i;
for (i = 0; i < num_phys_funcs; i++) {
if (strcmp (name, phys_funcs[i].name) == 0)
return false;
}
if (num_phys_funcs == max_phys_funcs) {
max_phys_funcs += 16;
phys_funcs = realloc (phys_funcs,
max_phys_funcs * sizeof (pt_phys_func_t));
if (!phys_funcs) {
Sys_Error ("R_AddParticlePhysicsFunction: out of memory");
}
}
phys_funcs[num_phys_funcs].name = strdup (name);
phys_funcs[num_phys_funcs].func = func;
phys_funcs[num_phys_funcs].data = data;
return true;
}
void
R_LoadParticles (void)
{
segtext_t *text;
segchunk_t *chunk;
text = Segtext_new (particle_types);
for (chunk = text->chunk_list; chunk; chunk = chunk->next) {
if (chunk->tag) {
Sys_Printf ("compiling %s\n", chunk->tag);
R_CompileParticlePhysics (chunk->tag, chunk->text);
}
}
}