--- ray/src/rt/rv2.c	1989/02/03 07:58:07	1.2
+++ ray/src/rt/rv2.c	1990/01/16 11:30:13	1.16
@@ -28,57 +28,34 @@ extern char  *progname;
 getframe(s)				/* get a new frame */
 char  *s;
 {
-	int  x0, y0, x1, y1;
-
-	if (!strcmp("all", s)) {
-		pframe.l = pframe.d = 0;
-		pframe.r = ourview.hresolu;
-		pframe.u = ourview.vresolu;
-		pdepth = 0;
+	if (getrect(s, &pframe) < 0)
 		return;
-	}
-	if (sscanf(s, "%d %d %d %d", &x0, &y0, &x1, &y1) != 4) {
-		if (dev->getcur == NULL)
-			return;
-		(*dev->comout)("Pick first corner\n");
-		if ((*dev->getcur)(&x0, &y0) == ABORT)
-			return;
-		(*dev->comout)("Pick second corner\n");
-		if ((*dev->getcur)(&x1, &y1) == ABORT)
-			return;
-	}
-	if (x0 < x1) {
-		pframe.l = x0;
-		pframe.r = x1;
-	} else {
-		pframe.l = x1;
-		pframe.r = x0;
-	}
-	if (y0 < y1) {
-		pframe.d = y0;
-		pframe.u = y1;
-	} else {
-		pframe.d = y1;
-		pframe.u = y0;
-	}
-	if (pframe.l < 0) pframe.l = 0;
-	if (pframe.d < 0) pframe.d = 0;
-	if (pframe.r > ourview.hresolu) pframe.r = ourview.hresolu;
-	if (pframe.u > ourview.vresolu) pframe.u = ourview.vresolu;
 	pdepth = 0;
 }
 
 
+getrepaint(s)				/* get area and repaint */
+char  *s;
+{
+	RECT  box;
+
+	if (getrect(s, &box) < 0)
+		return;
+	paintrect(&ptrunk, 0, 0, hresolu, vresolu, &box);
+}
+
+
 getview(s)				/* get/show view parameters */
 char  *s;
 {
 	FILE  *fp;
 	char  buf[128];
-	char  *fname, *getpath();
+	char  *fname;
+	int  change = 0;
 	VIEW  nv;
 
 	if (sscanf(s, "%s", buf) == 1) {	/* write parameters to a file */
-		if ((fname = getpath(buf, NULL)) == NULL ||
+		if ((fname = getpath(buf, NULL, 0)) == NULL ||
 				(fp = fopen(fname, "a")) == NULL) {
 			sprintf(errmsg, "cannot open \"%s\"", buf);
 			error(COMMAND, errmsg);
@@ -94,48 +71,60 @@ char  *s;
 	(*dev->comout)(buf);
 	(*dev->comin)(buf);
 	if (buf[0] == CTRL(C)) return;
-	if (buf[0])
+	if (buf[0] && buf[0] != ourview.type) {
 		nv.type = buf[0];
-	else
+		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);
 	(*dev->comin)(buf);
 	if (buf[0] == CTRL(C)) return;
-	if (sscanf(buf, "%lf %lf %lf", &nv.vp[0], &nv.vp[1], &nv.vp[2]) != 3)
+	if (sscanf(buf, "%lf %lf %lf", &nv.vp[0], &nv.vp[1], &nv.vp[2]) == 3)
+		change++;
+	else
 		VCOPY(nv.vp, ourview.vp);
 	sprintf(buf, "view direction (%.6g %.6g %.6g): ",
 			ourview.vdir[0], ourview.vdir[1], ourview.vdir[2]);
 	(*dev->comout)(buf);
 	(*dev->comin)(buf);
 	if (buf[0] == CTRL(C)) return;
-	if (sscanf(buf,"%lf %lf %lf",&nv.vdir[0],&nv.vdir[1],&nv.vdir[2]) != 3)
+	if (sscanf(buf,"%lf %lf %lf",&nv.vdir[0],&nv.vdir[1],&nv.vdir[2]) == 3)
+		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);
 	(*dev->comin)(buf);
 	if (buf[0] == CTRL(C)) return;
-	if (sscanf(buf,"%lf %lf %lf",&nv.vup[0],&nv.vup[1],&nv.vup[2]) != 3)
+	if (sscanf(buf,"%lf %lf %lf",&nv.vup[0],&nv.vup[1],&nv.vup[2]) == 3)
+		change++;
+	else
 		VCOPY(nv.vup, ourview.vup);
 	sprintf(buf, "view horiz and vert size (%.6g %.6g): ",
 			ourview.horiz, ourview.vert);
 	(*dev->comout)(buf);
 	(*dev->comin)(buf);
 	if (buf[0] == CTRL(C)) return;
-	if (sscanf(buf, "%lf %lf", &nv.horiz, &nv.vert) != 2) {
+	if (sscanf(buf, "%lf %lf", &nv.horiz, &nv.vert) == 2)
+		change++;
+	else {
 		nv.horiz = ourview.horiz; nv.vert = ourview.vert;
 	}
-	sprintf(buf, "x and y resolution (%d %d): ",
-			ourview.hresolu, ourview.vresolu);
+	sprintf(buf, "view shift and lift (%.6g %.6g): ",
+			ourview.hoff, ourview.voff);
 	(*dev->comout)(buf);
 	(*dev->comin)(buf);
 	if (buf[0] == CTRL(C)) return;
-	if (sscanf(buf, "%d %d", &nv.hresolu, &nv.vresolu) != 2) {
-		nv.hresolu = ourview.hresolu; nv.vresolu = ourview.vresolu;
+	if (sscanf(buf, "%lf %lf", &nv.hoff, &nv.voff) == 2)
+		change++;
+	else {
+		nv.hoff = ourview.hoff; nv.voff = ourview.voff;
 	}
-	newview(&nv);
+	if (change)
+		newview(&nv);
 }
 
 
@@ -143,14 +132,14 @@ lastview(s)				/* return to a previous view */
 char  *s;
 {
 	char  buf[128];
-	char  *fname, *getpath();
+	char  *fname;
 	int  success;
 	VIEW  nv;
 
 	if (sscanf(s, "%s", buf) == 1) {	/* get parameters from a file */
-		bcopy(&stdview, &nv, sizeof(VIEW));
-		if ((fname = getpath(buf, NULL)) == NULL ||
-				(success = viewfile(fname, &nv)) == -1) {
+		copyview(&nv, &stdview);
+		if ((fname = getpath(buf, NULL, 0)) == NULL ||
+				(success = viewfile(fname, &nv, 0, 0)) == -1) {
 			sprintf(errmsg, "cannot open \"%s\"", buf);
 			error(COMMAND, errmsg);
 			return;
@@ -161,64 +150,17 @@ char  *s;
 			newview(&nv);
 		return;
 	}
-	if (oldview.hresolu == 0) {	/* no old view! */
+	if (oldview.horiz == 0) {	/* no old view! */
 		error(COMMAND, "no previous view");
 		return;
 	}
-	bcopy(&ourview, &nv, sizeof(VIEW));
-	bcopy(&oldview, &ourview, sizeof(VIEW));
-	bcopy(&nv, &oldview, sizeof(VIEW));
+	copyview(&nv, &ourview);
+	copyview(&ourview, &oldview);
+	copyview(&oldview, &nv);
 	newimage();
 }
 
 
-getinterest(s, direc, vec, mp)		/* get area of interest */
-char  *s;
-int  direc;
-FVECT  vec;
-double  *mp;
-{
-	int  x, y;
-	RAY  thisray;
-	register int  i;
-
-	if (sscanf(s, "%lf", mp) != 1)
-		*mp = 1.0;
-	else if (*mp < -FTINY)		/* negative zoom is reduction */
-		*mp = -1.0 / *mp;
-	else if (*mp <= FTINY) {	/* too small */
-		error(COMMAND, "illegal magnification");
-		return(-1);
-	}
-	if (sscanf(s, "%*lf %lf %lf %lf", &vec[0], &vec[1], &vec[2]) != 3) {
-		if (dev->getcur == NULL)
-			return(-1);
-		(*dev->comout)("Pick view center\n");
-		if ((*dev->getcur)(&x, &y) == ABORT)
-			return(-1);
-		rayview(thisray.rorg, thisray.rdir, &ourview, x+.5, y+.5);
-		if (!direc || ourview.type == VT_PAR) {
-			rayorigin(&thisray, NULL, PRIMARY, 1.0);
-			if (!localhit(&thisray, &thescene)) {
-				error(COMMAND, "not a local object");
-				return(-1);
-			}
-		}
-		if (direc)
-			if (ourview.type == VT_PAR)
-				for (i = 0; i < 3; i++)
-					vec[i] = thisray.rop[i] - ourview.vp[i];
-			else
-				VCOPY(vec, thisray.rdir);
-		else
-			VCOPY(vec, thisray.rop);
-	} else if (direc)
-			for (i = 0; i < 3; i++)
-				vec[i] -= ourview.vp[i];
-	return(0);
-}
-
-
 getaim(s)				/* aim camera */
 char  *s;
 {
@@ -230,7 +172,7 @@ char  *s;
 		return;
 	VCOPY(nv.vp, ourview.vp);
 	VCOPY(nv.vup, ourview.vup);
-	nv.hresolu = ourview.hresolu; nv.vresolu = ourview.vresolu;
+	nv.hoff = ourview.hoff; nv.voff = ourview.voff;
 	if ((nv.type = ourview.type) == VT_PAR) {
 		nv.horiz = ourview.horiz / zfact;
 		nv.vert = ourview.vert / zfact;
@@ -252,34 +194,41 @@ char  *s;
 
 	if (getinterest(s, 0, vc, &mag) < 0)
 		return;
-	moveview(0.0, mag, vc);
+	moveview(0.0, 0.0, mag, vc);
 }
 
 
 getrotate(s)				/* rotate camera */
 char  *s;
 {
-	extern double  normalize();
+	extern double  normalize(), tan(), atan();
 	VIEW  nv;
 	FVECT  v1;
-	double  angle, elev;
+	double  angle, elev, zfact;
 	
-	elev = 0.0;
-	if (sscanf(s, "%lf %lf", &angle, &elev) < 1) {
+	elev = 0.0; zfact = 1.0;
+	if (sscanf(s, "%lf %lf %lf", &angle, &elev, &zfact) < 1) {
 		error(COMMAND, "missing angle");
 		return;
 	}
-	nv.type = ourview.type;
 	VCOPY(nv.vp, ourview.vp);
 	VCOPY(nv.vup, ourview.vup);
-	nv.horiz = ourview.horiz; nv.vert = ourview.vert;
-	nv.hresolu = ourview.hresolu; nv.vresolu = ourview.vresolu;
+	nv.hoff = ourview.hoff; nv.voff = ourview.voff;
 	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.));
 	}
+	if ((nv.type = ourview.type) == VT_PAR) {
+		nv.horiz = ourview.horiz / zfact;
+		nv.vert = ourview.vert / zfact;
+	} else {
+		nv.horiz = atan(tan(ourview.horiz*(PI/180./2.))/zfact) /
+				(PI/180./2.);
+		nv.vert = atan(tan(ourview.vert*(PI/180./2.))/zfact) /
+				(PI/180./2.);
+	}
 	newview(&nv);
 }
 
@@ -288,15 +237,16 @@ getpivot(s)				/* pivot viewpoint */
 register char  *s;
 {
 	FVECT  vc;
-	double  angle, mag;
+	double  angle, elev, mag;
 
-	if (sscanf(s, "%lf", &angle) != 1) {
+	elev = 0.0;
+	if (sscanf(s, "%lf %lf", &angle, &elev) < 1) {
 		error(COMMAND, "missing angle");
 		return;
 	}
-	if (getinterest(sskip(s), 0, vc, &mag) < 0)
+	if (getinterest(sskip(sskip(s)), 0, vc, &mag) < 0)
 		return;
-	moveview(angle, mag, vc);
+	moveview(angle, elev, mag, vc);
 }
 
 
@@ -320,7 +270,7 @@ char  *s;
 		if ((*dev->getcur)(&x, &y) == ABORT)
 			return;
 		r.l = r.d = 0;
-		r.r = ourview.hresolu; r.u = ourview.vresolu;
+		r.r = hresolu; r.u = vresolu;
 		p = findrect(x, y, &ptrunk, &r, -1);
 		e = 1.0;
 	} else {
@@ -348,11 +298,11 @@ char  *s;
 			e *= atof(cp);
 	}
 	if (p != NULL) {		/* relative setting */
-		if (intens(p->v) <= FTINY) {
+		if (bright(p->v) <= FTINY) {
 			error(COMMAND, "cannot normalize to zero");
 			return;
 		}
-		e *= 0.5 / intens(p->v);
+		e *= 0.5 / bright(p->v);
 	}
 	if (e <= FTINY || fabs(1.0 - e) <= FTINY)
 		return;
@@ -370,6 +320,8 @@ register char  *s;
 	extern double  minweight;
 	extern int  maxdepth;
 	extern double  dstrsrc;
+	extern double  shadthresh;
+	extern double  shadcert;
 	extern COLOR  ambval;
 	extern double  ambacc;
 	extern double  minarad;
@@ -382,7 +334,7 @@ register char  *s;
 	char  buf[128];
 	
 	if (s[0] == '\0') {
-		(*dev->comout)("aa ab ad ar as av ds lr lw sd sp: ");
+		(*dev->comout)("aa ab ad ar as av dc dj dt lr lw sp st: ");
 		(*dev->comin)(buf);
 		s = buf;
 	}
@@ -415,17 +367,44 @@ register char  *s;
 			goto badparam;
 		}
 		break;
-	case 'd':			/* distribute source */
-		if (s[1] != 's')
+	case 'd':			/* direct */
+		switch (s[1]) {
+		case 'j':			/* jitter */
+			if (sscanf(s+2, "%lf", &d0) != 1) {
+				sprintf(buf, "direct jitter (%.6g): ",
+						dstrsrc);
+				(*dev->comout)(buf);
+				(*dev->comin)(buf);
+				if (sscanf(buf, "%lf", &d0) != 1)
+					break;
+			}
+			dstrsrc = d0;
+			break;
+		case 'c':			/* certainty */
+			if (sscanf(s+2, "%lf", &d0) != 1) {
+				sprintf(buf, "direct certainty (%.6g): ",
+						shadcert);
+				(*dev->comout)(buf);
+				(*dev->comin)(buf);
+				if (sscanf(buf, "%lf", &d0) != 1)
+					break;
+			}
+			shadcert = d0;
+			break;
+		case 't':			/* threshold */
+			if (sscanf(s+2, "%lf", &d0) != 1) {
+				sprintf(buf, "direct threshold (%.6g): ",
+						shadthresh);
+				(*dev->comout)(buf);
+				(*dev->comin)(buf);
+				if (sscanf(buf, "%lf", &d0) != 1)
+					break;
+			}
+			shadthresh = d0;
+			break;
+		default:
 			goto badparam;
-		if (sscanf(s+2, "%lf", &d0) != 1) {
-			sprintf(buf, "distribute source (%.6g): ", dstrsrc);
-			(*dev->comout)(buf);
-			(*dev->comin)(buf);
-			if (sscanf(buf, "%lf", &d0) != 1)
-				break;
 		}
-		dstrsrc = d0;
 		break;
 	case 'a':			/* ambient */
 		switch (s[1]) {
@@ -517,9 +496,9 @@ register char  *s;
 			psample = i0;
 			pdepth = 0;
 			break;
-		case 'd':			/* difference */
+		case 't':			/* threshold */
 			if (sscanf(s+2, "%lf", &d0) != 1) {
-				sprintf(buf, "sample difference (%.6g): ",
+				sprintf(buf, "sample threshold (%.6g): ",
 						maxdiff);
 				(*dev->comout)(buf);
 				(*dev->comin)(buf);
@@ -561,7 +540,8 @@ char  *s;
 		if ((*dev->getcur)(&x, &y) == ABORT)
 			return;
 
-		rayview(thisray.rorg, thisray.rdir, &ourview, x+.5, y+.5);
+		viewray(thisray.rorg, thisray.rdir, &ourview,
+				(x+.5)/hresolu, (y+.5)/vresolu);
 		
 	} else if (normalize(thisray.rdir) == 0.0) {
 		error(COMMAND, "zero ray direction");
@@ -603,7 +583,7 @@ writepict(s)				/* write the picture to a file */
 char  *s;
 {
 	static char  buf[128];
-	char  *fname, *getpath();
+	char  *fname;
 	FILE  *fp;
 	COLR  *scanline;
 	int  y;
@@ -612,7 +592,7 @@ char  *s;
 		error(COMMAND, "no file");
 		return;
 	}
-	if ((fname = getpath(buf, NULL)) == NULL ||
+	if ((fname = getpath(buf, NULL, 0)) == NULL ||
 			(fp = fopen(fname, "w")) == NULL) {
 		sprintf(errmsg, "cannot open \"%s\"", buf);
 		error(COMMAND, errmsg);
@@ -624,18 +604,20 @@ char  *s;
 						/* write header */
 	fputs(progname, fp);
 	fprintview(&ourview, fp);
-	fputs("\n", fp);
+	putc('\n', fp);
 	if (exposure != 1.0)
-		fprintf(fp, "EXPOSURE=%e\n", exposure);
-	fprintf(fp, "\n-Y %d +X %d\n", ourview.vresolu, ourview.hresolu);
+		fputexpos(exposure, fp);
+	if (dev->pixaspect != 1.0)
+		fputaspect(dev->pixaspect, fp);
+	putc('\n', fp);
+	fputresolu(YMAJOR|YDECR, hresolu, vresolu, fp);
 
-	scanline = (COLR *)malloc(ourview.hresolu*sizeof(COLR));
+	scanline = (COLR *)malloc(hresolu*sizeof(COLR));
 	if (scanline == NULL)
 		error(SYSTEM, "out of memory in writepict");
-	for (y = ourview.vresolu-1; y >= 0; y--) {
-		getpictcolrs(y, scanline, &ptrunk,
-				ourview.hresolu, ourview.vresolu);
-		if (fwritecolrs(scanline, ourview.hresolu, fp) < 0)
+	for (y = vresolu-1; y >= 0; y--) {
+		getpictcolrs(y, scanline, &ptrunk, hresolu, vresolu);
+		if (fwritecolrs(scanline, hresolu, fp) < 0)
 			break;
 	}
 	if (fclose(fp) < 0)