| 20 |
|
|
| 21 |
|
/* Initialize a RMATRIX struct but don't allocate array space */ |
| 22 |
|
RMATRIX * |
| 23 |
< |
rmx_new(int nr, int nc, int n) |
| 23 |
> |
rmx_new(int nr, int nc, int ncomp) |
| 24 |
|
{ |
| 25 |
|
RMATRIX *dnew; |
| 26 |
|
|
| 27 |
< |
if (n <= 0) |
| 27 |
> |
if (ncomp <= 0) |
| 28 |
|
return(NULL); |
| 29 |
|
|
| 30 |
|
dnew = (RMATRIX *)calloc(1, sizeof(RMATRIX)); |
| 34 |
|
dnew->dtype = DTrmx_native; |
| 35 |
|
dnew->nrows = nr; |
| 36 |
|
dnew->ncols = nc; |
| 37 |
< |
dnew->ncomp = n; |
| 37 |
> |
dnew->ncomp = ncomp; |
| 38 |
|
setcolor(dnew->cexp, 1.f, 1.f, 1.f); |
| 39 |
|
memcpy(dnew->wlpart, WLPART, sizeof(dnew->wlpart)); |
| 40 |
|
|
| 57 |
|
|
| 58 |
|
/* Call rmx_new() and rmx_prepare() */ |
| 59 |
|
RMATRIX * |
| 60 |
< |
rmx_alloc(int nr, int nc, int n) |
| 60 |
> |
rmx_alloc(int nr, int nc, int ncomp) |
| 61 |
|
{ |
| 62 |
< |
RMATRIX *dnew = rmx_new(nr, nc, n); |
| 62 |
> |
RMATRIX *dnew = rmx_new(nr, nc, ncomp); |
| 63 |
|
|
| 64 |
|
if (!rmx_prepare(dnew)) { |
| 65 |
|
rmx_free(dnew); |
| 488 |
|
#endif |
| 489 |
|
|
| 490 |
|
static int |
| 491 |
< |
rmx_write_ascii(const rmx_dtype *dp, int nc, int len, FILE *fp) |
| 491 |
> |
rmx_write_ascii(const rmx_dtype *dp, int ncomp, int len, FILE *fp) |
| 492 |
|
{ |
| 493 |
|
while (len-- > 0) { |
| 494 |
< |
int k = nc; |
| 494 |
> |
int k = ncomp; |
| 495 |
|
while (k-- > 0) |
| 496 |
|
fprintf(fp, " %.7e", *dp++); |
| 497 |
|
fputc('\t', fp); |
| 500 |
|
} |
| 501 |
|
|
| 502 |
|
static int |
| 503 |
< |
rmx_write_rgbe(const rmx_dtype *dp, int nc, int len, FILE *fp) |
| 503 |
> |
rmx_write_rgbe(const rmx_dtype *dp, int ncomp, int len, FILE *fp) |
| 504 |
|
{ |
| 505 |
|
COLR *scan; |
| 506 |
|
int j; |
| 507 |
|
|
| 508 |
< |
if ((nc != 1) & (nc != 3)) return(0); |
| 508 |
> |
if ((ncomp != 1) & (ncomp != 3)) return(0); |
| 509 |
|
scan = (COLR *)tempbuffer(sizeof(COLR)*len); |
| 510 |
|
if (!scan) return(0); |
| 511 |
|
|
| 512 |
< |
for (j = 0; j < len; j++, dp += nc) |
| 513 |
< |
if (nc == 1) |
| 512 |
> |
for (j = 0; j < len; j++, dp += ncomp) |
| 513 |
> |
if (ncomp == 1) |
| 514 |
|
setcolr(scan[j], dp[0], dp[0], dp[0]); |
| 515 |
|
else |
| 516 |
|
setcolr(scan[j], dp[0], dp[1], dp[2]); |
| 519 |
|
} |
| 520 |
|
|
| 521 |
|
static int |
| 522 |
< |
rmx_write_spec(const rmx_dtype *dp, int nc, int len, FILE *fp) |
| 522 |
> |
rmx_write_spec(const rmx_dtype *dp, int ncomp, int len, FILE *fp) |
| 523 |
|
{ |
| 524 |
|
COLRV *scan; |
| 525 |
|
COLORV scol[MAXCOMP]; |
| 526 |
|
int j, k; |
| 527 |
|
|
| 528 |
< |
if ((nc < 3) | (nc > MAXCOMP)) return(0); |
| 529 |
< |
scan = (COLRV *)tempbuffer((nc+1)*len); |
| 528 |
> |
if ((ncomp < 3) | (ncomp > MAXCOMP)) return(0); |
| 529 |
> |
scan = (COLRV *)tempbuffer((ncomp+1)*len); |
| 530 |
|
if (!scan) return(0); |
| 531 |
< |
for (j = 0; j < len; j++, dp += nc) { |
| 532 |
< |
for (k = nc; k--; ) |
| 531 |
> |
for (j = 0; j < len; j++, dp += ncomp) { |
| 532 |
> |
for (k = ncomp; k--; ) |
| 533 |
|
scol[k] = dp[k]; |
| 534 |
< |
scolor2scolr(scan+j*(nc+1), scol, nc); |
| 534 |
> |
scolor2scolr(scan+j*(ncomp+1), scol, ncomp); |
| 535 |
|
} |
| 536 |
< |
return(fwritescolrs(scan, nc, len, fp) >= 0); |
| 536 |
> |
return(fwritescolrs(scan, ncomp, len, fp) >= 0); |
| 537 |
|
} |
| 538 |
|
|
| 539 |
|
/* Check if CIE XYZ primaries were specified */ |
| 611 |
|
|
| 612 |
|
/* Write out matrix data (usually by row) */ |
| 613 |
|
int |
| 614 |
< |
rmx_write_data(const rmx_dtype *dp, int nc, int len, int dtype, FILE *fp) |
| 614 |
> |
rmx_write_data(const rmx_dtype *dp, int ncomp, int len, int dtype, FILE *fp) |
| 615 |
|
{ |
| 616 |
|
switch (dtype) { |
| 617 |
|
#if DTrmx_native==DTdouble |
| 618 |
|
case DTfloat: |
| 619 |
< |
return(rmx_write_float(dp, nc*len, fp)); |
| 619 |
> |
return(rmx_write_float(dp, ncomp*len, fp)); |
| 620 |
|
#else |
| 621 |
|
case DTdouble: |
| 622 |
< |
return(rmx_write_double(dp, nc*len, fp)); |
| 622 |
> |
return(rmx_write_double(dp, ncomp*len, fp)); |
| 623 |
|
#endif |
| 624 |
|
case DTrmx_native: |
| 625 |
< |
return(putbinary(dp, sizeof(*dp)*nc, len, fp) == len); |
| 625 |
> |
return(putbinary(dp, sizeof(*dp)*ncomp, len, fp) == len); |
| 626 |
|
case DTascii: |
| 627 |
< |
return(rmx_write_ascii(dp, nc, len, fp)); |
| 627 |
> |
return(rmx_write_ascii(dp, ncomp, len, fp)); |
| 628 |
|
case DTrgbe: |
| 629 |
|
case DTxyze: |
| 630 |
< |
return(rmx_write_rgbe(dp, nc, len, fp)); |
| 630 |
> |
return(rmx_write_rgbe(dp, ncomp, len, fp)); |
| 631 |
|
case DTspec: |
| 632 |
< |
return(rmx_write_spec(dp, nc, len, fp)); |
| 632 |
> |
return(rmx_write_spec(dp, ncomp, len, fp)); |
| 633 |
|
} |
| 634 |
|
return(0); |
| 635 |
|
} |