ViewVC Help

View File | Revision Log | Show Annotations | Download File | Root Listing

root/Development/ray/src/util/rmatrix.c

Comparing ray/src/util/rmatrix.c (file contents):
Revision 2.97 by greg, Fri Apr 18 23:59:03 2025 UTC vs.
Revision 2.101 by greg, Mon Aug 11 22:31:33 2025 UTC

#	Line 20 | Line 20 | static const char      rmx_mismatch_warn[] = "WARNING: data
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));
#	Line 34 | Line 34 | rmx_new(int nr, int nc, int n)
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
#	Line 57 | Line 57 | rmx_prepare(RMATRIX *rm)
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);
#	Line 424 | Line 424 | rmx_load(const char *inspec)
424
425		if (fp != stdin) {                      /* close input stream */
426		if (inspec[0] == '!')
427	<	pclose(fp);
427	>	ok &= pclose(fp)==0;
428		else
429		fclose(fp);
430		}
#	Line 488 | Line 488 | rmx_write_double(const rmx_dtype *dp, int len, FILE *f
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);
#	Line 500 | Line 500 | rmx_write_ascii(const rmx_dtype *dp, int nc, int len,
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]);
#	Line 519 | Line 519 | rmx_write_rgbe(const rmx_dtype *dp, int nc, int len, F
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 */
#	Line 611 | Line 611 | rmx_write_header(const RMATRIX *rm, int dtype, FILE *f
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		}
#	Line 761 | Line 761 | rmx_transpose(RMATRIX *rm)
761		return(1);
762		}
763		if (rm->nrows == rm->ncols) {   /* square matrix case */
764	<	for (i = rm->nrows; i--; )
765	<	for (j = rm->ncols; j--; ) {
766	<	if (i == j) continue;
764	>	for (i = rm->nrows; --i > 0; )
765	>	for (j = i; j-- > 0; ) {
766		memcpy(val, rmx_val(rm,i,j),
767		sizeof(rmx_dtype)*rm->ncomp);
768		memcpy(rmx_lval(rm,i,j), rmx_val(rm,j,i),
769		sizeof(rmx_dtype)*rm->ncomp);
770	<	memcpy(rmx_val(rm,j,i), val,
770	>	memcpy(rmx_lval(rm,j,i), val,
771		sizeof(rmx_dtype)*rm->ncomp);
772		}
773	<	return(1);
773	>	return(1);
774		}
775		#define bmbyte(r,c)     bmap[((r)*rm->ncols+(c))>>3]
776		#define bmbit(r,c)      (1 << ((r)*rm->ncols+(c) & 7))
#	Line 995 | Line 994 | rmx_transform(const RMATRIX *msrc, int n, const double
994		return(dnew);
995		}
996
998	–	/* Convert a color matrix to newly allocated RMATRIX buffer */
999	–	RMATRIX *
1000	–	rmx_from_cmatrix(const CMATRIX *cm)
1001	–	{
1002	–	RMATRIX *dnew;
1003	–
1004	–	if (!cm)
1005	–	return(NULL);
1006	–	dnew = rmx_alloc(cm->nrows, cm->ncols, 3);
1007	–	if (!dnew)
1008	–	return(NULL);
1009	–
1010	–	dnew->dtype = sizeof(COLORV)==sizeof(float) ?
1011	–	DTfloat : DTdouble;
1012	–
1013	–	if (sizeof(COLORV) == sizeof(rmx_dtype)) {
1014	–	memcpy(dnew->mtx, cm->cmem, rmx_array_size(dnew));
1015	–	} else {
1016	–	int     i, j;
1017	–	for (i = dnew->nrows; i--; )
1018	–	for (j = dnew->ncols; j--; ) {
1019	–	const COLORV    *cv = cm_lval(cm,i,j);
1020	–	rmx_dtype       *dp = rmx_lval(dnew,i,j);
1021	–	dp[0] = cv[0];
1022	–	dp[1] = cv[1];
1023	–	dp[2] = cv[2];
1024	–	}
1025	–	}
1026	–	return(dnew);
1027	–	}
1028	–
1029	–	/* Convert general matrix to newly allocated CMATRIX buffer */
1030	–	CMATRIX *
1031	–	cm_from_rmatrix(const RMATRIX *rm)
1032	–	{
1033	–	CMATRIX *cnew;
1034	–
1035	–	if (!rm || !rm->mtx | (rm->ncomp == 2) | (rm->ncomp > MAXCOMP))
1036	–	return(NULL);
1037	–	cnew = cm_alloc(rm->nrows, rm->ncols);
1038	–	if (!cnew)
1039	–	return(NULL);
1040	–	if ((sizeof(COLORV) == sizeof(rmx_dtype)) & (rm->ncomp == 3)) {
1041	–	memcpy(cnew->cmem, rm->mtx, rmx_array_size(rm));
1042	–	} else {
1043	–	int     i, j;
1044	–	for (i = cnew->nrows; i--; )
1045	–	for (j = cnew->ncols; j--; ) {
1046	–	const rmx_dtype *dp = rmx_val(rm,i,j);
1047	–	COLORV          *cv = cm_lval(cnew,i,j);
1048	–	switch (rm->ncomp) {
1049	–	case 3:
1050	–	setcolor(cv, dp[0], dp[1], dp[2]);
1051	–	break;
1052	–	case 1:
1053	–	setcolor(cv, dp[0], dp[0], dp[0]);
1054	–	break;
1055	–	default:
1056	–	if (sizeof(COLORV) == sizeof(rmx_dtype)) {
1057	–	scolor2color(cv, (const COLORV *)dp,
1058	–	rm->ncomp, rm->wlpart);
1059	–	} else {
1060	–	COLORV  scol[MAXCOMP];
1061	–	int     k = rm->ncomp;
1062	–	while (k--) scol[k] = dp[k];
1063	–	scolor2color(cv, scol, rm->ncomp, rm->wlpart);
1064	–	}
1065	–	break;
1066	–	}
1067	–	}
1068	–	}
1069	–	return(cnew);
1070	–	}

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines (old)
>	Changed lines (new)