--- ray/src/rt/rv2.c	2003/07/21 22:30:19	2.42
+++ ray/src/rt/rv2.c	2005/04/14 17:38:06	2.48
@@ -1,5 +1,5 @@
 #ifndef lint
-static const char	RCSid[] = "$Id: rv2.c,v 2.42 2003/07/21 22:30:19 schorsch Exp $";
+static const char	RCSid[] = "$Id: rv2.c,v 2.48 2005/04/14 17:38:06 greg Exp $";
 #endif
 /*
  *  rv2.c - command routines used in tracing a view.
@@ -14,6 +14,8 @@ static const char	RCSid[] = "$Id: rv2.c,v 2.42 2003/07
 
 #include  "platform.h"
 #include  "ray.h"
+#include  "source.h"
+#include  "ambient.h"
 #include  "otypes.h"
 #include  "rpaint.h"
 
@@ -34,9 +36,10 @@ extern char  *progname;
 extern char  *octname;
 
 
-void
-getframe(s)				/* get a new frame */
-char  *s;
+extern void
+getframe(				/* get a new frame */
+	char  *s
+)
 {
 	if (getrect(s, &pframe) < 0)
 		return;
@@ -44,9 +47,10 @@ char  *s;
 }
 
 
-void
-getrepaint(s)				/* get area and repaint */
-char  *s;
+extern void
+getrepaint(				/* get area and repaint */
+	char  *s
+)
 {
 	RECT  box;
 
@@ -56,20 +60,20 @@ char  *s;
 }
 
 
-void
-getview(s)				/* get/show view parameters */
-char  *s;
+extern void
+getview(				/* get/show view parameters */
+	char  *s
+)
 {
 	FILE  *fp;
 	char  buf[128];
 	char  *fname;
 	int  change = 0;
-	VIEW  nv;
+	VIEW  nv = ourview;
 
 	while (isspace(*s))
 		s++;
 	if (*s == '-') {			/* command line parameters */
-		nv = ourview;
 		if (sscanview(&nv, s))
 			newview(&nv);
 		else
@@ -97,8 +101,7 @@ char  *s;
 	if (buf[0] && buf[0] != ourview.type) {
 		nv.type = buf[0];
 		change++;
-	} else
-		nv.type = ourview.type;
+	}
 	sprintf(buf, "view point (%.6g %.6g %.6g): ",
 			ourview.vp[0], ourview.vp[1], ourview.vp[2]);
 	(*dev->comout)(buf);
@@ -106,17 +109,17 @@ char  *s;
 	if (buf[0] == CTRL('C')) return;
 	if (sscanvec(buf, nv.vp))
 		change++;
-	else
-		VCOPY(nv.vp, ourview.vp);
 	sprintf(buf, "view direction (%.6g %.6g %.6g): ",
-			ourview.vdir[0], ourview.vdir[1], ourview.vdir[2]);
+			ourview.vdir[0]*ourview.vdist,
+			ourview.vdir[1]*ourview.vdist,
+			ourview.vdir[2]*ourview.vdist);
 	(*dev->comout)(buf);
 	(*dev->comin)(buf, NULL);
 	if (buf[0] == CTRL('C')) return;
-	if (sscanvec(buf, nv.vdir))
+	if (sscanvec(buf, nv.vdir)) {
+		nv.vdist = 1.;
 		change++;
-	else
-		VCOPY(nv.vdir, ourview.vdir);
+	}
 	sprintf(buf, "view up (%.6g %.6g %.6g): ",
 			ourview.vup[0], ourview.vup[1], ourview.vup[2]);
 	(*dev->comout)(buf);
@@ -124,8 +127,6 @@ char  *s;
 	if (buf[0] == CTRL('C')) return;
 	if (sscanvec(buf, nv.vup))
 		change++;
-	else
-		VCOPY(nv.vup, ourview.vup);
 	sprintf(buf, "view horiz and vert size (%.6g %.6g): ",
 			ourview.horiz, ourview.vert);
 	(*dev->comout)(buf);
@@ -133,9 +134,6 @@ char  *s;
 	if (buf[0] == CTRL('C')) return;
 	if (sscanf(buf, "%lf %lf", &nv.horiz, &nv.vert) == 2)
 		change++;
-	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);
@@ -143,9 +141,6 @@ char  *s;
 	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);
@@ -153,17 +148,15 @@ char  *s;
 	if (buf[0] == CTRL('C')) return;
 	if (sscanf(buf, "%lf %lf", &nv.hoff, &nv.voff) == 2)
 		change++;
-	else {
-		nv.hoff = ourview.hoff; nv.voff = ourview.voff;
-	}
 	if (change)
 		newview(&nv);
 }
 
 
-void
-lastview(s)				/* return to a previous view */
-char  *s;
+extern void
+lastview(				/* return to a previous view */
+	char  *s
+)
 {
 	char  buf[128];
 	char  *fname;
@@ -195,9 +188,10 @@ char  *s;
 }
 
 
-void
-saveview(s)				/* save view to rad file */
-char  *s;
+extern void
+saveview(				/* save view to rad file */
+	char  *s
+)
 {
 	char  view[64];
 	char  *fname;
@@ -232,9 +226,10 @@ char  *s;
 }
 
 
-void
-loadview(s)				/* load view from rad file */
-char  *s;
+extern void
+loadview(				/* load view from rad file */
+	char  *s
+)
 {
 	char  buf[512];
 	char  *fname;
@@ -274,31 +269,62 @@ char  *s;
 }
 
 
-void
-getaim(s)				/* aim camera */
-char  *s;
+extern void
+getaim(				/* aim camera */
+	char  *s
+)
 {
+	VIEW  nv = ourview;
 	double  zfact;
-	VIEW  nv;
 
 	if (getinterest(s, 1, nv.vdir, &zfact) < 0)
 		return;
-	nv.type = ourview.type;
-	VCOPY(nv.vp, ourview.vp);
-	VCOPY(nv.vup, ourview.vup);
-	nv.horiz = ourview.horiz; nv.vert = ourview.vert;
-	nv.vfore = ourview.vfore; nv.vaft = ourview.vaft;
-	nv.hoff = ourview.hoff; nv.voff = ourview.voff;
 	zoomview(&nv, zfact);
 	newview(&nv);
 }
 
 
-void
-getmove(s)				/* move camera */
-char  *s;
+extern void
+getfocus(				/* set focus distance */
+	char *s
+)
 {
 	FVECT  vc;
+	double	dist;
+
+	if (sscanf(s, "%lf", &dist) < 1) {
+		int	x, y;
+		RAY	thisray;
+		if (dev->getcur == NULL)
+			return;
+		(*dev->comout)("Pick focus point\n");
+		if ((*dev->getcur)(&x, &y) == ABORT)
+			return;
+		if ((thisray.rmax = viewray(thisray.rorg, thisray.rdir,
+			&ourview, (x+.5)/hresolu, (y+.5)/vresolu)) < -FTINY) {
+			error(COMMAND, "not on image");
+			return;
+		}
+		rayorigin(&thisray, NULL, PRIMARY, 1.0);
+		if (!localhit(&thisray, &thescene)) {
+			error(COMMAND, "not a local object");
+			return;
+		}
+		dist = thisray.rot;
+	} else if (dist <= .0) {
+		error(COMMAND, "focus distance must be positive");
+		return;
+	}
+	ourview.vdist = dist;
+}
+
+
+extern void
+getmove(				/* move camera */
+	char  *s
+)
+{
+	FVECT  vc;
 	double  mag;
 
 	if (getinterest(s, 0, vc, &mag) < 0)
@@ -307,11 +333,12 @@ char  *s;
 }
 
 
-void
-getrotate(s)				/* rotate camera */
-char  *s;
+extern void
+getrotate(				/* rotate camera */
+	char  *s
+)
 {
-	VIEW  nv;
+	VIEW  nv = ourview;
 	FVECT  v1;
 	double  angle, elev, zfact;
 	
@@ -320,26 +347,21 @@ char  *s;
 		error(COMMAND, "missing angle");
 		return;
 	}
-	nv.type = ourview.type;
-	VCOPY(nv.vp, ourview.vp);
-	VCOPY(nv.vup, ourview.vup);
-	nv.hoff = ourview.hoff; nv.voff = ourview.voff;
-	nv.vfore = ourview.vfore; nv.vaft = ourview.vaft;
 	spinvector(nv.vdir, ourview.vdir, ourview.vup, angle*(PI/180.));
 	if (elev != 0.0) {
 		fcross(v1, nv.vdir, ourview.vup);
 		normalize(v1);
 		spinvector(nv.vdir, nv.vdir, v1, elev*(PI/180.));
 	}
-	nv.horiz = ourview.horiz; nv.vert = ourview.vert;
 	zoomview(&nv, zfact);
 	newview(&nv);
 }
 
 
-void
-getpivot(s)				/* pivot viewpoint */
-register char  *s;
+extern void
+getpivot(				/* pivot viewpoint */
+	register char  *s
+)
 {
 	FVECT  vc;
 	double  angle, elev, mag;
@@ -355,9 +377,10 @@ register char  *s;
 }
 
 
-void
-getexposure(s)				/* get new exposure */
-char  *s;
+extern void
+getexposure(				/* get new exposure */
+	char  *s
+)
 {
 	char  buf[128];
 	register char  *cp;
@@ -423,11 +446,13 @@ char  *s;
 
 typedef union {int i; double d; COLOR C;}	*MyUptr;
 
-int
-getparam(str, dsc, typ, p)		/* get variable from user */
-char  *str, *dsc;
-int  typ;
-void  *p;
+extern int
+getparam(		/* get variable from user */
+	char  *str,
+	char  *dsc,
+	int  typ,
+	void  *p
+)
 {
 	register MyUptr  ptr = (MyUptr)p;
 	int  i0;
@@ -484,12 +509,14 @@ void  *p;
 		setcolor(ptr->C, d0, d1, d2);
 		return(1);
 	}
+	return 0; /* nothing matched */
 }
 
 
-void
-setparam(s)				/* get/set program parameter */
-register char  *s;
+extern void
+setparam(				/* get/set program parameter */
+	register char  *s
+)
 {
 	char  buf[128];
 	
@@ -661,7 +688,7 @@ badparam:
 }
 
 
-void
+extern void
 traceray(s)				/* trace a single ray */
 char  *s;
 {
@@ -699,10 +726,24 @@ char  *s;
 	if (thisray.ro == NULL)
 		(*dev->comout)("ray hit nothing");
 	else {
-		sprintf(buf, "ray hit %s%s %s \"%s\"",
-				thisray.rod < 0.0 ? "back of " : "",
-				thisray.ro->omod == OVOID ? VOIDID :
-					objptr(thisray.ro->omod)->oname,
+		OBJREC	*mat = NULL;
+		OBJREC	*mod = NULL;;
+		char	matspec[256];
+		matspec[0] = '\0';
+		if (thisray.ro->omod != OVOID) {
+			mod = objptr(thisray.ro->omod);
+			mat = findmaterial(mod);
+		}
+		if (thisray.rod < 0.0)
+			strcpy(matspec, "back of ");
+		if (mod != NULL) {
+			strcat(matspec, mod->oname);
+			if (mat != mod && mat != NULL)
+				sprintf(matspec+strlen(matspec),
+					" (%s)", mat->oname);
+		} else
+			strcat(matspec, VOIDID);
+		sprintf(buf, "ray hit %s %s \"%s\"", matspec,
 				ofun[thisray.ro->otype].funame,
 				thisray.ro->oname);
 		if ((ino = objptr(thisray.robj)) != thisray.ro)
@@ -730,7 +771,7 @@ char  *s;
 }
 
 
-void
+extern void
 writepict(s)				/* write the picture to a file */
 char  *s;
 {