ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/rt/x10.c
Revision: 1.29
Committed: Tue Jul 10 12:19:46 1990 UTC (34 years, 10 months ago) by greg
Content type: text/plain
Branch: MAIN
Changes since 1.28: +8 -8 lines
Log Message:
fixed command line initialization in x_clear()

File Contents

# User Rev Content
1 greg 1.1 /* Copyright (c) 1987 Regents of the University of California */
2    
3     #ifndef lint
4     static char SCCSid[] = "$SunId$ LBL";
5     #endif
6    
7     /*
8     * x10.c - driver for X-windows version 10.4
9     *
10     * 5/7/87
11     */
12    
13     #include <stdio.h>
14    
15     #include <sys/ioctl.h>
16    
17     #include <X/Xlib.h>
18     #include <X/cursors/bcross.cursor>
19     #include <X/cursors/bcross_mask.cursor>
20    
21     #include "color.h"
22    
23     #include "driver.h"
24    
25     #include "xtwind.h"
26    
27 greg 1.12 #define GAMMA 2.2 /* exponent for color correction */
28 greg 1.1
29     #define BORWIDTH 5 /* border width */
30     #define COMHEIGHT (COMLH*COMCH) /* command line height (pixels) */
31 greg 1.18 #define MINWIDTH (32*COMCW) /* minimum graphics window width */
32 greg 1.26 #define MINHEIGHT MINWIDTH /* minimum graphics window height */
33 greg 1.1
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 13 /* approx. character height (pixels) */
38    
39     #define levptr(etype) ((etype *)&thisevent)
40    
41     static XEvent thisevent; /* current event */
42    
43     static int ncolors = 0; /* color table size */
44 greg 1.12 static int *pixval; /* allocated pixel values */
45 greg 1.1
46     static Display *ourdisplay = NULL; /* our display */
47    
48     static Window gwind = 0; /* our graphics window */
49    
50     static Cursor pickcursor = 0; /* cursor used for picking */
51    
52 greg 1.24 static int gwidth, gheight; /* graphics window size */
53 greg 1.1
54     static TEXTWIND *comline = NULL; /* our command line */
55    
56     static char c_queue[64]; /* input queue */
57     static int c_first = 0; /* first character in queue */
58     static int c_last = 0; /* last character in queue */
59    
60 greg 1.18 extern char *malloc(), *getcombuf();
61 greg 1.1
62 greg 1.21 extern char *progname;
63    
64 greg 1.28 static int x_close(), x_clear(), x_paintr(), x_errout(),
65 greg 1.25 x_getcur(), x_comout(), x_comin(), x_flush();
66 greg 1.1
67     static struct driver x_driver = {
68     x_close, x_clear, x_paintr, x_getcur,
69 greg 1.25 x_comout, x_comin, x_flush, 1.0
70 greg 1.1 };
71    
72    
73     struct driver *
74 greg 1.16 x_init(name, id) /* initialize driver */
75     char *name, *id;
76 greg 1.1 {
77 greg 1.19 char defgeom[32];
78     OpaqueFrame mainframe;
79    
80 greg 1.1 ourdisplay = XOpenDisplay(NULL);
81     if (ourdisplay == NULL) {
82 greg 1.2 stderr_v("cannot open X-windows; DISPLAY variable set?\n");
83 greg 1.1 return(NULL);
84     }
85     if (DisplayPlanes() < 4) {
86     stderr_v("not enough colors\n");
87     return(NULL);
88     }
89 greg 1.14 make_gmap(GAMMA); /* make color map */
90 greg 1.1
91     pickcursor = XCreateCursor(bcross_width, bcross_height,
92     bcross_bits, bcross_mask_bits,
93     bcross_x_hot, bcross_y_hot,
94     BlackPixel, WhitePixel, GXcopy);
95 greg 1.19 mainframe.bdrwidth = BORWIDTH;
96     mainframe.border = BlackPixmap;
97     mainframe.background = BlackPixmap;
98     sprintf(defgeom, "=%dx%d+0+22", DisplayWidth()-(2*BORWIDTH),
99     DisplayHeight()-(2*BORWIDTH+22));
100 greg 1.21 gwind = XCreate("X10 display driver", progname, NULL, defgeom,
101 greg 1.19 &mainframe, MINWIDTH, MINHEIGHT+COMHEIGHT);
102     if (gwind == 0) {
103     stderr_v("can't create window\n");
104     return(NULL);
105     }
106     XStoreName(gwind, id);
107     XSelectInput(gwind, KeyPressed|ButtonPressed|
108     ExposeWindow|ExposeRegion|UnmapWindow);
109 greg 1.24 gwidth = mainframe.width;
110     gheight = mainframe.height-COMHEIGHT;
111     x_driver.xsiz = gwidth < MINWIDTH ? MINWIDTH : gwidth;
112     x_driver.ysiz = gheight < MINHEIGHT ? MINHEIGHT : gheight;
113 greg 1.1 x_driver.inpready = 0;
114 greg 1.5 cmdvec = x_comout; /* set error vectors */
115 greg 1.1 if (wrnvec != NULL)
116     wrnvec = x_errout;
117     return(&x_driver);
118     }
119    
120    
121     static
122     x_close() /* close our display */
123     {
124 greg 1.5 cmdvec = NULL; /* reset error vectors */
125 greg 1.1 if (wrnvec != NULL)
126     wrnvec = stderr_v;
127     if (ourdisplay == NULL)
128     return;
129     if (comline != NULL) {
130     xt_close(comline);
131     comline = NULL;
132     }
133     if (gwind != 0) {
134     XDestroyWindow(gwind);
135     gwind = 0;
136     }
137     XFreeCursor(pickcursor);
138 greg 1.12 freepixels();
139 greg 1.1 XCloseDisplay(ourdisplay);
140     ourdisplay = NULL;
141     }
142    
143    
144     static
145     x_clear(xres, yres) /* clear our display */
146     int xres, yres;
147     {
148     if (xres != gwidth || yres != gheight) { /* new window */
149 greg 1.19 XChangeWindow(gwind, xres, yres+COMHEIGHT);
150 greg 1.1 gwidth = xres;
151     gheight = yres;
152     } else /* just clear */
153     XClear(gwind);
154 greg 1.17 /* reinitialize color table */
155 greg 1.22 if (getpixels() == 0)
156 greg 1.17 stderr_v("cannot allocate colors\n");
157     else
158     new_ctab(ncolors);
159 greg 1.29 /* open new command line */
160     if (comline != NULL)
161     xt_close(comline);
162     comline = xt_open(gwind, 0, yres, xres, COMHEIGHT, 0, COMFN);
163     if (comline == NULL) {
164     stderr_v("Cannot open command line window\n");
165     quit(1);
166     }
167 greg 1.24 XMapWindow(gwind); /* make sure it's mapped */
168 greg 1.17 XSync(1); /* discard input */
169 greg 1.1 return;
170     }
171    
172    
173     static
174     x_paintr(col, xmin, ymin, xmax, ymax) /* fill a rectangle */
175     COLOR col;
176     int xmin, ymin, xmax, ymax;
177     {
178 greg 1.14 extern int xnewcolr(); /* pixel assignment routine */
179 greg 1.1
180     if (ncolors > 0) {
181     XPixSet(gwind, xmin, gheight-ymax, xmax-xmin, ymax-ymin,
182 greg 1.14 pixval[get_pixel(col, xnewcolr)]);
183 greg 1.1 }
184 greg 1.25 }
185    
186    
187     static
188     x_flush() /* flush output */
189     {
190     if (ncolors <= 0) /* output necessary for death */
191     XPixSet(gwind,0,0,1,1,BlackPixel);
192     while (XPending() > 0)
193     getevent();
194    
195 greg 1.1 }
196    
197    
198     static
199 greg 1.23 x_comin(inp, prompt) /* read in a command line */
200     char *inp, *prompt;
201 greg 1.1 {
202 greg 1.28 extern int x_getc();
203 greg 1.1
204 greg 1.23 if (prompt != NULL)
205     if (fromcombuf(inp, &x_driver))
206     return;
207     else
208     xt_puts(prompt, comline);
209 greg 1.1 xt_cursor(comline, TBLKCURS);
210 greg 1.11 editline(inp, x_getc, x_comout);
211 greg 1.1 xt_cursor(comline, TNOCURS);
212     }
213    
214    
215     static
216     x_comout(out) /* output a string to command line */
217     char *out;
218     {
219 greg 1.27 if (comline == NULL)
220     return;
221     xt_puts(out, comline);
222     if (out[strlen(out)-1] == '\n')
223     XFlush();
224 greg 1.1 }
225    
226    
227     static
228     x_errout(msg) /* output an error message */
229     char *msg;
230     {
231 greg 1.27 stderr_v(msg); /* send to stderr also! */
232 greg 1.1 x_comout(msg);
233     }
234    
235    
236     static int
237     x_getcur(xp, yp) /* get cursor position */
238     int *xp, *yp;
239     {
240     while (XGrabMouse(gwind, pickcursor, ButtonPressed) == 0)
241     sleep(1);
242     XFocusKeyboard(gwind);
243     do
244     getevent();
245     while (c_last <= c_first && levptr(XEvent)->type != ButtonPressed);
246     *xp = levptr(XKeyOrButtonEvent)->x;
247     *yp = gheight-1 - levptr(XKeyOrButtonEvent)->y;
248     XFocusKeyboard(RootWindow);
249     XUngrabMouse();
250 greg 1.8 XFlush(); /* insure release */
251 greg 1.1 if (c_last > c_first) /* key pressed */
252     return(x_getc());
253     /* button pressed */
254     switch (levptr(XKeyOrButtonEvent)->detail & 0377) {
255     case LeftButton:
256     return(MB1);
257     case MiddleButton:
258     return(MB2);
259     case RightButton:
260     return(MB3);
261     }
262     return(ABORT);
263     }
264    
265    
266     static
267 greg 1.13 xnewcolr(ndx, r, g, b) /* enter a color into hardware table */
268 greg 1.1 int ndx;
269 greg 1.13 int r, g, b;
270 greg 1.1 {
271     Color xcolor;
272    
273     xcolor.pixel = pixval[ndx];
274 greg 1.13 xcolor.red = r << 8;
275     xcolor.green = g << 8;
276     xcolor.blue = b << 8;
277 greg 1.1
278     XStoreColor(&xcolor);
279     }
280    
281    
282 greg 1.17 static int
283 greg 1.12 getpixels() /* get the color map */
284 greg 1.1 {
285     int planes;
286    
287 greg 1.22 if (ncolors > 0)
288     return(ncolors);
289 greg 1.1 for (ncolors=(1<<DisplayPlanes())-3; ncolors>12; ncolors=ncolors*.937){
290     pixval = (int *)malloc(ncolors*sizeof(int));
291 greg 1.12 if (pixval == NULL)
292     break;
293 greg 1.1 if (XGetColorCells(0,ncolors,0,&planes,pixval) != 0)
294 greg 1.17 return(ncolors);
295 greg 1.1 free((char *)pixval);
296     }
297 greg 1.17 return(ncolors = 0);
298 greg 1.1 }
299    
300    
301     static
302 greg 1.12 freepixels() /* free our pixels */
303 greg 1.1 {
304     if (ncolors == 0)
305     return;
306     XFreeColors(pixval, ncolors, 0);
307     free((char *)pixval);
308     ncolors = 0;
309     }
310    
311    
312     static int
313     x_getc() /* get a command character */
314     {
315     while (c_last <= c_first) {
316     c_first = c_last = 0; /* reset */
317     getevent(); /* wait for key */
318     }
319     x_driver.inpready--;
320     return(c_queue[c_first++]);
321     }
322    
323    
324     static
325     getevent() /* get next event */
326     {
327     XNextEvent(levptr(XEvent));
328     switch (levptr(XEvent)->type) {
329     case KeyPressed:
330     getkey(levptr(XKeyPressedEvent));
331     break;
332     case ExposeWindow:
333 greg 1.18 windowchange(levptr(XExposeEvent));
334     break;
335 greg 1.1 case ExposeRegion:
336     fixwindow(levptr(XExposeEvent));
337     break;
338     case UnmapWindow:
339     if (levptr(XUnmapEvent)->subwindow == 0)
340 greg 1.12 freepixels();
341 greg 1.1 break;
342     case ButtonPressed: /* handled in x_getcur() */
343     break;
344     }
345     }
346    
347    
348     static
349 greg 1.18 windowchange(eexp) /* process window change event */
350     register XExposeEvent *eexp;
351     {
352     if (eexp->subwindow != 0) {
353     fixwindow(eexp);
354     return;
355     }
356     /* check for change in size */
357 greg 1.19 if (eexp->width != gwidth || eexp->height-COMHEIGHT != gheight) {
358 greg 1.24 gwidth = eexp->width;
359     gheight = eexp->height-COMHEIGHT;
360     x_driver.xsiz = gwidth < MINWIDTH ? MINWIDTH : gwidth;
361     x_driver.ysiz = gheight < MINHEIGHT ? MINHEIGHT : gheight;
362 greg 1.18 strcpy(getcombuf(&x_driver), "new\n");
363     return;
364     }
365     /* remap colors */
366 greg 1.22 if (getpixels() == 0) {
367 greg 1.18 stderr_v("cannot allocate colors\n");
368     return;
369     }
370     new_ctab(ncolors);
371     /* redraw */
372     fixwindow(eexp);
373     }
374    
375    
376     static
377 greg 1.1 getkey(ekey) /* get input key */
378     register XKeyPressedEvent *ekey;
379     {
380     int n;
381     register char *str;
382    
383     str = XLookupMapping(ekey, &n);
384 greg 1.20 while (n-- > 0 && c_last < sizeof(c_queue)) {
385 greg 1.1 c_queue[c_last++] = *str++;
386 greg 1.20 x_driver.inpready++;
387     }
388 greg 1.1 }
389    
390    
391     static
392     fixwindow(eexp) /* repair damage to window */
393     register XExposeEvent *eexp;
394     {
395     if (eexp->subwindow == 0)
396 greg 1.18 sprintf(getcombuf(&x_driver), "repaint %d %d %d %d\n",
397     eexp->x, gheight - eexp->y - eexp->height,
398 greg 1.1 eexp->x + eexp->width, gheight - eexp->y);
399     else if (eexp->subwindow == comline->w)
400     xt_redraw(comline);
401     }