ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/rt/x11.c
Revision: 2.14
Committed: Mon Nov 22 11:33:02 1993 UTC (30 years, 5 months ago) by greg
Content type: text/plain
Branch: MAIN
Changes since 2.13: +2 -1 lines
Log Message:
added check for radiance.gamma resource from server

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 = XGetDefault(ourdisplay, "radiance", "gamma")) != NULL
129 || (gv = getenv("GAMMA")) != NULL)
130 make_gmap(atof(gv));
131 else
132 make_gmap(GAMMA);
133 /* open window */
134 ourwinattr.background_pixel = ourblack;
135 ourwinattr.border_pixel = ourblack;
136 /* this is stupid */
137 ourwinattr.colormap = XCreateColormap(ourdisplay, ourroot,
138 ourvinfo.visual, AllocNone);
139 gwind = XCreateWindow(ourdisplay, ourroot, 0, 0,
140 DisplayWidth(ourdisplay,ourscreen)-2*BORWIDTH,
141 DisplayHeight(ourdisplay,ourscreen)-2*BORWIDTH,
142 BORWIDTH, ourvinfo.depth, InputOutput, ourvinfo.visual,
143 CWBackPixel|CWBorderPixel|CWColormap, &ourwinattr);
144 if (gwind == 0) {
145 stderr_v("cannot create window\n");
146 return(NULL);
147 }
148 XStoreName(ourdisplay, gwind, id);
149 /* create a cursor */
150 pickcursor = XCreateFontCursor(ourdisplay, XC_diamond_cross);
151 ourgc = XCreateGC(ourdisplay, gwind, 0, NULL);
152 ourxwmhints.flags = InputHint|IconPixmapHint;
153 ourxwmhints.input = True;
154 ourxwmhints.icon_pixmap = XCreateBitmapFromData(ourdisplay,
155 gwind, x11icon_bits, x11icon_width, x11icon_height);
156 XSetWMHints(ourdisplay, gwind, &ourxwmhints);
157 oursizhints.min_width = MINWIDTH;
158 oursizhints.min_height = MINHEIGHT+COMHEIGHT;
159 oursizhints.flags = PMinSize;
160 XSetNormalHints(ourdisplay, gwind, &oursizhints);
161 XSelectInput(ourdisplay, gwind, ExposureMask);
162 XMapWindow(ourdisplay, gwind);
163 XWindowEvent(ourdisplay, gwind, ExposureMask, levptr(XEvent));
164 gwidth = levptr(XExposeEvent)->width;
165 gheight = levptr(XExposeEvent)->height - COMHEIGHT;
166 x11_driver.xsiz = gwidth < MINWIDTH ? MINWIDTH : gwidth;
167 x11_driver.ysiz = gheight < MINHEIGHT ? MINHEIGHT : gheight;
168 x11_driver.inpready = 0;
169 mapped = 1;
170 cmdvec = x11_comout; /* set error vectors */
171 if (wrnvec != NULL)
172 wrnvec = x11_errout;
173 return(&x11_driver);
174 }
175
176
177 static
178 x11_close() /* close our display */
179 {
180 cmdvec = NULL; /* reset error vectors */
181 if (wrnvec != NULL)
182 wrnvec = stderr_v;
183 if (ourdisplay == NULL)
184 return;
185 if (comline != NULL) {
186 xt_close(comline);
187 comline = NULL;
188 }
189 freepixels();
190 XFreeGC(ourdisplay, ourgc);
191 XDestroyWindow(ourdisplay, gwind);
192 gwind = 0;
193 ourgc = 0;
194 XFreeCursor(ourdisplay, pickcursor);
195 XCloseDisplay(ourdisplay);
196 ourdisplay = NULL;
197 }
198
199
200 static
201 x11_clear(xres, yres) /* clear our display */
202 int xres, yres;
203 {
204 /* check limits */
205 if (xres < MINWIDTH)
206 xres = MINWIDTH;
207 if (yres < MINHEIGHT)
208 yres = MINHEIGHT;
209 /* resize window */
210 if (xres != gwidth || yres != gheight) {
211 XSelectInput(ourdisplay, gwind, 0);
212 XResizeWindow(ourdisplay, gwind, xres, yres+COMHEIGHT);
213 gwidth = xres;
214 gheight = yres;
215 XFlush(ourdisplay);
216 sleep(2); /* wait for window manager */
217 XSync(ourdisplay, 1); /* discard input */
218 }
219 XClearWindow(ourdisplay, gwind);
220 /* reinitialize color table */
221 if (ourvinfo.class == PseudoColor || ourvinfo.class == GrayScale)
222 if (getpixels() == 0)
223 stderr_v("cannot allocate colors\n");
224 else
225 new_ctab(ncolors);
226 /* get new command line */
227 if (comline != NULL)
228 xt_close(comline);
229 comline = xt_open(ourdisplay, gwind, 0, gheight,
230 gwidth, COMHEIGHT, 0, ourblack, ourwhite, COMFN);
231 if (comline == NULL) {
232 stderr_v("Cannot open command line window\n");
233 quit(1);
234 }
235 XSelectInput(ourdisplay, comline->w, ExposureMask);
236 /* remove earmuffs */
237 XSelectInput(ourdisplay, gwind,
238 StructureNotifyMask|ExposureMask|KeyPressMask|ButtonPressMask);
239 }
240
241
242 static
243 x11_paintr(col, xmin, ymin, xmax, ymax) /* fill a rectangle */
244 COLOR col;
245 int xmin, ymin, xmax, ymax;
246 {
247 unsigned long pixel;
248
249 if (!mapped)
250 return;
251 if (ncolors > 0)
252 pixel = pixval[get_pixel(col, xnewcolr)];
253 else
254 pixel = true_pixel(col);
255 XSetForeground(ourdisplay, ourgc, pixel);
256 XFillRectangle(ourdisplay, gwind,
257 ourgc, xmin, gheight-ymax, xmax-xmin, ymax-ymin);
258 }
259
260
261 static
262 x11_flush() /* flush output */
263 {
264 XNoOp(ourdisplay);
265 while (XPending(ourdisplay) > 0)
266 getevent();
267 }
268
269
270 static
271 x11_comin(inp, prompt) /* read in a command line */
272 char *inp, *prompt;
273 {
274 if (prompt != NULL)
275 if (fromcombuf(inp, &x11_driver))
276 return;
277 else
278 xt_puts(prompt, comline);
279 xt_cursor(comline, TBLKCURS);
280 editline(inp, x11_getc, x11_comout);
281 xt_cursor(comline, TNOCURS);
282 }
283
284
285 static
286 x11_comout(out) /* output a string to command line */
287 char *out;
288 {
289 if (comline == NULL)
290 return;
291 xt_puts(out, comline);
292 if (out[strlen(out)-1] == '\n')
293 XFlush(ourdisplay);
294 }
295
296
297 static
298 x11_errout(msg) /* output an error message */
299 char *msg;
300 {
301 stderr_v(msg); /* send to stderr also! */
302 x11_comout(msg);
303 }
304
305
306 static int
307 x11_getcur(xp, yp) /* get cursor position */
308 int *xp, *yp;
309 {
310 while (XGrabPointer(ourdisplay, gwind, True, ButtonPressMask,
311 GrabModeAsync, GrabModeAsync, None, pickcursor,
312 CurrentTime) != GrabSuccess)
313 sleep(2);
314
315 do
316 getevent();
317 while (c_last <= c_first && levptr(XEvent)->type != ButtonPress);
318 *xp = levptr(XButtonPressedEvent)->x;
319 *yp = gheight-1 - levptr(XButtonPressedEvent)->y;
320 XUngrabPointer(ourdisplay, CurrentTime);
321 XFlush(ourdisplay); /* insure release */
322 if (c_last > c_first) /* key pressed */
323 return(x11_getc());
324 /* button pressed */
325 if (levptr(XButtonPressedEvent)->button == Button1)
326 return(MB1);
327 if (levptr(XButtonPressedEvent)->button == Button2)
328 return(MB2);
329 if (levptr(XButtonPressedEvent)->button == Button3)
330 return(MB3);
331 return(ABORT);
332 }
333
334
335 static
336 xnewcolr(ndx, r, g, b) /* enter a color into hardware table */
337 int ndx;
338 int r, g, b;
339 {
340 XColor xcolor;
341
342 xcolor.pixel = pixval[ndx];
343 xcolor.red = r << 8;
344 xcolor.green = g << 8;
345 xcolor.blue = b << 8;
346 xcolor.flags = DoRed|DoGreen|DoBlue;
347
348 XStoreColor(ourdisplay, ourmap, &xcolor);
349 }
350
351
352 static int
353 getpixels() /* get the color map */
354 {
355 XColor thiscolor;
356 register int i, j;
357
358 if (ncolors > 0)
359 return(ncolors);
360 if (ourvinfo.visual == DefaultVisual(ourdisplay,ourscreen)) {
361 ourmap = DefaultColormap(ourdisplay,ourscreen);
362 goto loop;
363 }
364 newmap:
365 ourmap = XCreateColormap(ourdisplay,gwind,ourvinfo.visual,AllocNone);
366 loop:
367 for (ncolors = ourvinfo.colormap_size;
368 ncolors > ourvinfo.colormap_size/3;
369 ncolors = ncolors*.937) {
370 pixval = (unsigned long *)malloc(ncolors*sizeof(unsigned long));
371 if (pixval == NULL)
372 return(ncolors = 0);
373 if (XAllocColorCells(ourdisplay,ourmap,0,NULL,0,pixval,ncolors))
374 break;
375 free((char *)pixval);
376 pixval = NULL;
377 }
378 if (pixval == NULL) {
379 if (ourmap == DefaultColormap(ourdisplay,ourscreen))
380 goto newmap; /* try it with our map */
381 else
382 return(ncolors = 0); /* failed */
383 }
384 if (ourmap != DefaultColormap(ourdisplay,ourscreen))
385 for (i = 0; i < ncolors; i++) { /* reset black and white */
386 if (pixval[i] != ourblack && pixval[i] != ourwhite)
387 continue;
388 thiscolor.pixel = pixval[i];
389 thiscolor.flags = DoRed|DoGreen|DoBlue;
390 XQueryColor(ourdisplay,
391 DefaultColormap(ourdisplay,ourscreen),
392 &thiscolor);
393 XStoreColor(ourdisplay, ourmap, &thiscolor);
394 for (j = i; j+1 < ncolors; j++)
395 pixval[j] = pixval[j+1];
396 ncolors--;
397 i--;
398 }
399 XSetWindowColormap(ourdisplay, gwind, ourmap);
400 return(ncolors);
401 }
402
403
404 static
405 freepixels() /* free our pixels */
406 {
407 if (ncolors == 0)
408 return;
409 XFreeColors(ourdisplay,ourmap,pixval,ncolors,0L);
410 free((char *)pixval);
411 pixval = NULL;
412 ncolors = 0;
413 if (ourmap != DefaultColormap(ourdisplay,ourscreen))
414 XFreeColormap(ourdisplay, ourmap);
415 ourmap = 0;
416 }
417
418
419 static unsigned long
420 true_pixel(col) /* return true pixel value for color */
421 COLOR col;
422 {
423 unsigned long rval;
424 BYTE rgb[3];
425
426 map_color(rgb, col);
427 rval = ourvinfo.red_mask*rgb[RED]/255 & ourvinfo.red_mask;
428 rval |= ourvinfo.green_mask*rgb[GRN]/255 & ourvinfo.green_mask;
429 rval |= ourvinfo.blue_mask*rgb[BLU]/255 & ourvinfo.blue_mask;
430 return(rval);
431 }
432
433
434 static int
435 x11_getc() /* get a command character */
436 {
437 while (c_last <= c_first) {
438 c_first = c_last = 0; /* reset */
439 getevent(); /* wait for key */
440 }
441 x11_driver.inpready--;
442 return(c_queue[c_first++]);
443 }
444
445
446 static
447 getevent() /* get next event */
448 {
449 XNextEvent(ourdisplay, levptr(XEvent));
450 switch (levptr(XEvent)->type) {
451 case ConfigureNotify:
452 resizewindow(levptr(XConfigureEvent));
453 break;
454 case UnmapNotify:
455 mapped = 0;
456 freepixels();
457 break;
458 case MapNotify:
459 if (ourvinfo.class == PseudoColor ||
460 ourvinfo.class == GrayScale)
461 if (getpixels() == 0)
462 stderr_v("Cannot allocate colors\n");
463 else
464 new_ctab(ncolors);
465 mapped = 1;
466 break;
467 case Expose:
468 fixwindow(levptr(XExposeEvent));
469 break;
470 case KeyPress:
471 getkey(levptr(XKeyPressedEvent));
472 break;
473 case ButtonPress:
474 break;
475 }
476 }
477
478
479 static
480 getkey(ekey) /* get input key */
481 register XKeyPressedEvent *ekey;
482 {
483 register int n;
484
485 n = XLookupString(ekey, c_queue+c_last, sizeof(c_queue)-c_last,
486 NULL, NULL);
487 c_last += n;
488 x11_driver.inpready += n;
489 }
490
491
492 static
493 fixwindow(eexp) /* repair damage to window */
494 register XExposeEvent *eexp;
495 {
496 if (eexp->window == gwind) {
497 sprintf(getcombuf(&x11_driver), "repaint %d %d %d %d\n",
498 eexp->x, gheight - eexp->y - eexp->height,
499 eexp->x + eexp->width, gheight - eexp->y);
500 } else if (eexp->window == comline->w) {
501 if (eexp->count == 0)
502 xt_redraw(comline);
503 }
504 }
505
506
507 static
508 resizewindow(ersz) /* resize window */
509 register XConfigureEvent *ersz;
510 {
511 if (ersz->width == gwidth && ersz->height-COMHEIGHT == gheight)
512 return;
513
514 gwidth = ersz->width;
515 gheight = ersz->height-COMHEIGHT;
516 x11_driver.xsiz = gwidth < MINWIDTH ? MINWIDTH : gwidth;
517 x11_driver.ysiz = gheight < MINHEIGHT ? MINHEIGHT : gheight;
518
519 strcpy(getcombuf(&x11_driver), "new\n");
520 }