8 |
|
#include <signal.h> |
9 |
|
#include <ctype.h> |
10 |
|
|
11 |
– |
#include "platform.h" |
11 |
|
#include "mkillum.h" |
13 |
– |
#include "random.h" |
12 |
|
|
13 |
|
/* default parameters */ |
14 |
|
#define SAMPDENS 48 /* points per projected steradian */ |
24 |
|
struct illum_args thisillum = { /* our illum and default values */ |
25 |
|
0, |
26 |
|
UDzpos, |
27 |
+ |
0., |
28 |
|
DFLMAT, |
29 |
|
DFLDAT, |
30 |
|
0, |
392 |
|
if (thisillum.udir == UDunknown || !isspace(*cp)) |
393 |
|
break; |
394 |
|
continue; |
395 |
+ |
case 't': /* object thickness */ |
396 |
+ |
if (*++cp != '=') |
397 |
+ |
break; |
398 |
+ |
if (!isfltd(++cp, " \t\n\r")) |
399 |
+ |
break; |
400 |
+ |
thisillum.thick = atof(cp); |
401 |
+ |
if (thisillum.thick < .0) |
402 |
+ |
thisillum.thick = .0; |
403 |
+ |
cp = sskip(cp); |
404 |
+ |
continue; |
405 |
|
case '!': /* processed file! */ |
406 |
|
sprintf(errmsg, "(%s): already processed!", nm); |
407 |
|
error(WARNING, errmsg); |
469 |
|
case UDunknown: |
470 |
|
break; |
471 |
|
} |
472 |
+ |
printf("t=%f\t\t\t# object thickness\n", thisillum.thick); |
473 |
|
} |
474 |
|
|
475 |
|
|