--- ray/src/cv/mgf2rad.c	1994/07/01 18:06:36	2.6
+++ ray/src/cv/mgf2rad.c	1994/07/21 17:23:43	2.10
@@ -17,9 +17,11 @@ static char SCCSid[] = "$SunId$ LBL";
 
 #define putv(v)		printf("%18.12g %18.12g %18.12g\n",(v)[0],(v)[1],(v)[2])
 
+#define invert		(xf_context != NULL && xf_context->rev)
+
 double	glowdist = FHUGE;		/* glow test distance */
 
-double  emult = 1.;			/* emmitter multiplier */
+double  emult = 1.;			/* emitter multiplier */
 
 int	r_comment(), r_cone(), r_cyl(), r_face(), r_ies(), r_ring(), r_sph();
 char	*material(), *object(), *addarg();
@@ -61,13 +63,13 @@ char	*argv[];
 		printf(" %s", argv[i]);
 		switch (argv[i][1]) {
 		case 'g':			/* glow distance (meters) */
-			if (argv[i][2] || badarg(argc-i, argv+i, "f"))
+			if (argv[i][2] || badarg(argc-i-1, argv+i+1, "f"))
 				goto userr;
 			glowdist = atof(argv[++i]);
 			printf(" %s", argv[i]);
 			break;
 		case 'e':			/* emitter multiplier */
-			if (argv[i][2] || badarg(argc-i, argv+i, "f"))
+			if (argv[i][2] || badarg(argc-i-1, argv+i+1, "f"))
 				goto userr;
 			emult = atof(argv[++i]);
 			printf(" %s", argv[i]);
@@ -100,7 +102,7 @@ r_comment(ac, av)		/* repeat a comment verbatim */
 register int	ac;
 register char	**av;
 {
-	fputs("\n#", stdout);	/* use Radiance comment character */
+	putchar('#');		/* use Radiance comment character */
 	while (--ac) {
 		putchar(' ');
 		fputs(*++av, stdout);
@@ -293,7 +295,7 @@ char	**av;
 	printf("\n%s polygon %sf%d\n", mat, object(), ++nfaces);
 	printf("0\n0\n%d\n", 3*(ac-1));
 	for (i = 1; i < ac; i++) {
-		if ((cv = c_getvert(av[i])) == NULL)
+		if ((cv = c_getvert(av[invert ? ac-i : i])) == NULL)
 			return(MG_EUNDEF);
 		xf_xfmpoint(v, cv->p);
 		putv(v);
@@ -367,9 +369,14 @@ char	*mat, *vn1, *vn2, *vn3;
 	FVECT	n1, n2, n3;
 	register int	i;
 			/* the following is repeat code, so assume it's OK */
-	cv1 = c_getvert(vn1);
 	cv2 = c_getvert(vn2);
-	cv3 = c_getvert(vn3);
+	if (invert) {
+		cv3 = c_getvert(vn1);
+		cv1 = c_getvert(vn3);
+	} else {
+		cv1 = c_getvert(vn1);
+		cv3 = c_getvert(vn3);
+	}
 	xf_xfmpoint(v1, cv1->p);
 	xf_xfmpoint(v2, cv2->p);
 	xf_xfmpoint(v3, cv3->p);
@@ -426,7 +433,7 @@ material()			/* get (and print) current material */
 	}
 	d = c_cmaterial->rd + c_cmaterial->td +
 			c_cmaterial->rs + c_cmaterial->ts;
-	if (d <= 0. | d >= 1.)
+	if (d < 0. | d > 1.)
 		return(NULL);
 					/* check for trans */
 	if (c_cmaterial->td > .01 || c_cmaterial->ts > .01) {
@@ -435,8 +442,10 @@ material()			/* get (and print) current material */
 		if (c_cmaterial->sided) {
 			ts = sqrt(c_cmaterial->ts);	/* approximate */
 			a5 = .5;
-		} else
+		} else {
+			ts = c_cmaterial->ts;
 			a5 = 1.;
+		}
 						/* average colors */
 		d = c_cmaterial->rd + c_cmaterial->td + ts;
 		cvtcolor(radrgb, &c_cmaterial->rd_c, c_cmaterial->rd/d);
@@ -450,10 +459,11 @@ material()			/* get (and print) current material */
 					(c_cmaterial->rs + ts);
 		a6 = (c_cmaterial->td + ts) /
 				(c_cmaterial->rd + c_cmaterial->td + ts);
-		if (a6 < .999) {
+		if (a6 < .999)
 			d = c_cmaterial->rd/(1. - c_cmaterial->rs)/(1. - a6);
-			scalecolor(radrgb, d);
-		}
+		else
+			d = c_cmaterial->td + ts;
+		scalecolor(radrgb, d);
 		printf("\nvoid trans %s\n0\n0\n", mname);
 		printf("7 %f %f %f\n", colval(radrgb,RED),
 				colval(radrgb,GRN), colval(radrgb,BLU));
@@ -462,11 +472,9 @@ material()			/* get (and print) current material */
 		return(mname);
 	}
 					/* check for plastic */
-	if (c_cmaterial->rs < .01 || c_isgrey(&c_cmaterial->rs_c)) {
-		if (c_cmaterial->rs > .999)
-			cvtcolor(radrgb, &c_cmaterial->rd_c, 1.);
-		else
-			cvtcolor(radrgb, &c_cmaterial->rd_c,
+	if (c_cmaterial->rs < .1 && (c_cmaterial->rs < .01 ||
+					c_isgrey(&c_cmaterial->rs_c))) {
+		cvtcolor(radrgb, &c_cmaterial->rd_c,
 					c_cmaterial->rd/(1.-c_cmaterial->rs));
 		printf("\nvoid plastic %s\n0\n0\n", mname);
 		printf("5 %f %f %f %f %f\n", colval(radrgb,RED),
@@ -475,18 +483,15 @@ material()			/* get (and print) current material */
 		return(mname);
 	}
 					/* else it's metal */
-	d = c_cmaterial->rd + c_cmaterial->rs;	/* average colors */
-	cvtcolor(radrgb, &c_cmaterial->rd_c, c_cmaterial->rd/d);
-	cvtcolor(c2, &c_cmaterial->rs_c, c_cmaterial->rs/d);
+						/* average colors */
+	cvtcolor(radrgb, &c_cmaterial->rd_c, c_cmaterial->rd);
+	cvtcolor(c2, &c_cmaterial->rs_c, c_cmaterial->rs);
 	addcolor(radrgb, c2);
-	if (c_cmaterial->rs < .999) {
-		d = c_cmaterial->rd/(1. - c_cmaterial->rs);
-		scalecolor(radrgb, d);
-	}
 	printf("\nvoid metal %s\n0\n0\n", mname);
 	printf("5 %f %f %f %f %f\n", colval(radrgb,RED),
 			colval(radrgb,GRN), colval(radrgb,BLU),
-			c_cmaterial->rs, c_cmaterial->rs_a);
+			c_cmaterial->rs/(c_cmaterial->rd + c_cmaterial->rs),
+			c_cmaterial->rs_a);
 	return(mname);
 }