| 12 |
|
#include <math.h> |
| 13 |
|
#include <ctype.h> |
| 14 |
|
#include "random.h" |
| 15 |
– |
#include "platform.h" |
| 16 |
– |
#include "paths.h" |
| 15 |
|
#include "rtio.h" |
| 16 |
|
#include "calcomp.h" |
| 17 |
|
#include "bsdfrep.h" |
| 20 |
|
enum {CIE_X, CIE_Y, CIE_Z}; |
| 21 |
|
/* assumed maximum # Klems patches */ |
| 22 |
|
#define MAXPATCHES 145 |
| 25 |
– |
/* global argv[0] */ |
| 26 |
– |
char *progname; |
| 23 |
|
/* selected basis function name */ |
| 24 |
|
static const char klems_full[] = "LBNL/Klems Full"; |
| 25 |
|
static const char klems_half[] = "LBNL/Klems Half"; |
| 617 |
|
char buf[1024]; |
| 618 |
|
char *cp; |
| 619 |
|
int i, na; |
| 620 |
< |
|
| 621 |
< |
progname = argv[0]; |
| 620 |
> |
/* set global progname */ |
| 621 |
> |
fixargv0(argv[0]); |
| 622 |
|
esupport |= E_VARIABLE|E_FUNCTION|E_RCONST; |
| 623 |
|
esupport &= ~(E_INCHAN|E_OUTCHAN); |
| 624 |
|
scompile("PI:3.14159265358979323846", NULL, 0); |