--- ray/src/util/vwright.c	1995/09/14 21:36:32	2.2
+++ ray/src/util/vwright.c	2008/03/11 02:21:47	2.7
@@ -1,9 +1,6 @@
-/* Copyright (c) 1995 Regents of the University of California */
-
 #ifndef lint
-static char SCCSid[] = "$SunId$ LBL";
+static const char	RCSid[] = "$Id: vwright.c,v 2.7 2008/03/11 02:21:47 greg Exp $";
 #endif
-
 /*
  * Move a viewpoint the given distance to the right
  */
@@ -13,26 +10,29 @@ static char SCCSid[] = "$SunId$ LBL";
 
 #include "view.h"
 
+#include <ctype.h>
+
 VIEW	vw = STDVIEW;
 
 char	*progname;
 
 
-main(argc, argv)
-int	argc;
-char	*argv[];
+int
+main(
+	int	argc,
+	char	*argv[]
+)
 {
 	char	linebuf[256];
 	char	*err;
 	int	gotview = 0;
+	FVECT	hvn, vvn;
 	double	dist;
 	register int	i;
 
 	progname = argv[0];
-	if (argc != 2 || !isflt(argv[1])) {
-		fprintf(stderr, "Usage: %s offset\n", progname);
-		exit(1);
-	}
+	if (argc != 2)
+		goto userr;
 	while (fgets(linebuf, sizeof(linebuf), stdin) != NULL) {
 		if (linebuf[0] == '\n')
 			break;
@@ -47,11 +47,50 @@ char	*argv[];
 		fprintf(stderr, "%s: %s\n", progname, err);
 		exit(1);
 	}
-	dist = atof(argv[1])/sqrt(vw.hn2);
+	VCOPY(hvn, vw.hvec);
+	normalize(hvn);
+	VCOPY(vvn, vw.vvec);
+	normalize(vvn);
+	if (isalpha(argv[1][0])) {	/* print out variables */
+		switch (vw.type) {
+			case VT_PER: i=1; break;
+			case VT_PAR: i=2; break;
+			case VT_ANG: i=3; break;
+			case VT_HEM: i=4; break;
+			case VT_CYL: i=5; break;
+			case VT_PLS: i=6; break;
+			default: i=0; break;
+		}
+		printf("%st:%d;", argv[1], i);
+		printf("%spx:%g;%spy:%g;%spz:%g;", argv[1], vw.vp[0],
+				argv[1], vw.vp[1], argv[1], vw.vp[2]);
+		printf("%sdx:%g;%sdy:%g;%sdz:%g;", argv[1], vw.vdir[0],
+				argv[1], vw.vdir[1], argv[1], vw.vdir[2]);
+		printf("%sd:%g;", argv[1], vw.vdist);
+		printf("%sux:%g;%suy:%g;%suz:%g;", argv[1], vw.vup[0],
+				argv[1], vw.vup[1], argv[1], vw.vup[2]);
+		printf("%sh:%g;%sv:%g;", argv[1], vw.horiz,
+				argv[1], vw.vert);
+		printf("%ss:%g;%sl:%g;%so:%g;%sa:%g;",
+				argv[1], vw.hoff, argv[1], vw.voff,
+				argv[1], vw.vfore, argv[1], vw.vaft);
+		printf("%shx:%g;%shy:%g;%shz:%g;%shn:%g;",
+				argv[1], hvn[0], argv[1], hvn[1],
+				argv[1], hvn[2], argv[1], sqrt(vw.hn2));
+		printf("%svx:%g;%svy:%g;%svz:%g;%svn:%g;\n",
+				argv[1], vvn[0], argv[1], vvn[1],
+				argv[1], vvn[2], argv[1], sqrt(vw.vn2));
+		exit(0);
+	}
+	if (!isflt(argv[1]))
+		goto userr;
+	dist = atof(argv[1]);
 	for (i = 0; i < 3; i++)
-		vw.vp[i] += dist*vw.hvec[i];
-	fputs(VIEWSTR, stdout);
+		vw.vp[i] += dist*hvn[i];
 	fprintview(&vw, stdout);
 	putchar('\n');
 	exit(0);
+userr:
+	fprintf(stderr, "Usage: %s {offset|name}\n", progname);
+	exit(1);
 }