--- ray/src/hd/rhd_geom.c	1998/12/23 17:43:20	3.4
+++ ray/src/hd/rhd_geom.c	1999/01/29 15:04:03	3.7
@@ -1,4 +1,4 @@
-/* Copyright (c) 1998 Silicon Graphics, Inc. */
+/* Copyright (c) 1999 Silicon Graphics, Inc. */
 
 #ifndef lint
 static char SCCSid[] = "$SunId$ SGI";
@@ -33,7 +33,7 @@ static struct gmEntry {
 
 #define FORALLPORT(pl,i)		for (i=0;i<MAXPORT&&pl[i]!=NULL;i++)
 
-extern char	*atos(), *sskip(), *sskip2();
+extern char	*nextword();
 
 
 gmNewGeom(file)			/* add new geometry to next list */
@@ -55,10 +55,11 @@ char	*file;
 			return;
 		}
 					/* else load new octree */
-	gmNext[i].gfile = file;
+	gmNext[i].gfile = savestr(file);
 	dolights = 0;
 	domats = 1;
 	gmNext[i].listid = rgl_octlist(file, gmNext[i].cent, &gmNext[i].rad);
+	gmNext[i].rad *= 1.732;		/* go to corners */
 #ifdef DEBUG
 	fprintf(stderr, "Loaded octree \"%s\" into listID %d with radius %f\n",
 			file, gmNext[i].listid, gmNext[i].rad);
@@ -74,8 +75,10 @@ gmEndGeom()			/* make next list current */
 		FORALLGEOM(gmNext, j)
 			if (gmNext[j].listid == gmCurrent[i].listid)
 				break;
-		if (j >= MAXGEO || gmNext[j].gfile == NULL)
+		if (j >= MAXGEO || gmNext[j].gfile == NULL) {
 			glDeleteLists(gmCurrent[i].listid, 1);	/* not found */
+			freestr(gmCurrent[i].gfile);
+		}
 	}
 	bcopy((char *)gmNext, (char *)gmCurrent, sizeof(gmNext));
 	bzero((char *)gmNext, sizeof(gmNext));
@@ -83,7 +86,7 @@ gmEndGeom()			/* make next list current */
 
 
 int
-gmDrawGeom()			/* draw current list of octrees (and ports) */
+gmDrawGeom()			/* draw current list of octrees */
 {
 	register int	n;
 
@@ -144,11 +147,7 @@ char	*pflist;
 
 	if (pflist == NULL)
 		return;
-	while (*pflist) {
-		atos(newfile, sizeof(newfile), pflist);
-		if (!*newfile)
-			break;
-		pflist = sskip(pflist);
+	while ((pflist = nextword(newfile, sizeof(newfile), pflist)) != NULL) {
 		FORALLPORT(newportlist,i)
 			if (!strcmp(newportlist[i], newfile))
 				goto endloop;	/* in list already */