--- ray/src/hd/rhd_x11.c	1997/12/05 09:38:55	3.10
+++ ray/src/hd/rhd_x11.c	1997/12/24 14:04:22	3.18
@@ -18,12 +18,16 @@ static char SCCSid[] = "$SunId$ SGI";
 
 #include  "x11icon.h"
 
-#define	CTRL(c)		((c)-'@')
+#ifndef FEQ
+#define FEQ(a,b)	((a)-(b) <= FTINY && (a)-(b) >= -FTINY)
+#endif
 
 #define GAMMA		2.2		/* default gamma correction */
 
-#define MOVPCT		10		/* percent distance to move */
+#define MOVPCT		7		/* percent distance to move /frame */
 #define MOVDIR(b)	((b)==Button1 ? 1 : (b)==Button2 ? 0 : -1)
+#define MOVDEG		(-5)		/* degrees to orbit CW/down /frame */
+#define MOVORB(s)	((s)&ShiftMask ? 1 : (s)&ControlMask ? -1 : 0)
 
 #define MINWIDTH	480		/* minimum graphics window width */
 #define MINHEIGHT	400		/* minimum graphics window height */
@@ -154,25 +158,22 @@ char  *id;
 	oursizhints.min_height = MINHEIGHT;
 	oursizhints.flags = PMinSize;
 	XSetNormalHints(ourdisplay, gwind, &oursizhints);
+					/* figure out sensible view */
+	pwidth = (double)DisplayWidthMM(ourdisplay, ourscreen) /
+			DisplayWidth(ourdisplay, ourscreen);
+	pheight = (double)DisplayHeightMM(ourdisplay, ourscreen) /
+			DisplayHeight(ourdisplay, ourscreen);
+	copystruct(&odev.v, &stdview);
+	odev.v.type = VT_PER;
 					/* map the window and get its size */
 	XMapWindow(ourdisplay, gwind);
-	dev_input();
+	dev_input();			/* sets size and view angles */
 					/* allocate our leaf pile */
 	if (!qtAllocLeaves(DisplayWidth(ourdisplay,ourscreen) *
 			DisplayHeight(ourdisplay,ourscreen) /
 			(qtMinNodesiz*qtMinNodesiz)))
 		error(SYSTEM, "insufficient memory for leaf storage");
-
-					/* figure out sensible view */
-	pwidth = (double)DisplayWidthMM(ourdisplay, ourscreen) /
-			DisplayWidth(ourdisplay, ourscreen);
-	pheight = (double)DisplayHeightMM(ourdisplay, ourscreen) /
-			DisplayHeight(ourdisplay, ourscreen);
-	copystruct(&odev.v, &stdview);
 	odev.name = id;
-	odev.v.type = VT_PER;
-	odev.v.horiz = 2.*180./PI * atan(0.5/VIEWDIST*pwidth*odev.hres);
-	odev.v.vert = 2.*180./PI * atan(0.5/VIEWDIST*pheight*odev.vres);
 	odev.ifd = ConnectionNumber(ourdisplay);
 }
 
@@ -194,12 +195,50 @@ dev_close()			/* close our display */
 }
 
 
+int
 dev_view(nv)			/* assign new driver view */
 VIEW	*nv;
 {
-	if (nv != &odev.v)
+	if (nv->type == VT_PAR ||		/* check view legality */
+			nv->horiz > 160. || nv->vert > 160.) {
+		error(COMMAND, "illegal view type/angle");
+		nv->type = VT_PER;
+		nv->horiz = odev.v.horiz;
+		nv->vert = odev.v.vert;
+		return(0);
+	}
+	if (nv->vfore > FTINY) {
+		error(COMMAND, "cannot handle fore clipping");
+		nv->vfore = 0.;
+		return(0);
+	}
+	if (nv != &odev.v) {
+		if (!FEQ(nv->horiz,odev.v.horiz) ||	/* resize window? */
+				!FEQ(nv->vert,odev.v.vert)) {
+			int	dw = DisplayWidth(ourdisplay,ourscreen);
+			int	dh = DisplayHeight(ourdisplay,ourscreen);
+
+			dw -= 25;	/* for window frame */
+			dh -= 50;
+			odev.hres = 2.*VIEWDIST/pwidth *
+					tan(PI/180./2.*nv->horiz);
+			odev.vres = 2.*VIEWDIST/pheight *
+					tan(PI/180./2.*nv->vert);
+			if (odev.hres > dw) {
+				odev.vres = dw * odev.vres / odev.hres;
+				odev.hres = dw;
+			}
+			if (odev.vres > dh) {
+				odev.hres = dh * odev.hres / odev.vres;
+				odev.vres = dh;
+			}
+			XResizeWindow(ourdisplay, gwind, odev.hres, odev.vres);
+			dev_input();	/* wait for resize event */
+		}
 		copystruct(&odev.v, nv);
+	}
 	qtReplant();
+	return(1);
 }
 
 
@@ -427,43 +466,49 @@ draw_grids()			/* draw holodeck section grids */
 
 
 static
-moveview(dx, dy, move)		/* move our view */
-int	dx, dy, move;
+moveview(dx, dy, mov, orb)	/* move our view */
+int	dx, dy, mov, orb;
 {
 	VIEW	nv;
+	FVECT	odir, v1;
 	double	d;
-	register int	i, li;
+	register int	li;
 				/* start with old view */
 	copystruct(&nv, &odev.v);
 				/* change view direction */
-	if (move) {
+	if (mov | orb) {
 		if ((li = qtFindLeaf(dx, dy)) < 0)
 			return(0);	/* not on window */
-		for (i = 0; i < 3; i++)
-			nv.vdir[i] = qtL.wp[li][i] - nv.vp[i];
+		VSUM(odir, qtL.wp[li], nv.vp, -1.);
 	} else {
 		if (viewray(nv.vp, nv.vdir, &odev.v,
 				(dx+.5)/odev.hres, (dy+.5)/odev.vres) < -FTINY)
 			return(0);	/* outside view */
 	}
-				/* move viewpoint */
-	if (move > 0)
-		for (i = 0; i < 3; i++)
-			nv.vp[i] += MOVPCT/100. * nv.vdir[i];
-	else if (move < 0)
-		for (i = 0; i < 3; i++)
-			nv.vp[i] -= MOVPCT/100. * nv.vdir[i];
-	if (move && headlocked) {
-		d = 0;		/* bring head back to same height */
-		for (i = 0; i < 3; i++)
-			d += odev.v.vup[i] * (odev.v.vp[i] - nv.vp[i]);
-		for (i = 0; i < 3; i++)
-			nv.vp[i] += d * odev.v.vup[i];
+	if (orb && mov) {		/* orbit left/right */
+		spinvector(odir, odir, nv.vup, d=MOVDEG*PI/180.*mov);
+		VSUM(nv.vp, qtL.wp[li], odir, -1.);
+		spinvector(nv.vdir, nv.vdir, nv.vup, d);
+	} else if (orb) {		/* orbit up/down */
+		fcross(v1, odir, nv.vup);
+		if (normalize(v1) == 0.)
+			return(0);
+		spinvector(odir, odir, v1, d=MOVDEG*PI/180.*orb);
+		VSUM(nv.vp, qtL.wp[li], odir, -1.);
+		spinvector(nv.vdir, nv.vdir, v1, d);
+	} else if (mov) {		/* move forward/backward */
+		d = MOVPCT/100. * mov;
+		VSUM(nv.vp, nv.vp, odir, d);
 	}
+	if (!mov ^ !orb && headlocked) {	/* restore head height */
+		VSUM(v1, odev.v.vp, nv.vp, -1.);
+		d = DOT(v1, odev.v.vup);
+		VSUM(nv.vp, nv.vp, odev.v.vup, d);
+	}
 	if (setview(&nv) != NULL)
 		return(0);	/* illegal view */
 	dev_view(&nv);
-	inpresflags |= DEV_NEWVIEW;
+	inpresflags |= DFL(DC_SETVIEW);
 	return(1);
 }
 
@@ -472,7 +517,8 @@ static
 getmove(ebut)				/* get view change */
 XButtonPressedEvent	*ebut;
 {
-	int	whichbutton = ebut->button;
+	int	movdir = MOVDIR(ebut->button);
+	int	movorb = MOVORB(ebut->state);
 	int	oldnodesiz = qtMinNodesiz;
 	Window	rootw, childw;
 	int	rootx, rooty, wx, wy;
@@ -488,7 +534,7 @@ XButtonPressedEvent	*ebut;
 				&rootx, &rooty, &wx, &wy, &statemask))
 			break;		/* on another screen */
 
-		if (!moveview(wx, odev.vres-1-wy, MOVDIR(whichbutton))) {
+		if (!moveview(wx, odev.vres-1-wy, movdir, movorb)) {
 			sleep(1);
 			continue;
 		}
@@ -496,11 +542,11 @@ XButtonPressedEvent	*ebut;
 		qtUpdate();
 		draw_grids();
 	}
-	if (!(inpresflags & DEV_NEWVIEW)) {	/* do final motion */
-		whichbutton = levptr(XButtonReleasedEvent)->button;
+	if (!(inpresflags & DFL(DC_SETVIEW))) {	/* do final motion */
+		movdir = MOVDIR(levptr(XButtonReleasedEvent)->button);
 		wx = levptr(XButtonReleasedEvent)->x;
 		wy = levptr(XButtonReleasedEvent)->y;
-		moveview(wx, odev.vres-1-wy, MOVDIR(whichbutton));
+		moveview(wx, odev.vres-1-wy, movdir, movorb);
 	}
 	dev_flush();
 
@@ -525,19 +571,18 @@ register XKeyPressedEvent  *ekey;
 	case 'H':			/* turn off height motion lock */
 		headlocked = 0;
 		return;
-	case CTRL('S'):
+	case 'l':			/* retrieve last view */
+		inpresflags |= DFL(DC_LASTVIEW);
+		return;
 	case 'p':			/* pause computation */
-		inpresflags |= DEV_WAIT;
+		inpresflags |= DFL(DC_PAUSE);
 		return;
 	case 'v':			/* spit out view */
-		fputs(VIEWSTR, stderr);
-		fprintview(&odev.v, stderr);
-		fputc('\n', stderr);
+		inpresflags |= DFL(DC_GETVIEW);
 		return;
-	case CTRL('Q'):
 	case '\n':
 	case '\r':			/* resume computation */
-		inpresflags |= DEV_RESUME;
+		inpresflags |= DFL(DC_RESUME);
 		return;
 	case CTRL('R'):			/* redraw screen */
 		if (ncolors > 0)
@@ -545,7 +590,7 @@ register XKeyPressedEvent  *ekey;
 		qtRedraw(0, 0, odev.hres, odev.vres);
 		return;
 	case CTRL('L'):			/* refresh from server */
-		if (inpresflags & DEV_REDRAW)
+		if (inpresflags & DFL(DC_REDRAW))
 			return;
 		XClearWindow(ourdisplay, gwind);
 		draw_grids();
@@ -553,12 +598,19 @@ register XKeyPressedEvent  *ekey;
 		qtCompost(100);			/* unload the old tree */
 		if (ncolors > 0)
 			new_ctab(ncolors);
-		inpresflags |= DEV_REDRAW;	/* resend values from server */
+		inpresflags |= DFL(DC_REDRAW);	/* resend values from server */
 		return;
-	case CTRL('D'):
-	case 'Q':
+	case 'K':			/* kill rtrace process(es) */
+		inpresflags |= DFL(DC_KILL);
+		break;
+	case 'R':			/* restart rtrace */
+		inpresflags |= DFL(DC_RESTART);
+		break;
+	case 'C':			/* clobber holodeck */
+		inpresflags |= DFL(DC_CLOBBER);
+		break;
 	case 'q':			/* quit the program */
-		inpresflags |= DEV_SHUTDOWN;
+		inpresflags |= DFL(DC_QUIT);
 		return;
 	default:
 		XBell(ourdisplay, 0);
@@ -574,7 +626,6 @@ register XExposeEvent  *eexp;
 	if (odev.hres == 0 || odev.vres == 0) {	/* first exposure */
 		odev.hres = eexp->width;
 		odev.vres = eexp->height;
-		inpresflags |= DEV_NEWSIZE;
 	}
 	qtRedraw(eexp->x, odev.vres - eexp->y - eexp->height,
 			eexp->x + eexp->width, odev.vres - eexp->y);
@@ -588,15 +639,11 @@ register XConfigureEvent  *ersz;
 	if (ersz->width == odev.hres && ersz->height == odev.vres)
 		return;
 
-	if (odev.hres != 0 && odev.vres != 0) {
-		odev.v.horiz = 2.*180./PI * atan(
-			tan(PI/180./2.*odev.v.horiz) * ersz->width/odev.hres );
-		odev.v.vert = 2.*180./PI * atan(
-			tan(PI/180./2.*odev.v.vert) * ersz->height/odev.vres );
-		inpresflags |= DEV_NEWVIEW;
-	}
 	odev.hres = ersz->width;
 	odev.vres = ersz->height;
 
-	inpresflags |= DEV_NEWSIZE;
+	odev.v.horiz = 2.*180./PI * atan(0.5/VIEWDIST*pwidth*odev.hres);
+	odev.v.vert = 2.*180./PI * atan(0.5/VIEWDIST*pheight*odev.vres);
+
+	inpresflags |= DFL(DC_SETVIEW);
 }