--- ray/src/gen/xform.c	1991/10/22 13:32:58	1.16
+++ ray/src/gen/xform.c	1992/03/12 11:43:58	2.3
@@ -248,17 +248,17 @@ FILE  *fin;
 				progname, fname, typ);
 		exit(1);
 	}
-	if (issurface(fn))
+	if (ismodifier(fn))
+		printf("\n%s %s ", nam, typ);
+	else
 		printf("\n%s %s ", newmod != NULL ? newmod : nam,
 				invert ? ofun[tinvers[fn]].funame : typ);
-	else
-		printf("\n%s %s ", nam, typ);
 						/* object name */
 	fgetword(nam, sizeof(nam), fin);
-	if (idprefix != NULL && issurface(fn))
-		printf("%s.%s\n", idprefix, nam);
-	else
+	if (idprefix == NULL || ismodifier(fn))
 		printf("%s\n", nam);
+	else
+		printf("%s.%s\n", idprefix, nam);
 						/* transform arguments */
 	if ((*ofun[fn].funp)(fin) < 0) {
 		fprintf(stderr, "%s: (%s): bad %s \"%s\"\n",
@@ -304,14 +304,19 @@ addxform(fin)			/* add xf arguments to strings */
 FILE  *fin;
 {
 	register int  i;
+	int  resetarr = 0;
 	FUNARGS  fa;
 
 	if (readfargs(&fa, fin) != 1)
 		return(-1);
 					/* string arguments */
-	printf("%d", fa.nsargs + xac-xfa);
+	if (xac > xfa && strcmp(xav[xfa], "-i"))
+		resetarr = 2;
+	printf("%d", fa.nsargs + resetarr + xac-xfa);
 	for (i = 0; i < fa.nsargs; i++)
 		printf(" %s", fa.sarg[i]);
+	if (resetarr)
+		printf(" -i 1");
 	for (i = xfa; i < xac; i++)	/* add xf arguments */
 		printf(" %s", xav[i]);
 	printf("\n");
@@ -381,7 +386,7 @@ FILE  *fin;
 m_spot(fin)			/* transform arguments for spotlight */
 FILE  *fin;
 {
-	double  v[3];
+	FVECT  v;
 	FUNARGS  fa;
 
 	if (readfargs(&fa, fin) != 1)
@@ -449,7 +454,7 @@ text(fin)			/* transform text arguments */
 FILE  *fin;
 {
 	int  i;
-	double  v[3];
+	FVECT  v;
 	FUNARGS  fa;
 
 	if (readfargs(&fa, fin) != 1)
@@ -487,7 +492,7 @@ FILE  *fin;
 o_source(fin)			/* transform source arguments */
 FILE  *fin;
 {
-	double  dv[3];
+	FVECT  dv;
 	FUNARGS  fa;
 
 	if (readfargs(&fa, fin) != 1)
@@ -508,7 +513,8 @@ FILE  *fin;
 o_sphere(fin)			/* transform sphere arguments */
 FILE  *fin;
 {
-	double  cent[3], rad;
+	FVECT  cent;
+	double  rad;
 	FUNARGS  fa;
 
 	if (readfargs(&fa, fin) != 1)
@@ -531,7 +537,7 @@ FILE  *fin;
 o_face(fin)			/* transform face arguments */
 FILE  *fin;
 {
-	double  p[3];
+	FVECT  p;
 	register int  i;
 	FUNARGS  fa;
 
@@ -557,7 +563,8 @@ FILE  *fin;
 o_cone(fin)			/* transform cone and cup arguments */
 FILE  *fin;
 {
-	double  p0[3], p1[3], r0, r1;
+	FVECT  p0, p1;
+	double  r0, r1;
 	FUNARGS  fa;
 
 	if (readfargs(&fa, fin) != 1)
@@ -583,7 +590,8 @@ FILE  *fin;
 o_cylinder(fin)			/* transform cylinder and tube arguments */
 FILE  *fin;
 {
-	double  p0[3], p1[3], rad;
+	FVECT  p0, p1;
+	double  rad;
 	FUNARGS  fa;
 
 	if (readfargs(&fa, fin) != 1)
@@ -607,7 +615,8 @@ FILE  *fin;
 o_ring(fin)			/* transform ring arguments */
 FILE  *fin;
 {
-	double  p0[3], pd[3], r0, r1;
+	FVECT  p0, pd;
+	double  r0, r1;
 	FUNARGS  fa;
 
 	if (readfargs(&fa, fin) != 1)