| 374 |
|
fp = stdin; |
| 375 |
|
else if (inspec[0] == '!') |
| 376 |
|
fp = popen(inspec+1, "r"); |
| 377 |
< |
else if (rmp != RMPnone) { |
| 377 |
> |
else { |
| 378 |
|
const char *sp = inspec; /* check suffix */ |
| 379 |
|
while (*sp) |
| 380 |
|
++sp; |
| 381 |
|
while (sp > inspec && sp[-1] != '.') |
| 382 |
|
--sp; |
| 383 |
|
if (!strcasecmp(sp, "XML")) { /* assume it's a BSDF */ |
| 384 |
< |
CMATRIX *cm = rmp==RMPtrans ? cm_loadBTDF(inspec) : |
| 384 |
> |
CMATRIX *cm = rmp==RMPnone ? (CMATRIX *)NULL : |
| 385 |
> |
rmp==RMPtrans ? cm_loadBTDF(inspec) : |
| 386 |
|
cm_loadBRDF(inspec, rmp==RMPreflB) ; |
| 387 |
|
if (!cm) |
| 388 |
|
return(NULL); |
| 450 |
|
{ |
| 451 |
|
while (len-- > 0) { |
| 452 |
|
int k = nc; |
| 453 |
< |
while (nc-- > 0) |
| 453 |
> |
while (k-- > 0) |
| 454 |
|
fprintf(fp, " %.7e", *dp++); |
| 455 |
|
fputc('\t', fp); |
| 456 |
|
} |
| 528 |
|
int |
| 529 |
|
rmx_write_header(const RMATRIX *rm, int dtype, FILE *fp) |
| 530 |
|
{ |
| 531 |
< |
if (!rm | !fp || !rm->mtx | (rm->ncols <= 0)) |
| 531 |
> |
if (!rm | !fp || rm->ncols <= 0) |
| 532 |
|
return(0); |
| 533 |
|
if (rm->info) |
| 534 |
|
fputs(rm->info, fp); |