ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/util/xglaresrc.c
Revision: 2.2
Committed: Thu Dec 19 14:56:36 1991 UTC (32 years, 3 months ago) by greg
Content type: text/plain
Branch: MAIN
Changes since 2.1: +0 -1 lines
Log Message:
eliminated atof declaration for NeXT

File Contents

# User Rev Content
1 greg 1.1 /* Copyright (c) 1991 Regents of the University of California */
2    
3     #ifndef lint
4     static char SCCSid[] = "$SunId$ LBL";
5     #endif
6    
7     /*
8     * Circle sources in a displayed image.
9     *
10     * 18 Mar 1991 Greg Ward
11     */
12    
13     #include "standard.h"
14     #include "view.h"
15 greg 1.10 #include "resolu.h"
16 greg 1.7 #include <signal.h>
17 greg 1.1 #include <X11/Xlib.h>
18     #include <X11/Xutil.h>
19    
20 greg 1.7 #ifndef BSD
21     #define vfork fork
22     #endif
23    
24     #define XIM "ximage"
25    
26 greg 1.1 #define NSEG 30 /* number of segments per circle */
27    
28 greg 1.9 #define FONTNAME "8x13" /* text font we'll use */
29    
30     float col[3] = {1.,0.,0.}; /* color */
31    
32 greg 1.1 VIEW ourview = STDVIEW; /* view for picture */
33 greg 1.10 RESOLU pres; /* picture resolution */
34 greg 1.1
35     char *progname; /* program name */
36    
37     Display *theDisplay = NULL; /* connection to server */
38    
39     #define rwind RootWindow(theDisplay,ourScreen)
40     #define ourScreen DefaultScreen(theDisplay)
41    
42 greg 1.9 GC vecGC, strGC;
43 greg 1.1 Window gwind;
44    
45    
46     main(argc, argv)
47     int argc;
48     char *argv[];
49     {
50 greg 1.9 char *windowname = NULL;
51 greg 1.1 FILE *fp;
52    
53 greg 1.9 progname = *argv++; argc--;
54     while (argc > 0 && argv[0][0] == '-') {
55     switch (argv[0][1]) {
56     case 'n':
57     windowname = *++argv;
58     argc--;
59     break;
60     case 'c':
61     col[0] = atof(*++argv);
62     col[1] = atof(*++argv);
63     col[2] = atof(*++argv);
64     argc -= 3;
65     break;
66     }
67     argv++; argc--;
68     }
69     if (argc < 1 || argc > 2) {
70 greg 1.7 fprintf(stderr,
71 greg 1.9 "Usage: %s [-n windowname][-c color] picture [glaresrc]\n",
72 greg 1.1 progname);
73     exit(1);
74     }
75 greg 1.9 init(argv[0], windowname);
76     if (argc < 2)
77 greg 1.1 fp = stdin;
78 greg 1.9 else if ((fp = fopen(argv[1], "r")) == NULL) {
79     fprintf(stderr, "%s: cannot open \"%s\"\n", progname, argv[1]);
80 greg 1.1 exit(1);
81     }
82     circle_sources(fp);
83     exit(0);
84     }
85    
86    
87 greg 1.7 init(pname, wname) /* get view and find window */
88     char *pname, *wname;
89 greg 1.1 {
90 greg 1.5 extern Window xfindwind();
91 greg 1.1 XWindowAttributes wa;
92     XColor xc;
93     XGCValues gcv;
94     /* get the viewing parameters */
95 greg 1.10 if (viewfile(pname, &ourview, &pres) <= 0 ||
96 greg 1.1 setview(&ourview) != NULL) {
97     fprintf(stderr, "%s: cannot get view from \"%s\"\n",
98 greg 1.7 progname, pname);
99 greg 1.1 exit(1);
100     }
101     /* open the display */
102     if ((theDisplay = XOpenDisplay(NULL)) == NULL) {
103     fprintf(stderr,
104     "%s: cannot open display; DISPLAY variable set?\n",
105     progname);
106     exit(1);
107     }
108     /* find our window */
109 greg 1.9 if (wname == NULL)
110     wname = pname;
111 greg 1.7 gwind = xfindwind(theDisplay, rwind, wname, 2);
112 greg 1.5 if (gwind == None) {
113 greg 1.7 if (wname != pname) {
114     fprintf(stderr, "%s: cannot find \"%s\" window\n",
115     progname, wname);
116     exit(2);
117     }
118     /* start ximage */
119     if (vfork() == 0) {
120     execlp(XIM, XIM, pname, 0);
121     perror(XIM);
122     fprintf(stderr, "%s: cannot start %s\n",
123     progname, XIM);
124     kill(getppid(), SIGPIPE);
125     _exit(1);
126     }
127     do
128     sleep(8);
129     while ((gwind=xfindwind(theDisplay,rwind,pname,2)) == None);
130 greg 1.8 } else
131 greg 1.7 XMapRaised(theDisplay, gwind);
132 greg 1.8 do {
133     XGetWindowAttributes(theDisplay, gwind, &wa);
134 greg 1.9 sleep(6);
135 greg 1.8 } while (wa.map_state != IsViewable);
136 greg 1.10 if (wa.width != scanlen(&pres) || wa.height != numscans(&pres)) {
137 greg 1.1 fprintf(stderr,
138     "%s: warning -- window seems to be the wrong size!\n",
139     progname);
140 greg 1.10 if (pres.or & YMAJOR) {
141     pres.xr = wa.width;
142     pres.yr = wa.height;
143     } else {
144     pres.xr = wa.height;
145     pres.yr = wa.width;
146     }
147 greg 1.1 }
148     /* set graphics context */
149 greg 1.9 gcv.font = XLoadFont(theDisplay, FONTNAME);
150     if (gcv.font == 0) {
151     fprintf(stderr, "%s: cannot load font \"%s\"\n",
152     progname, FONTNAME);
153     exit(1);
154     }
155     xc.red = col[0] >= 1.0 ? 65535 : (unsigned)(65536*col[0]);
156     xc.green = col[1] >= 1.0 ? 65535 : (unsigned)(65536*col[1]);
157     xc.blue = col[2] >= 1.0 ? 65535 : (unsigned)(65536*col[2]);
158 greg 1.1 xc.flags = DoRed|DoGreen|DoBlue;
159 greg 1.9 gcv.background = xc.green >= 32768 ?
160     BlackPixel(theDisplay,DefaultScreen(theDisplay)) :
161     WhitePixel(theDisplay,DefaultScreen(theDisplay)) ;
162 greg 1.1 if (XAllocColor(theDisplay, wa.colormap, &xc)) {
163     gcv.foreground = xc.pixel;
164 greg 1.9 vecGC = XCreateGC(theDisplay,gwind,
165     GCForeground|GCBackground|GCFont,&gcv);
166     strGC = vecGC;
167 greg 1.1 } else {
168     gcv.function = GXinvert;
169     vecGC = XCreateGC(theDisplay,gwind,GCFunction,&gcv);
170 greg 1.9 gcv.foreground = xc.green < 32768 ?
171     BlackPixel(theDisplay,DefaultScreen(theDisplay)) :
172     WhitePixel(theDisplay,DefaultScreen(theDisplay)) ;
173     strGC = XCreateGC(theDisplay,gwind,
174     GCForeground|GCBackground|GCFont,&gcv);
175 greg 1.1 }
176     }
177    
178    
179     circle_sources(fp) /* circle sources listed in fp */
180     FILE *fp;
181     {
182     char linbuf[256];
183     int reading = 0;
184     FVECT dir;
185 greg 1.9 double dom, lum;
186 greg 1.1
187     while (fgets(linbuf, sizeof(linbuf), fp) != NULL)
188     if (reading) {
189     if (!strncmp(linbuf, "END", 3)) {
190     XFlush(theDisplay);
191     return;
192     }
193 greg 1.9 if (sscanf(linbuf, "%lf %lf %lf %lf %lf",
194 greg 1.1 &dir[0], &dir[1], &dir[2],
195 greg 1.9 &dom, &lum) != 5)
196 greg 1.1 break;
197     circle(dir, dom);
198 greg 1.9 value(dir, lum);
199 greg 1.1 } else if (!strcmp(linbuf, "BEGIN glare source\n"))
200     reading++;
201    
202     fprintf(stderr, "%s: error reading glare sources\n", progname);
203     exit(1);
204     }
205    
206    
207     circle(dir, dom) /* indicate a solid angle on image */
208     FVECT dir;
209     double dom;
210     {
211     FVECT start, cur;
212     XPoint pt[NSEG+1];
213 greg 1.10 FVECT pp;
214     int ip[2];
215 greg 1.1 register int i;
216    
217     fcross(cur, dir, ourview.vup);
218     if (normalize(cur) == 0.0)
219     goto fail;
220     spinvector(start, dir, cur, acos(1.-dom/(2.*PI)));
221     for (i = 0; i <= NSEG; i++) {
222     spinvector(cur, start, dir, 2.*PI*i/NSEG);
223     cur[0] += ourview.vp[0];
224     cur[1] += ourview.vp[1];
225     cur[2] += ourview.vp[2];
226 greg 1.10 viewloc(pp, &ourview, cur);
227     if (pp[2] <= 0.0)
228 greg 1.1 goto fail;
229 greg 1.10 loc2pix(ip, &pres, pp[0], pp[1]);
230     pt[i].x = ip[0];
231     pt[i].y = ip[1];
232 greg 1.1 }
233     XDrawLines(theDisplay, gwind, vecGC, pt, NSEG+1, CoordModeOrigin);
234     return;
235     fail:
236     fprintf(stderr, "%s: cannot draw source at (%f,%f,%f)\n",
237     progname, dir[0], dir[1], dir[2]);
238 greg 1.9 }
239    
240    
241     value(dir, v) /* print value on image */
242     FVECT dir;
243     double v;
244     {
245     FVECT pos;
246 greg 1.10 FVECT pp;
247     int ip[2];
248 greg 1.9 char buf[32];
249    
250     pos[0] = ourview.vp[0] + dir[0];
251     pos[1] = ourview.vp[1] + dir[1];
252     pos[2] = ourview.vp[2] + dir[2];
253 greg 1.10 viewloc(pp, &ourview, pos);
254     if (pp[2] <= 0.0)
255 greg 1.9 return;
256 greg 1.10 loc2pix(ip, &pres, pp[0], pp[1]);
257 greg 1.9 sprintf(buf, "%.0f", v);
258     XDrawImageString(theDisplay, gwind, strGC,
259 greg 1.10 ip[0], ip[1], buf, strlen(buf));
260 greg 1.1 }