--- ray/src/rt/noise3.c	1996/10/31 10:58:36	2.5
+++ 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
@@ -40,7 +38,7 @@ static char  noise_name[4][8] = {"noise3x", "noise3y",
 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];
@@ -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;