--- ray/src/cv/tmesh2rad.c	1994/02/18 13:11:35	2.3
+++ ray/src/cv/tmesh2rad.c	2003/02/22 02:07:23	2.10
@@ -1,9 +1,6 @@
-/* Copyright (c) 1994 Regents of the University of California */
-
 #ifndef lint
-static char SCCSid[] = "$SunId$ LBL";
+static const char	RCSid[] = "$Id: tmesh2rad.c,v 2.10 2003/02/22 02:07:23 greg Exp $";
 #endif
-
 /*
  * Convert a trianglular mesh into a Radiance description.
  *
@@ -34,9 +31,10 @@ static char SCCSid[] = "$SunId$ LBL";
 
 #include "standard.h"
 
+#include "tmesh.h"
+
 #define VOIDID		"void"		/* this is defined in object.h */
 
-#define CALNAME		"tmesh.cal"	/* the name of our auxiliary file */
 #define PATNAME		"T-pat"		/* triangle pattern name (reused) */
 #define TEXNAME		"T-nor"		/* triangle texture name (reused) */
 
@@ -54,8 +52,6 @@ typedef struct {
 VERTEX	*vlist = NULL;		/* our vertex list */
 int	nverts = 0;		/* number of vertices in our list */
 
-typedef FLOAT	BARYCCM[3][4];
-
 #define novert(i)	((i)<0|(i)>=nverts || !(vlist[i].flags&V_DEFINED))
 
 #define CHUNKSIZ	128	/* vertex allocation chunk size */
@@ -205,33 +201,39 @@ register VERTEX	*v1, *v2, *v3;
 {
 	static int	ntri = 0;
 	BARYCCM	bvecs;
+	FLOAT	bvm[3][3];
+	register int	i;
 					/* compute barycentric coordinates */
 	if (v1->flags & v2->flags & v3->flags & (V_HASINDX|V_HASNORM))
-		if (comp_baryc(bvecs, v1->pos, v2->pos, v3->pos) < 0)
+		if (comp_baryc(&bvecs, v1->pos, v2->pos, v3->pos) < 0)
 			return;
 					/* put out texture (if any) */
-	if (v1->flags & v2->flags & v3->flags & V_HASNORM) {
+	if (v1->flags & v2->flags & v3->flags & V_HASNORM &&
+			!flat_tri(v1->pos, v2->pos, v3->pos,
+					v1->nor, v2->nor, v3->nor)) {
 		printf("\n%s texfunc %s\n", mod, TEXNAME);
 		mod = TEXNAME;
-		printf("4 dx dy dz %s\n", CALNAME);
-		printf("0\n21\n");
-		put_baryc(bvecs);
-		printf("\t%14.12g %14.12g %14.12g\n",
-				v1->nor[0], v2->nor[0], v3->nor[0]);
-		printf("\t%14.12g %14.12g %14.12g\n",
-				v1->nor[1], v2->nor[1], v3->nor[1]);
-		printf("\t%14.12g %14.12g %14.12g\n",
-				v1->nor[2], v2->nor[2], v3->nor[2]);
+		printf("4 dx dy dz %s\n", TCALNAME);
+		printf("0\n");
+		for (i = 0; i < 3; i++) {
+			bvm[i][0] = v1->nor[i];
+			bvm[i][1] = v2->nor[i];
+			bvm[i][2] = v3->nor[i];
+		}
+		put_baryc(&bvecs, bvm, 3);
 	}
 					/* put out pattern (if any) */
 	if (*pn && (v1->flags & v2->flags & v3->flags & V_HASINDX)) {
 		printf("\n%s colorpict %s\n", mod, PATNAME);
 		mod = PATNAME;
-		printf("7 noneg noneg noneg %s %s u v\n", pn, CALNAME);
-		printf("0\n18\n");
-		put_baryc(bvecs);
-		printf("\t%f %f %f\n", v1->ndx[0], v2->ndx[0], v3->ndx[0]);
-		printf("\t%f %f %f\n", v1->ndx[1], v2->ndx[1], v3->ndx[1]);
+		printf("7 noneg noneg noneg %s %s u v\n", pn, TCALNAME);
+		printf("0\n");
+		for (i = 0; i < 2; i++) {
+			bvm[i][0] = v1->ndx[i];
+			bvm[i][1] = v2->ndx[i];
+			bvm[i][2] = v3->ndx[i];
+		}
+		put_baryc(&bvecs, bvm, 2);
 	}
 					/* put out triangle */
 	printf("\n%s polygon %s.%d\n", mod, obj, ++ntri);
@@ -242,56 +244,6 @@ register VERTEX	*v1, *v2, *v3;
 }
 
 
-int
-comp_baryc(bcm, v1, v2, v3)		/* compute barycentric vectors */
-register BARYCCM	bcm;
-FLOAT	*v1, *v2, *v3;
-{
-	FLOAT	*vt;
-	FVECT	va, vab, vcb;
-	double	d;
-	register int	i, j;
-
-	for (j = 0; j < 3; j++) {
-		for (i = 0; i < 3; i++) {
-			vab[i] = v1[i] - v2[i];
-			vcb[i] = v3[i] - v2[i];
-		}
-		d = DOT(vcb,vcb);
-		if (d <= FTINY)
-			return(-1);
-		d = DOT(vcb,vab)/d;
-		for (i = 0; i < 3; i++)
-			va[i] = vab[i] - vcb[i]*d;
-		d = DOT(va,va);
-		if (d <= FTINY)
-			return(-1);
-		for (i = 0; i < 3; i++) {
-			va[i] /= d;
-			bcm[j][i] = va[i];
-		}
-		bcm[j][3] = -DOT(v2,va);
-					/* rotate vertices */
-		vt = v1;
-		v1 = v2;
-		v2 = v3;
-		v3 = vt;
-	}
-	return(0);
-}
-
-
-put_baryc(bcm)				/* put barycentric coord. vectors */
-register BARYCCM	bcm;
-{
-	register int	i;
-
-	for (i = 0; i < 3; i++)
-		printf("%14.8f %14.8f %14.8f %14.8f\n",
-				bcm[i][0], bcm[i][1], bcm[i][2], bcm[i][3]);
-}
-
-
 VERTEX *
 vnew(id, x, y, z)			/* create a new vertex */
 register int	id;
@@ -299,9 +251,9 @@ double	x, y, z;
 {
 	register int	i;
 
-	if (id > nverts) {		/* get some more */
+	if (id >= nverts) {		/* get some more */
 		i = nverts;
-		nverts = CHUNKSIZ*((id%CHUNKSIZ)+1);
+		nverts = CHUNKSIZ*((id/CHUNKSIZ)+1);
 		if (vlist == NULL)
 			vlist = (VERTEX *)malloc(nverts*sizeof(VERTEX));
 		else