]> git.saurik.com Git - wxWidgets.git/blame - src/motif/glcanvas.cpp
let the sample display existing page on start
[wxWidgets.git] / src / motif / glcanvas.cpp
CommitLineData
8b089c5e
JS
1/////////////////////////////////////////////////////////////////////////////
2// Name: glcanvas.cpp
3// Purpose: wxGLCanvas, for using OpenGL with wxWindows 2.0 for Motif.
4// Uses the GLX extension.
5// Author: Julian Smart and Wolfram Gloger
6// Modified by:
7// Created: 1995, 1999
8// RCS-ID: $Id$
9// Copyright: (c) Julian Smart, Wolfram Gloger
f48d169c 10// Licence: wxWindows licence
8b089c5e
JS
11/////////////////////////////////////////////////////////////////////////////
12
13#ifdef __GNUG__
14#pragma implementation "glcanvas.h"
15#endif
16
17#include "wx/setup.h"
18
19#if wxUSE_GLCANVAS
20
21#include "wx/glcanvas.h"
22#include "wx/utils.h"
23#include "wx/app.h"
24
dae752d4
JJ
25#ifdef __VMS
26# pragma message disable nosimpint
27#endif
8b089c5e 28#include <Xm/Xm.h>
dae752d4
JJ
29#ifdef __VMS
30# pragma message enable nosimpint
31#endif
8b089c5e
JS
32#include "wx/motif/private.h"
33
34#ifdef OLD_MESA
35// workaround for bug in Mesa's glx.c
36static int bitcount( unsigned long n )
37{
38 int bits;
39 for (bits=0; n>0;) {
f48d169c
UN
40 if(n & 1) bits++;
41 n = n >> 1;
8b089c5e
JS
42 }
43 return bits;
44}
45#endif
46
2695b174
UN
47/*
48 * GLContext implementation
49 */
50
51IMPLEMENT_CLASS(wxGLContext,wxObject)
52
53wxGLContext::wxGLContext( bool WXUNUSED(isRGB), wxWindow *win,
54 const wxPalette& WXUNUSED(palette) )
55{
56 m_window = win;
57 // m_widget = win->m_wxwindow;
58
59 wxGLCanvas *gc = (wxGLCanvas*) win;
60 XVisualInfo *vi = (XVisualInfo *) gc->m_vi;
61
62 wxCHECK_RET( vi, "invalid visual for OpenGl" );
63
64 m_glContext = glXCreateContext( (Display *)m_window->GetXDisplay(), vi,
65 None, GL_TRUE);
66
67 wxCHECK_RET( m_glContext, "Couldn't create OpenGl context" );
68}
69
70wxGLContext::wxGLContext(
71 bool WXUNUSED(isRGB), wxWindow *win,
72 const wxPalette& WXUNUSED(palette),
73 const wxGLContext *other /* for sharing display lists */
74)
75{
76 m_window = win;
77 // m_widget = win->m_wxwindow;
78
79 wxGLCanvas *gc = (wxGLCanvas*) win;
80 XVisualInfo *vi = (XVisualInfo *) gc->m_vi;
81
82 wxCHECK_RET( vi, "invalid visual for OpenGl" );
83
84 if( other != 0 )
85 m_glContext = glXCreateContext( (Display *)m_window->GetXDisplay(), vi,
86 other->m_glContext, GL_TRUE );
87 else
88 m_glContext = glXCreateContext( (Display *)m_window->GetXDisplay(), vi,
89 None, GL_TRUE );
90
91 wxCHECK_RET( m_glContext, "Couldn't create OpenGl context" );
92}
93
94wxGLContext::~wxGLContext()
95{
96 if (!m_glContext) return;
97
98 if (m_glContext == glXGetCurrentContext())
99 {
100 glXMakeCurrent( (Display*) m_window->GetXDisplay(), None, NULL);
101 }
102
103 glXDestroyContext( (Display*) m_window->GetXDisplay(), m_glContext );
104}
105
106void wxGLContext::SwapBuffers()
107{
108 if (m_glContext)
109 {
110 Display* display = (Display*) m_window->GetXDisplay();
111 glXSwapBuffers(display, (Window) m_window->GetXWindow());
112 }
113}
114
115void wxGLContext::SetCurrent()
116{
117 if (m_glContext)
118 {
119 Display* display = (Display*) m_window->GetXDisplay();
120 glXMakeCurrent(display, (Window) m_window->GetXWindow(),
121 m_glContext );;
122 }
123}
124
125void wxGLContext::SetColour(const char *colour)
126{
127 wxColour *the_colour = wxTheColourDatabase->FindColour(colour);
128 if(the_colour) {
129 GLboolean b;
130 glGetBooleanv(GL_RGBA_MODE, &b);
131 if(b) {
132 glColor3ub(the_colour->Red(),
133 the_colour->Green(),
134 the_colour->Blue());
135 } else {
136 GLint pix = (GLint)the_colour->m_pixel;
137 if(pix == -1) {
138 XColor exact_def;
139 exact_def.red = (unsigned short)the_colour->Red() << 8;
140 exact_def.green = (unsigned short)the_colour->Green() << 8;
141 exact_def.blue = (unsigned short)the_colour->Blue() << 8;
142 exact_def.flags = DoRed | DoGreen | DoBlue;
143 if(!XAllocColor((Display*) m_window->GetXDisplay(),
144 (Colormap) wxTheApp->GetMainColormap(m_window->GetXDisplay()),
145 &exact_def)) {
146 wxDebugMsg("wxGLCanvas: cannot allocate color\n");
147 return;
148 }
149 pix = the_colour->m_pixel = exact_def.pixel;
150 }
151 glIndexi(pix);
152 }
153 }
154}
155
156void wxGLContext::SetupPixelFormat()
157{
158}
159
160void wxGLContext::SetupPalette( const wxPalette& WXUNUSED(palette) )
161{
162}
163
164wxPalette wxGLContext::CreateDefaultPalette()
165{
166 return wxNullPalette;
167}
168
169
170
171
8b089c5e
JS
172/*
173 * GLCanvas implementation
174 */
175
176IMPLEMENT_CLASS(wxGLCanvas, wxScrolledWindow)
177
2695b174
UN
178BEGIN_EVENT_TABLE(wxGLCanvas, wxScrolledWindow)
179// EVT_SIZE(wxGLCanvas::OnSize)
180END_EVENT_TABLE()
181
182
183wxGLCanvas::wxGLCanvas( wxWindow *parent, wxWindowID id,
184 const wxPoint& pos, const wxSize& size,
185 long style, const wxString& name,
186 int *attribList,
187 const wxPalette& palette )
188: wxScrolledWindow(parent, id, pos, size, style, name)
189{
190 Create( parent, NULL, NULL, id, pos, size, style, name, attribList, palette );
191}
192
193wxGLCanvas::wxGLCanvas( wxWindow *parent,
194 const wxGLContext *shared,
195 wxWindowID id,
196 const wxPoint& pos, const wxSize& size,
197 long style, const wxString& name,
198 int *attribList,
199 const wxPalette& palette )
200: wxScrolledWindow(parent, id, pos, size, style, name)
201{
202 Create( parent, shared, NULL, id, pos, size, style, name, attribList, palette );
203}
204
205wxGLCanvas::wxGLCanvas( wxWindow *parent,
206 const wxGLCanvas *shared,
207 wxWindowID id,
208 const wxPoint& pos, const wxSize& size,
209 long style, const wxString& name,
210 int *attribList,
211 const wxPalette& palette )
212: wxScrolledWindow(parent, id, pos, size, style, name)
213{
214 Create( parent, NULL, shared, id, pos, size, style, name, attribList, palette );
215}
216
217
218/*
219bool wxGLCanvas::Create(wxWindow *parent,
220 const wxGLContext *shared, const wxGLCanvas *shared_context_of,
221 wxWindowID id = -1, const wxPoint& pos,
f48d169c
UN
222 const wxSize& size, long style,
223 const wxString& name, int *attribList, const wxPalette& palette):
224 wxScrolledWindow(parent, id, pos, size, style, name)
2695b174
UN
225*/
226
227bool wxGLCanvas::Create( wxWindow *parent,
228 const wxGLContext *shared,
229 const wxGLCanvas *shared_context_of,
230 wxWindowID id,
231 const wxPoint& pos, const wxSize& size,
232 long style, const wxString& name,
233 int *attribList,
234 const wxPalette& palette)
8b089c5e
JS
235{
236 XVisualInfo *vi, vi_templ;
237 XWindowAttributes xwa;
238 int val, n;
239
2695b174
UN
240 m_sharedContext = (wxGLContext*)shared; // const_cast
241 m_sharedContextOf = (wxGLCanvas*)shared_context_of; // const_cast
242 m_glContext = (wxGLContext*) NULL;
243
8b089c5e
JS
244 Display* display = (Display*) GetXDisplay();
245
8b089c5e
JS
246 // Check for the presence of the GLX extension
247 if(!glXQueryExtension(display, NULL, NULL)) {
f48d169c 248 wxDebugMsg("wxGLCanvas: GLX extension is missing\n");
2695b174 249 return false;
8b089c5e
JS
250 }
251
f48d169c
UN
252 if(attribList) {
253 int data[512], arg=0, p=0;
254
255 while( (attribList[arg]!=0) && (p<512) )
256 {
257 switch( attribList[arg++] )
258 {
259 case WX_GL_RGBA: data[p++] = GLX_RGBA; break;
260 case WX_GL_BUFFER_SIZE:
261 data[p++]=GLX_BUFFER_SIZE; data[p++]=attribList[arg++]; break;
262 case WX_GL_LEVEL:
263 data[p++]=GLX_LEVEL; data[p++]=attribList[arg++]; break;
264 case WX_GL_DOUBLEBUFFER: data[p++] = GLX_DOUBLEBUFFER; break;
265 case WX_GL_STEREO: data[p++] = GLX_STEREO; break;
266 case WX_GL_AUX_BUFFERS:
267 data[p++]=GLX_AUX_BUFFERS; data[p++]=attribList[arg++]; break;
268 case WX_GL_MIN_RED:
269 data[p++]=GLX_RED_SIZE; data[p++]=attribList[arg++]; break;
270 case WX_GL_MIN_GREEN:
271 data[p++]=GLX_GREEN_SIZE; data[p++]=attribList[arg++]; break;
272 case WX_GL_MIN_BLUE:
273 data[p++]=GLX_BLUE_SIZE; data[p++]=attribList[arg++]; break;
274 case WX_GL_MIN_ALPHA:
275 data[p++]=GLX_ALPHA_SIZE; data[p++]=attribList[arg++]; break;
276 case WX_GL_DEPTH_SIZE:
277 data[p++]=GLX_DEPTH_SIZE; data[p++]=attribList[arg++]; break;
278 case WX_GL_STENCIL_SIZE:
279 data[p++]=GLX_STENCIL_SIZE; data[p++]=attribList[arg++]; break;
280 case WX_GL_MIN_ACCUM_RED:
281 data[p++]=GLX_ACCUM_RED_SIZE; data[p++]=attribList[arg++]; break;
282 case WX_GL_MIN_ACCUM_GREEN:
283 data[p++]=GLX_ACCUM_GREEN_SIZE; data[p++]=attribList[arg++]; break;
284 case WX_GL_MIN_ACCUM_BLUE:
285 data[p++]=GLX_ACCUM_BLUE_SIZE; data[p++]=attribList[arg++]; break;
286 case WX_GL_MIN_ACCUM_ALPHA:
287 data[p++]=GLX_ACCUM_ALPHA_SIZE; data[p++]=attribList[arg++]; break;
288 default:
289 break;
290 }
291 }
292 data[p] = 0;
293
294 attribList = (int*) data;
295 // Get an appropriate visual
296 vi = glXChooseVisual(display, DefaultScreen(display), attribList);
2695b174 297 if(!vi) return false;
f48d169c
UN
298
299 // Here we should make sure that vi is the same visual as the
300 // one used by the xwindow drawable in wxCanvas. However,
301 // there is currently no mechanism for this in wx_canvs.cc.
8b089c5e 302 } else {
f48d169c
UN
303 // By default, we use the visual of xwindow
304 // NI: is this really senseful ? opengl in e.g. color index mode ?
305 XGetWindowAttributes(display, (Window) GetXWindow(), &xwa);
306 vi_templ.visualid = XVisualIDFromVisual(xwa.visual);
307 vi = XGetVisualInfo(display, VisualIDMask, &vi_templ, &n);
2695b174 308 if(!vi) return false;
f48d169c 309 glXGetConfig(display, vi, GLX_USE_GL, &val);
2695b174 310 if(!val) return false;
f48d169c
UN
311 // Basically, this is it. It should be possible to use vi
312 // in glXCreateContext() below. But this fails with Mesa.
313 // I notified the Mesa author about it; there may be a fix.
8b089c5e 314#ifdef OLD_MESA
f48d169c
UN
315 // Construct an attribute list matching the visual
316 int a_list[32];
317 n = 0;
318 if(vi->c_class==TrueColor || vi->c_class==DirectColor) { // RGBA visual
319 a_list[n++] = GLX_RGBA;
320 a_list[n++] = GLX_RED_SIZE;
321 a_list[n++] = bitcount(vi->red_mask);
322 a_list[n++] = GLX_GREEN_SIZE;
323 a_list[n++] = bitcount(vi->green_mask);
324 a_list[n++] = GLX_BLUE_SIZE;
325 a_list[n++] = bitcount(vi->blue_mask);
326 glXGetConfig(display, vi, GLX_ALPHA_SIZE, &val);
327 a_list[n++] = GLX_ALPHA_SIZE;
328 a_list[n++] = val;
329 } else { // Color index visual
330 glXGetConfig(display, vi, GLX_BUFFER_SIZE, &val);
331 a_list[n++] = GLX_BUFFER_SIZE;
332 a_list[n++] = val;
333 }
334 a_list[n] = None;
2695b174 335 // XFree(vi);
f48d169c 336 vi = glXChooseVisual(display, DefaultScreen(display), a_list);
2695b174 337 if(!vi) return false;
8b089c5e
JS
338#endif /* OLD_MESA */
339 }
340
2695b174
UN
341 m_vi = vi; // safe for later use
342
343 wxCHECK_MSG( m_vi, FALSE, "required visual couldn't be found" );
344
8b089c5e 345 // Create the GLX context and make it current
2695b174
UN
346
347 wxGLContext *share= m_sharedContext;
348 if (share==NULL && m_sharedContextOf)
349 share = m_sharedContextOf->GetContext();
350
351 m_glContext = new wxGLContext( TRUE, this, wxNullPalette, share );
352
8b089c5e 353#ifndef OLD_MESA
2695b174 354 // XFree(vi);
8b089c5e
JS
355#endif
356 SetCurrent();
2695b174
UN
357
358 return true;
8b089c5e
JS
359}
360
361wxGLCanvas::~wxGLCanvas(void)
362{
2695b174
UN
363 XVisualInfo *vi = (XVisualInfo *) m_vi;
364
365 if (vi) XFree( vi );
366 if (m_glContext) delete m_glContext;
367
368 // Display* display = (Display*) GetXDisplay();
369 // if(glx_cx) glXDestroyContext(display, glx_cx);
8b089c5e
JS
370}
371
372void wxGLCanvas::SwapBuffers()
373{
2695b174
UN
374 if( m_glContext ) m_glContext->SwapBuffers();
375
376 // Display* display = (Display*) GetXDisplay();
377 // if(glx_cx) glXSwapBuffers(display, (Window) GetXWindow());
8b089c5e
JS
378}
379
380void wxGLCanvas::SetCurrent()
381{
2695b174
UN
382 if( m_glContext ) m_glContext->SetCurrent();
383
384 // Display* display = (Display*) GetXDisplay();
385 // if(glx_cx) glXMakeCurrent(display, (Window) GetXWindow(), glx_cx);
8b089c5e
JS
386}
387
388void wxGLCanvas::SetColour(const char *col)
389{
2695b174 390 if( m_glContext ) m_glContext->SetColour(col);
8b089c5e
JS
391}
392
393#endif
394 // wxUSE_GLCANVAS
395