| 29 |
|
} PGINPUT; |
| 30 |
|
|
| 31 |
|
PGINPUT *inpfile; /* input files sorted by incidence */ |
| 32 |
– |
int ninpfiles; /* number of input files */ |
| 32 |
|
|
| 33 |
|
int rev_orient = 0; /* shall we reverse surface orientation? */ |
| 34 |
|
|
| 46 |
|
return(inp1->igp[0] - inp2->igp[0]); |
| 47 |
|
} |
| 48 |
|
|
| 49 |
+ |
/* Assign grid position from theta and phi */ |
| 50 |
+ |
static void |
| 51 |
+ |
set_grid_pos(PGINPUT *pip) |
| 52 |
+ |
{ |
| 53 |
+ |
FVECT dv; |
| 54 |
+ |
|
| 55 |
+ |
if (pip->theta <= FTINY) { |
| 56 |
+ |
pip->igp[0] = pip->igp[1] = grid_res/2 - 1; |
| 57 |
+ |
return; |
| 58 |
+ |
} |
| 59 |
+ |
dv[2] = sin(M_PI/180.*pip->theta); |
| 60 |
+ |
dv[0] = cos(M_PI/180.*pip->phi)*dv[2]; |
| 61 |
+ |
dv[1] = sin(M_PI/180.*pip->phi)*dv[2]; |
| 62 |
+ |
dv[2] = sqrt(1. - dv[2]*dv[2]); |
| 63 |
+ |
pos_from_vec(pip->igp, dv); |
| 64 |
+ |
} |
| 65 |
+ |
|
| 66 |
|
/* Prepare a PAB-Opto input file by reading its header */ |
| 67 |
|
static int |
| 68 |
|
init_pabopto_inp(const int i, const char *fname) |
| 69 |
|
{ |
| 70 |
|
FILE *fp = fopen(fname, "r"); |
| 55 |
– |
FVECT dv; |
| 71 |
|
char buf[2048]; |
| 72 |
|
int c; |
| 73 |
|
|
| 137 |
|
/* convert to Y-up orientation */ |
| 138 |
|
inpfile[i].phi += 90.-inpfile[i].up_phi; |
| 139 |
|
/* convert angle to grid position */ |
| 140 |
< |
dv[2] = sin(M_PI/180.*inpfile[i].theta); |
| 126 |
< |
dv[0] = cos(M_PI/180.*inpfile[i].phi)*dv[2]; |
| 127 |
< |
dv[1] = sin(M_PI/180.*inpfile[i].phi)*dv[2]; |
| 128 |
< |
dv[2] = sqrt(1. - dv[2]*dv[2]); |
| 129 |
< |
if (inpfile[i].theta <= FTINY) |
| 130 |
< |
inpfile[i].igp[0] = inpfile[i].igp[1] = grid_res/2 - 1; |
| 131 |
< |
else |
| 132 |
< |
pos_from_vec(inpfile[i].igp, dv); |
| 140 |
> |
set_grid_pos(&inpfile[i]); |
| 141 |
|
return(1); |
| 142 |
|
} |
| 143 |
|
|
| 182 |
|
theta_out = 180. - theta_out; |
| 183 |
|
phi_out = 360. - phi_out; |
| 184 |
|
} |
| 185 |
< |
add_bsdf_data(theta_out, phi_out+90.-inpfile[i].up_phi, |
| 186 |
< |
val, inpfile[i].isDSF); |
| 185 |
> |
phi_out += 90.-inpfile[i].up_phi; |
| 186 |
> |
add_bsdf_data(theta_out, phi_out, val, inpfile[i].isDSF); |
| 187 |
|
} |
| 188 |
|
n = 0; |
| 189 |
|
while ((c = getc(fp)) != EOF) |
| 203 |
|
#define SYM_QUAD 'Q' /* quadrilateral symmetry */ |
| 204 |
|
#define SYM_BILAT 'B' /* bilateral symmetry */ |
| 205 |
|
#define SYM_ANISO 'A' /* anisotropic */ |
| 206 |
+ |
#define SYM_UP 'U' /* "up-down" (180°) symmetry */ |
| 207 |
|
|
| 208 |
|
static const char quadrant_rep[16][16] = { |
| 209 |
|
"in-plane","0-90","90-180","0-180", |
| 224 |
|
main(int argc, char *argv[]) |
| 225 |
|
{ |
| 226 |
|
extern int nprocs; |
| 227 |
< |
const char *symmetry = "U"; |
| 228 |
< |
int i; |
| 227 |
> |
const char *symmetry = "0"; |
| 228 |
> |
int ninpfiles, totinc; |
| 229 |
> |
int a, i; |
| 230 |
|
/* start header */ |
| 231 |
|
SET_FILE_BINARY(stdout); |
| 232 |
|
newheader("RADIANCE", stdout); |
| 233 |
|
printargs(argc, argv, stdout); |
| 234 |
|
fputnow(stdout); |
| 235 |
|
progname = argv[0]; /* get options */ |
| 236 |
< |
while (argc > 2 && argv[1][0] == '-') { |
| 237 |
< |
switch (argv[1][1]) { |
| 236 |
> |
for (a = 1; a < argc && argv[a][0] == '-'; a++) |
| 237 |
> |
switch (argv[a][1]) { |
| 238 |
|
case 't': |
| 239 |
|
rev_orient = !rev_orient; |
| 240 |
|
break; |
| 241 |
|
case 'n': |
| 242 |
< |
nprocs = atoi(argv[2]); |
| 233 |
< |
argv++; argc--; |
| 242 |
> |
nprocs = atoi(argv[++a]); |
| 243 |
|
break; |
| 244 |
|
case 's': |
| 245 |
< |
symmetry = argv[2]; |
| 237 |
< |
argv++; argc--; |
| 245 |
> |
symmetry = argv[++a]; |
| 246 |
|
break; |
| 247 |
|
default: |
| 248 |
|
goto userr; |
| 249 |
|
} |
| 250 |
< |
argv++; argc--; |
| 243 |
< |
} |
| 244 |
< |
/* initialize & sort inputs */ |
| 245 |
< |
ninpfiles = argc - 1; |
| 250 |
> |
totinc = ninpfiles = argc - a; /* initialize & sort inputs */ |
| 251 |
|
if (ninpfiles < 2) |
| 252 |
|
goto userr; |
| 253 |
< |
inpfile = (PGINPUT *)malloc(sizeof(PGINPUT)*ninpfiles); |
| 253 |
> |
if (toupper(symmetry[0]) == SYM_UP) /* special case for "up" symmetry */ |
| 254 |
> |
totinc += ninpfiles; |
| 255 |
> |
inpfile = (PGINPUT *)malloc(sizeof(PGINPUT)*totinc); |
| 256 |
|
if (inpfile == NULL) |
| 257 |
|
return(1); |
| 258 |
|
for (i = 0; i < ninpfiles; i++) |
| 259 |
< |
if (!init_pabopto_inp(i, argv[i+1])) |
| 259 |
> |
if (!init_pabopto_inp(i, argv[a+i])) |
| 260 |
|
return(1); |
| 261 |
+ |
|
| 262 |
+ |
for (i = ninpfiles; i < totinc; i++) { /* copy for "up" symmetry */ |
| 263 |
+ |
inpfile[i] = inpfile[i-ninpfiles]; |
| 264 |
+ |
inpfile[i].phi += 180.; /* invert duplicate data */ |
| 265 |
+ |
inpfile[i].up_phi -= 180.; |
| 266 |
+ |
set_grid_pos(&inpfile[i]); /* grid location for sorting */ |
| 267 |
+ |
} |
| 268 |
|
qsort(inpfile, ninpfiles, sizeof(PGINPUT), cmp_indir); |
| 269 |
|
/* compile measurements */ |
| 270 |
< |
for (i = 0; i < ninpfiles; i++) |
| 270 |
> |
for (i = 0; i < totinc; i++) |
| 271 |
|
if (!add_pabopto_inp(i)) |
| 272 |
|
return(1); |
| 273 |
|
make_rbfrep(); /* process last data set */ |
| 274 |
|
/* check input symmetry */ |
| 275 |
|
switch (toupper(symmetry[0])) { |
| 276 |
< |
case 'U': /* unspecified symmetry */ |
| 276 |
> |
case '0': /* unspecified symmetry */ |
| 277 |
|
if (quadrant_sym[inp_coverage] != SYM_ILL) |
| 278 |
|
break; /* anything legal goes */ |
| 279 |
|
fprintf(stderr, "%s: unsupported phi coverage (%s)\n", |
| 280 |
|
progname, quadrant_rep[inp_coverage]); |
| 281 |
|
return(1); |
| 282 |
< |
case SYM_ISO: /* legal symmetry types */ |
| 282 |
> |
case SYM_UP: /* faux "up" symmetry */ |
| 283 |
> |
if (quadrant_sym[inp_coverage] == SYM_ANISO) |
| 284 |
> |
break; |
| 285 |
> |
/* fall through */ |
| 286 |
> |
case SYM_ISO: /* usual symmetry types */ |
| 287 |
|
case SYM_QUAD: |
| 288 |
|
case SYM_BILAT: |
| 289 |
|
case SYM_ANISO: |
| 295 |
|
return(1); |
| 296 |
|
default: |
| 297 |
|
fprintf(stderr, |
| 298 |
< |
"%s: -s option must be Isotropic, Quadrilateral, Bilateral, or Anisotropic\n", |
| 298 |
> |
"%s: -s option must be Isotropic, Quadrilateral, Bilateral, Up, or Anisotropic\n", |
| 299 |
|
progname); |
| 300 |
|
return(1); |
| 301 |
|
} |
| 331 |
|
fprintf(stderr, "Usage: %s input.dat > output.rad\n", progname); |
| 332 |
|
return(1); |
| 333 |
|
} |
| 316 |
– |
ninpfiles = 1; |
| 334 |
|
inpfile = &pginp; |
| 335 |
|
if (!init_pabopto_inp(0, argv[1]) || !add_pabopto_inp(0)) |
| 336 |
|
return(1); |