TakeV/dxx-rebirth
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity
dxx-rebirth/main/polyobj.c

760 lines
18 KiB
C
Raw Blame History

/*
THE COMPUTER CODE CONTAINED HEREIN IS THE SOLE PROPERTY OF PARALLAX
SOFTWARE CORPORATION ("PARALLAX"). PARALLAX, IN DISTRIBUTING THE CODE TO
END-USERS, AND SUBJECT TO ALL OF THE TERMS AND CONDITIONS HEREIN, GRANTS A
ROYALTY-FREE, PERPETUAL LICENSE TO SUCH END-USERS FOR USE BY SUCH END-USERS
IN USING, DISPLAYING, AND CREATING DERIVATIVE WORKS THEREOF, SO LONG AS
SUCH USE, DISPLAY OR CREATION IS FOR NON-COMMERCIAL, ROYALTY OR REVENUE
FREE PURPOSES. IN NO EVENT SHALL THE END-USER USE THE COMPUTER CODE
CONTAINED HEREIN FOR REVENUE-BEARING PURPOSES. THE END-USER UNDERSTANDS
AND AGREES TO THE TERMS HEREIN AND ACCEPTS THE SAME BY USE OF THIS FILE.
COPYRIGHT 1993-1999 PARALLAX SOFTWARE CORPORATION. ALL RIGHTS RESERVED.
*/
#ifdef RCS
static char rcsid[] = "$Id: polyobj.c,v 1.2 2001-01-20 13:49:17 bradleyb Exp $";
#endif
#include <conf.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
// -- I hate this warning in make depend! -- #ifdef DRIVE
// -- I hate this warning in make depend! -- #include "drive.h"
// -- I hate this warning in make depend! -- #else
#include "inferno.h"
// -- I hate this warning in make depend! -- #endif
#include "polyobj.h"
#include "vecmat.h"
#include "3d.h"
#include "error.h"
#include "mono.h"
#include "u_mem.h"
#include "args.h"
#ifndef DRIVE
#include "texmap.h"
#include "bm.h"
#include "textures.h"
#include "object.h"
#include "lighting.h"
#include "cfile.h"
#include "piggy.h"
#endif
#include "pa_enabl.h"
#ifdef _3DFX
#include "3dfx_des.h"
#endif
polymodel Polygon_models[MAX_POLYGON_MODELS]; // = {&bot11,&bot17,&robot_s2,&robot_b2,&bot11,&bot17,&robot_s2,&robot_b2};
int N_polygon_models = 0;
#define MAX_POLYGON_VECS 1000
g3s_point robot_points[MAX_POLYGON_VECS];
#define PM_COMPATIBLE_VERSION 6
#define PM_OBJFILE_VERSION 8
int Pof_file_end;
int Pof_addr;
#define MODEL_BUF_SIZE 32768
void _pof_cfseek(int len,int type)
{
switch (type) {
case SEEK_SET: Pof_addr = len; break;
case SEEK_CUR: Pof_addr += len; break;
case SEEK_END:
Assert(len <= 0); // seeking from end, better be moving back.
Pof_addr = Pof_file_end + len;
break;
}
if (Pof_addr > MODEL_BUF_SIZE)
Int3();
}
#define pof_cfseek(_buf,_len,_type) _pof_cfseek((_len),(_type))
int pof_read_int(ubyte *bufp)
{
int i;
i = *((int *) &bufp[Pof_addr]);
Pof_addr += 4;
return i;
// if (cfread(&i,sizeof(i),1,f) != 1)
// Error("Unexpected end-of-file while reading object");
//
// return i;
}
size_t pof_cfread(void *dst, size_t elsize, size_t nelem, ubyte *bufp)
{
if (Pof_addr + nelem*elsize > Pof_file_end)
return 0;
memcpy(dst, &bufp[Pof_addr], elsize*nelem);
Pof_addr += elsize*nelem;
if (Pof_addr > MODEL_BUF_SIZE)
Int3();
return nelem;
}
// #define new_read_int(i,f) cfread(&(i),sizeof(i),1,(f))
#define new_pof_read_int(i,f) pof_cfread(&(i),sizeof(i),1,(f))
short pof_read_short(ubyte *bufp)
{
short s;
s = *((short *) &bufp[Pof_addr]);
Pof_addr += 2;
return s;
// if (cfread(&s,sizeof(s),1,f) != 1)
// Error("Unexpected end-of-file while reading object");
//
// return s;
}
void pof_read_string(char *buf,int max_char, ubyte *bufp)
{
int i;
for (i=0; i<max_char; i++) {
if ((*buf++ = bufp[Pof_addr++]) == 0)
break;
}
// while (max_char-- && (*buf=cfgetc(f)) != 0) buf++;
}
void pof_read_vecs(vms_vector *vecs,int n,ubyte *bufp)
{
// cfread(vecs,sizeof(vms_vector),n,f);
memcpy(vecs, &bufp[Pof_addr], n*sizeof(*vecs));
Pof_addr += n*sizeof(*vecs);
if (Pof_addr > MODEL_BUF_SIZE)
Int3();
}
#define ID_OHDR 0x5244484f // 'RDHO' //Object header
#define ID_SOBJ 0x4a424f53 // 'JBOS' //Subobject header
#define ID_GUNS 0x534e5547 // 'SNUG' //List of guns on this object
#define ID_ANIM 0x4d494e41 // 'MINA' //Animation data
#define ID_IDTA 0x41544449 // 'ATDI' //Interpreter data
#define ID_TXTR 0x52545854 // 'RTXT' //Texture filename list
#ifdef DRIVE
#define robot_info void
#else
vms_angvec anim_angs[N_ANIM_STATES][MAX_SUBMODELS];
//set the animation angles for this robot. Gun fields of robot info must
//be filled in.
void robot_set_angles(robot_info *r,polymodel *pm,vms_angvec angs[N_ANIM_STATES][MAX_SUBMODELS]);
#endif
//reads a binary file containing a 3d model
polymodel *read_model_file(polymodel *pm,char *filename,robot_info *r)
{
CFILE *ifile;
short version;
int id,len, next_chunk;
int anim_flag = 0;
ubyte *model_buf;
model_buf = (ubyte *)d_malloc( MODEL_BUF_SIZE * sizeof(ubyte) );
if (!model_buf)
Error("Can't allocate space to read model %s\n", filename);
if ((ifile=cfopen(filename,"rb"))==NULL)
Error("Can't open file <%s>",filename);
Assert(ifile->size <= MODEL_BUF_SIZE);
Pof_addr = 0;
Pof_file_end = cfread(model_buf, 1, cfilelength(ifile), ifile);
cfclose(ifile);
id = pof_read_int(model_buf);
if (id!=0x4f505350) /* 'OPSP' */
Error("Bad ID in model file <%s>",filename);
version = pof_read_short(model_buf);
if (version < PM_COMPATIBLE_VERSION || version > PM_OBJFILE_VERSION)
Error("Bad version (%d) in model file <%s>",version,filename);
if ( args_find( "-bspgen" ))
printf( "bspgen -c1" );
while (new_pof_read_int(id,model_buf) == 1) {
//id = pof_read_int(model_buf);
len = pof_read_int(model_buf);
next_chunk = Pof_addr + len;
switch (id) {
case ID_OHDR: { //Object header
vms_vector pmmin,pmmax;
//mprintf(0,"Got chunk OHDR, len=%d\n",len);
pm->n_models = pof_read_int(model_buf);
pm->rad = pof_read_int(model_buf);
Assert(pm->n_models <= MAX_SUBMODELS);
pof_read_vecs(&pmmin,1,model_buf);
pof_read_vecs(&pmmax,1,model_buf);
if ( args_find( "-bspgen" )) {
vms_vector v;
fix l;
vm_vec_sub(&v, &pmmax, &pmmin );
l = v.x;
if ( v.y > l ) l = v.y;
if ( v.z > l ) l = v.z;
printf( " -l%.3f", f2fl(l) );
}
break;
}
case ID_SOBJ: { //Subobject header
int n;
anim_flag++;
//mprintf(0,"Got chunk SOBJ, len=%d\n",len);
n = pof_read_short(model_buf);
Assert(n < MAX_SUBMODELS);
pm->submodel_parents[n] = pof_read_short(model_buf);
pof_read_vecs(&pm->submodel_norms[n],1,model_buf);
pof_read_vecs(&pm->submodel_pnts[n],1,model_buf);
pof_read_vecs(&pm->submodel_offsets[n],1,model_buf);
pm->submodel_rads[n] = pof_read_int(model_buf); //radius
pm->submodel_ptrs[n] = pof_read_int(model_buf); //offset
break;
}
#ifndef DRIVE
case ID_GUNS: { //List of guns on this object
//mprintf(0,"Got chunk GUNS, len=%d\n",len);
if (r) {
int i;
vms_vector gun_dir;
ubyte gun_used[MAX_GUNS];
r->n_guns = pof_read_int(model_buf);
if ( r->n_guns )
anim_flag++;
Assert(r->n_guns <= MAX_GUNS);
for (i=0;i<r->n_guns;i++)
gun_used[i] = 0;
for (i=0;i<r->n_guns;i++) {
int id;
id = pof_read_short(model_buf);
Assert(id < r->n_guns);
Assert(gun_used[id] == 0);
gun_used[id] = 1;
r->gun_submodels[id] = pof_read_short(model_buf);
Assert(r->gun_submodels[id] != 0xff);
pof_read_vecs(&r->gun_points[id],1,model_buf);
if (version >= 7)
pof_read_vecs(&gun_dir,1,model_buf);
}
}
else
pof_cfseek(model_buf,len,SEEK_CUR);
break;
}
case ID_ANIM: //Animation data
//mprintf(0,"Got chunk ANIM, len=%d\n",len);
anim_flag++;
if (r) {
int n_frames,f,m;
n_frames = pof_read_short(model_buf);
Assert(n_frames == N_ANIM_STATES);
for (m=0;m<pm->n_models;m++)
for (f=0;f<n_frames;f++)
pof_cfread(&anim_angs[f][m],1,sizeof(vms_angvec),model_buf);
robot_set_angles(r,pm,anim_angs);
}
else
pof_cfseek(model_buf,len,SEEK_CUR);
break;
#endif
case ID_TXTR: { //Texture filename list
int n;
char name_buf[128];
//mprintf(0,"Got chunk TXTR, len=%d\n",len);
n = pof_read_short(model_buf);
//mprintf(0," num textures = %d\n",n);
while (n--) {
pof_read_string(name_buf,128,model_buf);
//mprintf(0,"<%s>\n",name_buf);
}
break;
}
case ID_IDTA: //Interpreter data
//mprintf(0,"Got chunk IDTA, len=%d\n",len);
pm->model_data = d_malloc(len);
pm->model_data_size = len;
pof_cfread(pm->model_data,1,len,model_buf);
break;
default:
//mprintf(0,"Unknown chunk <%c%c%c%c>, len = %d\n",id,id>>8,id>>16,id>>24,len);
pof_cfseek(model_buf,len,SEEK_CUR);
break;
}
if ( version >= 8 ) // Version 8 needs 4-byte alignment!!!
pof_cfseek(model_buf,next_chunk,SEEK_SET);
}
// for (i=0;i<pm->n_models;i++)
// pm->submodel_ptrs[i] += (int) pm->model_data;
if ( args_find( "-bspgen" )) {
char *p = strchr( filename, '.' );
*p = 0;
if ( anim_flag > 1 )
printf( " -a" );
printf( " %s.3ds\n", filename );
*p = '.';
}
d_free(model_buf);
return pm;
}
//reads the gun information for a model
//fills in arrays gun_points & gun_dirs, returns the number of guns read
int read_model_guns(char *filename,vms_vector *gun_points, vms_vector *gun_dirs, int *gun_submodels)
{
CFILE *ifile;
short version;
int id,len;
int n_guns=0;
ubyte *model_buf;
model_buf = (ubyte *)d_malloc( MODEL_BUF_SIZE * sizeof(ubyte) );
if (!model_buf)
Error("Can't allocate space to read model %s\n", filename);
if ((ifile=cfopen(filename,"rb"))==NULL)
Error("Can't open file <%s>",filename);
Assert(ifile->size <= MODEL_BUF_SIZE);
Pof_addr = 0;
Pof_file_end = cfread(model_buf, 1, ifile->size, ifile);
cfclose(ifile);
id = pof_read_int(model_buf);
if (id!=0x4f505350) /* 'OPSP' */
Error("Bad ID in model file <%s>",filename);
version = pof_read_short(model_buf);
Assert(version >= 7); //must be 7 or higher for this data
if (version < PM_COMPATIBLE_VERSION || version > PM_OBJFILE_VERSION)
Error("Bad version (%d) in model file <%s>",version,filename);
while (new_pof_read_int(id,model_buf) == 1) {
//id = pof_read_int(model_buf);
len = pof_read_int(model_buf);
if (id == ID_GUNS) { //List of guns on this object
//mprintf(0,"Got chunk GUNS, len=%d\n",len);
int i;
n_guns = pof_read_int(model_buf);
for (i=0;i<n_guns;i++) {
int id,sm;
id = pof_read_short(model_buf);
sm = pof_read_short(model_buf);
if (gun_submodels)
gun_submodels[id] = sm;
else if (sm!=0)
Error("Invalid gun submodel in file <%s>",filename);
pof_read_vecs(&gun_points[id],1,model_buf);
pof_read_vecs(&gun_dirs[id],1,model_buf);
}
}
else
pof_cfseek(model_buf,len,SEEK_CUR);
}
d_free(model_buf);
return n_guns;
}
//free up a model, getting rid of all its memory
void free_model(polymodel *po)
{
d_free(po->model_data);
}
grs_bitmap *texture_list[MAX_POLYOBJ_TEXTURES];
bitmap_index texture_list_index[MAX_POLYOBJ_TEXTURES];
int Simple_model_threshhold_scale=5; //switch when this times radius far away
//draw a polygon model
void draw_polygon_model(vms_vector *pos,vms_matrix *orient,vms_angvec *anim_angles,int model_num,int flags,fix light,fix *glow_values,bitmap_index alt_textures[])
{
polymodel *po;
int i;
PA_DFX (int save_light);
Assert(model_num < N_polygon_models);
po=&Polygon_models[model_num];
//check if should use simple model
if (po->simpler_model ) //must have a simpler model
if (flags==0) //can't switch if this is debris
//!!if (!alt_textures) { //alternate textures might not match
//alt textures might not match, but in the one case we're using this
//for on 11/14/94, they do match. So we leave it in.
{
int cnt=1;
fix depth;
depth = g3_calc_point_depth(pos); //gets 3d depth
while (po->simpler_model && depth > cnt++ * Simple_model_threshhold_scale * po->rad)
po = &Polygon_models[po->simpler_model-1];
}
if (alt_textures)
{
for (i=0;i<po->n_textures;i++) {
texture_list_index[i] = alt_textures[i];
texture_list[i] = &GameBitmaps[alt_textures[i].index];
#ifdef _3DFX
texture_list[i]->bm_handle = texture_list_index[i].index;
#endif
}
}
else
{
for (i=0;i<po->n_textures;i++) {
texture_list_index[i] = ObjBitmaps[ObjBitmapPtrs[po->first_texture+i]];
texture_list[i] = &GameBitmaps[ObjBitmaps[ObjBitmapPtrs[po->first_texture+i]].index];
#ifdef _3DFX
texture_list[i]->bm_handle = texture_list_index[i].index;
#endif
}
}
#ifdef PIGGY_USE_PAGING
// Make sure the textures for this object are paged in...
piggy_page_flushed = 0;
for (i=0;i<po->n_textures;i++)
PIGGY_PAGE_IN( texture_list_index[i] );
// Hmmm... cache got flushed in the middle of paging all these in,
// so we need to reread them all in.
if (piggy_page_flushed) {
piggy_page_flushed = 0;
for (i=0;i<po->n_textures;i++)
PIGGY_PAGE_IN( texture_list_index[i] );
}
// Make sure that they can all fit in memory.
Assert( piggy_page_flushed == 0 );
#endif
g3_start_instance_matrix(pos,orient);
g3_set_interp_points(robot_points);
#ifdef _3DFX
_3dfx_rendering_poly_obj = 1;
#endif
PA_DFX(save_light = Lighting_on);
PA_DFX(Lighting_on = 0);
if (flags == 0) //draw entire object
g3_draw_polygon_model(po->model_data,texture_list,anim_angles,light,glow_values);
else {
int i;
for (i=0;flags;flags>>=1,i++)
if (flags & 1) {
vms_vector ofs;
Assert(i < po->n_models);
//if submodel, rotate around its center point, not pivot point
vm_vec_avg(&ofs,&po->submodel_mins[i],&po->submodel_maxs[i]);
vm_vec_negate(&ofs);
g3_start_instance_matrix(&ofs,NULL);
g3_draw_polygon_model(&po->model_data[po->submodel_ptrs[i]],texture_list,anim_angles,light,glow_values);
g3_done_instance();
}
}
g3_done_instance();
#ifdef _3DFX
_3dfx_rendering_poly_obj = 0;
#endif
PA_DFX (Lighting_on = save_light);
}
void free_polygon_models()
{
int i;
for (i=0;i<N_polygon_models;i++) {
free_model(&Polygon_models[i]);
}
}
void polyobj_find_min_max(polymodel *pm)
{
ushort nverts;
vms_vector *vp;
ushort *data,type;
int m;
vms_vector *big_mn,*big_mx;
big_mn = &pm->mins;
big_mx = &pm->maxs;
for (m=0;m<pm->n_models;m++) {
vms_vector *mn,*mx,*ofs;
mn = &pm->submodel_mins[m];
mx = &pm->submodel_maxs[m];
ofs= &pm->submodel_offsets[m];
data = (ushort *)&pm->model_data[pm->submodel_ptrs[m]];
type = *data++;
Assert(type == 7 || type == 1);
nverts = *data++;
if (type==7)
data+=2; //skip start & pad
vp = (vms_vector *) data;
*mn = *mx = *vp++; nverts--;
if (m==0)
*big_mn = *big_mx = *mn;
while (nverts--) {
if (vp->x > mx->x) mx->x = vp->x;
if (vp->y > mx->y) mx->y = vp->y;
if (vp->z > mx->z) mx->z = vp->z;
if (vp->x < mn->x) mn->x = vp->x;
if (vp->y < mn->y) mn->y = vp->y;
if (vp->z < mn->z) mn->z = vp->z;
if (vp->x+ofs->x > big_mx->x) big_mx->x = vp->x+ofs->x;
if (vp->y+ofs->y > big_mx->y) big_mx->y = vp->y+ofs->y;
if (vp->z+ofs->z > big_mx->z) big_mx->z = vp->z+ofs->z;
if (vp->x+ofs->x < big_mn->x) big_mn->x = vp->x+ofs->x;
if (vp->y+ofs->y < big_mn->y) big_mn->y = vp->y+ofs->y;
if (vp->z+ofs->z < big_mn->z) big_mn->z = vp->z+ofs->z;
vp++;
}
// printf("Submodel %d: (%8x,%8x) (%8x,%8x) (%8x,%8x)\n",m,mn->x,mx->x,mn->y,mx->y,mn->z,mx->z);
}
// printf("Whole model: (%8x,%8x) (%8x,%8x) (%8x,%8x)\n",big_mn->x,big_mx->x,big_mn->y,big_mx->y,big_mn->z,big_mx->z);
}
extern short highest_texture_num; //from the 3d
char Pof_names[MAX_POLYGON_MODELS][FILENAME_LEN];
//returns the number of this model
#ifndef DRIVE
int load_polygon_model(char *filename,int n_textures,int first_texture,robot_info *r)
#else
int load_polygon_model(char *filename,int n_textures,grs_bitmap ***textures)
#endif
{
#ifdef DRIVE
#define r NULL
#endif
Assert(N_polygon_models < MAX_POLYGON_MODELS);
Assert(n_textures < MAX_POLYOBJ_TEXTURES);
// MK was real tired of those useless, slow mprintfs...
if (N_polygon_models > MAX_POLYGON_MODELS - 10)
mprintf(( 0, "Used %d/%d polygon model slots\n", N_polygon_models+1, MAX_POLYGON_MODELS ));
Assert(strlen(filename) <= 12);
strcpy(Pof_names[N_polygon_models],filename);
read_model_file(&Polygon_models[N_polygon_models],filename,r);
polyobj_find_min_max(&Polygon_models[N_polygon_models]);
g3_init_polygon_model(Polygon_models[N_polygon_models].model_data);
if (highest_texture_num+1 != n_textures)
Error("Model <%s> references %d textures but specifies %d.",filename,highest_texture_num+1,n_textures);
Polygon_models[N_polygon_models].n_textures = n_textures;
Polygon_models[N_polygon_models].first_texture = first_texture;
Polygon_models[N_polygon_models].simpler_model = 0;
// Assert(polygon_models[N_polygon_models]!=NULL);
N_polygon_models++;
return N_polygon_models-1;
}
void init_polygon_models()
{
N_polygon_models = 0;
atexit((void (*)())free_polygon_models);
}
//compare against this size when figuring how far to place eye for picture
#define BASE_MODEL_SIZE 0x28000
#define DEFAULT_VIEW_DIST 0x60000
//draws the given model in the current canvas. The distance is set to
//more-or-less fill the canvas. Note that this routine actually renders
//into an off-screen canvas that it creates, then copies to the current
//canvas.
void draw_model_picture(int mn,vms_angvec *orient_angles)
{
vms_vector temp_pos=ZERO_VECTOR;
vms_matrix temp_orient = IDENTITY_MATRIX;
grs_canvas *save_canv = grd_curcanv,*temp_canv;
Assert(mn>=0 && mn<N_polygon_models);
temp_canv = gr_create_canvas(save_canv->cv_bitmap.bm_w,save_canv->cv_bitmap.bm_h);
gr_set_current_canvas(temp_canv);
gr_clear_canvas( BM_XRGB(0,0,0) );
g3_start_frame();
g3_set_view_matrix(&temp_pos,&temp_orient,0x9000);
if (Polygon_models[mn].rad != 0)
temp_pos.z = fixmuldiv(DEFAULT_VIEW_DIST,Polygon_models[mn].rad,BASE_MODEL_SIZE);
else
temp_pos.z = DEFAULT_VIEW_DIST;
vm_angles_2_matrix(&temp_orient, orient_angles);
PA_DFX(save_light = Lighting_on);
PA_DFX(Lighting_on = 0);
draw_polygon_model(&temp_pos,&temp_orient,NULL,mn,0,f1_0,NULL,NULL);
PA_DFX (Lighting_on = save_light);
gr_set_current_canvas(save_canv);
gr_bitmap(0,0,&temp_canv->cv_bitmap);
gr_free_canvas(temp_canv);
}
Reference in a new issue View git blame Copy permalink