' ' GtkGlArea definitions based on GtkGLArea 2.0.1 - their license below. ' ' Ported to BaCon INCLUDE file by Peter van Eerten - GPL. ' ' Version 1.0: Initial release ' Version 1.1: Adapted for BaCon 3.0 ' ' Copyright (C) 1997-1998 Janne Löf ' ' This library is free software; you can redistribute it and/or ' modify it under the terms of the GNU Library General Public ' License as published by the Free Software Foundation; either ' version 2 of the License, or (at your option) any later version. ' ' This library is distributed in the hope that it will be useful, ' but WITHOUT ANY WARRANTY; without even the implied warranty of ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ' Library General Public License for more details. ' ' You should have received a copy of the GNU Library General Public ' License along with this library; if not, write to the Free ' Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ' CATCH GOTO gtkglarea_handle_error IF INSTR(OS$, "Darwin") THEN gtkglarea_LIB$="/System/Library/Frameworks/OpenGL.framework/Libraries/libgtkgl.dylib" ELSE gtkglarea_LIB$ = "libgtkgl-2.0." END IF gtkglarea_seq = -1 LABEL gtkglarea_import_retry INCR gtkglarea_seq gtkglarea_retry = FALSE IMPORT "gtk_gl_area_new(long)" FROM gtkglarea_LIB$ TYPE long IF gtkglarea_retry THEN GOTO gtkglarea_import_retry GOTO gtkglarea_continue LABEL gtkglarea_handle_error IF gtkglarea_seq = 0 THEN gtkglarea_LIB$ = "libgtkgl-2.0.so.0" ELSE gtkglarea_LIB$ = CONCAT$(LEFT$(gtkglarea_LIB$, INSTRREV(gtkglarea_LIB$, ".")), STR$(gtkglarea_seq)) IF gtkglarea_seq < 10 THEN gtkglarea_retry = TRUE ELSE PRINT "No GtkGlArea library found!" END END IF RESUME LABEL gtkglarea_continue CONST GDK_GL_NONE = 0 CONST GDK_GL_USE_GL = 1 CONST GDK_GL_BUFFER_SIZE = 2 CONST GDK_GL_LEVEL = 3 CONST GDK_GL_RGBA = 4 CONST GDK_GL_DOUBLEBUFFER = 5 CONST GDK_GL_STEREO = 6 CONST GDK_GL_AUX_BUFFERS = 7 CONST GDK_GL_RED_SIZE = 8 CONST GDK_GL_GREEN_SIZE = 9 CONST GDK_GL_BLUE_SIZE = 10 CONST GDK_GL_ALPHA_SIZE = 11 CONST GDK_GL_DEPTH_SIZE = 12 CONST GDK_GL_STENCIL_SIZE = 13 CONST GDK_GL_ACCUM_RED_SIZE = 14 CONST GDK_GL_ACCUM_GREEN_SIZE = 15 CONST GDK_GL_ACCUM_BLUE_SIZE = 16 CONST GDK_GL_ACCUM_ALPHA_SIZE = 17 CONST GDK_GL_X_VISUAL_TYPE_EXT = 0x22 CONST GDK_GL_TRANSPARENT_TYPE_EXT = 0x23 CONST GDK_GL_TRANSPARENT_INDEX_VALUE_EXT = 0x24 CONST GDK_GL_TRANSPARENT_RED_VALUE_EXT = 0x25 CONST GDK_GL_TRANSPARENT_GREEN_VALUE_EXT = 0x26 CONST GDK_GL_TRANSPARENT_BLUE_VALUE_EXT = 0x27 CONST GDK_GL_TRANSPARENT_ALPHA_VALUE_EXT = 0x28 IMPORT "gdk_gl_query(void)" FROM gtkglarea_LIB$ TYPE int IMPORT "gdk_gl_get_info(void)" FROM gtkglarea_LIB$ TYPE char* IMPORT "gdk_gl_choose_visual(long)" FROM gtkglarea_LIB$ TYPE long IMPORT "gdk_gl_get_config(long,int)" FROM gtkglarea_LIB$ TYPE int IMPORT "gdk_gl_context_get_type(void)" FROM gtkglarea_LIB$ TYPE int IMPORT "gdk_gl_context_new(long)" FROM gtkglarea_LIB$ TYPE long IMPORT "gdk_gl_context_share_new(long,long,int)" FROM gtkglarea_LIB$ TYPE long IMPORT "gdk_gl_context_attrlist_share_new(long,long,int)" FROM gtkglarea_LIB$ TYPE long IMPORT "gdk_gl_make_current(long,long)" FROM gtkglarea_LIB$ TYPE int IMPORT "gdk_gl_swap_buffers(long)" FROM gtkglarea_LIB$ TYPE void IMPORT "gdk_gl_wait_gdk(void)" FROM gtkglarea_LIB$ TYPE void IMPORT "gdk_gl_wait_gl(void)" FROM gtkglarea_LIB$ TYPE void IMPORT "gdk_gl_pixmap_get_type(void)" FROM gtkglarea_LIB$ TYPE int IMPORT "gdk_gl_pixmap_new(long,long)" FROM gtkglarea_LIB$ TYPE long IMPORT "gdk_gl_pixmap_make_current(long,long)" FROM gtkglarea_LIB$ TYPE int IMPORT "gdk_gl_use_gdk_font(long,int,int,int)" FROM gtkglarea_LIB$ TYPE void IMPORT "gtk_gl_area_get_type(void)" FROM gtkglarea_LIB$ TYPE int IMPORT "gtk_gl_area_share_new(long,long)" FROM gtkglarea_LIB$ TYPE long IMPORT "gtk_gl_area_new_vargs(long,...)" FROM gtkglarea_LIB$ TYPE long IMPORT "gtk_gl_area_make_current(long)" FROM gtkglarea_LIB$ TYPE int IMPORT "gtk_gl_area_endgl(long)" FROM gtkglarea_LIB$ TYPE void IMPORT "gtk_gl_area_swap_buffers(long)" FROM gtkglarea_LIB$ TYPE void CATCH RESET