--- ray/src/rt/rtrace.c 1994/12/20 20:18:34 2.17 +++ ray/src/rt/rtrace.c 2005/06/05 19:52:01 2.44 @@ -1,15 +1,12 @@ -/* Copyright (c) 1994 Regents of the University of California */ - #ifndef lint -static char SCCSid[] = "$SunId$ LBL"; +static const char RCSid[] = "$Id: rtrace.c,v 2.44 2005/06/05 19:52:01 greg Exp $"; #endif - /* * rtrace.c - program and variables for individual ray tracing. - * - * 6/11/86 */ +#include "copyright.h" + /* * Input is in the form: * @@ -24,24 +21,33 @@ static char SCCSid[] = "$SunId$ LBL"; * irradiance values are desired. */ -#include "ray.h" +#include -#include "octree.h" - +#include "platform.h" +#include "ray.h" +#include "ambient.h" +#include "source.h" #include "otypes.h" - #include "resolu.h" +CUBE thescene; /* our scene */ +OBJECT nsceneobjs; /* number of objects in our scene */ + int dimlist[MAXDIM]; /* sampling dimensions */ int ndims = 0; /* number of sampling dimensions */ int samplendx = 0; /* index for this sample */ int imm_irrad = 0; /* compute immediate irradiance? */ +int lim_dist = 0; /* limit distance? */ int inform = 'a'; /* input format */ int outform = 'a'; /* output format */ char *outvals = "v"; /* output specification */ +int do_irrad = 0; /* compute irradiance? */ + +void (*trace)() = NULL; /* trace call */ + char *tralist[128]; /* list of modifers to trace (or no) */ int traincl = -1; /* include == 1, exclude == 0 */ #define MAXTSET 511 /* maximum number in trace set */ @@ -51,48 +57,70 @@ int hresolu = 0; /* horizontal (scan) size */ int vresolu = 0; /* vertical resolution */ double dstrsrc = 0.0; /* square source distribution */ -double shadthresh = .05; /* shadow threshold */ -double shadcert = .5; /* shadow certainty */ -int directrelay = 1; /* number of source relays */ +double shadthresh = .03; /* shadow threshold */ +double shadcert = .75; /* shadow certainty */ +int directrelay = 2; /* number of source relays */ int vspretest = 512; /* virtual source pretest density */ int directvis = 1; /* sources visible? */ -double srcsizerat = .25; /* maximum ratio source size/dist. */ +double srcsizerat = .2; /* maximum ratio source size/dist. */ +COLOR cextinction = BLKCOLOR; /* global extinction coefficient */ +COLOR salbedo = BLKCOLOR; /* global scattering albedo */ +double seccg = 0.; /* global scattering eccentricity */ +double ssampdist = 0.; /* scatter sampling distance */ + double specthresh = .15; /* specular sampling threshold */ double specjitter = 1.; /* specular sampling jitter */ -int maxdepth = 6; /* maximum recursion depth */ -double minweight = 4e-3; /* minimum ray weight */ +int backvis = 1; /* back face visibility */ +int maxdepth = -10; /* maximum recursion depth */ +double minweight = 2e-3; /* minimum ray weight */ + +char *ambfile = NULL; /* ambient file name */ COLOR ambval = BLKCOLOR; /* ambient value */ -double ambacc = 0.2; /* ambient accuracy */ -int ambres = 32; /* ambient resolution */ -int ambdiv = 128; /* ambient divisions */ -int ambssamp = 0; /* ambient super-samples */ +int ambvwt = 0; /* initial weight for ambient value */ +double ambacc = 0.15; /* ambient accuracy */ +int ambres = 256; /* ambient resolution */ +int ambdiv = 1024; /* ambient divisions */ +int ambssamp = 512; /* ambient super-samples */ int ambounce = 0; /* ambient bounces */ -char *amblist[128]; /* ambient include/exclude list */ +char *amblist[AMBLLEN]; /* ambient include/exclude list */ int ambincl = -1; /* include == 1, exclude == 0 */ -extern OBJREC Lamb; /* a Lambertian surface */ +static int castonly = 0; static RAY thisray; /* for our convenience */ -static int oputo(), oputd(), oputv(), oputl(), oputL(), - oputp(), oputn(), oputN(), oputs(), oputw(), oputm(); +typedef void putf_t(double v); +static putf_t puta, putd, putf; -static int ourtrace(), tabin(); -static int (*ray_out[16])(), (*every_out[16])(); -static int castonly = 0; +typedef void oputf_t(RAY *r); +static oputf_t oputo, oputd, oputv, oputl, oputL, oputc, oputp, + oputn, oputN, oputs, oputw, oputW, oputm, oputM, oputtilde; -static int puta(), putf(), putd(); +static void setoutput(char *vs); +static void tranotify(OBJECT obj); +static void bogusray(void); +static void rad(FVECT org, FVECT dir, double dmax); +static void irrad(FVECT org, FVECT dir); +static void printvals(RAY *r); +static int getvec(FVECT vec, int fmt, FILE *fp); +static void tabin(RAY *r); +static void ourtrace(RAY *r); -static int (*putreal)(); +static oputf_t *ray_out[16], *every_out[16]; +static putf_t *putreal; +void (*addobjnotify[])() = {ambnotify, tranotify, NULL}; -quit(code) /* quit program */ -int code; + +void +quit( /* quit program */ + int code +) { -#ifndef NIX +#ifndef NON_POSIX /* XXX we don't clean up elsewhere? */ headclean(); /* delete header file */ pfclean(); /* clean up persist files */ #endif @@ -100,9 +128,10 @@ int code; } -char * -formstr(f) /* return format identifier */ -int f; +extern char * +formstr( /* return format identifier */ + int f +) { switch (f) { case 'a': return("ascii"); @@ -114,12 +143,15 @@ int f; } -rtrace(fname) /* trace rays from file */ -char *fname; +extern void +rtrace( /* trace rays from file */ + char *fname +) { long vcount = hresolu>1 ? hresolu*vresolu : vresolu; long nextflush = hresolu; FILE *fp; + double d; FVECT orig, direc; /* set up input */ if (fname == NULL) @@ -128,10 +160,8 @@ char *fname; sprintf(errmsg, "cannot open input file \"%s\"", fname); error(SYSTEM, errmsg); } -#ifdef MSDOS if (inform != 'a') - setmode(fileno(fp), O_BINARY); -#endif + SET_FILE_BINARY(fp); /* set up output */ setoutput(outvals); switch (outform) { @@ -154,20 +184,25 @@ char *fname; while (getvec(orig, inform, fp) == 0 && getvec(direc, inform, fp) == 0) { - if (normalize(direc) == 0.0) { /* zero ==> flush */ - fflush(stdout); - continue; - } - samplendx++; + d = normalize(direc); + if (d == 0.0) { /* zero ==> flush */ + bogusray(); + if (--nextflush <= 0 || vcount <= 0) { + fflush(stdout); + nextflush = hresolu; + } + } else { + samplendx++; /* compute and print */ - if (imm_irrad) - irrad(orig, direc); - else - rad(orig, direc); + if (imm_irrad) + irrad(orig, direc); + else + rad(orig, direc, lim_dist ? d : 0.0); /* flush if time */ - if (--nextflush == 0) { - fflush(stdout); - nextflush = hresolu; + if (--nextflush == 0) { + fflush(stdout); + nextflush = hresolu; + } } if (ferror(stdout)) error(SYSTEM, "write error"); @@ -176,22 +211,38 @@ char *fname; } fflush(stdout); if (vcount > 0) - error(USER, "read error"); + error(USER, "unexpected EOF on input"); if (fname != NULL) fclose(fp); } -setoutput(vs) /* set up output tables */ -register char *vs; +static void +trace_sources(void) /* trace rays to light sources, also */ { - extern int (*trace)(); - register int (**table)() = ray_out; + int sn; + + for (sn = 0; sn < nsources; sn++) + source[sn].sflags |= SFOLLOW; +} + +static void +setoutput( /* set up output tables */ + register char *vs +) +{ + register oputf_t **table = ray_out; + castonly = 1; while (*vs) switch (*vs++) { + case 'T': /* trace sources */ + if (!*vs) break; + trace_sources(); + /* fall through */ case 't': /* trace */ + if (!*vs) break; *table = NULL; table = every_out; trace = ourtrace; @@ -211,6 +262,9 @@ register char *vs; *table++ = oputl; castonly = 0; break; + case 'c': /* local coordinates */ + *table++ = oputc; + break; case 'L': /* single ray length */ *table++ = oputL; break; @@ -230,31 +284,67 @@ register char *vs; case 'w': /* weight */ *table++ = oputw; break; + case 'W': /* coefficient */ + *table++ = oputW; + if (ambounce > 0 && (ambacc > FTINY || ambssamp > 0)) + error(WARNING, + "-otW accuracy depends on -aa 0 -as 0"); + break; case 'm': /* modifier */ *table++ = oputm; break; + case 'M': /* material */ + *table++ = oputM; + break; + case '~': /* tilde */ + *table++ = oputtilde; + break; } *table = NULL; } -rad(org, dir) /* compute and print ray value(s) */ -FVECT org, dir; +static void +bogusray(void) /* print out empty record */ { + thisray.rorg[0] = thisray.rorg[1] = thisray.rorg[2] = + thisray.rdir[0] = thisray.rdir[1] = thisray.rdir[2] = 0.0; + thisray.rmax = 0.0; + rayorigin(&thisray, PRIMARY, NULL, NULL); + printvals(&thisray); +} + + +static void +rad( /* compute and print ray value(s) */ + FVECT org, + FVECT dir, + double dmax +) +{ VCOPY(thisray.rorg, org); VCOPY(thisray.rdir, dir); - thisray.rmax = 0.0; - rayorigin(&thisray, NULL, PRIMARY, 1.0); - if (castonly) - localhit(&thisray, &thescene) || sourcehit(&thisray); - else + thisray.rmax = dmax; + rayorigin(&thisray, PRIMARY, NULL, NULL); + if (castonly) { + if (!localhit(&thisray, &thescene)) { + if (thisray.ro == &Aftplane) { /* clipped */ + thisray.ro = NULL; + thisray.rot = FHUGE; + } else + sourcehit(&thisray); + } + } else rayvalue(&thisray); printvals(&thisray); } -irrad(org, dir) /* compute immediate irradiance value */ -FVECT org, dir; +static void +irrad( /* compute immediate irradiance value */ + FVECT org, + FVECT dir +) { register int i; @@ -262,7 +352,8 @@ FVECT org, dir; thisray.rorg[i] = org[i] + dir[i]; thisray.rdir[i] = -dir[i]; } - rayorigin(&thisray, NULL, PRIMARY, 1.0); + thisray.rmax = 0.0; + rayorigin(&thisray, PRIMARY, NULL, NULL); /* pretend we hit surface */ thisray.rot = 1.0-1e-4; thisray.rod = 1.0; @@ -275,10 +366,12 @@ FVECT org, dir; } -printvals(r) /* print requested ray values */ -RAY *r; +static void +printvals( /* print requested ray values */ + RAY *r +) { - register int (**tp)(); + register oputf_t **tp; if (ray_out[0] == NULL) return; @@ -289,12 +382,13 @@ RAY *r; } -getvec(vec, fmt, fp) /* get a vector from fp */ -register FVECT vec; -int fmt; -FILE *fp; +static int +getvec( /* get a vector from fp */ + register FVECT vec, + int fmt, + FILE *fp +) { - extern char *fgetword(); static float vf[3]; static double vd[3]; char buf[32]; @@ -326,13 +420,20 @@ FILE *fp; } -tranotify(obj) /* record new modifier */ -OBJECT obj; +static void +tranotify( /* record new modifier */ + OBJECT obj +) { static int hitlimit = 0; register OBJREC *o = objptr(obj); register char **tralp; + if (obj == OVOID) { /* starting over */ + traset[0] = 0; + hitlimit = 0; + return; + } if (hitlimit || !ismodifier(o->otype)) return; for (tralp = tralist; *tralp != NULL; tralp++) @@ -348,11 +449,12 @@ OBJECT obj; } -static -ourtrace(r) /* print ray values */ -RAY *r; +static void +ourtrace( /* print ray values */ + RAY *r +) { - register int (**tp)(); + register oputf_t **tp; if (every_out[0] == NULL) return; @@ -364,24 +466,27 @@ RAY *r; tabin(r); for (tp = every_out; *tp != NULL; tp++) (**tp)(r); - putchar('\n'); + if (outform == 'a') + putchar('\n'); } -static -tabin(r) /* tab in appropriate amount */ -RAY *r; +static void +tabin( /* tab in appropriate amount */ + RAY *r +) { - register RAY *rp; + const RAY *rp; for (rp = r->parent; rp != NULL; rp = rp->parent) putchar('\t'); } -static -oputo(r) /* print origin */ -register RAY *r; +static void +oputo( /* print origin */ + RAY *r +) { (*putreal)(r->rorg[0]); (*putreal)(r->rorg[1]); @@ -389,9 +494,10 @@ register RAY *r; } -static -oputd(r) /* print direction */ -register RAY *r; +static void +oputd( /* print direction */ + RAY *r +) { (*putreal)(r->rdir[0]); (*putreal)(r->rdir[1]); @@ -399,13 +505,13 @@ register RAY *r; } -static -oputv(r) /* print value */ -register RAY *r; +static void +oputv( /* print value */ + RAY *r +) { - COLR cout; - if (outform == 'c') { + COLR cout; setcolr(cout, colval(r->rcol,RED), colval(r->rcol,GRN), colval(r->rcol,BLU)); @@ -418,26 +524,39 @@ register RAY *r; } -static -oputl(r) /* print effective distance */ -register RAY *r; +static void +oputl( /* print effective distance */ + RAY *r +) { (*putreal)(r->rt); } -static -oputL(r) /* print single ray length */ -register RAY *r; +static void +oputL( /* print single ray length */ + RAY *r +) { (*putreal)(r->rot); } -static -oputp(r) /* print point */ -register RAY *r; +static void +oputc( /* print local coordinates */ + RAY *r +) { + (*putreal)(r->uv[0]); + (*putreal)(r->uv[1]); +} + + +static void +oputp( /* print point */ + RAY *r +) +{ if (r->rot < FHUGE) { (*putreal)(r->rop[0]); (*putreal)(r->rop[1]); @@ -450,9 +569,10 @@ register RAY *r; } -static -oputN(r) /* print unperturbed normal */ -register RAY *r; +static void +oputN( /* print unperturbed normal */ + RAY *r +) { if (r->rot < FHUGE) { (*putreal)(r->ron[0]); @@ -466,9 +586,10 @@ register RAY *r; } -static -oputn(r) /* print perturbed normal */ -RAY *r; +static void +oputn( /* print perturbed normal */ + RAY *r +) { FVECT pnorm; @@ -485,9 +606,10 @@ RAY *r; } -static -oputs(r) /* print name */ -register RAY *r; +static void +oputs( /* print name */ + RAY *r +) { if (r->ro != NULL) fputs(r->ro->oname, stdout); @@ -497,35 +619,82 @@ register RAY *r; } -static -oputw(r) /* print weight */ -register RAY *r; +static void +oputw( /* print weight */ + RAY *r +) { (*putreal)(r->rweight); } -static -oputm(r) /* print modifier */ -register RAY *r; +static void +oputW( /* print contribution */ + RAY *r +) { + COLOR contr; + + raycontrib(contr, r, PRIMARY); + (*putreal)(colval(contr,RED)); + (*putreal)(colval(contr,GRN)); + (*putreal)(colval(contr,BLU)); +} + + +static void +oputm( /* print modifier */ + RAY *r +) +{ if (r->ro != NULL) - fputs(objptr(r->ro->omod)->oname, stdout); + if (r->ro->omod != OVOID) + fputs(objptr(r->ro->omod)->oname, stdout); + else + fputs(VOIDID, stdout); else putchar('*'); putchar('\t'); } -static -puta(v) /* print ascii value */ -double v; +static void +oputM( /* print material */ + RAY *r +) { + OBJREC *mat; + + if (r->ro != NULL) { + if ((mat = findmaterial(r->ro)) != NULL) + fputs(mat->oname, stdout); + else + fputs(VOIDID, stdout); + } else + putchar('*'); + putchar('\t'); +} + + +static void +oputtilde( /* output tilde (spacer) */ + RAY *r +) +{ + fputs("~\t", stdout); +} + + +static void +puta( /* print ascii value */ + double v +) +{ printf("%e\t", v); } -static +static void putd(v) /* print binary double */ double v; { @@ -533,7 +702,7 @@ double v; } -static +static void putf(v) /* print binary float */ double v; {