--- ray/src/rt/noise3.c	1993/03/08 12:37:25	2.3
+++ ray/src/rt/noise3.c	2003/08/04 22:37:53	2.8
@@ -1,19 +1,17 @@
-/* Copyright (c) 1988 Regents of the University of California */
-
 #ifndef lint
-static char SCCSid[] = "$SunId$ LBL";
+static const char	RCSid[] = "$Id: noise3.c,v 2.8 2003/08/04 22:37:53 greg Exp $";
 #endif
-
 /*
  *  noise3.c - noise functions for random textures.
  *
  *     Credit for the smooth algorithm goes to Ken Perlin.
  *     (ref. SIGGRAPH Vol 19, No 3, pp 287-96)
- *
- *     4/15/86
- *     5/19/88	Added fractal noise function
  */
 
+#include "copyright.h"
+
+#include  "calcomp.h"
+
 #include  <math.h>
 
 #define  A		0
@@ -36,17 +34,17 @@ static char SCCSid[] = "$SunId$ LBL";
 					r0*hpoly3(t) + \
 					r1*hpoly4(t) )
 
-static char  noise_name[4][8] = {"noise3a", "noise3b", "noise3c", "noise3"};
+static char  noise_name[4][8] = {"noise3x", "noise3y", "noise3z", "noise3"};
 static char  fnoise_name[] = "fnoise3";
 static char  hermite_name[] = "hermite";
 
-double  *noise3(), fnoise3(), argument(), frand();
+double  *noise3(), fnoise3(), frand();
 static  interpolate();
 
 static long  xlim[3][2];
 static double  xarg[3];
 
-#define  EPSILON	.0001		/* error allowed in fractal */
+#define  EPSILON	.001		/* error allowed in fractal */
 
 #define  frand3(x,y,z)	frand(17*(x)+23*(y)+29*(z))
 
@@ -75,7 +73,7 @@ register char  *nam;
 
 
 double
-l_hermite()			/* library call for hermite interpolation */
+l_hermite(char *nm)		/* library call for hermite interpolation */
 {
 	double  t;