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; |