;;; GL ;;; ;;; Copyright (C) 2004 Philippe Brochard (hocwp@free.fr) ;;; ;;; #date#: Tue Feb 1 20:18:48 2005 ;;; ;;; The authors grant you the rights to distribute ;;; and use this software as governed by the terms ;;; of the Lisp Lesser GNU Public License ;;; (http://opensource.franz.com/preamble.html), ;;; known as the LLGPL. (in-package :GL) (export '(__FREEGLUT_STD_H__ FREEGLUT GLUT_API_VERSION FREEGLUT_VERSION_2_0 GLUT_XLIB_IMPLEMENTATION GLUT_KEY_F1 GLUT_KEY_F2 GLUT_KEY_F3 GLUT_KEY_F4 GLUT_KEY_F5 GLUT_KEY_F6 GLUT_KEY_F7 GLUT_KEY_F8 GLUT_KEY_F9 GLUT_KEY_F10 GLUT_KEY_F11 GLUT_KEY_F12 GLUT_KEY_LEFT GLUT_KEY_UP GLUT_KEY_RIGHT GLUT_KEY_DOWN GLUT_KEY_PAGE_UP GLUT_KEY_PAGE_DOWN GLUT_KEY_HOME GLUT_KEY_END GLUT_KEY_INSERT GLUT_LEFT_BUTTON GLUT_MIDDLE_BUTTON GLUT_RIGHT_BUTTON GLUT_DOWN GLUT_UP GLUT_LEFT GLUT_ENTERED GLUT_RGB GLUT_RGBA GLUT_INDEX GLUT_SINGLE GLUT_DOUBLE GLUT_ACCUM GLUT_ALPHA GLUT_DEPTH GLUT_STENCIL GLUT_MULTISAMPLE GLUT_STEREO GLUT_LUMINANCE GLUT_MENU_NOT_IN_USE GLUT_MENU_IN_USE GLUT_NOT_VISIBLE GLUT_VISIBLE GLUT_HIDDEN GLUT_FULLY_RETAINED GLUT_PARTIALLY_RETAINED GLUT_FULLY_COVERED glutStrokeRoman glutStrokeMonoRoman glutBitmap9By15 glutBitmap8By13 glutBitmapTimesRoman10 glutBitmapTimesRoman24 glutBitmapHelvetica10 glutBitmapHelvetica12 glutBitmapHelvetica18 GLUT_WINDOW_X GLUT_WINDOW_Y GLUT_WINDOW_WIDTH GLUT_WINDOW_HEIGHT GLUT_WINDOW_BUFFER_SIZE GLUT_WINDOW_STENCIL_SIZE GLUT_WINDOW_DEPTH_SIZE GLUT_WINDOW_RED_SIZE GLUT_WINDOW_GREEN_SIZE GLUT_WINDOW_BLUE_SIZE GLUT_WINDOW_ALPHA_SIZE GLUT_WINDOW_ACCUM_RED_SIZE GLUT_WINDOW_ACCUM_GREEN_SIZE GLUT_WINDOW_ACCUM_BLUE_SIZE GLUT_WINDOW_ACCUM_ALPHA_SIZE GLUT_WINDOW_DOUBLEBUFFER GLUT_WINDOW_RGBA GLUT_WINDOW_PARENT GLUT_WINDOW_NUM_CHILDREN GLUT_WINDOW_COLORMAP_SIZE GLUT_WINDOW_NUM_SAMPLES GLUT_WINDOW_STEREO GLUT_WINDOW_CURSOR GLUT_SCREEN_WIDTH GLUT_SCREEN_HEIGHT GLUT_SCREEN_WIDTH_MM GLUT_SCREEN_HEIGHT_MM GLUT_MENU_NUM_ITEMS GLUT_DISPLAY_MODE_POSSIBLE GLUT_INIT_WINDOW_X GLUT_INIT_WINDOW_Y GLUT_INIT_WINDOW_WIDTH GLUT_INIT_WINDOW_HEIGHT GLUT_INIT_DISPLAY_MODE GLUT_ELAPSED_TIME GLUT_WINDOW_FORMAT_ID GLUT_INIT_STATE GLUT_HAS_KEYBOARD GLUT_HAS_MOUSE GLUT_HAS_SPACEBALL GLUT_HAS_DIAL_AND_BUTTON_BOX GLUT_HAS_TABLET GLUT_NUM_MOUSE_BUTTONS GLUT_NUM_SPACEBALL_BUTTONS GLUT_NUM_BUTTON_BOX_BUTTONS GLUT_NUM_DIALS GLUT_NUM_TABLET_BUTTONS GLUT_DEVICE_IGNORE_KEY_REPEAT GLUT_DEVICE_KEY_REPEAT GLUT_HAS_JOYSTICK GLUT_OWNS_JOYSTICK GLUT_JOYSTICK_BUTTONS GLUT_JOYSTICK_AXES GLUT_JOYSTICK_POLL_RATE GLUT_OVERLAY_POSSIBLE GLUT_LAYER_IN_USE GLUT_HAS_OVERLAY GLUT_TRANSPARENT_INDEX GLUT_NORMAL_DAMAGED GLUT_OVERLAY_DAMAGED GLUT_VIDEO_RESIZE_POSSIBLE GLUT_VIDEO_RESIZE_IN_USE GLUT_VIDEO_RESIZE_X_DELTA GLUT_VIDEO_RESIZE_Y_DELTA GLUT_VIDEO_RESIZE_WIDTH_DELTA GLUT_VIDEO_RESIZE_HEIGHT_DELTA GLUT_VIDEO_RESIZE_X GLUT_VIDEO_RESIZE_Y GLUT_VIDEO_RESIZE_WIDTH GLUT_VIDEO_RESIZE_HEIGHT GLUT_NORMAL GLUT_OVERLAY GLUT_ACTIVE_SHIFT GLUT_ACTIVE_CTRL GLUT_ACTIVE_ALT GLUT_CURSOR_RIGHT_ARROW GLUT_CURSOR_LEFT_ARROW GLUT_CURSOR_INFO GLUT_CURSOR_DESTROY GLUT_CURSOR_HELP GLUT_CURSOR_CYCLE GLUT_CURSOR_SPRAY GLUT_CURSOR_WAIT GLUT_CURSOR_TEXT GLUT_CURSOR_CROSSHAIR GLUT_CURSOR_UP_DOWN GLUT_CURSOR_LEFT_RIGHT GLUT_CURSOR_TOP_SIDE GLUT_CURSOR_BOTTOM_SIDE GLUT_CURSOR_LEFT_SIDE GLUT_CURSOR_RIGHT_SIDE GLUT_CURSOR_TOP_LEFT_CORNER GLUT_CURSOR_TOP_RIGHT_CORNER GLUT_CURSOR_BOTTOM_RIGHT_CORNER GLUT_CURSOR_BOTTOM_LEFT_CORNER GLUT_CURSOR_INHERIT GLUT_CURSOR_NONE GLUT_CURSOR_FULL_CROSSHAIR GLUT_RED GLUT_GREEN GLUT_BLUE GLUT_KEY_REPEAT_OFF GLUT_KEY_REPEAT_ON GLUT_KEY_REPEAT_DEFAULT GLUT_JOYSTICK_BUTTON_A GLUT_JOYSTICK_BUTTON_B GLUT_JOYSTICK_BUTTON_C GLUT_JOYSTICK_BUTTON_D GLUT_GAME_MODE_ACTIVE GLUT_GAME_MODE_POSSIBLE GLUT_GAME_MODE_WIDTH GLUT_GAME_MODE_HEIGHT GLUT_GAME_MODE_PIXEL_DEPTH GLUT_GAME_MODE_REFRESH_RATE GLUT_GAME_MODE_DISPLAY_CHANGED glutInit glutInitWindowPosition glutInitWindowSize glutInitDisplayMode glutInitDisplayString glutMainLoop glutCreateWindow glutCreateSubWindow glutDestroyWindow glutSetWindow glutGetWindow glutSetWindowTitle glutSetIconTitle glutReshapeWindow glutPositionWindow glutShowWindow glutHideWindow glutIconifyWindow glutPushWindow glutPopWindow glutFullScreen glutPostWindowRedisplay glutPostRedisplay glutSwapBuffers glutWarpPointer glutSetCursor glutEstablishOverlay glutRemoveOverlay glutUseLayer glutPostOverlayRedisplay glutPostWindowOverlayRedisplay glutShowOverlay glutHideOverlay glutCreateMenu glutDestroyMenu glutGetMenu glutSetMenu glutAddMenuEntry glutAddSubMenu glutChangeToMenuEntry glutChangeToSubMenu glutRemoveMenuItem glutAttachMenu glutDetachMenu glutTimerFunc glutIdleFunc glutKeyboardFunc glutSpecialFunc glutReshapeFunc glutVisibilityFunc glutDisplayFunc glutMouseFunc glutMotionFunc glutPassiveMotionFunc glutEntryFunc glutKeyboardUpFunc glutSpecialUpFunc glutJoystickFunc glutMenuStateFunc glutMenuStatusFunc glutOverlayDisplayFunc glutWindowStatusFunc glutSpaceballMotionFunc glutSpaceballRotateFunc glutSpaceballButtonFunc glutButtonBoxFunc glutDialsFunc glutTabletMotionFunc glutTabletButtonFunc glutGet glutDeviceGet glutGetModifiers glutLayerGet glutBitmapCharacter glutBitmapWidth glutStrokeCharacter glutStrokeWidth glutBitmapLength glutStrokeLength glutWireCube glutSolidCube glutWireSphere glutSolidSphere glutWireCone glutSolidCone glutWireTorus glutSolidTorus glutWireDodecahedron glutSolidDodecahedron glutWireOctahedron glutSolidOctahedron glutWireTetrahedron glutSolidTetrahedron glutWireIcosahedron glutSolidIcosahedron glutWireTeapot glutSolidTeapot glutGameModeString glutEnterGameMode glutLeaveGameMode glutGameModeGet glutVideoResizeGet glutSetupVideoResizing glutStopVideoResizing glutVideoResize glutVideoPan glutSetColor glutGetColor glutCopyColormap glutIgnoreKeyRepeat glutSetKeyRepeat glutForceJoystickFunc glutExtensionSupported glutReportErrors)) (uffi:load-foreign-library "/usr/lib/libglut.so" :module "/usr/lib/libglut.so" :supporting-libraries '("c")) ;;; DEFINE: #ifndef __FREEGLUT_STD_H__ ;; **IGNORED**: #ifndef __FREEGLUT_STD_H__ ;;; DEFINE: #define __FREEGLUT_STD_H__ (defconstant __FREEGLUT_STD_H__ NIL) ;;; COMMENT: /* * freeglut_std.h * * The GLUT-compatible part of the freeglut library include file * * Copyright (c) 1999-2000 Pawel W. Olszta. All Rights Reserved. * Written by Pawel W. Olszta, * Creation date: Thu Dec 2 1999 * * Permission is hereby granted, free of charge, to any person obtaining a * copy of this software and associated documentation files (the "Software"), * to deal in the Software without restriction, including without limitation * the rights to use, copy, modify, merge, publish, distribute, sublicense, * and/or sell copies of the Software, and to permit persons to whom the * Software is furnished to do so, subject to the following conditions: * * The above copyright notice and this permission notice shall be included * in all copies or substantial portions of the Software. * * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL * PAWEL W. OLSZTA BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER * IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. */ ;;; DEFINE: #ifdef __cplusplus ;; **IGNORED**: #ifdef __cplusplus ;;; CODE: "C" { ;; **IGNORED**: "C" { ;;; DEFINE: #endif ;; **IGNORED**: #endif ;;; COMMENT: /* * Under windows, we have to differentiate between static and dynamic libraries */ ;;; DEFINE: #if defined(WIN32) ;; **IGNORED**: #if defined(WIN32) ;;; DEFINE: # include ;; **IGNORED**: # include ;;; DEFINE: # include ;; **IGNORED**: # include ;;; DEFINE: # include ;; **IGNORED**: # include ;;; DEFINE: # define WINDOWS ;; **IGNORED**: # define WINDOWS ;;; DEFINE: #ifdef FREEGLUT_STATIC ;; **IGNORED**: #ifdef FREEGLUT_STATIC ;;; DEFINE: # define ;; **IGNORED**: # define ;;; DEFINE: # define ;; **IGNORED**: # define ;;; COMMENT: /* link with Win32 static freeglut lib */ ;;; DEFINE: # pragma comment (lib, "freeglut_static.lib") ;; **IGNORED**: # pragma comment (lib, "freeglut_static.lib") ;;; DEFINE: #else ;; **IGNORED**: #else ;;; DEFINE: # if defined(FREEGLUT_EXPORTS) ;; **IGNORED**: # if defined(FREEGLUT_EXPORTS) ;;; DEFINE: # define __declspec(dllexport) ;; **IGNORED**: # define __declspec(dllexport) ;;; COMMENT: /* define */ ;;; DEFINE: # else ;; **IGNORED**: # else ;;; DEFINE: # define __declspec(dllimport) ;; **IGNORED**: # define __declspec(dllimport) ;;; COMMENT: /* link with Win32 freeglut lib */ ;;; DEFINE: # pragma comment (lib, "freeglut.lib") ;; **IGNORED**: # pragma comment (lib, "freeglut.lib") ;;; DEFINE: # endif ;; **IGNORED**: # endif ;;; DEFINE: # define __stdcall ;; **IGNORED**: # define __stdcall ;;; DEFINE: #endif ;; **IGNORED**: #endif ;;; COMMENT: /* link with Windows MultiMedia lib */ ;;; DEFINE: #pragma comment (lib, "winmm.lib") ;; **IGNORED**: #pragma comment (lib, "winmm.lib") ;;; COMMENT: /* link with Windows user lib */ ;;; DEFINE: #pragma comment (lib, "user32.lib") ;; **IGNORED**: #pragma comment (lib, "user32.lib") ;;; COMMENT: /* link with Windows GDI lib */ ;;; DEFINE: #pragma comment (lib, "gdi32.lib") ;; **IGNORED**: #pragma comment (lib, "gdi32.lib") ;;; COMMENT: /* link with Microsoft OpenGL lib */ ;;; DEFINE: #pragma comment (lib, "opengl32.lib") ;; **IGNORED**: #pragma comment (lib, "opengl32.lib") ;;; COMMENT: /* link with OpenGL Utility lib */ ;;; DEFINE: #pragma comment (lib, "glu32.lib") ;; **IGNORED**: #pragma comment (lib, "glu32.lib") ;;; DEFINE: #else ;; **IGNORED**: #else ;;; DEFINE: # define ;; **IGNORED**: # define ;;; DEFINE: # define ;; **IGNORED**: # define ;;; DEFINE: #endif ;; **IGNORED**: #endif ;;; COMMENT: /* * The freeglut and GLUT API versions */ ;;; DEFINE: #define FREEGLUT 1 (defconstant FREEGLUT 1) ;;; DEFINE: #define GLUT_API_VERSION 4 (defconstant GLUT_API_VERSION 4) ;;; DEFINE: #define FREEGLUT_VERSION_2_0 1 (defconstant FREEGLUT_VERSION_2_0 1) ;;; DEFINE: #define GLUT_XLIB_IMPLEMENTATION 13 (defconstant GLUT_XLIB_IMPLEMENTATION 13) ;;; COMMENT: /* * Always include OpenGL and GLU headers */ ;;; DEFINE: #include ;; **IGNORED**: #include ;;; DEFINE: #include ;; **IGNORED**: #include ;;; COMMENT: ///* * GLUT API macro definitions -- the special key codes: */ ;;; DEFINE: #define GLUT_KEY_F1 0x0001 (defconstant GLUT_KEY_F1 #x0001) ;;; DEFINE: #define GLUT_KEY_F2 0x0002 (defconstant GLUT_KEY_F2 #x0002) ;;; DEFINE: #define GLUT_KEY_F3 0x0003 (defconstant GLUT_KEY_F3 #x0003) ;;; DEFINE: #define GLUT_KEY_F4 0x0004 (defconstant GLUT_KEY_F4 #x0004) ;;; DEFINE: #define GLUT_KEY_F5 0x0005 (defconstant GLUT_KEY_F5 #x0005) ;;; DEFINE: #define GLUT_KEY_F6 0x0006 (defconstant GLUT_KEY_F6 #x0006) ;;; DEFINE: #define GLUT_KEY_F7 0x0007 (defconstant GLUT_KEY_F7 #x0007) ;;; DEFINE: #define GLUT_KEY_F8 0x0008 (defconstant GLUT_KEY_F8 #x0008) ;;; DEFINE: #define GLUT_KEY_F9 0x0009 (defconstant GLUT_KEY_F9 #x0009) ;;; DEFINE: #define GLUT_KEY_F10 0x000A (defconstant GLUT_KEY_F10 #x000A) ;;; DEFINE: #define GLUT_KEY_F11 0x000B (defconstant GLUT_KEY_F11 #x000B) ;;; DEFINE: #define GLUT_KEY_F12 0x000C (defconstant GLUT_KEY_F12 #x000C) ;;; DEFINE: #define GLUT_KEY_LEFT 0x0064 (defconstant GLUT_KEY_LEFT #x0064) ;;; DEFINE: #define GLUT_KEY_UP 0x0065 (defconstant GLUT_KEY_UP #x0065) ;;; DEFINE: #define GLUT_KEY_RIGHT 0x0066 (defconstant GLUT_KEY_RIGHT #x0066) ;;; DEFINE: #define GLUT_KEY_DOWN 0x0067 (defconstant GLUT_KEY_DOWN #x0067) ;;; DEFINE: #define GLUT_KEY_PAGE_UP 0x0068 (defconstant GLUT_KEY_PAGE_UP #x0068) ;;; DEFINE: #define GLUT_KEY_PAGE_DOWN 0x0069 (defconstant GLUT_KEY_PAGE_DOWN #x0069) ;;; DEFINE: #define GLUT_KEY_HOME 0x006A (defconstant GLUT_KEY_HOME #x006A) ;;; DEFINE: #define GLUT_KEY_END 0x006B (defconstant GLUT_KEY_END #x006B) ;;; DEFINE: #define GLUT_KEY_INSERT 0x006C (defconstant GLUT_KEY_INSERT #x006C) ;;; COMMENT: /* * GLUT API macro definitions -- mouse state definitions */ ;;; DEFINE: #define GLUT_LEFT_BUTTON 0x0000 (defconstant GLUT_LEFT_BUTTON #x0000) ;;; DEFINE: #define GLUT_MIDDLE_BUTTON 0x0001 (defconstant GLUT_MIDDLE_BUTTON #x0001) ;;; DEFINE: #define GLUT_RIGHT_BUTTON 0x0002 (defconstant GLUT_RIGHT_BUTTON #x0002) ;;; DEFINE: #define GLUT_DOWN 0x0000 (defconstant GLUT_DOWN #x0000) ;;; DEFINE: #define GLUT_UP 0x0001 (defconstant GLUT_UP #x0001) ;;; DEFINE: #define GLUT_LEFT 0x0000 (defconstant GLUT_LEFT #x0000) ;;; DEFINE: #define GLUT_ENTERED 0x0001 (defconstant GLUT_ENTERED #x0001) ;;; COMMENT: /* * GLUT API macro definitions -- the display mode definitions */ ;;; DEFINE: #define GLUT_RGB 0x0000 (defconstant GLUT_RGB #x0000) ;;; DEFINE: #define GLUT_RGBA 0x0000 (defconstant GLUT_RGBA #x0000) ;;; DEFINE: #define GLUT_INDEX 0x0001 (defconstant GLUT_INDEX #x0001) ;;; DEFINE: #define GLUT_SINGLE 0x0000 (defconstant GLUT_SINGLE #x0000) ;;; DEFINE: #define GLUT_DOUBLE 0x0002 (defconstant GLUT_DOUBLE #x0002) ;;; DEFINE: #define GLUT_ACCUM 0x0004 (defconstant GLUT_ACCUM #x0004) ;;; DEFINE: #define GLUT_ALPHA 0x0008 (defconstant GLUT_ALPHA #x0008) ;;; DEFINE: #define GLUT_DEPTH 0x0010 (defconstant GLUT_DEPTH #x0010) ;;; DEFINE: #define GLUT_STENCIL 0x0020 (defconstant GLUT_STENCIL #x0020) ;;; DEFINE: #define GLUT_MULTISAMPLE 0x0080 (defconstant GLUT_MULTISAMPLE #x0080) ;;; DEFINE: #define GLUT_STEREO 0x0100 (defconstant GLUT_STEREO #x0100) ;;; DEFINE: #define GLUT_LUMINANCE 0x0200 (defconstant GLUT_LUMINANCE #x0200) ;;; COMMENT: /* * GLUT API macro definitions -- windows and menu related definitions */ ;;; DEFINE: #define GLUT_MENU_NOT_IN_USE 0x0000 (defconstant GLUT_MENU_NOT_IN_USE #x0000) ;;; DEFINE: #define GLUT_MENU_IN_USE 0x0001 (defconstant GLUT_MENU_IN_USE #x0001) ;;; DEFINE: #define GLUT_NOT_VISIBLE 0x0000 (defconstant GLUT_NOT_VISIBLE #x0000) ;;; DEFINE: #define GLUT_VISIBLE 0x0001 (defconstant GLUT_VISIBLE #x0001) ;;; DEFINE: #define GLUT_HIDDEN 0x0000 (defconstant GLUT_HIDDEN #x0000) ;;; DEFINE: #define GLUT_FULLY_RETAINED 0x0001 (defconstant GLUT_FULLY_RETAINED #x0001) ;;; DEFINE: #define GLUT_PARTIALLY_RETAINED 0x0002 (defconstant GLUT_PARTIALLY_RETAINED #x0002) ;;; DEFINE: #define GLUT_FULLY_COVERED 0x0003 (defconstant GLUT_FULLY_COVERED #x0003) ;;; COMMENT: /* * GLUT API macro definitions -- fonts definitions * * Steve Baker suggested to make it binary compatible with GLUT: */ ;;; DEFINE: #if defined(WIN32) ;; **IGNORED**: #if defined(WIN32) ;;; DEFINE: # define GLUT_STROKE_ROMAN ((void *)0x0000) ;; **IGNORED**: # define GLUT_STROKE_ROMAN ((void *)0x0000) ;;; DEFINE: # define GLUT_STROKE_MONO_ROMAN ((void *)0x0001) ;; **IGNORED**: # define GLUT_STROKE_MONO_ROMAN ((void *)0x0001) ;;; DEFINE: # define GLUT_BITMAP_9_BY_15 ((void *)0x0002) ;; **IGNORED**: # define GLUT_BITMAP_9_BY_15 ((void *)0x0002) ;;; DEFINE: # define GLUT_BITMAP_8_BY_13 ((void *)0x0003) ;; **IGNORED**: # define GLUT_BITMAP_8_BY_13 ((void *)0x0003) ;;; DEFINE: # define GLUT_BITMAP_TIMES_ROMAN_10 ((void *)0x0004) ;; **IGNORED**: # define GLUT_BITMAP_TIMES_ROMAN_10 ((void *)0x0004) ;;; DEFINE: # define GLUT_BITMAP_TIMES_ROMAN_24 ((void *)0x0005) ;; **IGNORED**: # define GLUT_BITMAP_TIMES_ROMAN_24 ((void *)0x0005) ;;; DEFINE: # define GLUT_BITMAP_HELVETICA_10 ((void *)0x0006) ;; **IGNORED**: # define GLUT_BITMAP_HELVETICA_10 ((void *)0x0006) ;;; DEFINE: # define GLUT_BITMAP_HELVETICA_12 ((void *)0x0007) ;; **IGNORED**: # define GLUT_BITMAP_HELVETICA_12 ((void *)0x0007) ;;; DEFINE: # define GLUT_BITMAP_HELVETICA_18 ((void *)0x0008) ;; **IGNORED**: # define GLUT_BITMAP_HELVETICA_18 ((void *)0x0008) ;;; DEFINE: #else ;; **IGNORED**: #else ;;; COMMENT: /* * I don't really know if it's a good idea... But here it goes: */ ;;; CODE: void* glutStrokeRoman; (uffi:def-foreign-var ("glutStrokeRoman" glutStrokeRoman) (* t) "/usr/lib/libglut.so") ;;; CODE: void* glutStrokeMonoRoman; (uffi:def-foreign-var ("glutStrokeMonoRoman" glutStrokeMonoRoman) (* t) "/usr/lib/libglut.so") ;;; CODE: void* glutBitmap9By15; (uffi:def-foreign-var ("glutBitmap9By15" glutBitmap9By15) (* t) "/usr/lib/libglut.so") ;;; CODE: void* glutBitmap8By13; (uffi:def-foreign-var ("glutBitmap8By13" glutBitmap8By13) (* t) "/usr/lib/libglut.so") ;;; CODE: void* glutBitmapTimesRoman10; (uffi:def-foreign-var ("glutBitmapTimesRoman10" glutBitmapTimesRoman10) (* t) "/usr/lib/libglut.so") ;;; CODE: void* glutBitmapTimesRoman24; (uffi:def-foreign-var ("glutBitmapTimesRoman24" glutBitmapTimesRoman24) (* t) "/usr/lib/libglut.so") ;;; CODE: void* glutBitmapHelvetica10; (uffi:def-foreign-var ("glutBitmapHelvetica10" glutBitmapHelvetica10) (* t) "/usr/lib/libglut.so") ;;; CODE: void* glutBitmapHelvetica12; (uffi:def-foreign-var ("glutBitmapHelvetica12" glutBitmapHelvetica12) (* t) "/usr/lib/libglut.so") ;;; CODE: void* glutBitmapHelvetica18; (uffi:def-foreign-var ("glutBitmapHelvetica18" glutBitmapHelvetica18) (* t) "/usr/lib/libglut.so") ;(defconstant GLUT_BITMAP_HELVETICA_18 glutBitmapHelvetica18) ;;; COMMENT: /* * Those pointers will be used by following definitions: */ ;;; DEFINE: # define GLUT_STROKE_ROMAN ((void *) &glutStrokeRoman) ;; **IGNORED**: # define GLUT_STROKE_ROMAN ((void *) &glutStrokeRoman) ;;; DEFINE: # define GLUT_STROKE_MONO_ROMAN ((void *) &glutStrokeMonoRoman) ;; **IGNORED**: # define GLUT_STROKE_MONO_ROMAN ((void *) &glutStrokeMonoRoman) ;;; DEFINE: # define GLUT_BITMAP_9_BY_15 ((void *) &glutBitmap9By15) ;; **IGNORED**: # define GLUT_BITMAP_9_BY_15 ((void *) &glutBitmap9By15) ;;; DEFINE: # define GLUT_BITMAP_8_BY_13 ((void *) &glutBitmap8By13) ;; **IGNORED**: # define GLUT_BITMAP_8_BY_13 ((void *) &glutBitmap8By13) ;;; DEFINE: # define GLUT_BITMAP_TIMES_ROMAN_10 ((void *) &glutBitmapTimesRoman10) ;; **IGNORED**: # define GLUT_BITMAP_TIMES_ROMAN_10 ((void *) &glutBitmapTimesRoman10) ;;; DEFINE: # define GLUT_BITMAP_TIMES_ROMAN_24 ((void *) &glutBitmapTimesRoman24) ;; **IGNORED**: # define GLUT_BITMAP_TIMES_ROMAN_24 ((void *) &glutBitmapTimesRoman24) ;;; DEFINE: # define GLUT_BITMAP_HELVETICA_10 ((void *) &glutBitmapHelvetica10) ;; **IGNORED**: # define GLUT_BITMAP_HELVETICA_10 ((void *) &glutBitmapHelvetica10) ;;; DEFINE: # define GLUT_BITMAP_HELVETICA_12 ((void *) &glutBitmapHelvetica12) ;; **IGNORED**: # define GLUT_BITMAP_HELVETICA_12 ((void *) &glutBitmapHelvetica12) ;;; DEFINE: # define GLUT_BITMAP_HELVETICA_18 ((void *) &glutBitmapHelvetica18) ;; **IGNORED**: # define GLUT_BITMAP_HELVETICA_18 ((void *) &glutBitmapHelvetica18) ;;; DEFINE: #endif ;; **IGNORED**: #endif ;;; COMMENT: /* * GLUT API macro definitions -- the glutGet parameters */ ;;; DEFINE: #define GLUT_WINDOW_X 0x0064 (defconstant GLUT_WINDOW_X #x0064) ;;; DEFINE: #define GLUT_WINDOW_Y 0x0065 (defconstant GLUT_WINDOW_Y #x0065) ;;; DEFINE: #define GLUT_WINDOW_WIDTH 0x0066 (defconstant GLUT_WINDOW_WIDTH #x0066) ;;; DEFINE: #define GLUT_WINDOW_HEIGHT 0x0067 (defconstant GLUT_WINDOW_HEIGHT #x0067) ;;; DEFINE: #define GLUT_WINDOW_BUFFER_SIZE 0x0068 (defconstant GLUT_WINDOW_BUFFER_SIZE #x0068) ;;; DEFINE: #define GLUT_WINDOW_STENCIL_SIZE 0x0069 (defconstant GLUT_WINDOW_STENCIL_SIZE #x0069) ;;; DEFINE: #define GLUT_WINDOW_DEPTH_SIZE 0x006A (defconstant GLUT_WINDOW_DEPTH_SIZE #x006A) ;;; DEFINE: #define GLUT_WINDOW_RED_SIZE 0x006B (defconstant GLUT_WINDOW_RED_SIZE #x006B) ;;; DEFINE: #define GLUT_WINDOW_GREEN_SIZE 0x006C (defconstant GLUT_WINDOW_GREEN_SIZE #x006C) ;;; DEFINE: #define GLUT_WINDOW_BLUE_SIZE 0x006D (defconstant GLUT_WINDOW_BLUE_SIZE #x006D) ;;; DEFINE: #define GLUT_WINDOW_ALPHA_SIZE 0x006E (defconstant GLUT_WINDOW_ALPHA_SIZE #x006E) ;;; DEFINE: #define GLUT_WINDOW_ACCUM_RED_SIZE 0x006F (defconstant GLUT_WINDOW_ACCUM_RED_SIZE #x006F) ;;; DEFINE: #define GLUT_WINDOW_ACCUM_GREEN_SIZE 0x0070 (defconstant GLUT_WINDOW_ACCUM_GREEN_SIZE #x0070) ;;; DEFINE: #define GLUT_WINDOW_ACCUM_BLUE_SIZE 0x0071 (defconstant GLUT_WINDOW_ACCUM_BLUE_SIZE #x0071) ;;; DEFINE: #define GLUT_WINDOW_ACCUM_ALPHA_SIZE 0x0072 (defconstant GLUT_WINDOW_ACCUM_ALPHA_SIZE #x0072) ;;; DEFINE: #define GLUT_WINDOW_DOUBLEBUFFER 0x0073 (defconstant GLUT_WINDOW_DOUBLEBUFFER #x0073) ;;; DEFINE: #define GLUT_WINDOW_RGBA 0x0074 (defconstant GLUT_WINDOW_RGBA #x0074) ;;; DEFINE: #define GLUT_WINDOW_PARENT 0x0075 (defconstant GLUT_WINDOW_PARENT #x0075) ;;; DEFINE: #define GLUT_WINDOW_NUM_CHILDREN 0x0076 (defconstant GLUT_WINDOW_NUM_CHILDREN #x0076) ;;; DEFINE: #define GLUT_WINDOW_COLORMAP_SIZE 0x0077 (defconstant GLUT_WINDOW_COLORMAP_SIZE #x0077) ;;; DEFINE: #define GLUT_WINDOW_NUM_SAMPLES 0x0078 (defconstant GLUT_WINDOW_NUM_SAMPLES #x0078) ;;; DEFINE: #define GLUT_WINDOW_STEREO 0x0079 (defconstant GLUT_WINDOW_STEREO #x0079) ;;; DEFINE: #define GLUT_WINDOW_CURSOR 0x007A (defconstant GLUT_WINDOW_CURSOR #x007A) ;;; DEFINE: #define GLUT_SCREEN_WIDTH 0x00C8 (defconstant GLUT_SCREEN_WIDTH #x00C8) ;;; DEFINE: #define GLUT_SCREEN_HEIGHT 0x00C9 (defconstant GLUT_SCREEN_HEIGHT #x00C9) ;;; DEFINE: #define GLUT_SCREEN_WIDTH_MM 0x00CA (defconstant GLUT_SCREEN_WIDTH_MM #x00CA) ;;; DEFINE: #define GLUT_SCREEN_HEIGHT_MM 0x00CB (defconstant GLUT_SCREEN_HEIGHT_MM #x00CB) ;;; DEFINE: #define GLUT_MENU_NUM_ITEMS 0x012C (defconstant GLUT_MENU_NUM_ITEMS #x012C) ;;; DEFINE: #define GLUT_DISPLAY_MODE_POSSIBLE 0x0190 (defconstant GLUT_DISPLAY_MODE_POSSIBLE #x0190) ;;; DEFINE: #define GLUT_INIT_WINDOW_X 0x01F4 (defconstant GLUT_INIT_WINDOW_X #x01F4) ;;; DEFINE: #define GLUT_INIT_WINDOW_Y 0x01F5 (defconstant GLUT_INIT_WINDOW_Y #x01F5) ;;; DEFINE: #define GLUT_INIT_WINDOW_WIDTH 0x01F6 (defconstant GLUT_INIT_WINDOW_WIDTH #x01F6) ;;; DEFINE: #define GLUT_INIT_WINDOW_HEIGHT 0x01F7 (defconstant GLUT_INIT_WINDOW_HEIGHT #x01F7) ;;; DEFINE: #define GLUT_INIT_DISPLAY_MODE 0x01F8 (defconstant GLUT_INIT_DISPLAY_MODE #x01F8) ;;; DEFINE: #define GLUT_ELAPSED_TIME 0x02BC (defconstant GLUT_ELAPSED_TIME #x02BC) ;;; DEFINE: #define GLUT_WINDOW_FORMAT_ID 0x007B (defconstant GLUT_WINDOW_FORMAT_ID #x007B) ;;; DEFINE: #define GLUT_INIT_STATE 0x007C (defconstant GLUT_INIT_STATE #x007C) ;;; COMMENT: /* * GLUT API macro definitions -- the glutDeviceGet parameters */ ;;; DEFINE: #define GLUT_HAS_KEYBOARD 0x0258 (defconstant GLUT_HAS_KEYBOARD #x0258) ;;; DEFINE: #define GLUT_HAS_MOUSE 0x0259 (defconstant GLUT_HAS_MOUSE #x0259) ;;; DEFINE: #define GLUT_HAS_SPACEBALL 0x025A (defconstant GLUT_HAS_SPACEBALL #x025A) ;;; DEFINE: #define GLUT_HAS_DIAL_AND_BUTTON_BOX 0x025B (defconstant GLUT_HAS_DIAL_AND_BUTTON_BOX #x025B) ;;; DEFINE: #define GLUT_HAS_TABLET 0x025C (defconstant GLUT_HAS_TABLET #x025C) ;;; DEFINE: #define GLUT_NUM_MOUSE_BUTTONS 0x025D (defconstant GLUT_NUM_MOUSE_BUTTONS #x025D) ;;; DEFINE: #define GLUT_NUM_SPACEBALL_BUTTONS 0x025E (defconstant GLUT_NUM_SPACEBALL_BUTTONS #x025E) ;;; DEFINE: #define GLUT_NUM_BUTTON_BOX_BUTTONS 0x025F (defconstant GLUT_NUM_BUTTON_BOX_BUTTONS #x025F) ;;; DEFINE: #define GLUT_NUM_DIALS 0x0260 (defconstant GLUT_NUM_DIALS #x0260) ;;; DEFINE: #define GLUT_NUM_TABLET_BUTTONS 0x0261 (defconstant GLUT_NUM_TABLET_BUTTONS #x0261) ;;; DEFINE: #define GLUT_DEVICE_IGNORE_KEY_REPEAT 0x0262 (defconstant GLUT_DEVICE_IGNORE_KEY_REPEAT #x0262) ;;; DEFINE: #define GLUT_DEVICE_KEY_REPEAT 0x0263 (defconstant GLUT_DEVICE_KEY_REPEAT #x0263) ;;; DEFINE: #define GLUT_HAS_JOYSTICK 0x0264 (defconstant GLUT_HAS_JOYSTICK #x0264) ;;; DEFINE: #define GLUT_OWNS_JOYSTICK 0x0265 (defconstant GLUT_OWNS_JOYSTICK #x0265) ;;; DEFINE: #define GLUT_JOYSTICK_BUTTONS 0x0266 (defconstant GLUT_JOYSTICK_BUTTONS #x0266) ;;; DEFINE: #define GLUT_JOYSTICK_AXES 0x0267 (defconstant GLUT_JOYSTICK_AXES #x0267) ;;; DEFINE: #define GLUT_JOYSTICK_POLL_RATE 0x0268 (defconstant GLUT_JOYSTICK_POLL_RATE #x0268) ;;; COMMENT: /* * GLUT API macro definitions -- the glutLayerGet parameters */ ;;; DEFINE: #define GLUT_OVERLAY_POSSIBLE 0x0320 (defconstant GLUT_OVERLAY_POSSIBLE #x0320) ;;; DEFINE: #define GLUT_LAYER_IN_USE 0x0321 (defconstant GLUT_LAYER_IN_USE #x0321) ;;; DEFINE: #define GLUT_HAS_OVERLAY 0x0322 (defconstant GLUT_HAS_OVERLAY #x0322) ;;; DEFINE: #define GLUT_TRANSPARENT_INDEX 0x0323 (defconstant GLUT_TRANSPARENT_INDEX #x0323) ;;; DEFINE: #define GLUT_NORMAL_DAMAGED 0x0324 (defconstant GLUT_NORMAL_DAMAGED #x0324) ;;; DEFINE: #define GLUT_OVERLAY_DAMAGED 0x0325 (defconstant GLUT_OVERLAY_DAMAGED #x0325) ;;; COMMENT: /* * GLUT API macro definitions -- the glutVideoResizeGet parameters */ ;;; DEFINE: #define GLUT_VIDEO_RESIZE_POSSIBLE 0x0384 (defconstant GLUT_VIDEO_RESIZE_POSSIBLE #x0384) ;;; DEFINE: #define GLUT_VIDEO_RESIZE_IN_USE 0x0385 (defconstant GLUT_VIDEO_RESIZE_IN_USE #x0385) ;;; DEFINE: #define GLUT_VIDEO_RESIZE_X_DELTA 0x0386 (defconstant GLUT_VIDEO_RESIZE_X_DELTA #x0386) ;;; DEFINE: #define GLUT_VIDEO_RESIZE_Y_DELTA 0x0387 (defconstant GLUT_VIDEO_RESIZE_Y_DELTA #x0387) ;;; DEFINE: #define GLUT_VIDEO_RESIZE_WIDTH_DELTA 0x0388 (defconstant GLUT_VIDEO_RESIZE_WIDTH_DELTA #x0388) ;;; DEFINE: #define GLUT_VIDEO_RESIZE_HEIGHT_DELTA 0x0389 (defconstant GLUT_VIDEO_RESIZE_HEIGHT_DELTA #x0389) ;;; DEFINE: #define GLUT_VIDEO_RESIZE_X 0x038A (defconstant GLUT_VIDEO_RESIZE_X #x038A) ;;; DEFINE: #define GLUT_VIDEO_RESIZE_Y 0x038B (defconstant GLUT_VIDEO_RESIZE_Y #x038B) ;;; DEFINE: #define GLUT_VIDEO_RESIZE_WIDTH 0x038C (defconstant GLUT_VIDEO_RESIZE_WIDTH #x038C) ;;; DEFINE: #define GLUT_VIDEO_RESIZE_HEIGHT 0x038D (defconstant GLUT_VIDEO_RESIZE_HEIGHT #x038D) ;;; COMMENT: /* * GLUT API macro definitions -- the glutUseLayer parameters */ ;;; DEFINE: #define GLUT_NORMAL 0x0000 (defconstant GLUT_NORMAL #x0000) ;;; DEFINE: #define GLUT_OVERLAY 0x0001 (defconstant GLUT_OVERLAY #x0001) ;;; COMMENT: /* * GLUT API macro definitions -- the glutGetModifiers parameters */ ;;; DEFINE: #define GLUT_ACTIVE_SHIFT 0x0001 (defconstant GLUT_ACTIVE_SHIFT #x0001) ;;; DEFINE: #define GLUT_ACTIVE_CTRL 0x0002 (defconstant GLUT_ACTIVE_CTRL #x0002) ;;; DEFINE: #define GLUT_ACTIVE_ALT 0x0004 (defconstant GLUT_ACTIVE_ALT #x0004) ;;; COMMENT: /* * GLUT API macro definitions -- the glutSetCursor parameters */ ;;; DEFINE: #define GLUT_CURSOR_RIGHT_ARROW 0x0000 (defconstant GLUT_CURSOR_RIGHT_ARROW #x0000) ;;; DEFINE: #define GLUT_CURSOR_LEFT_ARROW 0x0001 (defconstant GLUT_CURSOR_LEFT_ARROW #x0001) ;;; DEFINE: #define GLUT_CURSOR_INFO 0x0002 (defconstant GLUT_CURSOR_INFO #x0002) ;;; DEFINE: #define GLUT_CURSOR_DESTROY 0x0003 (defconstant GLUT_CURSOR_DESTROY #x0003) ;;; DEFINE: #define GLUT_CURSOR_HELP 0x0004 (defconstant GLUT_CURSOR_HELP #x0004) ;;; DEFINE: #define GLUT_CURSOR_CYCLE 0x0005 (defconstant GLUT_CURSOR_CYCLE #x0005) ;;; DEFINE: #define GLUT_CURSOR_SPRAY 0x0006 (defconstant GLUT_CURSOR_SPRAY #x0006) ;;; DEFINE: #define GLUT_CURSOR_WAIT 0x0007 (defconstant GLUT_CURSOR_WAIT #x0007) ;;; DEFINE: #define GLUT_CURSOR_TEXT 0x0008 (defconstant GLUT_CURSOR_TEXT #x0008) ;;; DEFINE: #define GLUT_CURSOR_CROSSHAIR 0x0009 (defconstant GLUT_CURSOR_CROSSHAIR #x0009) ;;; DEFINE: #define GLUT_CURSOR_UP_DOWN 0x000A (defconstant GLUT_CURSOR_UP_DOWN #x000A) ;;; DEFINE: #define GLUT_CURSOR_LEFT_RIGHT 0x000B (defconstant GLUT_CURSOR_LEFT_RIGHT #x000B) ;;; DEFINE: #define GLUT_CURSOR_TOP_SIDE 0x000C (defconstant GLUT_CURSOR_TOP_SIDE #x000C) ;;; DEFINE: #define GLUT_CURSOR_BOTTOM_SIDE 0x000D (defconstant GLUT_CURSOR_BOTTOM_SIDE #x000D) ;;; DEFINE: #define GLUT_CURSOR_LEFT_SIDE 0x000E (defconstant GLUT_CURSOR_LEFT_SIDE #x000E) ;;; DEFINE: #define GLUT_CURSOR_RIGHT_SIDE 0x000F (defconstant GLUT_CURSOR_RIGHT_SIDE #x000F) ;;; DEFINE: #define GLUT_CURSOR_TOP_LEFT_CORNER 0x0010 (defconstant GLUT_CURSOR_TOP_LEFT_CORNER #x0010) ;;; DEFINE: #define GLUT_CURSOR_TOP_RIGHT_CORNER 0x0011 (defconstant GLUT_CURSOR_TOP_RIGHT_CORNER #x0011) ;;; DEFINE: #define GLUT_CURSOR_BOTTOM_RIGHT_CORNER 0x0012 (defconstant GLUT_CURSOR_BOTTOM_RIGHT_CORNER #x0012) ;;; DEFINE: #define GLUT_CURSOR_BOTTOM_LEFT_CORNER 0x0013 (defconstant GLUT_CURSOR_BOTTOM_LEFT_CORNER #x0013) ;;; DEFINE: #define GLUT_CURSOR_INHERIT 0x0064 (defconstant GLUT_CURSOR_INHERIT #x0064) ;;; DEFINE: #define GLUT_CURSOR_NONE 0x0065 (defconstant GLUT_CURSOR_NONE #x0065) ;;; DEFINE: #define GLUT_CURSOR_FULL_CROSSHAIR 0x0066 (defconstant GLUT_CURSOR_FULL_CROSSHAIR #x0066) ;;; COMMENT: /* * GLUT API macro definitions -- RGB color component specification definitions */ ;;; DEFINE: #define GLUT_RED 0x0000 (defconstant GLUT_RED #x0000) ;;; DEFINE: #define GLUT_GREEN 0x0001 (defconstant GLUT_GREEN #x0001) ;;; DEFINE: #define GLUT_BLUE 0x0002 (defconstant GLUT_BLUE #x0002) ;;; COMMENT: /* * GLUT API macro definitions -- additional keyboard and joystick definitions */ ;;; DEFINE: #define GLUT_KEY_REPEAT_OFF 0x0000 (defconstant GLUT_KEY_REPEAT_OFF #x0000) ;;; DEFINE: #define GLUT_KEY_REPEAT_ON 0x0001 (defconstant GLUT_KEY_REPEAT_ON #x0001) ;;; DEFINE: #define GLUT_KEY_REPEAT_DEFAULT 0x0002 (defconstant GLUT_KEY_REPEAT_DEFAULT #x0002) ;;; DEFINE: #define GLUT_JOYSTICK_BUTTON_A 0x0001 (defconstant GLUT_JOYSTICK_BUTTON_A #x0001) ;;; DEFINE: #define GLUT_JOYSTICK_BUTTON_B 0x0002 (defconstant GLUT_JOYSTICK_BUTTON_B #x0002) ;;; DEFINE: #define GLUT_JOYSTICK_BUTTON_C 0x0004 (defconstant GLUT_JOYSTICK_BUTTON_C #x0004) ;;; DEFINE: #define GLUT_JOYSTICK_BUTTON_D 0x0008 (defconstant GLUT_JOYSTICK_BUTTON_D #x0008) ;;; COMMENT: /* * GLUT API macro definitions -- game mode definitions */ ;;; DEFINE: #define GLUT_GAME_MODE_ACTIVE 0x0000 (defconstant GLUT_GAME_MODE_ACTIVE #x0000) ;;; DEFINE: #define GLUT_GAME_MODE_POSSIBLE 0x0001 (defconstant GLUT_GAME_MODE_POSSIBLE #x0001) ;;; DEFINE: #define GLUT_GAME_MODE_WIDTH 0x0002 (defconstant GLUT_GAME_MODE_WIDTH #x0002) ;;; DEFINE: #define GLUT_GAME_MODE_HEIGHT 0x0003 (defconstant GLUT_GAME_MODE_HEIGHT #x0003) ;;; DEFINE: #define GLUT_GAME_MODE_PIXEL_DEPTH 0x0004 (defconstant GLUT_GAME_MODE_PIXEL_DEPTH #x0004) ;;; DEFINE: #define GLUT_GAME_MODE_REFRESH_RATE 0x0005 (defconstant GLUT_GAME_MODE_REFRESH_RATE #x0005) ;;; DEFINE: #define GLUT_GAME_MODE_DISPLAY_CHANGED 0x0006 (defconstant GLUT_GAME_MODE_DISPLAY_CHANGED #x0006) ;;; COMMENT: /* * Initialization functions, see fglut_init.c */ ;;; CODE: void glutInit( int* pargc, char** argv ); (uffi:def-function ("glutInit" glutInit) ( (pargc (* :int)) (argv :cstring)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutInitWindowPosition( int x, int y ); (uffi:def-function ("glutInitWindowPosition" glutInitWindowPosition) ( (x :int) (y :int)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutInitWindowSize( int width, int height ); (uffi:def-function ("glutInitWindowSize" glutInitWindowSize) ( (width :int) (height :int)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutInitDisplayMode( unsigned int displayMode ); (uffi:def-function ("glutInitDisplayMode" glutInitDisplayMode) ( (displayMode :unsigned-int)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutInitDisplayString( char* displayMode ); (uffi:def-function ("glutInitDisplayString" glutInitDisplayString) ( (displayMode :cstring)) :returning :void :module "/usr/lib/libglut.so") ;;; COMMENT: /* * Process loop function, see freeglut_main.c */ ;;; CODE: void glutMainLoop( void ); (uffi:def-function ("glutMainLoop" glutMainLoop) () :returning :void :module "/usr/lib/libglut.so") ;;; COMMENT: /* * Window management functions, see freeglut_window.c */ ;;; CODE: int glutCreateWindow( char* title ); (uffi:def-function ("glutCreateWindow" glutCreateWindow) ( (title :cstring)) :returning :int :module "/usr/lib/libglut.so") ;;; CODE: int glutCreateSubWindow( int window, int x, int y, int width, int height ); (uffi:def-function ("glutCreateSubWindow" glutCreateSubWindow) ( (window :int) (x :int) (y :int) (width :int) (height :int)) :returning :int :module "/usr/lib/libglut.so") ;;; CODE: void glutDestroyWindow( int window ); (uffi:def-function ("glutDestroyWindow" glutDestroyWindow) ( (window :int)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutSetWindow( int window ); (uffi:def-function ("glutSetWindow" glutSetWindow) ( (window :int)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: int glutGetWindow( void ); (uffi:def-function ("glutGetWindow" glutGetWindow) () :returning :int :module "/usr/lib/libglut.so") ;;; CODE: void glutSetWindowTitle( char* title ); (uffi:def-function ("glutSetWindowTitle" glutSetWindowTitle) ( (title :cstring)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutSetIconTitle( char* title ); (uffi:def-function ("glutSetIconTitle" glutSetIconTitle) ( (title :cstring)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutReshapeWindow( int width, int height ); (uffi:def-function ("glutReshapeWindow" glutReshapeWindow) ( (width :int) (height :int)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutPositionWindow( int x, int y ); (uffi:def-function ("glutPositionWindow" glutPositionWindow) ( (x :int) (y :int)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutShowWindow( void ); (uffi:def-function ("glutShowWindow" glutShowWindow) () :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutHideWindow( void ); (uffi:def-function ("glutHideWindow" glutHideWindow) () :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutIconifyWindow( void ); (uffi:def-function ("glutIconifyWindow" glutIconifyWindow) () :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutPushWindow( void ); (uffi:def-function ("glutPushWindow" glutPushWindow) () :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutPopWindow( void ); (uffi:def-function ("glutPopWindow" glutPopWindow) () :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutFullScreen( void ); (uffi:def-function ("glutFullScreen" glutFullScreen) () :returning :void :module "/usr/lib/libglut.so") ;;; COMMENT: /* * Display-connected functions, see freeglut_display.c */ ;;; CODE: void glutPostWindowRedisplay( int window ); (uffi:def-function ("glutPostWindowRedisplay" glutPostWindowRedisplay) ( (window :int)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutPostRedisplay( void ); (uffi:def-function ("glutPostRedisplay" glutPostRedisplay) () :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutSwapBuffers( void ); (uffi:def-function ("glutSwapBuffers" glutSwapBuffers) () :returning :void :module "/usr/lib/libglut.so") ;;; COMMENT: /* * Mouse cursor functions, see freeglut_cursor.c */ ;;; CODE: void glutWarpPointer( int x, int y ); (uffi:def-function ("glutWarpPointer" glutWarpPointer) ( (x :int) (y :int)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutSetCursor( int cursor ); (uffi:def-function ("glutSetCursor" glutSetCursor) ( (cursor :int)) :returning :void :module "/usr/lib/libglut.so") ;;; COMMENT: /* * Overlay stuff, see freeglut_overlay.c */ ;;; CODE: void glutEstablishOverlay( void ); (uffi:def-function ("glutEstablishOverlay" glutEstablishOverlay) () :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutRemoveOverlay( void ); (uffi:def-function ("glutRemoveOverlay" glutRemoveOverlay) () :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutUseLayer( GLenum layer ); (uffi:def-function ("glutUseLayer" glutUseLayer) ( (layer GLenum)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutPostOverlayRedisplay( void ); (uffi:def-function ("glutPostOverlayRedisplay" glutPostOverlayRedisplay) () :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutPostWindowOverlayRedisplay( int window ); (uffi:def-function ("glutPostWindowOverlayRedisplay" glutPostWindowOverlayRedisplay) ( (window :int)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutShowOverlay( void ); (uffi:def-function ("glutShowOverlay" glutShowOverlay) () :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutHideOverlay( void ); (uffi:def-function ("glutHideOverlay" glutHideOverlay) () :returning :void :module "/usr/lib/libglut.so") ;;; COMMENT: /* * Menu stuff, see freeglut_menu.c */ ;;; CODE: int glutCreateMenu( void (* callback)( int menu ) ); (uffi:def-function ("glutCreateMenu" glutCreateMenu) ( (callback (* (function :void :int)))) :returning :int :module "/usr/lib/libglut.so") ;;; CODE: void glutDestroyMenu( int menu ); (uffi:def-function ("glutDestroyMenu" glutDestroyMenu) ( (menu :int)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: int glutGetMenu( void ); (uffi:def-function ("glutGetMenu" glutGetMenu) () :returning :int :module "/usr/lib/libglut.so") ;;; CODE: void glutSetMenu( int menu ); (uffi:def-function ("glutSetMenu" glutSetMenu) ( (menu :int)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutAddMenuEntry( char* label, int value ); (uffi:def-function ("glutAddMenuEntry" glutAddMenuEntry) ( (label :cstring) (value :int)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutAddSubMenu( char* label, int subMenu ); (uffi:def-function ("glutAddSubMenu" glutAddSubMenu) ( (label :cstring) (subMenu :int)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutChangeToMenuEntry( int item, char* label, int value ); (uffi:def-function ("glutChangeToMenuEntry" glutChangeToMenuEntry) ( (item :int) (label :cstring) (value :int)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutChangeToSubMenu( int item, char* label, int value ); (uffi:def-function ("glutChangeToSubMenu" glutChangeToSubMenu) ( (item :int) (label :cstring) (value :int)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutRemoveMenuItem( int item ); (uffi:def-function ("glutRemoveMenuItem" glutRemoveMenuItem) ( (item :int)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutAttachMenu( int button ); (uffi:def-function ("glutAttachMenu" glutAttachMenu) ( (button :int)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutDetachMenu( int button ); (uffi:def-function ("glutDetachMenu" glutDetachMenu) ( (button :int)) :returning :void :module "/usr/lib/libglut.so") ;;; COMMENT: /* * Global callback functions, see freeglut_callbacks.c */ ;;; CODE: void glutTimerFunc( unsigned int time, void (* callback)( int ), int value ); (uffi:def-function ("glutTimerFunc" glutTimerFunc) ( (time :unsigned-int) (callback (* (function :void :int))) (value :int)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutIdleFunc( void (* callback)( void ) ); (uffi:def-function ("glutIdleFunc" glutIdleFunc) ( (callback (* (function :void)))) :returning :void :module "/usr/lib/libglut.so") ;;; COMMENT: /* * Window-specific callback functions, see freeglut_callbacks.c */ ;;; CODE: void glutKeyboardFunc( void (* callback)( unsigned char, int, int ) ); (uffi:def-function ("glutKeyboardFunc" glutKeyboardFunc) ( (callback (* (function :void :unsigned-int :int :int)))) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutSpecialFunc( void (* callback)( int, int, int ) ); (uffi:def-function ("glutSpecialFunc" glutSpecialFunc) ( (callback (* (function :void :int :int :int)))) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutReshapeFunc( void (* callback)( int, int ) ); (uffi:def-function ("glutReshapeFunc" glutReshapeFunc) ( (callback (* (function :void :int :int)))) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutVisibilityFunc( void (* callback)( int ) ); (uffi:def-function ("glutVisibilityFunc" glutVisibilityFunc) ( (callback (* (function :void :int)))) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutDisplayFunc( void (* callback)( void ) ); (uffi:def-function ("glutDisplayFunc" glutDisplayFunc) ( (callback (* (function :void)))) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutMouseFunc( void (* callback)( int, int, int, int ) ); (uffi:def-function ("glutMouseFunc" glutMouseFunc) ( (callback (* (function :void :int :int :int :int)))) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutMotionFunc( void (* callback)( int, int ) ); (uffi:def-function ("glutMotionFunc" glutMotionFunc) ( (callback (* (function :void :int :int)))) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutPassiveMotionFunc( void (* callback)( int, int ) ); (uffi:def-function ("glutPassiveMotionFunc" glutPassiveMotionFunc) ( (callback (* (function :void :int :int)))) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutEntryFunc( void (* callback)( int ) ); (uffi:def-function ("glutEntryFunc" glutEntryFunc) ( (callback (* (function :void :int)))) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutKeyboardUpFunc( void (* callback)( unsigned char, int, int ) ); (uffi:def-function ("glutKeyboardUpFunc" glutKeyboardUpFunc) ( (callback (* (function :void :unsigned-int :int :int)))) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutSpecialUpFunc( void (* callback)( int, int, int ) ); (uffi:def-function ("glutSpecialUpFunc" glutSpecialUpFunc) ( (callback (* (function :void :int :int :int)))) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutJoystickFunc( void (* callback)( unsigned int, int, int, int ), int pollInterval ); (uffi:def-function ("glutJoystickFunc" glutJoystickFunc) ( (callback (* (function :void :unsigned-int :int :int :int))) (pollInterval :int)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutMenuStateFunc( void (* callback)( int ) ); (uffi:def-function ("glutMenuStateFunc" glutMenuStateFunc) ( (callback (* (function :void :int)))) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutMenuStatusFunc( void (* callback)( int, int, int ) ); (uffi:def-function ("glutMenuStatusFunc" glutMenuStatusFunc) ( (callback (* (function :void :int :int :int)))) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutOverlayDisplayFunc( void (* callback)( void ) ); (uffi:def-function ("glutOverlayDisplayFunc" glutOverlayDisplayFunc) ( (callback (* (function :void)))) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutWindowStatusFunc( void (* callback)( int ) ); (uffi:def-function ("glutWindowStatusFunc" glutWindowStatusFunc) ( (callback (* (function :void :int)))) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutSpaceballMotionFunc( void (* callback)( int, int, int ) ); (uffi:def-function ("glutSpaceballMotionFunc" glutSpaceballMotionFunc) ( (callback (* (function :void :int :int :int)))) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutSpaceballRotateFunc( void (* callback)( int, int, int ) ); (uffi:def-function ("glutSpaceballRotateFunc" glutSpaceballRotateFunc) ( (callback (* (function :void :int :int :int)))) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutSpaceballButtonFunc( void (* callback)( int, int ) ); (uffi:def-function ("glutSpaceballButtonFunc" glutSpaceballButtonFunc) ( (callback (* (function :void :int :int)))) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutButtonBoxFunc( void (* callback)( int, int ) ); (uffi:def-function ("glutButtonBoxFunc" glutButtonBoxFunc) ( (callback (* (function :void :int :int)))) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutDialsFunc( void (* callback)( int, int ) ); (uffi:def-function ("glutDialsFunc" glutDialsFunc) ( (callback (* (function :void :int :int)))) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutTabletMotionFunc( void (* callback)( int, int ) ); (uffi:def-function ("glutTabletMotionFunc" glutTabletMotionFunc) ( (callback (* (function :void :int :int)))) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutTabletButtonFunc( void (* callback)( int, int, int, int ) ); (uffi:def-function ("glutTabletButtonFunc" glutTabletButtonFunc) ( (callback (* (function :void :int :int :int :int)))) :returning :void :module "/usr/lib/libglut.so") ;;; COMMENT: /* * State setting and retrieval functions, see freeglut_state.c */ ;;; CODE: int glutGet( GLenum query ); (uffi:def-function ("glutGet" glutGet) ( (query GLenum)) :returning :int :module "/usr/lib/libglut.so") ;;; CODE: int glutDeviceGet( GLenum query ); (uffi:def-function ("glutDeviceGet" glutDeviceGet) ( (query GLenum)) :returning :int :module "/usr/lib/libglut.so") ;;; CODE: int glutGetModifiers( void ); (uffi:def-function ("glutGetModifiers" glutGetModifiers) () :returning :int :module "/usr/lib/libglut.so") ;;; CODE: int glutLayerGet( GLenum query ); (uffi:def-function ("glutLayerGet" glutLayerGet) ( (query GLenum)) :returning :int :module "/usr/lib/libglut.so") ;;; COMMENT: /* * Font stuff, see freeglut_font.c */ ;;; CODE: void glutBitmapCharacter( void* font, int character ); (uffi:def-function ("glutBitmapCharacter" glutBitmapCharacter) ;;( (font (* t)) (character :int)) ( (font :unsigned-int) (character :int)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: int glutBitmapWidth( void* font, int character ); (uffi:def-function ("glutBitmapWidth" glutBitmapWidth) ( (font (* t)) (character :int)) :returning :int :module "/usr/lib/libglut.so") ;;; CODE: void glutStrokeCharacter( void* font, int character ); (uffi:def-function ("glutStrokeCharacter" glutStrokeCharacter) ( (font (* t)) (character :int)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: int glutStrokeWidth( void* font, int character ); (uffi:def-function ("glutStrokeWidth" glutStrokeWidth) ( (font (* t)) (character :int)) :returning :int :module "/usr/lib/libglut.so") ;;; CODE: int glutBitmapLength( void* font, unsigned char* string ); (uffi:def-function ("glutBitmapLength" glutBitmapLength) ( (font (* t)) (string (* :unsigned-char))) :returning :int :module "/usr/lib/libglut.so") ;;; CODE: int glutStrokeLength( void* font, unsigned char* string ); (uffi:def-function ("glutStrokeLength" glutStrokeLength) ( (font (* t)) (string (* :unsigned-char))) :returning :int :module "/usr/lib/libglut.so") ;;; COMMENT: /* * Geometry functions, see freeglut_geometry.c */ ;;; CODE: void glutWireCube( GLdouble size ); (uffi:def-function ("glutWireCube" glutWireCube) ( (size GLdouble)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutSolidCube( GLdouble size ); (uffi:def-function ("glutSolidCube" glutSolidCube) ( (size GLdouble)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutWireSphere( GLdouble radius, GLint slices, GLint stacks ); (uffi:def-function ("glutWireSphere" glutWireSphere) ( (radius GLdouble) (slices GLint) (stacks GLint)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutSolidSphere( GLdouble radius, GLint slices, GLint stacks ); (uffi:def-function ("glutSolidSphere" glutSolidSphere) ( (radius GLdouble) (slices GLint) (stacks GLint)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutWireCone( GLdouble base, GLdouble height, GLint slices, GLint stacks ); (uffi:def-function ("glutWireCone" glutWireCone) ( (base GLdouble) (height GLdouble) (slices GLint) (stacks GLint)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutSolidCone( GLdouble base, GLdouble height, GLint slices, GLint stacks ); (uffi:def-function ("glutSolidCone" glutSolidCone) ( (base GLdouble) (height GLdouble) (slices GLint) (stacks GLint)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutWireTorus( GLdouble innerRadius, GLdouble outerRadius, GLint sides, GLint rings ); (uffi:def-function ("glutWireTorus" glutWireTorus) ( (innerRadius GLdouble) (outerRadius GLdouble) (sides GLint) (rings GLint)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutSolidTorus( GLdouble innerRadius, GLdouble outerRadius, GLint sides, GLint rings ); (uffi:def-function ("glutSolidTorus" glutSolidTorus) ( (innerRadius GLdouble) (outerRadius GLdouble) (sides GLint) (rings GLint)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutWireDodecahedron( void ); (uffi:def-function ("glutWireDodecahedron" glutWireDodecahedron) () :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutSolidDodecahedron( void ); (uffi:def-function ("glutSolidDodecahedron" glutSolidDodecahedron) () :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutWireOctahedron( void ); (uffi:def-function ("glutWireOctahedron" glutWireOctahedron) () :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutSolidOctahedron( void ); (uffi:def-function ("glutSolidOctahedron" glutSolidOctahedron) () :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutWireTetrahedron( void ); (uffi:def-function ("glutWireTetrahedron" glutWireTetrahedron) () :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutSolidTetrahedron( void ); (uffi:def-function ("glutSolidTetrahedron" glutSolidTetrahedron) () :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutWireIcosahedron( void ); (uffi:def-function ("glutWireIcosahedron" glutWireIcosahedron) () :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutSolidIcosahedron( void ); (uffi:def-function ("glutSolidIcosahedron" glutSolidIcosahedron) () :returning :void :module "/usr/lib/libglut.so") ;;; COMMENT: /* * Teapot rendering functions, found in freeglut_teapot.c */ ;;; CODE: void glutWireTeapot( GLdouble size ); (uffi:def-function ("glutWireTeapot" glutWireTeapot) ( (size GLdouble)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutSolidTeapot( GLdouble size ); (uffi:def-function ("glutSolidTeapot" glutSolidTeapot) ( (size GLdouble)) :returning :void :module "/usr/lib/libglut.so") ;;; COMMENT: /* * Game mode functions, see freeglut_gamemode.c */ ;;; CODE: void glutGameModeString( char* string ); (uffi:def-function ("glutGameModeString" glutGameModeString) ( (string :cstring)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: int glutEnterGameMode( void ); (uffi:def-function ("glutEnterGameMode" glutEnterGameMode) () :returning :int :module "/usr/lib/libglut.so") ;;; CODE: void glutLeaveGameMode( void ); (uffi:def-function ("glutLeaveGameMode" glutLeaveGameMode) () :returning :void :module "/usr/lib/libglut.so") ;;; CODE: int glutGameModeGet( GLenum query ); (uffi:def-function ("glutGameModeGet" glutGameModeGet) ( (query GLenum)) :returning :int :module "/usr/lib/libglut.so") ;;; COMMENT: /* * Video resize functions, see freeglut_videoresize.c */ ;;; CODE: int glutVideoResizeGet( GLenum query ); (uffi:def-function ("glutVideoResizeGet" glutVideoResizeGet) ( (query GLenum)) :returning :int :module "/usr/lib/libglut.so") ;;; CODE: void glutSetupVideoResizing( void ); (uffi:def-function ("glutSetupVideoResizing" glutSetupVideoResizing) () :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutStopVideoResizing( void ); (uffi:def-function ("glutStopVideoResizing" glutStopVideoResizing) () :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutVideoResize( int x, int y, int width, int height ); (uffi:def-function ("glutVideoResize" glutVideoResize) ( (x :int) (y :int) (width :int) (height :int)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutVideoPan( int x, int y, int width, int height ); (uffi:def-function ("glutVideoPan" glutVideoPan) ( (x :int) (y :int) (width :int) (height :int)) :returning :void :module "/usr/lib/libglut.so") ;;; COMMENT: /* * Colormap functions, see freeglut_misc.c */ ;;; CODE: void glutSetColor( int color, GLfloat red, GLfloat green, GLfloat blue ); (uffi:def-function ("glutSetColor" glutSetColor) ( (color :int) (red GLfloat) (green GLfloat) (blue GLfloat)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: GLfloat glutGetColor( int color, int component ); (uffi:def-function ("glutGetColor" glutGetColor) ( (color :int) (component :int)) :returning GLfloat :module "/usr/lib/libglut.so") ;;; CODE: void glutCopyColormap( int window ); (uffi:def-function ("glutCopyColormap" glutCopyColormap) ( (window :int)) :returning :void :module "/usr/lib/libglut.so") ;;; COMMENT: /* * Misc keyboard and joystick functions, see freeglut_misc.c */ ;;; CODE: void glutIgnoreKeyRepeat( int ignore ); (uffi:def-function ("glutIgnoreKeyRepeat" glutIgnoreKeyRepeat) ( (ignore :int)) :returning :void :module "/usr/lib/libglut.so") ;;; CODE: void glutSetKeyRepeat( int repeatMode ); (uffi:def-function ("glutSetKeyRepeat" glutSetKeyRepeat) ( (repeatMode :int)) :returning :void :module "/usr/lib/libglut.so") ;;; COMMENT: /* DEPRECATED 11/4/02 - Do not use */ ;;; CODE: void glutForceJoystickFunc( void ); (uffi:def-function ("glutForceJoystickFunc" glutForceJoystickFunc) () :returning :void :module "/usr/lib/libglut.so") ;;; COMMENT: /* * Misc functions, see freeglut_misc.c */ ;;; CODE: int glutExtensionSupported( char* extension ); (uffi:def-function ("glutExtensionSupported" glutExtensionSupported) ( (extension :cstring)) :returning :int :module "/usr/lib/libglut.so") ;;; CODE: void glutReportErrors( void ); (uffi:def-function ("glutReportErrors" glutReportErrors) () :returning :void :module "/usr/lib/libglut.so") ;;; DEFINE: #ifdef __cplusplus ;; **IGNORED**: #ifdef __cplusplus ;;; CODE: } ;; **IGNORED**: } ;;; DEFINE: #endif ;; **IGNORED**: #endif ;;; COMMENT: /*** END OF FILE ***/ ;;; COMMENT: /* __FREEGLUT_STD_H__ */ ;;; DEFINE: #endif ;; **IGNORED**: #endif