ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/hd/rhd_ogl.c
Revision: 3.23
Committed: Fri Sep 19 18:33:05 2003 UTC (20 years, 7 months ago) by greg
Content type: text/plain
Branch: MAIN
Changes since 3.22: +4 -2 lines
Log Message:
Improved rholo -o ogl interaction under Mac OS X

File Contents

# Content
1 #ifndef lint
2 static const char RCSid[] = "$Id: rhd_ogl.c,v 3.22 2003/07/21 22:30:18 schorsch Exp $";
3 #endif
4 /*
5 * OpenGL driver for holodeck display.
6 * Based on GLX driver using T-mesh.
7 *
8 * Define symbol STEREO for stereo viewing.
9 * Define symbol DOBJ for display object viewing.
10 */
11
12 #ifdef NOSTEREO
13 #ifdef STEREO
14 #undef STEREO
15 #else
16 #undef NOSTEREO
17 #endif
18 #endif
19
20 #include "standard.h"
21
22 #include <GL/glx.h>
23 #include <GL/glu.h>
24 #ifdef STEREO
25 #include <X11/extensions/SGIStereo.h>
26 #endif
27 #include <time.h>
28
29 #include "rhd_odraw.h"
30 #ifdef DOBJ
31 #include "rhdobj.h"
32 #endif
33
34 #include "x11icon.h"
35
36 #ifndef RAYQLEN
37 #define RAYQLEN 0 /* max. rays to queue before flush */
38 #endif
39 #ifndef MINWIDTH
40 #define MINWIDTH 480 /* minimum graphics window width */
41 #define MINHEIGHT 400 /* minimum graphics window height */
42 #endif
43 #ifndef VIEWDIST
44 #define VIEWDIST 356 /* assumed viewing distance (mm) */
45 #endif
46 #ifndef BORWIDTH
47 #define BORWIDTH 5 /* border width */
48 #endif
49
50 #ifndef FEQ
51 #define FEQ(a,b) ((a)-(b) <= FTINY && (a)-(b) >= -FTINY)
52 #endif
53
54 #define VWHEADLOCK 01 /* head position is locked flag */
55 #define VWPERSP 02 /* perspective view is set */
56 #define VWORTHO 04 /* orthographic view is set */
57 #define VWCHANGE 010 /* view has changed */
58 #define VWSTEADY 020 /* view is now steady */
59 #define VWMAPPED 040 /* window is mapped */
60
61 #define GAMMA 1.4 /* default gamma correction */
62
63 #define FRAMESTATE(s) (((s)&(ShiftMask|ControlMask))==(ShiftMask|ControlMask))
64
65 #define MOVPCT 7 /* percent distance to move /frame */
66 #define MOVDIR(b) ((b)==Button1 ? 1 : (b)==Button2 ? 0 : -1)
67 #define MOVDEG (-5) /* degrees to orbit CW/down /frame */
68 #define MOVORB(s) ((s)&ShiftMask ? 1 : (s)&ControlMask ? -1 : 0)
69
70 #define setstereobuf(bid) (glXWaitGL(), \
71 XSGISetStereoBuffer(ourdisplay, gwind, bid), \
72 glXWaitX())
73
74 #define ourscreen DefaultScreen(ourdisplay)
75 #define ourroot RootWindow(ourdisplay,ourscreen)
76 #define ourmask (StructureNotifyMask|ExposureMask|KeyPressMask|\
77 ButtonPressMask|ButtonReleaseMask)
78
79 #define levptr(etype) ((etype *)&currentevent)
80
81 struct driver odev; /* global device driver structure */
82
83 char odev_args[64]; /* command arguments */
84
85 static GLfloat *depthbuffer = NULL; /* depth buffer */
86
87 #ifdef STEREO
88 static VIEW vwright; /* right eye view */
89 static GLfloat *depthright = NULL; /* right depth buffer */
90 #endif
91
92 static int rayqleft = 0; /* rays left to queue before flush */
93
94 static XEvent currentevent; /* current event */
95
96 static unsigned long ourblack=0, ourwhite=~0;
97
98 static Display *ourdisplay = NULL; /* our display */
99 static XVisualInfo *ourvinf; /* our visual information */
100 static Window gwind = 0; /* our graphics window */
101 static GLXContext gctx; /* our GLX context */
102
103 static double pwidth, pheight; /* pixel dimensions (mm) */
104
105 static double dev_zmin, dev_zmax; /* fore and aft clipping plane dist. */
106 static double dev_zrat; /* (1. - dev_zmin/dev_zmax) */
107
108 #define setzrat() (dev_zrat = 1. - dev_zmin/dev_zmax)
109 #define mapdepth(d) ((d)>0.9995 ? FHUGE : dev_zmin/(1.-(d)*dev_zrat))
110
111 static int inpresflags; /* input result flags */
112
113 static int viewflags; /* what's happening with view */
114
115 static int resizewindow(), getevent(), getkey(), moveview(), wipeclean(),
116 xferdepth(), freedepth(), setglortho(),
117 setglpersp(), getframe(), getmove(), fixwindow(), mytmflags();
118
119 static double getdistance();
120
121 #ifdef STEREO
122 static int pushright(), popright();
123 #endif
124
125 extern int gmPortals; /* GL portal list id */
126
127 extern time_t time();
128
129
130 dev_open(id) /* initialize GLX driver */
131 char *id;
132 {
133 extern char *getenv();
134 static RGBPRIMS myprims = STDPRIMS;
135 static int atlBest[] = {GLX_RGBA, GLX_DOUBLEBUFFER,
136 GLX_RED_SIZE,8, GLX_GREEN_SIZE,8,
137 GLX_BLUE_SIZE,8, GLX_DEPTH_SIZE,15, None};
138 static int atlOK[] = {GLX_RGBA, GLX_DOUBLEBUFFER,
139 GLX_RED_SIZE,4, GLX_GREEN_SIZE,4,
140 GLX_BLUE_SIZE,4, GLX_DEPTH_SIZE,15, None};
141 char *ev;
142 double gamval = GAMMA;
143 RGBPRIMP dpri = stdprims;
144 XSetWindowAttributes ourwinattr;
145 XWMHints ourxwmhints;
146 XSizeHints oursizhints;
147 /* check for unsupported stereo */
148 #ifdef NOSTEREO
149 error(INTERNAL, "stereo display driver unavailable");
150 #endif
151 /* open display server */
152 ourdisplay = XOpenDisplay(NULL);
153 CHECK(ourdisplay==NULL, USER,
154 "cannot open X-windows; DISPLAY variable set?");
155 #ifdef STEREO
156 switch (XSGIQueryStereoMode(ourdisplay, ourroot)) {
157 case STEREO_TOP:
158 case STEREO_BOTTOM:
159 break;
160 case STEREO_OFF:
161 error(USER,
162 "wrong video mode: run \"/usr/gfx/setmon -n STR_TOP\" first");
163 case X_STEREO_UNSUPPORTED:
164 error(USER, "stereo mode not supported on this screen");
165 default:
166 error(INTERNAL, "unknown stereo mode");
167 }
168 #endif
169 /* find a usable visual */
170 ourvinf = glXChooseVisual(ourdisplay, ourscreen, atlBest);
171 if (ourvinf == NULL)
172 ourvinf = glXChooseVisual(ourdisplay, ourscreen, atlOK);
173 CHECK(ourvinf==NULL, USER, "no suitable visuals available");
174 /* get a context */
175 gctx = glXCreateContext(ourdisplay, ourvinf, NULL, GL_TRUE);
176 /* set gamma and tone mapping */
177 if ((ev = XGetDefault(ourdisplay, "radiance", "gamma")) != NULL
178 || (ev = getenv("DISPLAY_GAMMA")) != NULL)
179 gamval = atof(ev);
180 if ((ev = getenv("DISPLAY_PRIMARIES")) != NULL &&
181 sscanf(ev, "%f %f %f %f %f %f %f %f",
182 &myprims[RED][CIEX],&myprims[RED][CIEY],
183 &myprims[GRN][CIEX],&myprims[GRN][CIEY],
184 &myprims[BLU][CIEX],&myprims[BLU][CIEY],
185 &myprims[WHT][CIEX],&myprims[WHT][CIEY]) >= 6)
186 dpri = myprims;
187 if (tmInit(mytmflags(), dpri, gamval) == NULL)
188 error(SYSTEM, "not enough memory in dev_open");
189 /* open window */
190 ourwinattr.background_pixel = ourblack;
191 ourwinattr.border_pixel = ourblack;
192 ourwinattr.event_mask = ourmask;
193 /* this is stupid */
194 ourwinattr.colormap = XCreateColormap(ourdisplay, ourroot,
195 ourvinf->visual, AllocNone);
196 gwind = XCreateWindow(ourdisplay, ourroot, 0, 0,
197 DisplayWidth(ourdisplay,ourscreen)-2*BORWIDTH,
198 #ifdef STEREO
199 (DisplayHeight(ourdisplay,ourscreen)-2*BORWIDTH)/2,
200 #else
201 DisplayHeight(ourdisplay,ourscreen)-2*BORWIDTH,
202 #endif
203 BORWIDTH, ourvinf->depth, InputOutput, ourvinf->visual,
204 CWBackPixel|CWBorderPixel|CWColormap|CWEventMask, &ourwinattr);
205 CHECK(gwind==0, SYSTEM, "cannot create window");
206 XStoreName(ourdisplay, gwind, id);
207 /* set window manager hints */
208 ourxwmhints.flags = InputHint|IconPixmapHint;
209 ourxwmhints.input = True;
210 ourxwmhints.icon_pixmap = XCreateBitmapFromData(ourdisplay,
211 gwind, x11icon_bits, x11icon_width, x11icon_height);
212 XSetWMHints(ourdisplay, gwind, &ourxwmhints);
213 oursizhints.min_width = MINWIDTH;
214 #ifdef STEREO
215 oursizhints.min_height = MINHEIGHT/2;
216 oursizhints.max_width = DisplayWidth(ourdisplay,ourscreen)-2*BORWIDTH;
217 oursizhints.max_height = (DisplayHeight(ourdisplay,ourscreen) -
218 2*BORWIDTH)/2;
219 oursizhints.flags = PMinSize|PMaxSize;
220 #else
221 oursizhints.min_height = MINHEIGHT;
222 oursizhints.flags = PMinSize;
223 #endif
224 XSetNormalHints(ourdisplay, gwind, &oursizhints);
225 /* set GLX context */
226 glXMakeCurrent(ourdisplay, gwind, gctx);
227 glEnable(GL_DEPTH_TEST);
228 glDepthFunc(GL_LEQUAL);
229 glClearColor(0, 0, 0, 0);
230 glFrontFace(GL_CCW);
231 glDisable(GL_CULL_FACE);
232 glLightModeli(GL_LIGHT_MODEL_TWO_SIDE, GL_TRUE);
233 glPolygonMode(GL_FRONT_AND_BACK, GL_FILL);
234 glPixelStorei(GL_PACK_ALIGNMENT, 1);
235 glPixelStorei(GL_UNPACK_ALIGNMENT, 1);
236 /* figure out sensible view */
237 pwidth = (double)DisplayWidthMM(ourdisplay, ourscreen) /
238 DisplayWidth(ourdisplay, ourscreen);
239 pheight = (double)DisplayHeightMM(ourdisplay, ourscreen) /
240 DisplayHeight(ourdisplay, ourscreen);
241 #ifdef STEREO
242 pheight *= 2.;
243 setstereobuf(STEREO_BUFFER_LEFT);
244 #endif
245 checkglerr("setting rendering parameters");
246 odev.v = stdview;
247 odev.v.type = VT_PER;
248 viewflags = VWSTEADY; /* view starts static */
249 /* map the window */
250 XMapWindow(ourdisplay, gwind);
251 dev_input(); /* sets size and view angles */
252 if (!odInit(DisplayWidth(ourdisplay,ourscreen) *
253 DisplayHeight(ourdisplay,ourscreen) / 3))
254 error(SYSTEM, "insufficient memory for value storage");
255 odev.name = id;
256 odev.firstuse = 1; /* can't recycle samples */
257 odev.ifd = ConnectionNumber(ourdisplay);
258 }
259
260
261 dev_close() /* close our display and free resources */
262 {
263 #ifdef DOBJ
264 dobj_cleanup();
265 #endif
266 freedepth();
267 gmEndGeom();
268 gmEndPortal();
269 odDone();
270 glXMakeCurrent(ourdisplay, None, NULL);
271 glXDestroyContext(ourdisplay, gctx);
272 XDestroyWindow(ourdisplay, gwind);
273 gwind = 0;
274 XCloseDisplay(ourdisplay);
275 ourdisplay = NULL;
276 tmDone(NULL);
277 odev.v.type = 0;
278 odev.hres = odev.vres = 0;
279 odev.ifd = -1;
280 }
281
282
283 dev_clear() /* clear our representation */
284 {
285 viewflags |= VWCHANGE; /* pretend our view has changed */
286 wipeclean(); /* clean off display and samples */
287 dev_flush(); /* redraw geometry & get depth */
288 rayqleft = 0; /* hold off update */
289 }
290
291
292 int
293 dev_view(nv) /* assign new driver view */
294 register VIEW *nv;
295 {
296 double d;
297
298 if (nv->type != VT_PER || /* check view legality */
299 nv->horiz > 160. || nv->vert > 160.) {
300 error(COMMAND, "illegal view type/angle");
301 nv->type = odev.v.type;
302 nv->horiz = odev.v.horiz;
303 nv->vert = odev.v.vert;
304 return(0);
305 }
306 if (nv != &odev.v) {
307 /* resize window? */
308 if (!FEQ(nv->horiz,odev.v.horiz) ||
309 !FEQ(nv->vert,odev.v.vert)) {
310 int dw = DisplayWidth(ourdisplay,ourscreen);
311 int dh = DisplayHeight(ourdisplay,ourscreen);
312
313 dw -= 25; /* for window frame */
314 dh -= 50;
315 #ifdef STEREO
316 dh /= 2;
317 #endif
318 odev.hres = 2.*VIEWDIST/pwidth *
319 tan(PI/180./2.*nv->horiz);
320 odev.vres = 2.*VIEWDIST/pheight *
321 tan(PI/180./2.*nv->vert);
322 if (odev.hres > dw) {
323 odev.vres = dw * odev.vres / odev.hres;
324 odev.hres = dw;
325 }
326 if (odev.vres > dh) {
327 odev.hres = dh * odev.hres / odev.vres;
328 odev.vres = dh;
329 }
330 XResizeWindow(ourdisplay, gwind, odev.hres, odev.vres);
331 dev_input(); /* get resize event */
332 }
333 odev.v = *nv; /* setview() already called */
334 viewflags |= VWCHANGE;
335 }
336 #ifdef STEREO
337 vwright = *nv;
338 d = eyesepdist / sqrt(nv->hn2);
339 VSUM(vwright.vp, nv->vp, nv->hvec, d);
340 /* setview(&vwright); -- Unnecessary */
341 #endif
342 wipeclean();
343 return(1);
344 }
345
346
347 dev_section(gfn, pfn) /* add octree for geometry rendering */
348 char *gfn, *pfn;
349 {
350 char *cp;
351
352 if (gfn == NULL) {
353 gmEndGeom();
354 gmEndPortal();
355 wipeclean(); /* new geometry, so redraw it */
356 return;
357 }
358 if (access(gfn, R_OK) == 0)
359 gmNewGeom(gfn);
360 #ifdef DEBUG
361 else {
362 sprintf(errmsg, "cannot load octree \"%s\"", gfn);
363 error(WARNING, errmsg);
364 }
365 #endif
366 if (pfn != NULL)
367 gmNewPortal(pfn);
368 }
369
370
371 dev_auxcom(cmd, args) /* process an auxiliary command */
372 char *cmd, *args;
373 {
374 #ifdef DOBJ
375 int vischange;
376
377 if ((vischange = dobj_command(cmd, args)) >= 0) {
378 if (vischange) {
379 imm_mode = beam_sync(1) > 0;
380 dev_clear();
381 }
382 return;
383 }
384 #endif
385 sprintf(errmsg, "%s: unknown command", cmd);
386 error(COMMAND, errmsg);
387 }
388
389
390 VIEW *
391 dev_auxview(n, hvres) /* return nth auxiliary view */
392 int n;
393 int hvres[2];
394 {
395 hvres[0] = odev.hres; hvres[1] = odev.vres;
396 if (n == 0)
397 return(&odev.v);
398 #ifdef STEREO
399 if (n == 1)
400 return(&vwright);
401 #endif
402 return(NULL);
403 }
404
405
406 int
407 dev_input() /* get X11 input */
408 {
409 inpresflags = 0;
410
411 do
412 getevent();
413
414 while (XPending(ourdisplay) > 0);
415
416 odev.inpready = 0;
417
418 return(inpresflags);
419 }
420
421
422 dev_value(c, d, p) /* add a pixel value to our texture */
423 COLR c;
424 FVECT d, p;
425 {
426 #ifdef DOBJ
427 if (dobj_lightsamp != NULL) { /* in light source sampling */
428 (*dobj_lightsamp)(c, d, p);
429 return;
430 }
431 #endif
432 odSample(c, d, p); /* add to display representation */
433 if (!--rayqleft)
434 dev_flush(); /* flush output */
435 }
436
437
438 int
439 dev_flush() /* flush output as appropriate */
440 {
441 int ndrawn;
442
443 if ((viewflags&(VWMAPPED|VWPERSP)) == (VWMAPPED|VWPERSP)) {
444 #ifdef STEREO
445 pushright(); /* draw right eye */
446 ndrawn = gmDrawGeom();
447 #ifdef DOBJ
448 ndrawn += dobj_render();
449 #endif
450 checkglerr("rendering right eye");
451 popright(); /* draw left eye */
452 #endif
453 ndrawn = gmDrawGeom();
454 #ifdef DOBJ
455 ndrawn += dobj_render();
456 #endif
457 glXSwapBuffers(ourdisplay, gwind);
458 checkglerr("rendering base view");
459 }
460 if ((viewflags&(VWMAPPED|VWSTEADY|VWPERSP|VWORTHO)) ==
461 (VWMAPPED|VWSTEADY|VWPERSP)) {
462 /* first time after steady */
463 if (ndrawn)
464 xferdepth(); /* transfer and clear depth */
465 setglortho(); /* set orthographic view */
466
467 }
468 if ((viewflags&(VWMAPPED|VWSTEADY|VWPERSP|VWORTHO)) ==
469 (VWMAPPED|VWSTEADY|VWORTHO)) {
470 /* else update cones */
471 #ifdef STEREO
472 pushright();
473 odUpdate(1); /* draw right eye */
474 popright();
475 #endif
476 odUpdate(0); /* draw left eye */
477 glFlush(); /* flush OpenGL */
478 }
479 rayqleft = RAYQLEN;
480 /* flush X11 and return # pending */
481 return(odev.inpready = XPending(ourdisplay));
482 }
483
484
485 checkglerr(where) /* check for GL or GLU error */
486 char *where;
487 {
488 register GLenum errcode;
489
490 while ((errcode = glGetError()) != GL_NO_ERROR) {
491 sprintf(errmsg, "OpenGL error %s: %s",
492 where, gluErrorString(errcode));
493 error(WARNING, errmsg);
494 }
495 }
496
497
498 static
499 xferdepth() /* load and clear depth buffer */
500 {
501 register GLfloat *dbp;
502 register GLubyte *pbuf;
503
504 if (depthbuffer == NULL) { /* allocate private depth buffer */
505 #ifdef STEREO
506 depthright = (GLfloat *)malloc(
507 odev.hres*odev.vres*sizeof(GLfloat));
508 #endif
509 depthbuffer = (GLfloat *)malloc(
510 odev.hres*odev.vres*sizeof(GLfloat));
511 CHECK(depthbuffer==NULL, SYSTEM, "out of memory in xferdepth");
512 }
513 /* allocate alpha buffer for portals */
514 if (gmPortals)
515 pbuf = (GLubyte *)malloc(odev.hres*odev.vres*sizeof(GLubyte));
516 else
517 pbuf = NULL;
518 #ifdef STEREO
519 pushright();
520 glReadPixels(0, 0, odev.hres, odev.vres,
521 GL_DEPTH_COMPONENT, GL_FLOAT, depthright);
522 if (pbuf != NULL) {
523 glClear(GL_COLOR_BUFFER_BIT);
524 gmDrawPortals(0xff, -1, -1, -1);
525 glReadPixels(0, 0, odev.hres, odev.vres,
526 GL_RED, GL_UNSIGNED_BYTE, pbuf);
527 }
528 for (dbp = depthright + odev.hres*odev.vres; dbp-- > depthright; )
529 if (pbuf != NULL && pbuf[dbp-depthright]&0x40)
530 *dbp = FHUGE;
531 else
532 *dbp = mapdepth(*dbp);
533 glClear(GL_DEPTH_BUFFER_BIT);
534 odDepthMap(1, depthright);
535 popright();
536 #endif
537 /* read back depth buffer */
538 glReadPixels(0, 0, odev.hres, odev.vres,
539 GL_DEPTH_COMPONENT, GL_FLOAT, depthbuffer);
540 if (pbuf != NULL) {
541 glClear(GL_COLOR_BUFFER_BIT); /* find portals */
542 gmDrawPortals(0xff, -1, -1, -1);
543 glReadPixels(0, 0, odev.hres, odev.vres,
544 GL_RED, GL_UNSIGNED_BYTE, pbuf);
545 #ifdef DEBUG
546 glXSwapBuffers(ourdisplay, gwind);
547 #endif
548 }
549 for (dbp = depthbuffer + odev.hres*odev.vres; dbp-- > depthbuffer; )
550 if (pbuf != NULL && pbuf[dbp-depthbuffer]&0x40)
551 *dbp = FHUGE;
552 else
553 *dbp = mapdepth(*dbp);
554 glClear(GL_DEPTH_BUFFER_BIT); /* clear system depth buffer */
555 odDepthMap(0, depthbuffer); /* transfer depth data */
556 if (pbuf != NULL)
557 free((void *)pbuf); /* free our portal buffer */
558 }
559
560
561 static
562 freedepth() /* free recorded depth buffer */
563 {
564 if (depthbuffer == NULL)
565 return;
566 #ifdef STEREO
567 odDepthMap(1, NULL);
568 free((void *)depthright);
569 depthright = NULL;
570 #endif
571 odDepthMap(0, NULL);
572 free((void *)depthbuffer);
573 depthbuffer = NULL;
574 }
575
576
577 static double
578 getdistance(dx, dy, direc) /* distance from fore plane along view ray */
579 int dx, dy;
580 FVECT direc;
581 {
582 GLfloat gldepth;
583 double dist;
584
585 if (dx<0 | dx>=odev.hres | dy<0 | dy>=odev.vres)
586 return(FHUGE);
587 if (depthbuffer != NULL)
588 dist = depthbuffer[dy*odev.hres + dx];
589 else {
590 glReadPixels(dx,dy, 1,1, GL_DEPTH_COMPONENT,
591 GL_FLOAT, &gldepth);
592 if (gldepth <= FTINY)
593 return (FHUGE); /* call failed */
594 dist = mapdepth(gldepth);
595 }
596 if (dist >= .99*FHUGE)
597 return(FHUGE);
598 return((dist-odev.v.vfore)/DOT(direc,odev.v.vdir));
599 }
600
601
602 #ifdef STEREO
603 static
604 pushright() /* push on right view & buffer */
605 {
606 double d;
607
608 setstereobuf(STEREO_BUFFER_RIGHT);
609 if (viewflags & VWPERSP) {
610 glMatrixMode(GL_MODELVIEW);
611 glPushMatrix();
612 d = -eyesepdist / sqrt(odev.v.hn2);
613 glTranslated(d*odev.v.hvec[0], d*odev.v.hvec[1],
614 d*odev.v.hvec[2]);
615 checkglerr("setting right view");
616 }
617 }
618
619
620 static
621 popright() /* pop off right view & buffer */
622 {
623 if (viewflags & VWPERSP) {
624 glMatrixMode(GL_MODELVIEW);
625 glPopMatrix();
626 }
627 setstereobuf(STEREO_BUFFER_LEFT);
628 }
629 #endif
630
631
632 static int
633 mytmflags() /* figure out tone mapping flags */
634 {
635 extern char *progname;
636 register char *cp, *tail;
637 /* find basic name */
638 for (cp = tail = progname; *cp; cp++)
639 if (*cp == '/')
640 tail = cp+1;
641 for (cp = tail; *cp && *cp != '.'; cp++)
642 ;
643 #ifdef DEBUG
644 if (cp > tail && cp[-1] == 'h')
645 return(TM_F_HUMAN);
646 else
647 return(TM_F_CAMERA);
648 #else
649 if (cp > tail && cp[-1] == 'h')
650 return(TM_F_HUMAN|TM_F_NOSTDERR);
651 else
652 return(TM_F_CAMERA|TM_F_NOSTDERR);
653 #endif
654 }
655
656
657 static
658 getevent() /* get next event */
659 {
660 XNextEvent(ourdisplay, levptr(XEvent));
661 switch (levptr(XEvent)->type) {
662 case ConfigureNotify:
663 resizewindow(levptr(XConfigureEvent));
664 break;
665 case UnmapNotify:
666 viewflags &= ~VWMAPPED;
667 break;
668 case MapNotify:
669 odRemap(0);
670 viewflags |= VWMAPPED;
671 break;
672 case Expose:
673 fixwindow(levptr(XExposeEvent));
674 break;
675 case KeyPress:
676 getkey(levptr(XKeyPressedEvent));
677 break;
678 case ButtonPress:
679 if (FRAMESTATE(levptr(XButtonPressedEvent)->state))
680 getframe(levptr(XButtonPressedEvent));
681 else
682 getmove(levptr(XButtonPressedEvent));
683 break;
684 }
685 }
686
687
688 static
689 draw3dline(wp) /* draw 3d line in world coordinates */
690 register FVECT wp[2];
691 {
692 glVertex3d(wp[0][0], wp[0][1], wp[0][2]);
693 glVertex3d(wp[1][0], wp[1][1], wp[1][2]);
694 }
695
696
697 static
698 draw_grids(fore) /* draw holodeck section grids */
699 int fore;
700 {
701 glPushAttrib(GL_LIGHTING_BIT|GL_ENABLE_BIT);
702 glDisable(GL_LIGHTING);
703 if (fore)
704 glColor3ub(4, 250, 250);
705 else
706 glColor3ub(0, 0, 0);
707 glBegin(GL_LINES); /* draw each grid line */
708 gridlines(draw3dline);
709 glEnd();
710 checkglerr("drawing grid lines");
711 glPopAttrib();
712 }
713
714
715 static
716 moveview(dx, dy, mov, orb) /* move our view */
717 int dx, dy, mov, orb;
718 {
719 VIEW nv;
720 FVECT odir, v1, wip;
721 double d, d1;
722 register int li;
723 /* start with old view */
724 nv = odev.v;
725 /* orient our motion */
726 if (viewray(v1, odir, &odev.v,
727 (dx+.5)/odev.hres, (dy+.5)/odev.vres) < -FTINY)
728 return(0); /* outside view */
729 if (mov | orb) { /* moving relative to geometry */
730 d = getdistance(dx, dy, odir); /* distance from front plane */
731 #ifdef DOBJ
732 d1 = dobj_trace(NULL, v1, odir);
733 if (d1 < d)
734 d = d1;
735 #endif
736 if (d >= .99*FHUGE)
737 d = 0.5*(dev_zmax+dev_zmin); /* just guess */
738 VSUM(wip, v1, odir, d);
739 VSUB(odir, wip, odev.v.vp);
740 } else /* panning with constant viewpoint */
741 VCOPY(nv.vdir, odir);
742 if (orb && mov) { /* orbit left/right */
743 spinvector(odir, odir, nv.vup, d=MOVDEG*PI/180.*mov);
744 VSUM(nv.vp, wip, odir, -1.);
745 spinvector(nv.vdir, nv.vdir, nv.vup, d);
746 } else if (orb) { /* orbit up/down */
747 fcross(v1, odir, nv.vup);
748 if (normalize(v1) == 0.)
749 return(0);
750 spinvector(odir, odir, v1, d=MOVDEG*PI/180.*orb);
751 VSUM(nv.vp, wip, odir, -1.);
752 spinvector(nv.vdir, nv.vdir, v1, d);
753 } else if (mov) { /* move forward/backward */
754 d = MOVPCT/100. * mov;
755 VSUM(nv.vp, nv.vp, odir, d);
756 }
757 if (!mov ^ !orb && viewflags&VWHEADLOCK) { /* restore height */
758 VSUM(v1, odev.v.vp, nv.vp, -1.);
759 d = DOT(v1, nv.vup);
760 VSUM(nv.vp, nv.vp, odev.v.vup, d);
761 }
762 if (setview(&nv) != NULL)
763 return(0); /* illegal view */
764 dev_view(&nv);
765 inpresflags |= DFL(DC_SETVIEW);
766 return(1);
767 }
768
769
770 static
771 getframe(ebut) /* get focus frame */
772 XButtonPressedEvent *ebut;
773 {
774 int startx = ebut->x, starty = ebut->y;
775 int endx, endy;
776
777 XMaskEvent(ourdisplay, ButtonReleaseMask, levptr(XEvent));
778 endx = levptr(XButtonReleasedEvent)->x;
779 endy = levptr(XButtonReleasedEvent)->y;
780 if (endx == startx | endy == starty) {
781 XBell(ourdisplay, 0);
782 return;
783 }
784 if (endx < startx) {register int c = endx; endx = startx; startx = c;}
785 if (endy < starty) {register int c = endy; endy = starty; starty = c;}
786 sprintf(odev_args, "%.3f %.3f %.3f %.3f",
787 (startx+.5)/odev.hres, 1.-(endy+.5)/odev.vres,
788 (endx+.5)/odev.hres, 1.-(starty+.5)/odev.vres);
789 inpresflags |= DFL(DC_FOCUS);
790 }
791
792
793 static
794 waitabit() /* pause a moment */
795 {
796 struct timespec ts;
797 ts.tv_sec = 0;
798 ts.tv_nsec = 100000000L;
799 nanosleep(&ts, NULL);
800 }
801
802
803 static
804 getmove(ebut) /* get view change */
805 XButtonPressedEvent *ebut;
806 {
807 int movdir = MOVDIR(ebut->button);
808 int movorb = MOVORB(ebut->state);
809 int ndrawn;
810 Window rootw, childw;
811 int rootx, rooty, wx, wy;
812 unsigned int statemask;
813
814 XNoOp(ourdisplay); /* makes sure we're not idle */
815
816 viewflags &= ~VWSTEADY; /* flag moving view */
817 setglpersp(); /* start us off in perspective */
818 while (!XCheckMaskEvent(ourdisplay,
819 ButtonReleaseMask, levptr(XEvent))) {
820 /* pause so as not to move too fast */
821 waitabit();
822 /* get cursor position */
823 if (!XQueryPointer(ourdisplay, gwind, &rootw, &childw,
824 &rootx, &rooty, &wx, &wy, &statemask))
825 break; /* on another screen */
826 /* compute view motion */
827 if (!moveview(wx, odev.vres-1-wy, movdir, movorb)) {
828 sleep(1);
829 continue; /* cursor in bad place */
830 }
831 draw_grids(1); /* redraw grid */
832 #ifdef STEREO
833 pushright();
834 draw_grids(1);
835 ndrawn = gmDrawGeom();
836 #ifdef DOBJ
837 ndrawn += dobj_render();
838 #endif
839 popright();
840 #endif
841 /* redraw octrees */
842 ndrawn = gmDrawGeom();
843 #ifdef DOBJ
844 ndrawn += dobj_render(); /* redraw objects */
845 #endif
846 glXSwapBuffers(ourdisplay, gwind);
847 if (!ndrawn)
848 sleep(1); /* for reasonable interaction */
849 }
850 if (!(inpresflags & DFL(DC_SETVIEW))) { /* do final motion */
851 movdir = MOVDIR(levptr(XButtonReleasedEvent)->button);
852 wx = levptr(XButtonReleasedEvent)->x;
853 wy = levptr(XButtonReleasedEvent)->y;
854 moveview(wx, odev.vres-1-wy, movdir, movorb);
855 }
856 viewflags |= VWSTEADY; /* done goofing around */
857 }
858
859
860 static
861 setglpersp() /* set perspective view in GL */
862 {
863 double d, xmin, xmax, ymin, ymax;
864 GLfloat vec[4];
865 double depthlim[2];
866 /* set depth limits */
867 gmDepthLimit(depthlim, odev.v.vp, odev.v.vdir);
868 if (depthlim[0] >= depthlim[1]) {
869 dev_zmin = 1.;
870 dev_zmax = 100.;
871 } else {
872 dev_zmin = 0.5*depthlim[0];
873 dev_zmax = 1.25*depthlim[1];
874 if (dev_zmin > dev_zmax/5.)
875 dev_zmin = dev_zmax/5.;
876 }
877 if (odev.v.vfore > FTINY)
878 dev_zmin = odev.v.vfore;
879 if (odev.v.vaft > FTINY)
880 dev_zmax = odev.v.vaft;
881 if (dev_zmin*500. < dev_zmax)
882 dev_zmin = dev_zmax/500.;
883 setzrat();
884 xmax = dev_zmin * tan(PI/180./2. * odev.v.horiz);
885 xmin = -xmax;
886 d = odev.v.hoff * (xmax - xmin);
887 xmin += d; xmax += d;
888 ymax = dev_zmin * tan(PI/180./2. * odev.v.vert);
889 ymin = -ymax;
890 d = odev.v.voff * (ymax - ymin);
891 ymin += d; ymax += d;
892 /* set view matrix */
893 glMatrixMode(GL_PROJECTION);
894 glLoadIdentity();
895 glFrustum(xmin, xmax, ymin, ymax, dev_zmin, dev_zmax);
896 gluLookAt(odev.v.vp[0], odev.v.vp[1], odev.v.vp[2],
897 odev.v.vp[0] + odev.v.vdir[0],
898 odev.v.vp[1] + odev.v.vdir[1],
899 odev.v.vp[2] + odev.v.vdir[2],
900 odev.v.vup[0], odev.v.vup[1], odev.v.vup[2]);
901 checkglerr("setting perspective view");
902 vec[0] = vec[1] = vec[2] = 0.; vec[3] = 1.;
903 glLightModelfv(GL_LIGHT_MODEL_AMBIENT, vec);
904 vec[0] = -odev.v.vdir[0];
905 vec[1] = -odev.v.vdir[1];
906 vec[2] = -odev.v.vdir[2];
907 vec[3] = 0.;
908 glLightfv(GL_LIGHT0, GL_POSITION, vec);
909 vec[0] = vec[1] = vec[2] = .7; vec[3] = 1.;
910 glLightfv(GL_LIGHT0, GL_SPECULAR, vec);
911 glLightfv(GL_LIGHT0, GL_DIFFUSE, vec);
912 vec[0] = vec[1] = vec[2] = .3; vec[3] = 1.;
913 glLightfv(GL_LIGHT0, GL_AMBIENT, vec);
914 glEnable(GL_LIGHT0);
915 glEnable(GL_LIGHTING); /* light our GL objects */
916 glShadeModel(GL_SMOOTH);
917 viewflags &= ~VWORTHO;
918 viewflags |= VWPERSP;
919 }
920
921
922 static
923 setglortho() /* set up orthographic view for cone drawing */
924 {
925 glDrawBuffer(GL_FRONT); /* use single-buffer mode */
926 /* set view matrix */
927 glMatrixMode(GL_PROJECTION);
928 glLoadIdentity();
929 glOrtho(0., (double)odev.hres, 0., (double)odev.vres,
930 0.001*OMAXDEPTH, 1.001*(-OMAXDEPTH));
931 checkglerr("setting orthographic view");
932 glDisable(GL_LIGHTING); /* cones are constant color */
933 glShadeModel(GL_FLAT);
934 viewflags &= ~VWPERSP;
935 viewflags |= VWORTHO;
936 }
937
938
939 static
940 wipeclean() /* prepare for redraw */
941 {
942 glDrawBuffer(GL_BACK); /* use double-buffer mode */
943 glReadBuffer(GL_BACK);
944 /* clear buffers */
945 #ifdef STEREO
946 setstereobuf(STEREO_BUFFER_RIGHT);
947 glClear(GL_DEPTH_BUFFER_BIT|GL_COLOR_BUFFER_BIT);
948 setstereobuf(STEREO_BUFFER_LEFT);
949 #endif
950 glClear(GL_DEPTH_BUFFER_BIT|GL_COLOR_BUFFER_BIT);
951 freedepth();
952 if ((viewflags&(VWCHANGE|VWSTEADY)) ==
953 (VWCHANGE|VWSTEADY)) { /* clear samples if new */
954 odClean();
955 viewflags &= ~VWCHANGE; /* change noted */
956 } else if (viewflags & VWSTEADY)
957 odRedrawAll();
958 setglpersp(); /* reset view & clipping planes */
959 }
960
961
962 static
963 getkey(ekey) /* get input key */
964 register XKeyPressedEvent *ekey;
965 {
966 Window rootw, childw;
967 int rootx, rooty, wx, wy;
968 unsigned int statemask;
969 int n;
970 char buf[8];
971
972 n = XLookupString(ekey, buf, sizeof(buf), NULL, NULL);
973 if (n != 1)
974 return;
975 switch (buf[0]) {
976 case 'h': /* turn on height motion lock */
977 viewflags |= VWHEADLOCK;
978 return;
979 case 'H': /* turn off height motion lock */
980 viewflags &= ~VWHEADLOCK;
981 return;
982 case 'l': /* retrieve last view */
983 inpresflags |= DFL(DC_LASTVIEW);
984 return;
985 case 'p': /* pause computation */
986 inpresflags |= DFL(DC_PAUSE);
987 return;
988 case 'v': /* spit out view */
989 inpresflags |= DFL(DC_GETVIEW);
990 return;
991 case 'f': /* frame view position */
992 if (!XQueryPointer(ourdisplay, gwind, &rootw, &childw,
993 &rootx, &rooty, &wx, &wy, &statemask))
994 return; /* on another screen */
995 sprintf(odev_args, "%.4f %.4f", (wx+.5)/odev.hres,
996 1.-(wy+.5)/odev.vres);
997 inpresflags |= DFL(DC_FOCUS);
998 return;
999 case 'F': /* unfocus */
1000 odev_args[0] = '\0';
1001 inpresflags |= DFL(DC_FOCUS);
1002 return;
1003 case '\n':
1004 case '\r': /* resume computation */
1005 inpresflags |= DFL(DC_RESUME);
1006 return;
1007 case CTRL('R'): /* redraw screen */
1008 odRemap(0); /* new tone mapping */
1009 glClear(GL_DEPTH_BUFFER_BIT);
1010 #ifdef STEREO
1011 setstereobuf(STEREO_BUFFER_RIGHT);
1012 glClear(GL_DEPTH_BUFFER_BIT);
1013 setstereobuf(STEREO_BUFFER_LEFT);
1014 #endif
1015 return;
1016 case CTRL('L'): /* refresh from server */
1017 if (inpresflags & DFL(DC_REDRAW))
1018 return; /* already called */
1019 XRaiseWindow(ourdisplay, gwind);
1020 XFlush(ourdisplay); /* raise up window */
1021 sleep(1); /* wait for restacking */
1022 dev_clear(); /* clear buffer and samples */
1023 odRemap(1); /* start fresh histogram */
1024 inpresflags |= DFL(DC_REDRAW); /* resend values from server */
1025 return;
1026 case 'K': /* kill rtrace process(es) */
1027 inpresflags |= DFL(DC_KILL);
1028 break;
1029 case 'R': /* restart rtrace */
1030 inpresflags |= DFL(DC_RESTART);
1031 break;
1032 case 'C': /* clobber holodeck */
1033 inpresflags |= DFL(DC_CLOBBER);
1034 break;
1035 case 'q': /* quit the program */
1036 inpresflags |= DFL(DC_QUIT);
1037 return;
1038 default:
1039 XBell(ourdisplay, 0);
1040 return;
1041 }
1042 }
1043
1044
1045 static
1046 fixwindow(eexp) /* repair damage to window */
1047 register XExposeEvent *eexp;
1048 {
1049 int xmin, ymin, xmax, ymax;
1050
1051 if (odev.hres == 0 | odev.vres == 0) { /* first exposure */
1052 resizewindow((XConfigureEvent *)eexp);
1053 return;
1054 }
1055 xmin = eexp->x; xmax = eexp->x + eexp->width;
1056 ymin = odev.vres - eexp->y - eexp->height; ymax = odev.vres - eexp->y;
1057
1058 if (xmin <= 0 && xmax >= odev.hres-1 &&
1059 ymin <= 0 && ymax >= odev.vres) {
1060 DCHECK(eexp->count, WARNING, "multiple clear in fixwindow");
1061 wipeclean(); /* make sure we're go */
1062 return;
1063 }
1064 /* clear portion of depth */
1065 glPushAttrib(GL_DEPTH_BUFFER_BIT|GL_COLOR_BUFFER_BIT);
1066 glColorMask(GL_FALSE, GL_FALSE, GL_FALSE, GL_FALSE);
1067 glDepthFunc(GL_ALWAYS);
1068 glBegin(GL_POLYGON);
1069 glVertex3i(xmin, ymin, OMAXDEPTH);
1070 glVertex3i(xmax, ymin, OMAXDEPTH);
1071 glVertex3i(xmax, ymax, OMAXDEPTH);
1072 glVertex3i(xmin, ymax, OMAXDEPTH);
1073 glEnd();
1074 #ifdef STEREO
1075 setstereobuf(STEREO_BUFFER_RIGHT);
1076 glBegin(GL_POLYGON);
1077 glVertex3i(xmin, ymin, OMAXDEPTH);
1078 glVertex3i(xmax, ymin, OMAXDEPTH);
1079 glVertex3i(xmax, ymax, OMAXDEPTH);
1080 glVertex3i(xmin, ymax, OMAXDEPTH);
1081 glEnd();
1082 odRedraw(1, xmin, ymin, xmax, ymax);
1083 setstereobuf(STEREO_BUFFER_LEFT);
1084 #endif
1085 glPopAttrib();
1086 odRedraw(0, xmin, ymin, xmax, ymax);
1087 }
1088
1089
1090 static
1091 resizewindow(ersz) /* resize window */
1092 register XConfigureEvent *ersz;
1093 {
1094 glViewport(0, 0, ersz->width, ersz->height);
1095
1096 if (ersz->width == odev.hres && ersz->height == odev.vres)
1097 return;
1098
1099 odev.hres = ersz->width;
1100 odev.vres = ersz->height;
1101
1102 odev.v.horiz = 2.*180./PI * atan(0.5/VIEWDIST*pwidth*odev.hres);
1103 odev.v.vert = 2.*180./PI * atan(0.5/VIEWDIST*pheight*odev.vres);
1104
1105 inpresflags |= DFL(DC_SETVIEW);
1106 viewflags |= VWCHANGE;
1107 }