| 1 |
< |
/* Copyright (c) 1994 Regents of the University of California */ |
| 1 |
> |
/* Copyright (c) 1995 Regents of the University of California */ |
| 2 |
|
|
| 3 |
|
#ifndef lint |
| 4 |
|
static char SCCSid[] = "$SunId$ LBL"; |
| 20 |
|
#include <sys/resource.h> |
| 21 |
|
#else |
| 22 |
|
#include <sys/times.h> |
| 23 |
– |
#include <sys/utsname.h> |
| 23 |
|
#include <unistd.h> |
| 24 |
|
#endif |
| 25 |
|
#endif |
| 63 |
|
int directvis = 1; /* sources visible? */ |
| 64 |
|
double srcsizerat = .25; /* maximum ratio source size/dist. */ |
| 65 |
|
|
| 66 |
+ |
COLOR cextinction = BLKCOLOR; /* global extinction coefficient */ |
| 67 |
+ |
double salbedo = 0.; /* global scattering albedo */ |
| 68 |
+ |
double seccg = 0.; /* global scattering eccentricity */ |
| 69 |
+ |
double ssampdist = 0.; /* scatter sampling distance */ |
| 70 |
+ |
|
| 71 |
|
double specthresh = .15; /* specular sampling threshold */ |
| 72 |
|
double specjitter = 1.; /* specular sampling jitter */ |
| 73 |
|
|
| 139 |
|
#ifndef NIX |
| 140 |
|
report() /* report progress */ |
| 141 |
|
{ |
| 142 |
+ |
extern char *myhostname(); |
| 143 |
|
double u, s; |
| 144 |
|
#ifdef BSD |
| 140 |
– |
char hostname[257]; |
| 145 |
|
struct rusage rubuf; |
| 146 |
|
#else |
| 147 |
|
struct tms tbuf; |
| 144 |
– |
struct utsname nambuf; |
| 148 |
|
double period; |
| 146 |
– |
#define hostname nambuf.nodename |
| 149 |
|
#endif |
| 150 |
|
|
| 151 |
|
tlastrept = time((time_t *)NULL); |
| 156 |
|
getrusage(RUSAGE_CHILDREN, &rubuf); |
| 157 |
|
u += rubuf.ru_utime.tv_sec + rubuf.ru_utime.tv_usec/1e6; |
| 158 |
|
s += rubuf.ru_stime.tv_sec + rubuf.ru_stime.tv_usec/1e6; |
| 157 |
– |
gethostname(hostname, sizeof(hostname)); |
| 159 |
|
#else |
| 160 |
|
times(&tbuf); |
| 161 |
|
#ifdef _SC_CLK_TCK |
| 165 |
|
#endif |
| 166 |
|
u = ( tbuf.tms_utime + tbuf.tms_cutime ) * period; |
| 167 |
|
s = ( tbuf.tms_stime + tbuf.tms_cstime ) * period; |
| 167 |
– |
uname(&nambuf); |
| 168 |
|
#endif |
| 169 |
|
|
| 170 |
|
sprintf(errmsg, |
| 171 |
|
"%lu rays, %4.2f%% after %.3fu %.3fs %.3fr hours on %s\n", |
| 172 |
|
nrays, pctdone, u/3600., s/3600., |
| 173 |
< |
(tlastrept-tstart)/3600., hostname); |
| 173 |
> |
(tlastrept-tstart)/3600., myhostname()); |
| 174 |
|
eputs(errmsg); |
| 175 |
|
#ifndef BSD |
| 176 |
|
signal(SIGCONT, report); |
| 177 |
– |
#undef hostname |
| 177 |
|
#endif |
| 178 |
|
} |
| 179 |
|
#else |
| 392 |
|
fprtresolu(hres, vres, stdout); |
| 393 |
|
/* recover file and compute first */ |
| 394 |
|
i = salvage(oldfile); |
| 395 |
+ |
if (i >= vres) |
| 396 |
+ |
goto alldone; |
| 397 |
|
if (zfd != -1 && i > 0 && |
| 398 |
|
lseek(zfd, (long)i*hres*sizeof(float), 0) == -1) |
| 399 |
|
error(SYSTEM, "z-file seek error in render"); |
| 449 |
|
} |
| 450 |
|
/* clean up */ |
| 451 |
|
signal(SIGCONT, SIG_IGN); |
| 452 |
< |
if (zfd != -1) { |
| 452 |
< |
if (write(zfd, (char *)zbar[0], hres*sizeof(float)) |
| 452 |
> |
if (zfd != -1 && write(zfd, (char *)zbar[0], hres*sizeof(float)) |
| 453 |
|
< hres*sizeof(float)) |
| 454 |
< |
goto writerr; |
| 454 |
> |
goto writerr; |
| 455 |
> |
fwritescan(scanbar[0], hres, stdout); |
| 456 |
> |
if (fflush(stdout) == EOF) |
| 457 |
> |
goto writerr; |
| 458 |
> |
alldone: |
| 459 |
> |
if (zfd != -1) { |
| 460 |
|
if (close(zfd) == -1) |
| 461 |
|
goto writerr; |
| 462 |
|
for (i = 0; i <= psample; i++) |
| 463 |
|
free((char *)zbar[i]); |
| 464 |
|
} |
| 460 |
– |
fwritescan(scanbar[0], hres, stdout); |
| 461 |
– |
if (fflush(stdout) == EOF) |
| 462 |
– |
goto writerr; |
| 465 |
|
for (i = 0; i <= psample; i++) |
| 466 |
|
free((char *)scanbar[i]); |
| 467 |
|
if (sampdens != NULL) |
