81 |
|
get_dminfo(char *s, void *p) |
82 |
|
{ |
83 |
|
RMATRIX *ip = (RMATRIX *)p; |
84 |
< |
char fmt[64]; |
84 |
> |
char fmt[MAXFMTLEN]; |
85 |
|
int i; |
86 |
|
|
87 |
|
if (headidval(fmt, s)) |
290 |
|
static int |
291 |
|
rmx_write_ascii(const RMATRIX *rm, FILE *fp) |
292 |
|
{ |
293 |
+ |
const char *fmt = (rm->dtype == DTfloat) ? " %.7e" : |
294 |
+ |
(rm->dtype == DTrgbe) | (rm->dtype == DTxyze) ? " %.3e" : |
295 |
+ |
" %.15e" ; |
296 |
|
int i, j, k; |
297 |
|
|
298 |
|
for (i = 0; i < rm->nrows; i++) { |
299 |
|
for (j = 0; j < rm->ncols; j++) { |
300 |
|
for (k = 0; k < rm->ncomp; k++) |
301 |
< |
fprintf(fp, " %.15e", rmx_lval(rm,i,j,k)); |
301 |
> |
fprintf(fp, fmt, rmx_lval(rm,i,j,k)); |
302 |
|
fputc('\t', fp); |
303 |
|
} |
304 |
|
fputc('\n', fp); |
341 |
|
static int |
342 |
|
rmx_write_rgbe(const RMATRIX *rm, FILE *fp) |
343 |
|
{ |
344 |
< |
COLOR *scan = (COLOR *)malloc(sizeof(COLOR)*rm->ncols); |
344 |
> |
COLR *scan = (COLR *)malloc(sizeof(COLR)*rm->ncols); |
345 |
|
int i, j; |
346 |
|
|
347 |
|
if (scan == NULL) |
348 |
|
return(0); |
349 |
|
for (i = 0; i < rm->nrows; i++) { |
350 |
|
for (j = rm->ncols; j--; ) |
351 |
< |
setcolor(scan[j], rmx_lval(rm,i,j,0), |
351 |
> |
setcolr(scan[j], rmx_lval(rm,i,j,0), |
352 |
|
rmx_lval(rm,i,j,1), |
353 |
|
rmx_lval(rm,i,j,2) ); |
354 |
< |
if (fwritescan(scan, rm->ncols, fp) < 0) { |
354 |
> |
if (fwritecolrs(scan, rm->ncols, fp) < 0) { |
355 |
|
free(scan); |
356 |
|
return(0); |
357 |
|
} |
466 |
|
|
467 |
|
if (rm == NULL) |
468 |
|
return(0); |
469 |
+ |
if ((rm->nrows == 1) | (rm->ncols == 1)) { |
470 |
+ |
dnew = rmx_copy(rm); |
471 |
+ |
dnew->nrows = rm->ncols; |
472 |
+ |
dnew->ncols = rm->nrows; |
473 |
+ |
return(dnew); |
474 |
+ |
} |
475 |
|
dnew = rmx_alloc(rm->ncols, rm->nrows, rm->ncomp); |
476 |
|
if (dnew == NULL) |
477 |
|
return(NULL); |
620 |
|
for (k = rm->ncomp; k--; ) |
621 |
|
rmx_lval(rm,i,j,k) *= sf[k]; |
622 |
|
|
623 |
+ |
if (rm->info) |
624 |
+ |
rmx_addinfo(rm, "Applied scalar\n"); |
625 |
|
return(1); |
626 |
|
} |
627 |
|
|
637 |
|
dnew = rmx_alloc(msrc->nrows, msrc->ncols, n); |
638 |
|
if (dnew == NULL) |
639 |
|
return(NULL); |
640 |
+ |
if (msrc->info) { |
641 |
+ |
char buf[128]; |
642 |
+ |
sprintf(buf, "Applied %dx%d matrix transform\n", |
643 |
+ |
dnew->ncomp, msrc->ncomp); |
644 |
+ |
rmx_addinfo(dnew, msrc->info); |
645 |
+ |
rmx_addinfo(dnew, buf); |
646 |
+ |
} |
647 |
|
dnew->dtype = msrc->dtype; |
648 |
|
for (i = dnew->nrows; i--; ) |
649 |
|
for (j = dnew->ncols; j--; ) |