| 240 |
|
|
| 241 |
|
static void |
| 242 |
|
setoutput( /* set up output tables */ |
| 243 |
< |
register char *vs |
| 243 |
> |
char *vs |
| 244 |
|
) |
| 245 |
|
{ |
| 246 |
< |
register oputf_t **table = ray_out; |
| 246 |
> |
oputf_t **table = ray_out; |
| 247 |
|
|
| 248 |
|
castonly = 1; |
| 249 |
|
while (*vs) |
| 363 |
|
FVECT dir |
| 364 |
|
) |
| 365 |
|
{ |
| 366 |
< |
register int i; |
| 367 |
< |
|
| 368 |
< |
for (i = 0; i < 3; i++) { |
| 369 |
< |
thisray.rorg[i] = org[i] + dir[i]; |
| 370 |
< |
thisray.rdir[i] = -dir[i]; |
| 371 |
< |
} |
| 366 |
> |
VSUM(thisray.rorg, org, dir, 1.1e-4); |
| 367 |
> |
thisray.rdir[0] = -dir[0]; |
| 368 |
> |
thisray.rdir[1] = -dir[1]; |
| 369 |
> |
thisray.rdir[2] = -dir[2]; |
| 370 |
|
thisray.rmax = 0.0; |
| 371 |
|
rayorigin(&thisray, PRIMARY, NULL, NULL); |
| 372 |
|
/* pretend we hit surface */ |
| 373 |
< |
thisray.rot = 1.0-1e-4; |
| 373 |
> |
thisray.rot = 1e-5; |
| 374 |
|
thisray.rod = 1.0; |
| 375 |
|
VCOPY(thisray.ron, dir); |
| 376 |
< |
for (i = 0; i < 3; i++) /* fudge factor */ |
| 379 |
< |
thisray.rop[i] = org[i] + 1e-4*dir[i]; |
| 376 |
> |
VSUM(thisray.rop, org, dir, 1e-4); |
| 377 |
|
/* compute and print */ |
| 378 |
|
(*ofun[Lamb.otype].funp)(&Lamb, &thisray); |
| 379 |
|
printvals(&thisray); |
| 385 |
|
RAY *r |
| 386 |
|
) |
| 387 |
|
{ |
| 388 |
< |
register oputf_t **tp; |
| 388 |
> |
oputf_t **tp; |
| 389 |
|
|
| 390 |
|
if (ray_out[0] == NULL) |
| 391 |
|
return; |
| 398 |
|
|
| 399 |
|
static int |
| 400 |
|
getvec( /* get a vector from fp */ |
| 401 |
< |
register FVECT vec, |
| 401 |
> |
FVECT vec, |
| 402 |
|
int fmt, |
| 403 |
|
FILE *fp |
| 404 |
|
) |
| 406 |
|
static float vf[3]; |
| 407 |
|
static double vd[3]; |
| 408 |
|
char buf[32]; |
| 409 |
< |
register int i; |
| 409 |
> |
int i; |
| 410 |
|
|
| 411 |
|
switch (fmt) { |
| 412 |
|
case 'a': /* ascii */ |
| 440 |
|
) |
| 441 |
|
{ |
| 442 |
|
static int hitlimit = 0; |
| 443 |
< |
register OBJREC *o = objptr(obj); |
| 444 |
< |
register char **tralp; |
| 443 |
> |
OBJREC *o = objptr(obj); |
| 444 |
> |
char **tralp; |
| 445 |
|
|
| 446 |
|
if (obj == OVOID) { /* starting over */ |
| 447 |
|
traset[0] = 0; |
| 468 |
|
RAY *r |
| 469 |
|
) |
| 470 |
|
{ |
| 471 |
< |
register oputf_t **tp; |
| 471 |
> |
oputf_t **tp; |
| 472 |
|
|
| 473 |
|
if (every_out[0] == NULL) |
| 474 |
|
return; |