--- ray/src/rt/rv2.c	1993/06/02 21:04:02	2.16
+++ ray/src/rt/rv2.c	1994/12/20 20:18:37	2.26
@@ -1,4 +1,4 @@
-/* Copyright (c) 1993 Regents of the University of California */
+/* Copyright (c) 1994 Regents of the University of California */
 
 #ifndef lint
 static char SCCSid[] = "$SunId$ LBL";
@@ -30,7 +30,12 @@ static char SCCSid[] = "$SunId$ LBL";
 #define  sscanvec(s,v)	(sscanf(s,"%lf %lf %lf",v,v+1,v+2)==3)
 #endif
 
+extern char  *atos();
 
+extern FILE  *popen();
+
+extern char  rifname[128];		/* rad input file name */
+
 extern char  VersionID[];
 extern char  *progname;
 extern char  *octname;
@@ -85,7 +90,7 @@ char  *s;
 		fputs(progname, fp);
 		fprintview(&ourview, fp);
 		fputs(sskip(s), fp);
-		fputs("\n", fp);
+		putc('\n', fp);
 		fclose(fp);
 		return;
 	}
@@ -135,6 +140,16 @@ char  *s;
 	else {
 		nv.horiz = ourview.horiz; nv.vert = ourview.vert;
 	}
+	sprintf(buf, "fore and aft clipping plane (%.6g %.6g): ",
+			ourview.vfore, ourview.vaft);
+	(*dev->comout)(buf);
+	(*dev->comin)(buf, NULL);
+	if (buf[0] == CTRL('C')) return;
+	if (sscanf(buf, "%lf %lf", &nv.vfore, &nv.vaft) == 2)
+		change++;
+	else {
+		nv.vfore = ourview.vfore; nv.vaft = ourview.vaft;
+	}
 	sprintf(buf, "view shift and lift (%.6g %.6g): ",
 			ourview.hoff, ourview.voff);
 	(*dev->comout)(buf);
@@ -160,7 +175,7 @@ char  *s;
 
 	if (sscanf(s, "%s", buf) == 1) {	/* get parameters from a file */
 		copystruct(&nv, &stdview);
-		if ((fname = getpath(buf, NULL, 0)) == NULL ||
+		if ((fname = getpath(buf, "", R_OK)) == NULL ||
 				(success = viewfile(fname, &nv, NULL)) == -1) {
 			sprintf(errmsg, "cannot open \"%s\"", buf);
 			error(COMMAND, errmsg);
@@ -183,6 +198,83 @@ char  *s;
 }
 
 
+saveview(s)				/* save view to rad file */
+char  *s;
+{
+	char  view[64];
+	char  *fname;
+	FILE  *fp;
+
+	if (*atos(view, sizeof(view), s)) {
+		if (isint(view)) {
+			error(COMMAND, "cannot write view by number");
+			return;
+		}
+		s = sskip(s);
+	}
+	while (isspace(*s))
+		s++;
+	if (*s)
+		atos(rifname, sizeof(rifname), s);
+	else if (rifname[0] == '\0') {
+		error(COMMAND, "no previous rad file");
+		return;
+	}
+	if ((fname = getpath(rifname, NULL, 0)) == NULL ||
+			(fp = fopen(fname, "a")) == NULL) {
+		sprintf(errmsg, "cannot open \"%s\"", rifname);
+		error(COMMAND, errmsg);
+		return;
+	}
+	fputs("view= ", fp);
+	fputs(view, fp);
+	fprintview(&ourview, fp);
+	putc('\n', fp);
+	fclose(fp);
+}
+
+
+loadview(s)				/* load view from rad file */
+char  *s;
+{
+	char  buf[512];
+	char  *fname;
+	FILE  *fp;
+	VIEW  nv;
+
+	strcpy(buf, "rad -n -s -V -v ");
+	if (sscanf(s, "%s", buf+strlen(buf)) == 1)
+		s = sskip(s);
+	else
+		strcat(buf, "1");
+	if (*s)
+		atos(rifname, sizeof(rifname), s);
+	else if (rifname[0] == '\0') {
+		error(COMMAND, "no previous rad file");
+		return;
+	}
+	if ((fname = getpath(rifname, "", R_OK)) == NULL) {
+		sprintf(errmsg, "cannot access \"%s\"", rifname);
+		error(COMMAND, errmsg);
+		return;
+	}
+	sprintf(buf+strlen(buf), " %s", fname);
+	if ((fp = popen(buf, "r")) == NULL) {
+		error(COMMAND, "cannot run rad");
+		return;
+	}
+	buf[0] = '\0';
+	fgets(buf, sizeof(buf), fp);
+	pclose(fp);
+	copystruct(&nv, &stdview);
+	if (!sscanview(&nv, buf)) {
+		error(COMMAND, "rad error -- no such view?");
+		return;
+	}
+	newview(&nv);
+}
+
+
 getaim(s)				/* aim camera */
 char  *s;
 {
@@ -268,12 +360,13 @@ char  *s;
 	register PNODE  *p = &ptrunk;
 	int  adapt = 0;
 	double  e = 1.0;
-start:
+
 	for (cp = s; isspace(*cp); cp++)
 		;
 	if (*cp == '@') {
 		adapt++;
-		goto start;
+		while (isspace(*++cp))
+			;
 	}
 	if (*cp == '\0') {		/* normalize to point */
 		if (dev->getcur == NULL)
@@ -462,7 +555,8 @@ register char  *s;
 			getparam(s+2, "ambient value", 'C', (COLOR *)ambval);
 			break;
 		case 'a':			/* accuracy */
-			getparam(s+2, "ambient accuracy", 'r', &ambacc);
+			if (getparam(s+2, "ambient accuracy", 'r', &ambacc))
+				setambacc(ambacc);
 			break;
 		case 'd':			/* divisions */
 			getparam(s+2, "ambient divisions", 'i', &ambdiv);
@@ -526,6 +620,8 @@ char  *s;
 	int  x, y;
 	RAY  thisray;
 
+	thisray.rmax = 0.0;
+
 	if (!sscanvec(s, thisray.rorg) ||
 			!sscanvec(sskip(sskip(sskip(s))), thisray.rdir)) {
 
@@ -535,8 +631,8 @@ char  *s;
 		if ((*dev->getcur)(&x, &y) == ABORT)
 			return;
 
-		if (viewray(thisray.rorg, thisray.rdir, &ourview,
-				(x+.5)/hresolu, (y+.5)/vresolu) < 0) {
+		if ((thisray.rmax = viewray(thisray.rorg, thisray.rdir,
+			&ourview, (x+.5)/hresolu, (y+.5)/vresolu)) < -FTINY) {
 			error(COMMAND, "not on image");
 			return;
 		}
@@ -553,8 +649,10 @@ char  *s;
 	if (thisray.ro == NULL)
 		(*dev->comout)("ray hit nothing");
 	else {
-		sprintf(buf, "ray hit %s %s \"%s\"",
-				objptr(thisray.ro->omod)->oname,
+		sprintf(buf, "ray hit %s%s %s \"%s\"",
+				thisray.rod < 0.0 ? "back of " : "",
+				thisray.ro->omod == OVOID ? VOIDID :
+					objptr(thisray.ro->omod)->oname,
 				ofun[thisray.ro->otype].funame,
 				thisray.ro->oname);
 		(*dev->comout)(buf);
@@ -587,7 +685,11 @@ char  *s;
 	COLR  *scanline;
 	int  y;
 
-	if (sscanf(s, "%s", buf) != 1 && buf[0] == '\0') {
+	while (isspace(*s))
+		s++;
+	if (*s)
+		atos(buf, sizeof(buf), s);
+	else if (buf[0] == '\0') {
 		error(COMMAND, "no file");
 		return;
 	}
@@ -604,6 +706,7 @@ char  *s;
 	(*dev->comout)(fname);
 	(*dev->comout)("\"...\n");
 						/* write header */
+	newheader("RADIANCE", fp);
 	fputs(progname, fp);
 	fprintview(&ourview, fp);
 	if (octname != NULL)