--- ray/src/rt/func.c	1990/12/15 15:03:26	1.12
+++ ray/src/rt/func.c	1991/08/08 15:41:14	1.22
@@ -1,4 +1,4 @@
-/* Copyright (c) 1990 Regents of the University of California */
+/* Copyright (c) 1991 Regents of the University of California */
 
 #ifndef lint
 static char SCCSid[] = "$SunId$ LBL";
@@ -15,6 +15,17 @@ static char SCCSid[] = "$SunId$ LBL";
 #include  "otypes.h"
 
 
+#define  INITFILE	"rayinit.cal"
+#define  DEFVNAME	"FILE_LOADED`"
+
+XF  unitxf = {			/* identity transform */
+	1.0, 0.0, 0.0, 0.0,
+	0.0, 1.0, 0.0, 0.0,
+	0.0, 0.0, 1.0, 0.0,
+	0.0, 0.0, 0.0, 1.0,
+	1.0
+};
+
 XF  funcxf;			/* current transformation */
 static OBJREC  *fobj = NULL;	/* current function object */
 static RAY  *fray = NULL;	/* current function ray */
@@ -25,43 +36,24 @@ OBJREC  *m;
 register RAY  *r;
 XF  *bx;
 {
-	extern double  l_noise3(), l_noise3a(), l_noise3b(), l_noise3c();
-	extern double  l_hermite(), l_fnoise3(), l_arg();
 	extern long  eclock;
-	static char  *initfile = "rayinit.cal";
 	static long  lastrno = -1;
 					/* check to see if already set */
 	if (m == fobj && r->rno == lastrno)
-		return;
-					/* initialize if first call */
-	if (initfile != NULL) {
-		loadfunc(initfile);
-		scompile("Dx=$1;Dy=$2;Dz=$3;", NULL, 0);
-		scompile("Nx=$4;Ny=$5;Nz=$6;", NULL, 0);
-		scompile("Px=$7;Py=$8;Pz=$9;", NULL, 0);
-		scompile("T=$10;Rdot=$11;", NULL, 0);
-		scompile("S=$12;Tx=$13;Ty=$14;Tz=$15;", NULL, 0);
-		scompile("Ix=$16;Iy=$17;Iz=$18;", NULL, 0);
-		scompile("Jx=$19;Jy=$20;Jz=$21;", NULL, 0);
-		scompile("Kx=$22;Ky=$23;Kz=$24;", NULL, 0);
-		funset("arg", 1, l_arg);
-		funset("noise3", 3, l_noise3);
-		funset("noise3a", 3, l_noise3a);
-		funset("noise3b", 3, l_noise3b);
-		funset("noise3c", 3, l_noise3c);
-		funset("hermite", 5, l_hermite);
-		funset("fnoise3", 3, l_fnoise3);
-		initfile = NULL;
-	}
+		return(0);
 	fobj = m;
 	fray = r;
-	lastrno = r->rno;
-	if (r->rox != NULL) {
-		funcxf.sca = r->rox->b.sca * bx->sca;
-		multmat4(funcxf.xfm, r->rox->b.xfm, bx->xfm);
-	} else
+	if (r->rox != NULL)
+		if (bx != &unitxf) {
+			funcxf.sca = r->rox->b.sca * bx->sca;
+			multmat4(funcxf.xfm, r->rox->b.xfm, bx->xfm);
+		} else
+			copystruct(&funcxf, &r->rox->b);
+	else
 		copystruct(&funcxf, bx);
+	lastrno = r->rno;
 	eclock++;		/* notify expression evaluator */
+	return(1);
 }
 
 
@@ -78,17 +70,20 @@ RAY  *r;
 		for (n = m->oargs.nsargs, sa = m->oargs.sarg;
 				n > 0 && **sa != '-'; n--, sa++)
 			;
-		mxf = (XF *)malloc(sizeof(XF));
-		if (mxf == NULL)
-			goto memerr;
-		if (invxf(mxf, n, sa) != n)
-			objerror(m, USER, "bad transform");
-		if (mxf->sca < 0.0)
-			mxf->sca = -mxf->sca;
+		if (n == 0)
+			mxf = &unitxf;
+		else {
+			mxf = (XF *)malloc(sizeof(XF));
+			if (mxf == NULL)
+				goto memerr;
+			if (invxf(mxf, n, sa) != n)
+				objerror(m, USER, "bad transform");
+			if (mxf->sca < 0.0)
+				mxf->sca = -mxf->sca;
+		}
 		m->os = (char *)mxf;
 	}
-	setmap(m, r, mxf);
-	return;
+	return(setmap(m, r, mxf));
 memerr:
 	error(SYSTEM, "out of memory in setfunc");
 }
@@ -128,6 +123,59 @@ l_arg()				/* return nth real argument */
 
 
 double
+l_erf()				/* error function */
+{
+	extern double  erf();
+
+	return(erf(argument(1)));
+}
+
+
+double
+l_erfc()			/* cumulative error function */
+{
+	extern double  erfc();
+
+	return(erfc(argument(1)));
+}
+
+
+funcfile(fname)			/* set context, load file if necessary */
+register char  *fname;
+{
+	extern char  *setcontext();
+	static char  initfile[] = INITFILE;
+
+	if (initfile[0]) {		/* initialize on first call */
+		setcontext("");
+		scompile("Dx=$1;Dy=$2;Dz=$3;", NULL, 0);
+		scompile("Nx=$4;Ny=$5;Nz=$6;", NULL, 0);
+		scompile("Px=$7;Py=$8;Pz=$9;", NULL, 0);
+		scompile("T=$10;Rdot=$11;", NULL, 0);
+		scompile("S=$12;Tx=$13;Ty=$14;Tz=$15;", NULL, 0);
+		scompile("Ix=$16;Iy=$17;Iz=$18;", NULL, 0);
+		scompile("Jx=$19;Jy=$20;Jz=$21;", NULL, 0);
+		scompile("Kx=$22;Ky=$23;Kz=$24;", NULL, 0);
+		funset("arg", 1, '=', l_arg);
+		funset("erf", 1, ':', l_erf);
+		funset("erfc", 1, ':', l_erfc);
+		setnoisefuncs();
+		loadfunc(initfile);
+		initfile[0] = '\0';
+	}
+	if (fname[0] == '.' && fname[1] == '\0')
+		setcontext("");			/* "." means no file */
+	else {
+		setcontext(fname);
+		if (!vardefined(DEFVNAME)) {
+			loadfunc(fname);
+			varset(DEFVNAME, ':', 1.0);
+		}
+	}
+}
+
+
+double
 chanvalue(n)			/* return channel n to calcomp */
 register int  n;
 {
@@ -166,8 +214,10 @@ register int  n;
 		return(sum * funcxf.sca);
 
 	}
-	if (n == 10)			/* dot product */
-		return(fray->rod);
+	if (n == 10)			/* dot product (range [-1,1]) */
+		return(	fray->rod <= -1.0 ? -1.0 :
+			fray->rod >= 1.0 ? 1.0 :
+			fray->rod );
 
 	if (n == 11)			/* scale */
 		return(funcxf.sca);