611 |
|
for (k = rm->ncomp; k--; ) |
612 |
|
rmx_lval(rm,i,j,k) *= sf[k]; |
613 |
|
|
614 |
+ |
if (rm->info) |
615 |
+ |
rmx_addinfo(rm, "Applied scalar\n"); |
616 |
|
return(1); |
617 |
|
} |
618 |
|
|
628 |
|
dnew = rmx_alloc(msrc->nrows, msrc->ncols, n); |
629 |
|
if (dnew == NULL) |
630 |
|
return(NULL); |
631 |
+ |
if (msrc->info) { |
632 |
+ |
char buf[128]; |
633 |
+ |
sprintf(buf, "Applied %dx%d matrix transform\n", |
634 |
+ |
dnew->ncomp, msrc->ncomp); |
635 |
+ |
rmx_addinfo(dnew, msrc->info); |
636 |
+ |
rmx_addinfo(dnew, buf); |
637 |
+ |
} |
638 |
|
dnew->dtype = msrc->dtype; |
639 |
|
for (i = dnew->nrows; i--; ) |
640 |
|
for (j = dnew->ncols; j--; ) |