ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/rt/x11.c
Revision: 2.13
Committed: Thu Nov 18 09:43:06 1993 UTC (30 years, 5 months ago) by greg
Content type: text/plain
Branch: MAIN
Changes since 2.12: +2 -4 lines
Log Message:
minor compiler warning fixes

File Contents

# Content
1 /* Copyright (c) 1992 Regents of the University of California */
2
3 #ifndef lint
4 static char SCCSid[] = "$SunId$ LBL";
5 #endif
6
7 /*
8 * x11.c - driver for X-windows version 11
9 *
10 * Jan 1990
11 */
12
13 #include <stdio.h>
14 #include <math.h>
15 #include <sys/ioctl.h>
16
17 #include <X11/Xlib.h>
18 #include <X11/cursorfont.h>
19 #include <X11/Xutil.h>
20
21 #include "color.h"
22 #include "driver.h"
23 #include "x11twind.h"
24 #include "x11icon.h"
25
26 #define GAMMA 2.2 /* default exponent correction */
27
28 #define MINWIDTH (32*COMCW) /* minimum graphics window width */
29 #define MINHEIGHT (MINWIDTH/2) /* minimum graphics window height */
30
31 #define BORWIDTH 5 /* border width */
32 #define COMHEIGHT (COMLH*COMCH) /* command line height (pixels) */
33
34 #define COMFN "8x13" /* command line font name */
35 #define COMLH 3 /* number of command lines */
36 #define COMCW 8 /* approx. character width (pixels) */
37 #define COMCH 14 /* approx. character height (pixels) */
38
39 #define ourscreen DefaultScreen(ourdisplay)
40 #define ourroot RootWindow(ourdisplay,ourscreen)
41
42 #define levptr(etype) ((etype *)&currentevent)
43
44 static XEvent currentevent; /* current event */
45
46 static int ncolors = 0; /* color table size */
47 static int mapped = 0; /* window is mapped? */
48 static unsigned long *pixval = NULL; /* allocated pixels */
49 static unsigned long ourblack=0, ourwhite=1;
50
51 static Display *ourdisplay = NULL; /* our display */
52
53 static XVisualInfo ourvinfo; /* our visual information */
54
55 static Window gwind = 0; /* our graphics window */
56
57 static Cursor pickcursor = 0; /* cursor used for picking */
58
59 static int gwidth, gheight; /* graphics window size */
60
61 static TEXTWIND *comline = NULL; /* our command line */
62
63 static char c_queue[64]; /* input queue */
64 static int c_first = 0; /* first character in queue */
65 static int c_last = 0; /* last character in queue */
66
67 static GC ourgc = 0; /* our graphics context for drawing */
68
69 static Colormap ourmap = 0; /* our color map */
70
71 extern char *malloc(), *getcombuf();
72
73 static int x11_close(), x11_clear(), x11_paintr(), x11_errout(),
74 x11_getcur(), x11_comout(), x11_comin(), x11_flush();
75
76 static struct driver x11_driver = {
77 x11_close, x11_clear, x11_paintr, x11_getcur,
78 x11_comout, x11_comin, x11_flush, 1.0
79 };
80
81 static int getpixels(), xnewcolr(), freepixels(), resizewindow(),
82 getevent(), getkey(), fixwindow(), x11_getc();
83 static unsigned long true_pixel();
84
85
86 struct driver *
87 x11_init(name, id) /* initialize driver */
88 char *name, *id;
89 {
90 extern char *getenv();
91 char *gv;
92 int nplanes;
93 XSetWindowAttributes ourwinattr;
94 XWMHints ourxwmhints;
95 XSizeHints oursizhints;
96
97 ourdisplay = XOpenDisplay(NULL);
98 if (ourdisplay == NULL) {
99 stderr_v("cannot open X-windows; DISPLAY variable set?\n");
100 return(NULL);
101 }
102 /* find a usable visual */
103 nplanes = DisplayPlanes(ourdisplay, ourscreen);
104 if (XMatchVisualInfo(ourdisplay,ourscreen,
105 24,TrueColor,&ourvinfo) ||
106 XMatchVisualInfo(ourdisplay,ourscreen,
107 24,DirectColor,&ourvinfo)) {
108 ourblack = 0;
109 ourwhite = ourvinfo.red_mask |
110 ourvinfo.green_mask |
111 ourvinfo.blue_mask ;
112 } else {
113 if (nplanes < 4) {
114 stderr_v("not enough colors\n");
115 return(NULL);
116 }
117 if (!XMatchVisualInfo(ourdisplay,ourscreen,
118 nplanes,PseudoColor,&ourvinfo) &&
119 !XMatchVisualInfo(ourdisplay,ourscreen,
120 nplanes,GrayScale,&ourvinfo)) {
121 stderr_v("unsupported visual type\n");
122 return(NULL);
123 }
124 ourblack = BlackPixel(ourdisplay,ourscreen);
125 ourwhite = WhitePixel(ourdisplay,ourscreen);
126 }
127 /* set gamma */
128 if ((gv = getenv("GAMMA")) != NULL)
129 make_gmap(atof(gv));
130 else
131 make_gmap(GAMMA);
132 /* open window */
133 ourwinattr.background_pixel = ourblack;
134 ourwinattr.border_pixel = ourblack;
135 /* this is stupid */
136 ourwinattr.colormap = XCreateColormap(ourdisplay, ourroot,
137 ourvinfo.visual, AllocNone);
138 gwind = XCreateWindow(ourdisplay, ourroot, 0, 0,
139 DisplayWidth(ourdisplay,ourscreen)-2*BORWIDTH,
140 DisplayHeight(ourdisplay,ourscreen)-2*BORWIDTH,
141 BORWIDTH, ourvinfo.depth, InputOutput, ourvinfo.visual,
142 CWBackPixel|CWBorderPixel|CWColormap, &ourwinattr);
143 if (gwind == 0) {
144 stderr_v("cannot create window\n");
145 return(NULL);
146 }
147 XStoreName(ourdisplay, gwind, id);
148 /* create a cursor */
149 pickcursor = XCreateFontCursor(ourdisplay, XC_diamond_cross);
150 ourgc = XCreateGC(ourdisplay, gwind, 0, NULL);
151 ourxwmhints.flags = InputHint|IconPixmapHint;
152 ourxwmhints.input = True;
153 ourxwmhints.icon_pixmap = XCreateBitmapFromData(ourdisplay,
154 gwind, x11icon_bits, x11icon_width, x11icon_height);
155 XSetWMHints(ourdisplay, gwind, &ourxwmhints);
156 oursizhints.min_width = MINWIDTH;
157 oursizhints.min_height = MINHEIGHT+COMHEIGHT;
158 oursizhints.flags = PMinSize;
159 XSetNormalHints(ourdisplay, gwind, &oursizhints);
160 XSelectInput(ourdisplay, gwind, ExposureMask);
161 XMapWindow(ourdisplay, gwind);
162 XWindowEvent(ourdisplay, gwind, ExposureMask, levptr(XEvent));
163 gwidth = levptr(XExposeEvent)->width;
164 gheight = levptr(XExposeEvent)->height - COMHEIGHT;
165 x11_driver.xsiz = gwidth < MINWIDTH ? MINWIDTH : gwidth;
166 x11_driver.ysiz = gheight < MINHEIGHT ? MINHEIGHT : gheight;
167 x11_driver.inpready = 0;
168 mapped = 1;
169 cmdvec = x11_comout; /* set error vectors */
170 if (wrnvec != NULL)
171 wrnvec = x11_errout;
172 return(&x11_driver);
173 }
174
175
176 static
177 x11_close() /* close our display */
178 {
179 cmdvec = NULL; /* reset error vectors */
180 if (wrnvec != NULL)
181 wrnvec = stderr_v;
182 if (ourdisplay == NULL)
183 return;
184 if (comline != NULL) {
185 xt_close(comline);
186 comline = NULL;
187 }
188 freepixels();
189 XFreeGC(ourdisplay, ourgc);
190 XDestroyWindow(ourdisplay, gwind);
191 gwind = 0;
192 ourgc = 0;
193 XFreeCursor(ourdisplay, pickcursor);
194 XCloseDisplay(ourdisplay);
195 ourdisplay = NULL;
196 }
197
198
199 static
200 x11_clear(xres, yres) /* clear our display */
201 int xres, yres;
202 {
203 /* check limits */
204 if (xres < MINWIDTH)
205 xres = MINWIDTH;
206 if (yres < MINHEIGHT)
207 yres = MINHEIGHT;
208 /* resize window */
209 if (xres != gwidth || yres != gheight) {
210 XSelectInput(ourdisplay, gwind, 0);
211 XResizeWindow(ourdisplay, gwind, xres, yres+COMHEIGHT);
212 gwidth = xres;
213 gheight = yres;
214 XFlush(ourdisplay);
215 sleep(2); /* wait for window manager */
216 XSync(ourdisplay, 1); /* discard input */
217 }
218 XClearWindow(ourdisplay, gwind);
219 /* reinitialize color table */
220 if (ourvinfo.class == PseudoColor || ourvinfo.class == GrayScale)
221 if (getpixels() == 0)
222 stderr_v("cannot allocate colors\n");
223 else
224 new_ctab(ncolors);
225 /* get new command line */
226 if (comline != NULL)
227 xt_close(comline);
228 comline = xt_open(ourdisplay, gwind, 0, gheight,
229 gwidth, COMHEIGHT, 0, ourblack, ourwhite, COMFN);
230 if (comline == NULL) {
231 stderr_v("Cannot open command line window\n");
232 quit(1);
233 }
234 XSelectInput(ourdisplay, comline->w, ExposureMask);
235 /* remove earmuffs */
236 XSelectInput(ourdisplay, gwind,
237 StructureNotifyMask|ExposureMask|KeyPressMask|ButtonPressMask);
238 }
239
240
241 static
242 x11_paintr(col, xmin, ymin, xmax, ymax) /* fill a rectangle */
243 COLOR col;
244 int xmin, ymin, xmax, ymax;
245 {
246 unsigned long pixel;
247
248 if (!mapped)
249 return;
250 if (ncolors > 0)
251 pixel = pixval[get_pixel(col, xnewcolr)];
252 else
253 pixel = true_pixel(col);
254 XSetForeground(ourdisplay, ourgc, pixel);
255 XFillRectangle(ourdisplay, gwind,
256 ourgc, xmin, gheight-ymax, xmax-xmin, ymax-ymin);
257 }
258
259
260 static
261 x11_flush() /* flush output */
262 {
263 XNoOp(ourdisplay);
264 while (XPending(ourdisplay) > 0)
265 getevent();
266 }
267
268
269 static
270 x11_comin(inp, prompt) /* read in a command line */
271 char *inp, *prompt;
272 {
273 if (prompt != NULL)
274 if (fromcombuf(inp, &x11_driver))
275 return;
276 else
277 xt_puts(prompt, comline);
278 xt_cursor(comline, TBLKCURS);
279 editline(inp, x11_getc, x11_comout);
280 xt_cursor(comline, TNOCURS);
281 }
282
283
284 static
285 x11_comout(out) /* output a string to command line */
286 char *out;
287 {
288 if (comline == NULL)
289 return;
290 xt_puts(out, comline);
291 if (out[strlen(out)-1] == '\n')
292 XFlush(ourdisplay);
293 }
294
295
296 static
297 x11_errout(msg) /* output an error message */
298 char *msg;
299 {
300 stderr_v(msg); /* send to stderr also! */
301 x11_comout(msg);
302 }
303
304
305 static int
306 x11_getcur(xp, yp) /* get cursor position */
307 int *xp, *yp;
308 {
309 while (XGrabPointer(ourdisplay, gwind, True, ButtonPressMask,
310 GrabModeAsync, GrabModeAsync, None, pickcursor,
311 CurrentTime) != GrabSuccess)
312 sleep(2);
313
314 do
315 getevent();
316 while (c_last <= c_first && levptr(XEvent)->type != ButtonPress);
317 *xp = levptr(XButtonPressedEvent)->x;
318 *yp = gheight-1 - levptr(XButtonPressedEvent)->y;
319 XUngrabPointer(ourdisplay, CurrentTime);
320 XFlush(ourdisplay); /* insure release */
321 if (c_last > c_first) /* key pressed */
322 return(x11_getc());
323 /* button pressed */
324 if (levptr(XButtonPressedEvent)->button == Button1)
325 return(MB1);
326 if (levptr(XButtonPressedEvent)->button == Button2)
327 return(MB2);
328 if (levptr(XButtonPressedEvent)->button == Button3)
329 return(MB3);
330 return(ABORT);
331 }
332
333
334 static
335 xnewcolr(ndx, r, g, b) /* enter a color into hardware table */
336 int ndx;
337 int r, g, b;
338 {
339 XColor xcolor;
340
341 xcolor.pixel = pixval[ndx];
342 xcolor.red = r << 8;
343 xcolor.green = g << 8;
344 xcolor.blue = b << 8;
345 xcolor.flags = DoRed|DoGreen|DoBlue;
346
347 XStoreColor(ourdisplay, ourmap, &xcolor);
348 }
349
350
351 static int
352 getpixels() /* get the color map */
353 {
354 XColor thiscolor;
355 register int i, j;
356
357 if (ncolors > 0)
358 return(ncolors);
359 if (ourvinfo.visual == DefaultVisual(ourdisplay,ourscreen)) {
360 ourmap = DefaultColormap(ourdisplay,ourscreen);
361 goto loop;
362 }
363 newmap:
364 ourmap = XCreateColormap(ourdisplay,gwind,ourvinfo.visual,AllocNone);
365 loop:
366 for (ncolors = ourvinfo.colormap_size;
367 ncolors > ourvinfo.colormap_size/3;
368 ncolors = ncolors*.937) {
369 pixval = (unsigned long *)malloc(ncolors*sizeof(unsigned long));
370 if (pixval == NULL)
371 return(ncolors = 0);
372 if (XAllocColorCells(ourdisplay,ourmap,0,NULL,0,pixval,ncolors))
373 break;
374 free((char *)pixval);
375 pixval = NULL;
376 }
377 if (pixval == NULL) {
378 if (ourmap == DefaultColormap(ourdisplay,ourscreen))
379 goto newmap; /* try it with our map */
380 else
381 return(ncolors = 0); /* failed */
382 }
383 if (ourmap != DefaultColormap(ourdisplay,ourscreen))
384 for (i = 0; i < ncolors; i++) { /* reset black and white */
385 if (pixval[i] != ourblack && pixval[i] != ourwhite)
386 continue;
387 thiscolor.pixel = pixval[i];
388 thiscolor.flags = DoRed|DoGreen|DoBlue;
389 XQueryColor(ourdisplay,
390 DefaultColormap(ourdisplay,ourscreen),
391 &thiscolor);
392 XStoreColor(ourdisplay, ourmap, &thiscolor);
393 for (j = i; j+1 < ncolors; j++)
394 pixval[j] = pixval[j+1];
395 ncolors--;
396 i--;
397 }
398 XSetWindowColormap(ourdisplay, gwind, ourmap);
399 return(ncolors);
400 }
401
402
403 static
404 freepixels() /* free our pixels */
405 {
406 if (ncolors == 0)
407 return;
408 XFreeColors(ourdisplay,ourmap,pixval,ncolors,0L);
409 free((char *)pixval);
410 pixval = NULL;
411 ncolors = 0;
412 if (ourmap != DefaultColormap(ourdisplay,ourscreen))
413 XFreeColormap(ourdisplay, ourmap);
414 ourmap = 0;
415 }
416
417
418 static unsigned long
419 true_pixel(col) /* return true pixel value for color */
420 COLOR col;
421 {
422 unsigned long rval;
423 BYTE rgb[3];
424
425 map_color(rgb, col);
426 rval = ourvinfo.red_mask*rgb[RED]/255 & ourvinfo.red_mask;
427 rval |= ourvinfo.green_mask*rgb[GRN]/255 & ourvinfo.green_mask;
428 rval |= ourvinfo.blue_mask*rgb[BLU]/255 & ourvinfo.blue_mask;
429 return(rval);
430 }
431
432
433 static int
434 x11_getc() /* get a command character */
435 {
436 while (c_last <= c_first) {
437 c_first = c_last = 0; /* reset */
438 getevent(); /* wait for key */
439 }
440 x11_driver.inpready--;
441 return(c_queue[c_first++]);
442 }
443
444
445 static
446 getevent() /* get next event */
447 {
448 XNextEvent(ourdisplay, levptr(XEvent));
449 switch (levptr(XEvent)->type) {
450 case ConfigureNotify:
451 resizewindow(levptr(XConfigureEvent));
452 break;
453 case UnmapNotify:
454 mapped = 0;
455 freepixels();
456 break;
457 case MapNotify:
458 if (ourvinfo.class == PseudoColor ||
459 ourvinfo.class == GrayScale)
460 if (getpixels() == 0)
461 stderr_v("Cannot allocate colors\n");
462 else
463 new_ctab(ncolors);
464 mapped = 1;
465 break;
466 case Expose:
467 fixwindow(levptr(XExposeEvent));
468 break;
469 case KeyPress:
470 getkey(levptr(XKeyPressedEvent));
471 break;
472 case ButtonPress:
473 break;
474 }
475 }
476
477
478 static
479 getkey(ekey) /* get input key */
480 register XKeyPressedEvent *ekey;
481 {
482 register int n;
483
484 n = XLookupString(ekey, c_queue+c_last, sizeof(c_queue)-c_last,
485 NULL, NULL);
486 c_last += n;
487 x11_driver.inpready += n;
488 }
489
490
491 static
492 fixwindow(eexp) /* repair damage to window */
493 register XExposeEvent *eexp;
494 {
495 if (eexp->window == gwind) {
496 sprintf(getcombuf(&x11_driver), "repaint %d %d %d %d\n",
497 eexp->x, gheight - eexp->y - eexp->height,
498 eexp->x + eexp->width, gheight - eexp->y);
499 } else if (eexp->window == comline->w) {
500 if (eexp->count == 0)
501 xt_redraw(comline);
502 }
503 }
504
505
506 static
507 resizewindow(ersz) /* resize window */
508 register XConfigureEvent *ersz;
509 {
510 if (ersz->width == gwidth && ersz->height-COMHEIGHT == gheight)
511 return;
512
513 gwidth = ersz->width;
514 gheight = ersz->height-COMHEIGHT;
515 x11_driver.xsiz = gwidth < MINWIDTH ? MINWIDTH : gwidth;
516 x11_driver.ysiz = gheight < MINHEIGHT ? MINHEIGHT : gheight;
517
518 strcpy(getcombuf(&x11_driver), "new\n");
519 }