| 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--; ) |