--- ray/src/util/xglaresrc.c	1991/05/03 10:06:04	1.6
+++ ray/src/util/xglaresrc.c	1991/07/31 15:28:03	1.9
@@ -12,11 +12,22 @@ static char SCCSid[] = "$SunId$ LBL";
 
 #include "standard.h"
 #include "view.h"
+#include <signal.h>
 #include <X11/Xlib.h>
 #include <X11/Xutil.h>
 
+#ifndef BSD
+#define vfork	fork
+#endif
+
+#define XIM		"ximage"
+
 #define NSEG		30		/* number of segments per circle */
 
+#define  FONTNAME	"8x13"		/* text font we'll use */
+
+float	col[3] = {1.,0.,0.};		/* color */
+
 VIEW	ourview = STDVIEW;		/* view for picture */
 int	xres, yres;			/* picture resolution */
 
@@ -27,29 +38,45 @@ Display	*theDisplay = NULL;		/* connection to server *
 #define rwind		RootWindow(theDisplay,ourScreen)
 #define ourScreen	DefaultScreen(theDisplay)
 
-GC	vecGC;
+GC	vecGC, strGC;
 Window	gwind;
-Cursor	pickcursor;
 
 
 main(argc, argv)
 int	argc;
 char	*argv[];
 {
+	extern double	atof();
+	char	*windowname = NULL;
 	FILE	*fp;
 
-	progname = argv[0];
-	if (argc < 2 || argc > 3) {
-		fprintf(stderr, "Usage: %s picture [glaresrc]\n",
+	progname = *argv++; argc--;
+	while (argc > 0 && argv[0][0] == '-') {
+		switch (argv[0][1]) {
+		case 'n':
+			windowname = *++argv;
+			argc--;
+			break;
+		case 'c':
+			col[0] = atof(*++argv);
+			col[1] = atof(*++argv);
+			col[2] = atof(*++argv);
+			argc -= 3;
+			break;
+		}
+		argv++; argc--;
+	}
+	if (argc < 1 || argc > 2) {
+		fprintf(stderr,
+		"Usage: %s [-n windowname][-c color] picture [glaresrc]\n",
 				progname);
 		exit(1);
 	}
-	init(argv[1]);
-	if (argc < 3)
+	init(argv[0], windowname);
+	if (argc < 2)
 		fp = stdin;
-	else if ((fp = fopen(argv[2], "r")) == NULL) {
-		fprintf(stderr, "%s: cannot open \"%s\"\n",
-				progname, argv[2]);
+	else if ((fp = fopen(argv[1], "r")) == NULL) {
+		fprintf(stderr, "%s: cannot open \"%s\"\n", progname, argv[1]);
 		exit(1);
 	}
 	circle_sources(fp);
@@ -57,18 +84,18 @@ char	*argv[];
 }
 
 
-init(name)			/* set up vector drawing from pick */
-char	*name;
+init(pname, wname)		/* get view and find window */
+char	*pname, *wname;
 {
 	extern Window	xfindwind();
 	XWindowAttributes	wa;
 	XColor	xc;
 	XGCValues	gcv;
 					/* get the viewing parameters */
-	if (viewfile(name, &ourview, &xres, &yres) <= 0 ||
+	if (viewfile(pname, &ourview, &xres, &yres) <= 0 ||
 			setview(&ourview) != NULL) {
 		fprintf(stderr, "%s: cannot get view from \"%s\"\n",
-				progname, name);
+				progname, pname);
 		exit(1);
 	}
 					/* open the display */
@@ -79,15 +106,33 @@ char	*name;
 		exit(1);
 	}
 					/* find our window */
-	gwind = xfindwind(theDisplay, rwind, name, 2);
+	if (wname == NULL)
+		wname = pname;
+	gwind = xfindwind(theDisplay, rwind, wname, 2);
 	if (gwind == None) {
-		fprintf(stderr, "%s: cannot find \"%s\" window\n",
-				progname, name);
-		exit(2);
-	}
-	XMapRaised(theDisplay, gwind);
-	XGetWindowAttributes(theDisplay, gwind, &wa);
-	sleep(4);
+		if (wname != pname) {
+			fprintf(stderr, "%s: cannot find \"%s\" window\n",
+					progname, wname);
+			exit(2);
+		}
+					/* start ximage */
+		if (vfork() == 0) {
+			execlp(XIM, XIM, pname, 0);
+			perror(XIM);
+			fprintf(stderr, "%s: cannot start %s\n",
+					progname, XIM);
+			kill(getppid(), SIGPIPE);
+			_exit(1);
+		}
+		do
+			sleep(8);
+		while ((gwind=xfindwind(theDisplay,rwind,pname,2)) == None);
+	} else
+		XMapRaised(theDisplay, gwind);
+	do {
+		XGetWindowAttributes(theDisplay, gwind, &wa);
+		sleep(6);
+	} while (wa.map_state != IsViewable);
 	if (wa.width != xres || wa.height != yres) {
 		fprintf(stderr,
 		"%s: warning -- window seems to be the wrong size!\n",
@@ -96,14 +141,32 @@ char	*name;
 		yres = wa.height;
 	}
 					/* set graphics context */
-	xc.red = 65535; xc.green = 0; xc.blue = 0;
+	gcv.font = XLoadFont(theDisplay, FONTNAME);
+	if (gcv.font == 0) {
+		fprintf(stderr, "%s: cannot load font \"%s\"\n",
+				progname, FONTNAME);
+		exit(1);
+	}
+	xc.red = col[0] >= 1.0 ? 65535 : (unsigned)(65536*col[0]);
+	xc.green = col[1] >= 1.0 ? 65535 : (unsigned)(65536*col[1]);
+	xc.blue = col[2] >= 1.0 ? 65535 : (unsigned)(65536*col[2]);
 	xc.flags = DoRed|DoGreen|DoBlue;
+	gcv.background = xc.green >= 32768 ?
+			BlackPixel(theDisplay,DefaultScreen(theDisplay)) :
+			WhitePixel(theDisplay,DefaultScreen(theDisplay)) ;
 	if (XAllocColor(theDisplay, wa.colormap, &xc)) {
 		gcv.foreground = xc.pixel;
-		vecGC = XCreateGC(theDisplay,gwind,GCForeground,&gcv);
+		vecGC = XCreateGC(theDisplay,gwind,
+				GCForeground|GCBackground|GCFont,&gcv);
+		strGC = vecGC;
 	} else {
 		gcv.function = GXinvert;
 		vecGC = XCreateGC(theDisplay,gwind,GCFunction,&gcv);
+		gcv.foreground = xc.green < 32768 ?
+			BlackPixel(theDisplay,DefaultScreen(theDisplay)) :
+			WhitePixel(theDisplay,DefaultScreen(theDisplay)) ;
+		strGC = XCreateGC(theDisplay,gwind,
+				GCForeground|GCBackground|GCFont,&gcv);
 	}
 }
 
@@ -114,7 +177,7 @@ FILE	*fp;
 	char	linbuf[256];
 	int	reading = 0;
 	FVECT	dir;
-	double	dom;
+	double	dom, lum;
 
 	while (fgets(linbuf, sizeof(linbuf), fp) != NULL)
 		if (reading) {
@@ -122,11 +185,12 @@ FILE	*fp;
 				XFlush(theDisplay);
 				return;
 			}
-			if (sscanf(linbuf, "%lf %lf %lf %lf",
+			if (sscanf(linbuf, "%lf %lf %lf %lf %lf",
 					&dir[0], &dir[1], &dir[2],
-					&dom) != 4)
+					&dom, &lum) != 5)
 				break;
 			circle(dir, dom);
+			value(dir, lum);
 		} else if (!strcmp(linbuf, "BEGIN glare source\n"))
 			reading++;
 
@@ -164,4 +228,25 @@ double	dom;
 fail:
 	fprintf(stderr, "%s: cannot draw source at (%f,%f,%f)\n",
 			progname, dir[0], dir[1], dir[2]);
+}
+
+
+value(dir, v)			/* print value on image */
+FVECT	dir;
+double	v;
+{
+	FVECT	pos;
+	double	px, py, pz;
+	char	buf[32];
+
+	pos[0] = ourview.vp[0] + dir[0];
+	pos[1] = ourview.vp[1] + dir[1];
+	pos[2] = ourview.vp[2] + dir[2];
+	viewpixel(&px, &py, &pz, &ourview, pos);
+	if (pz <= 0.0)
+		return;
+	sprintf(buf, "%.0f", v);
+	XDrawImageString(theDisplay, gwind, strGC,
+			(int)(px*xres), yres-1-(int)(py*yres),
+			buf, strlen(buf)); 
 }