;;; GLUT ;;; ;;; Copyright (C) 2004 Philippe Brochard (hocwp@free.fr) ;;; ;;; #date#: Tue Feb 1 20:18:36 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 '(glutReportErrors glutExtensionSupported glutForceJoystickFunc glutSetKeyRepeat glutIgnoreKeyRepeat glutCopyColormap glutGetColor glutSetColor glutVideoPan glutVideoResize glutStopVideoResizing glutSetupVideoResizing glutVideoResizeGet glutGameModeGet glutLeaveGameMode glutEnterGameMode glutGameModeString glutSolidTeapot glutWireTeapot glutSolidIcosahedron glutWireIcosahedron glutSolidTetrahedron glutWireTetrahedron glutSolidOctahedron glutWireOctahedron glutSolidDodecahedron glutWireDodecahedron glutSolidTorus glutWireTorus glutSolidCone glutWireCone glutSolidSphere glutWireSphere glutSolidCube glutWireCube glutStrokeLength glutBitmapLength glutStrokeWidth glutStrokeCharacter glutBitmapWidth glutBitmapCharacter glutLayerGet glutGetModifiers glutDeviceGet glutGet glutTabletButtonFunc glutTabletMotionFunc glutDialsFunc glutButtonBoxFunc glutSpaceballButtonFunc glutSpaceballRotateFunc glutSpaceballMotionFunc glutWindowStatusFunc glutOverlayDisplayFunc glutMenuStatusFunc glutMenuStateFunc glutJoystickFunc glutSpecialUpFunc glutKeyboardUpFunc glutEntryFunc glutPassiveMotionFunc glutMotionFunc glutMouseFunc glutDisplayFunc glutVisibilityFunc glutReshapeFunc glutSpecialFunc glutKeyboardFunc glutIdleFunc glutTimerFunc glutDetachMenu glutAttachMenu glutRemoveMenuItem glutChangeToSubMenu glutChangeToMenuEntry glutAddSubMenu glutAddMenuEntry glutSetMenu glutGetMenu glutDestroyMenu glutCreateMenu glutHideOverlay glutShowOverlay glutPostWindowOverlayRedisplay glutPostOverlayRedisplay glutUseLayer glutRemoveOverlay glutEstablishOverlay glutSetCursor glutWarpPointer glutSwapBuffers glutPostRedisplay glutPostWindowRedisplay glutFullScreen glutPopWindow glutPushWindow glutIconifyWindow glutHideWindow glutShowWindow glutPositionWindow glutReshapeWindow glutSetIconTitle glutSetWindowTitle glutGetWindow glutSetWindow glutDestroyWindow glutCreateSubWindow glutCreateWindow glutMainLoop glutInitDisplayString glutInitDisplayMode glutInitWindowSize glutInitWindowPosition glutInit GLUT_GAME_MODE_DISPLAY_CHANGED GLUT_GAME_MODE_REFRESH_RATE GLUT_GAME_MODE_PIXEL_DEPTH GLUT_GAME_MODE_HEIGHT GLUT_GAME_MODE_WIDTH GLUT_GAME_MODE_POSSIBLE GLUT_GAME_MODE_ACTIVE GLUT_JOYSTICK_BUTTON_D GLUT_JOYSTICK_BUTTON_C GLUT_JOYSTICK_BUTTON_B GLUT_JOYSTICK_BUTTON_A GLUT_KEY_REPEAT_DEFAULT GLUT_KEY_REPEAT_ON GLUT_KEY_REPEAT_OFF GLUT_BLUE GLUT_GREEN GLUT_RED GLUT_CURSOR_FULL_CROSSHAIR GLUT_CURSOR_NONE GLUT_CURSOR_INHERIT GLUT_CURSOR_BOTTOM_LEFT_CORNER GLUT_CURSOR_BOTTOM_RIGHT_CORNER GLUT_CURSOR_TOP_RIGHT_CORNER GLUT_CURSOR_TOP_LEFT_CORNER GLUT_CURSOR_RIGHT_SIDE GLUT_CURSOR_LEFT_SIDE GLUT_CURSOR_BOTTOM_SIDE GLUT_CURSOR_TOP_SIDE GLUT_CURSOR_LEFT_RIGHT GLUT_CURSOR_UP_DOWN GLUT_CURSOR_CROSSHAIR GLUT_CURSOR_TEXT GLUT_CURSOR_WAIT GLUT_CURSOR_SPRAY GLUT_CURSOR_CYCLE GLUT_CURSOR_HELP GLUT_CURSOR_DESTROY GLUT_CURSOR_INFO GLUT_CURSOR_LEFT_ARROW GLUT_CURSOR_RIGHT_ARROW GLUT_ACTIVE_ALT GLUT_ACTIVE_CTRL GLUT_ACTIVE_SHIFT GLUT_OVERLAY GLUT_NORMAL GLUT_VIDEO_RESIZE_HEIGHT GLUT_VIDEO_RESIZE_WIDTH GLUT_VIDEO_RESIZE_Y GLUT_VIDEO_RESIZE_X GLUT_VIDEO_RESIZE_HEIGHT_DELTA GLUT_VIDEO_RESIZE_WIDTH_DELTA GLUT_VIDEO_RESIZE_Y_DELTA GLUT_VIDEO_RESIZE_X_DELTA GLUT_VIDEO_RESIZE_IN_USE GLUT_VIDEO_RESIZE_POSSIBLE GLUT_OVERLAY_DAMAGED GLUT_NORMAL_DAMAGED GLUT_TRANSPARENT_INDEX GLUT_HAS_OVERLAY GLUT_LAYER_IN_USE GLUT_OVERLAY_POSSIBLE GLUT_JOYSTICK_POLL_RATE GLUT_JOYSTICK_AXES GLUT_JOYSTICK_BUTTONS GLUT_OWNS_JOYSTICK GLUT_HAS_JOYSTICK GLUT_DEVICE_KEY_REPEAT GLUT_DEVICE_IGNORE_KEY_REPEAT GLUT_NUM_TABLET_BUTTONS GLUT_NUM_DIALS GLUT_NUM_BUTTON_BOX_BUTTONS GLUT_NUM_SPACEBALL_BUTTONS GLUT_NUM_MOUSE_BUTTONS GLUT_HAS_TABLET GLUT_HAS_DIAL_AND_BUTTON_BOX GLUT_HAS_SPACEBALL GLUT_HAS_MOUSE GLUT_HAS_KEYBOARD GLUT_INIT_STATE GLUT_WINDOW_FORMAT_ID GLUT_ELAPSED_TIME GLUT_INIT_DISPLAY_MODE GLUT_INIT_WINDOW_HEIGHT GLUT_INIT_WINDOW_WIDTH GLUT_INIT_WINDOW_Y GLUT_INIT_WINDOW_X GLUT_DISPLAY_MODE_POSSIBLE GLUT_MENU_NUM_ITEMS GLUT_SCREEN_HEIGHT_MM GLUT_SCREEN_WIDTH_MM GLUT_SCREEN_HEIGHT GLUT_SCREEN_WIDTH GLUT_WINDOW_CURSOR GLUT_WINDOW_STEREO GLUT_WINDOW_NUM_SAMPLES GLUT_WINDOW_COLORMAP_SIZE GLUT_WINDOW_NUM_CHILDREN GLUT_WINDOW_PARENT GLUT_WINDOW_RGBA GLUT_WINDOW_DOUBLEBUFFER GLUT_WINDOW_ACCUM_ALPHA_SIZE GLUT_WINDOW_ACCUM_BLUE_SIZE GLUT_WINDOW_ACCUM_GREEN_SIZE GLUT_WINDOW_ACCUM_RED_SIZE GLUT_WINDOW_ALPHA_SIZE GLUT_WINDOW_BLUE_SIZE GLUT_WINDOW_GREEN_SIZE GLUT_WINDOW_RED_SIZE GLUT_WINDOW_DEPTH_SIZE GLUT_WINDOW_STENCIL_SIZE GLUT_WINDOW_BUFFER_SIZE GLUT_WINDOW_HEIGHT GLUT_WINDOW_WIDTH GLUT_WINDOW_Y GLUT_WINDOW_X glutBitmapHelvetica18 glutBitmapHelvetica12 glutBitmapHelvetica10 glutBitmapTimesRoman24 glutBitmapTimesRoman10 glutBitmap8By13 glutBitmap9By15 GLUT_BITMAP_HELVETICA_18 GLUT_BITMAP_HELVETICA_12 GLUT_BITMAP_HELVETICA_10 GLUT_BITMAP_TIMESROMAN_24 GLUT_BITMAP_TIMESROMAN_10 GLUT_BITMAP_8BY13 GLUT_BITMAP_9BY15 glutStrokeMonoRoman glutStrokeRoman GLUT_FULLY_COVERED GLUT_PARTIALLY_RETAINED GLUT_FULLY_RETAINED GLUT_HIDDEN GLUT_VISIBLE GLUT_NOT_VISIBLE GLUT_MENU_IN_USE GLUT_MENU_NOT_IN_USE GLUT_LUMINANCE GLUT_STEREO GLUT_MULTISAMPLE GLUT_STENCIL GLUT_DEPTH GLUT_ALPHA GLUT_ACCUM GLUT_DOUBLE GLUT_SINGLE GLUT_INDEX GLUT_RGBA GLUT_RGB GLUT_ENTERED GLUT_LEFT GLUT_UP GLUT_DOWN GLUT_RIGHT_BUTTON GLUT_MIDDLE_BUTTON GLUT_LEFT_BUTTON GLUT_KEY_INSERT GLUT_KEY_END GLUT_KEY_HOME GLUT_KEY_PAGE_DOWN GLUT_KEY_PAGE_UP GLUT_KEY_DOWN GLUT_KEY_RIGHT GLUT_KEY_UP GLUT_KEY_LEFT GLUT_KEY_F12 GLUT_KEY_F11 GLUT_KEY_F10 GLUT_KEY_F9 GLUT_KEY_F8 GLUT_KEY_F7 GLUT_KEY_F6 GLUT_KEY_F5 GLUT_KEY_F4 GLUT_KEY_F3 GLUT_KEY_F2 GLUT_KEY_F1 GLUT_XLIB_IMPLEMENTATION FREEGLUT_VERSION_2_0 GLUT_API_VERSION FREEGLUT __FREEGLUT_STD_H__)) ;;; 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; #+UNIX (ffi:def-c-var glutStrokeRoman (:name "glutStrokeRoman") (:type ffi:c-pointer) (:library "libglut.so")) #+UNIX (defconstant GLUT_STROKE_ROMAN (ffi:c-var-address glutStrokeRoman)) #+WIN32 (defconstant GLUT_STROKE_ROMAN #x0000) ;;; CODE: void* glutStrokeMonoRoman; #+UNIX (ffi:def-c-var glutStrokeMonoRoman (:name "glutStrokeMonoRoman") (:type ffi:c-pointer) (:library "libglut.so")) #+UNIX (defconstant GLUT_STROKE_MONOROMAN (ffi:c-var-address glutStrokeMonoRoman)) #+WIN32 (defconstant GLUT_STROKE_MONOROMAN #x0001) ;;; CODE: void* glutBitmap9By15; #+UNIX (ffi:def-c-var glutBitmap9By15 (:name "glutBitmap9By15") (:type ffi:c-pointer) (:library "libglut.so")) #+UNIX (defconstant GLUT_STROKE_9BY15 (ffi:c-var-address glutBitmap9By15)) #+WIN32 (defconstant GLUT_STROKE_9BY15 #x0002) ;;; CODE: void* glutBitmap8By13; #+UNIX (ffi:def-c-var glutBitmap8By13 (:name "glutBitmap8By13") (:type ffi:c-pointer) (:library "libglut.so")) #+UNIX (defconstant GLUT_BITMAP_8BY13 (ffi:c-var-address glutBitmap8By13)) #+WIN32 (defconstant GLUT_BITMAP_8BY13 #x0003) ;;; CODE: void* glutBitmapTimesRoman10; #+UNIX (ffi:def-c-var glutBitmapTimesRoman10 (:name "glutBitmapTimesRoman10") (:type ffi:c-pointer) (:library "libglut.so")) #+UNIX (defconstant GLUT_BITMAP_TIMESROMAN_10 (ffi:c-var-address glutBitmapTimesRoman10)) #+WIN32 (defconstant GLUT_BITMAP_TIMESROMAN_10 #x0004) ;;; CODE: void* glutBitmapTimesRoman24; #+UNIX (ffi:def-c-var glutBitmapTimesRoman24 (:name "glutBitmapTimesRoman24") (:type ffi:c-pointer) (:library "libglut.so")) #+UNIX (defconstant GLUT_BITMAP_TIMESROMAN_24 (ffi:c-var-address glutBitmapTimesRoman24)) #+WIN32 (defconstant GLUT_BITMAP_TIMESROMAN_24 #x0005) ;;; CODE: void* glutBitmapHelvetica10; #+UNIX (ffi:def-c-var glutBitmapHelvetica10 (:name "glutBitmapHelvetica10") (:type ffi:c-pointer) (:library "libglut.so")) #+UNIX (defconstant GLUT_BITMAP_HELVETICA_10 (ffi:c-var-address glutBitmapHelvetica10)) #+WIN32 (defconstant GLUT_BITMAP_HELVETICA_10 #x0006) ;;; CODE: void* glutBitmapHelvetica12; #+UNIX (ffi:def-c-var glutBitmapHelvetica12 (:name "glutBitmapHelvetica12") (:type ffi:c-pointer) (:library "libglut.so")) #+UNIX (defconstant GLUT_BITMAP_HELVETICA_12 (ffi:c-var-address glutBitmapHelvetica12)) #+WIN32 (defconstant GLUT_BITMAP_HELVETICA_12 #x0007) ;;; CODE: void* glutBitmapHelvetica18; #+UNIX (ffi:def-c-var glutBitmapHelvetica18 (:name "glutBitmapHelvetica18") (:type ffi:c-pointer) (:library "libglut.so")) #+UNIX (defconstant GLUT_BITMAP_HELVETICA_18 (ffi:c-var-address glutBitmapHelvetica18)) #+WIN32 (defconstant GLUT_BITMAP_HELVETICA_18 #x0008) ;;; 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 ); (ffi:def-call-out glutInit (:name "glutInit") (:return-type NIL) (:arguments (pargc (ffi:c-ptr ffi:int)) (argv ffi:c-string)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutInitWindowPosition( int x, int y ); (ffi:def-call-out glutInitWindowPosition (:name "glutInitWindowPosition") (:return-type NIL) (:arguments (x ffi:int) (y ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutInitWindowSize( int width, int height ); (ffi:def-call-out glutInitWindowSize (:name "glutInitWindowSize") (:return-type NIL) (:arguments (width ffi:int) (height ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutInitDisplayMode( unsigned int displayMode ); (ffi:def-call-out glutInitDisplayMode (:name "glutInitDisplayMode") (:return-type NIL) (:arguments (displayMode ffi:uint)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutInitDisplayString( char* displayMode ); (ffi:def-call-out glutInitDisplayString (:name "glutInitDisplayString") (:return-type NIL) (:arguments (displayMode ffi:c-string)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; COMMENT: /* * Process loop function, see freeglut_main.c */ ;;; CODE: void glutMainLoop( void ); (ffi:def-call-out glutMainLoop (:name "glutMainLoop") (:return-type NIL) (:arguments) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; COMMENT: /* * Window management functions, see freeglut_window.c */ ;;; CODE: int glutCreateWindow( char* title ); (ffi:def-call-out glutCreateWindow (:name "glutCreateWindow") (:return-type ffi:int) (:arguments (title ffi:c-string)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: int glutCreateSubWindow( int window, int x, int y, int width, int height ); (ffi:def-call-out glutCreateSubWindow (:name "glutCreateSubWindow") (:return-type ffi:int) (:arguments (window ffi:int) (x ffi:int) (y ffi:int) (width ffi:int) (height ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutDestroyWindow( int window ); (ffi:def-call-out glutDestroyWindow (:name "glutDestroyWindow") (:return-type NIL) (:arguments (window ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutSetWindow( int window ); (ffi:def-call-out glutSetWindow (:name "glutSetWindow") (:return-type NIL) (:arguments (window ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: int glutGetWindow( void ); (ffi:def-call-out glutGetWindow (:name "glutGetWindow") (:return-type ffi:int) (:arguments) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutSetWindowTitle( char* title ); (ffi:def-call-out glutSetWindowTitle (:name "glutSetWindowTitle") (:return-type NIL) (:arguments (title ffi:c-string)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutSetIconTitle( char* title ); (ffi:def-call-out glutSetIconTitle (:name "glutSetIconTitle") (:return-type NIL) (:arguments (title ffi:c-string)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutReshapeWindow( int width, int height ); (ffi:def-call-out glutReshapeWindow (:name "glutReshapeWindow") (:return-type NIL) (:arguments (width ffi:int) (height ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutPositionWindow( int x, int y ); (ffi:def-call-out glutPositionWindow (:name "glutPositionWindow") (:return-type NIL) (:arguments (x ffi:int) (y ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutShowWindow( void ); (ffi:def-call-out glutShowWindow (:name "glutShowWindow") (:return-type NIL) (:arguments) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutHideWindow( void ); (ffi:def-call-out glutHideWindow (:name "glutHideWindow") (:return-type NIL) (:arguments) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutIconifyWindow( void ); (ffi:def-call-out glutIconifyWindow (:name "glutIconifyWindow") (:return-type NIL) (:arguments) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutPushWindow( void ); (ffi:def-call-out glutPushWindow (:name "glutPushWindow") (:return-type NIL) (:arguments) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutPopWindow( void ); (ffi:def-call-out glutPopWindow (:name "glutPopWindow") (:return-type NIL) (:arguments) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutFullScreen( void ); (ffi:def-call-out glutFullScreen (:name "glutFullScreen") (:return-type NIL) (:arguments) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; COMMENT: /* * Display-connected functions, see freeglut_display.c */ ;;; CODE: void glutPostWindowRedisplay( int window ); (ffi:def-call-out glutPostWindowRedisplay (:name "glutPostWindowRedisplay") (:return-type NIL) (:arguments (window ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutPostRedisplay( void ); (ffi:def-call-out glutPostRedisplay (:name "glutPostRedisplay") (:return-type NIL) (:arguments) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutSwapBuffers( void ); (ffi:def-call-out glutSwapBuffers (:name "glutSwapBuffers") (:return-type NIL) (:arguments) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; COMMENT: /* * Mouse cursor functions, see freeglut_cursor.c */ ;;; CODE: void glutWarpPointer( int x, int y ); (ffi:def-call-out glutWarpPointer (:name "glutWarpPointer") (:return-type NIL) (:arguments (x ffi:int) (y ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutSetCursor( int cursor ); (ffi:def-call-out glutSetCursor (:name "glutSetCursor") (:return-type NIL) (:arguments (cursor ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; COMMENT: /* * Overlay stuff, see freeglut_overlay.c */ ;;; CODE: void glutEstablishOverlay( void ); (ffi:def-call-out glutEstablishOverlay (:name "glutEstablishOverlay") (:return-type NIL) (:arguments) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutRemoveOverlay( void ); (ffi:def-call-out glutRemoveOverlay (:name "glutRemoveOverlay") (:return-type NIL) (:arguments) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutUseLayer( GLenum layer ); (ffi:def-call-out glutUseLayer (:name "glutUseLayer") (:return-type NIL) (:arguments (layer GLenum)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutPostOverlayRedisplay( void ); (ffi:def-call-out glutPostOverlayRedisplay (:name "glutPostOverlayRedisplay") (:return-type NIL) (:arguments) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutPostWindowOverlayRedisplay( int window ); (ffi:def-call-out glutPostWindowOverlayRedisplay (:name "glutPostWindowOverlayRedisplay") (:return-type NIL) (:arguments (window ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutShowOverlay( void ); (ffi:def-call-out glutShowOverlay (:name "glutShowOverlay") (:return-type NIL) (:arguments) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutHideOverlay( void ); (ffi:def-call-out glutHideOverlay (:name "glutHideOverlay") (:return-type NIL) (:arguments) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; COMMENT: /* * Menu stuff, see freeglut_menu.c */ ;;; CODE: int glutCreateMenu( void (* callback)( int menu ) ); (ffi:def-call-out glutCreateMenu (:name "glutCreateMenu") (:return-type ffi:int) (:arguments (callback (ffi:c-function (:return-type NIL) (:arguments(menu ffi:int)) (:language :STDC)))) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutDestroyMenu( int menu ); (ffi:def-call-out glutDestroyMenu (:name "glutDestroyMenu") (:return-type NIL) (:arguments (menu ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: int glutGetMenu( void ); (ffi:def-call-out glutGetMenu (:name "glutGetMenu") (:return-type ffi:int) (:arguments) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutSetMenu( int menu ); (ffi:def-call-out glutSetMenu (:name "glutSetMenu") (:return-type NIL) (:arguments (menu ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutAddMenuEntry( char* label, int value ); (ffi:def-call-out glutAddMenuEntry (:name "glutAddMenuEntry") (:return-type NIL) (:arguments (label ffi:c-string) (value ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutAddSubMenu( char* label, int subMenu ); (ffi:def-call-out glutAddSubMenu (:name "glutAddSubMenu") (:return-type NIL) (:arguments (label ffi:c-string) (subMenu ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutChangeToMenuEntry( int item, char* label, int value ); (ffi:def-call-out glutChangeToMenuEntry (:name "glutChangeToMenuEntry") (:return-type NIL) (:arguments (item ffi:int) (label ffi:c-string) (value ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutChangeToSubMenu( int item, char* label, int value ); (ffi:def-call-out glutChangeToSubMenu (:name "glutChangeToSubMenu") (:return-type NIL) (:arguments (item ffi:int) (label ffi:c-string) (value ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutRemoveMenuItem( int item ); (ffi:def-call-out glutRemoveMenuItem (:name "glutRemoveMenuItem") (:return-type NIL) (:arguments (item ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutAttachMenu( int button ); (ffi:def-call-out glutAttachMenu (:name "glutAttachMenu") (:return-type NIL) (:arguments (button ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutDetachMenu( int button ); (ffi:def-call-out glutDetachMenu (:name "glutDetachMenu") (:return-type NIL) (:arguments (button ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; COMMENT: /* * Global callback functions, see freeglut_callbacks.c */ ;;; CODE: void glutTimerFunc( unsigned int time, void (* callback)( int ), int value ); (ffi:def-call-out glutTimerFunc (:name "glutTimerFunc") (:return-type NIL) (:arguments (time ffi:uint) (callback (ffi:c-function (:return-type NIL) (:arguments(pG5169 ffi:int)) (:language :STDC))) (value ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutIdleFunc( void (* callback)( void ) ); (ffi:def-call-out glutIdleFunc (:name "glutIdleFunc") (:return-type NIL) (:arguments (callback (ffi:c-function (:return-type NIL) (:arguments) (:language :STDC)))) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; COMMENT: /* * Window-specific callback functions, see freeglut_callbacks.c */ ;;; CODE: void glutKeyboardFunc( void (* callback)( unsigned char, int, int ) ); (ffi:def-call-out glutKeyboardFunc (:name "glutKeyboardFunc") (:return-type NIL) (:arguments (callback (ffi:c-function (:return-type NIL) (:arguments(char ffi:uint)(pG5170 ffi:int)(pG5171 ffi:int)) (:language :STDC)))) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutSpecialFunc( void (* callback)( int, int, int ) ); (ffi:def-call-out glutSpecialFunc (:name "glutSpecialFunc") (:return-type NIL) (:arguments (callback (ffi:c-function (:return-type NIL) (:arguments(pG5172 ffi:int)(pG5173 ffi:int)(pG5174 ffi:int)) (:language :STDC)))) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutReshapeFunc( void (* callback)( int, int ) ); (ffi:def-call-out glutReshapeFunc (:name "glutReshapeFunc") (:return-type NIL) (:arguments (callback (ffi:c-function (:return-type NIL) (:arguments(pG5175 ffi:int)(pG5176 ffi:int)) (:language :STDC)))) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutVisibilityFunc( void (* callback)( int ) ); (ffi:def-call-out glutVisibilityFunc (:name "glutVisibilityFunc") (:return-type NIL) (:arguments (callback (ffi:c-function (:return-type NIL) (:arguments(pG5177 ffi:int)) (:language :STDC)))) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutDisplayFunc( void (* callback)( void ) ); (ffi:def-call-out glutDisplayFunc (:name "glutDisplayFunc") (:return-type NIL) (:arguments (callback (ffi:c-function (:return-type NIL) (:arguments) (:language :STDC)))) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutMouseFunc( void (* callback)( int, int, int, int ) ); (ffi:def-call-out glutMouseFunc (:name "glutMouseFunc") (:return-type NIL) (:arguments (callback (ffi:c-function (:return-type NIL) (:arguments(pG5178 ffi:int)(pG5179 ffi:int)(pG5180 ffi:int)(pG5181 ffi:int)) (:language :STDC)))) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutMotionFunc( void (* callback)( int, int ) ); (ffi:def-call-out glutMotionFunc (:name "glutMotionFunc") (:return-type NIL) (:arguments (callback (ffi:c-function (:return-type NIL) (:arguments(pG5182 ffi:int)(pG5183 ffi:int)) (:language :STDC)))) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutPassiveMotionFunc( void (* callback)( int, int ) ); (ffi:def-call-out glutPassiveMotionFunc (:name "glutPassiveMotionFunc") (:return-type NIL) (:arguments (callback (ffi:c-function (:return-type NIL) (:arguments(pG5184 ffi:int)(pG5185 ffi:int)) (:language :STDC)))) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutEntryFunc( void (* callback)( int ) ); (ffi:def-call-out glutEntryFunc (:name "glutEntryFunc") (:return-type NIL) (:arguments (callback (ffi:c-function (:return-type NIL) (:arguments(pG5186 ffi:int)) (:language :STDC)))) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutKeyboardUpFunc( void (* callback)( unsigned char, int, int ) ); (ffi:def-call-out glutKeyboardUpFunc (:name "glutKeyboardUpFunc") (:return-type NIL) (:arguments (callback (ffi:c-function (:return-type NIL) (:arguments(char ffi:uint)(pG5187 ffi:int)(pG5188 ffi:int)) (:language :STDC)))) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutSpecialUpFunc( void (* callback)( int, int, int ) ); (ffi:def-call-out glutSpecialUpFunc (:name "glutSpecialUpFunc") (:return-type NIL) (:arguments (callback (ffi:c-function (:return-type NIL) (:arguments(pG5189 ffi:int)(pG5190 ffi:int)(pG5191 ffi:int)) (:language :STDC)))) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutJoystickFunc( void (* callback)( unsigned int, int, int, int ), int pollInterval ); (ffi:def-call-out glutJoystickFunc (:name "glutJoystickFunc") (:return-type NIL) (:arguments (callback (ffi:c-function (:return-type NIL) (:arguments(int ffi:uint)(pG5192 ffi:int)(pG5193 ffi:int)(pG5194 ffi:int)) (:language :STDC))) (pollInterval ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutMenuStateFunc( void (* callback)( int ) ); (ffi:def-call-out glutMenuStateFunc (:name "glutMenuStateFunc") (:return-type NIL) (:arguments (callback (ffi:c-function (:return-type NIL) (:arguments(pG5195 ffi:int)) (:language :STDC)))) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutMenuStatusFunc( void (* callback)( int, int, int ) ); (ffi:def-call-out glutMenuStatusFunc (:name "glutMenuStatusFunc") (:return-type NIL) (:arguments (callback (ffi:c-function (:return-type NIL) (:arguments(pG5196 ffi:int)(pG5197 ffi:int)(pG5198 ffi:int)) (:language :STDC)))) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutOverlayDisplayFunc( void (* callback)( void ) ); (ffi:def-call-out glutOverlayDisplayFunc (:name "glutOverlayDisplayFunc") (:return-type NIL) (:arguments (callback (ffi:c-function (:return-type NIL) (:arguments) (:language :STDC)))) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutWindowStatusFunc( void (* callback)( int ) ); (ffi:def-call-out glutWindowStatusFunc (:name "glutWindowStatusFunc") (:return-type NIL) (:arguments (callback (ffi:c-function (:return-type NIL) (:arguments(pG5199 ffi:int)) (:language :STDC)))) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutSpaceballMotionFunc( void (* callback)( int, int, int ) ); (ffi:def-call-out glutSpaceballMotionFunc (:name "glutSpaceballMotionFunc") (:return-type NIL) (:arguments (callback (ffi:c-function (:return-type NIL) (:arguments(pG5200 ffi:int)(pG5201 ffi:int)(pG5202 ffi:int)) (:language :STDC)))) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutSpaceballRotateFunc( void (* callback)( int, int, int ) ); (ffi:def-call-out glutSpaceballRotateFunc (:name "glutSpaceballRotateFunc") (:return-type NIL) (:arguments (callback (ffi:c-function (:return-type NIL) (:arguments(pG5203 ffi:int)(pG5204 ffi:int)(pG5205 ffi:int)) (:language :STDC)))) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutSpaceballButtonFunc( void (* callback)( int, int ) ); (ffi:def-call-out glutSpaceballButtonFunc (:name "glutSpaceballButtonFunc") (:return-type NIL) (:arguments (callback (ffi:c-function (:return-type NIL) (:arguments(pG5206 ffi:int)(pG5207 ffi:int)) (:language :STDC)))) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutButtonBoxFunc( void (* callback)( int, int ) ); (ffi:def-call-out glutButtonBoxFunc (:name "glutButtonBoxFunc") (:return-type NIL) (:arguments (callback (ffi:c-function (:return-type NIL) (:arguments(pG5208 ffi:int)(pG5209 ffi:int)) (:language :STDC)))) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutDialsFunc( void (* callback)( int, int ) ); (ffi:def-call-out glutDialsFunc (:name "glutDialsFunc") (:return-type NIL) (:arguments (callback (ffi:c-function (:return-type NIL) (:arguments(pG5210 ffi:int)(pG5211 ffi:int)) (:language :STDC)))) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutTabletMotionFunc( void (* callback)( int, int ) ); (ffi:def-call-out glutTabletMotionFunc (:name "glutTabletMotionFunc") (:return-type NIL) (:arguments (callback (ffi:c-function (:return-type NIL) (:arguments(pG5212 ffi:int)(pG5213 ffi:int)) (:language :STDC)))) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutTabletButtonFunc( void (* callback)( int, int, int, int ) ); (ffi:def-call-out glutTabletButtonFunc (:name "glutTabletButtonFunc") (:return-type NIL) (:arguments (callback (ffi:c-function (:return-type NIL) (:arguments(pG5214 ffi:int)(pG5215 ffi:int)(pG5216 ffi:int)(pG5217 ffi:int)) (:language :STDC)))) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; COMMENT: /* * State setting and retrieval functions, see freeglut_state.c */ ;;; CODE: int glutGet( GLenum query ); (ffi:def-call-out glutGet (:name "glutGet") (:return-type ffi:int) (:arguments (query GLenum)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: int glutDeviceGet( GLenum query ); (ffi:def-call-out glutDeviceGet (:name "glutDeviceGet") (:return-type ffi:int) (:arguments (query GLenum)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: int glutGetModifiers( void ); (ffi:def-call-out glutGetModifiers (:name "glutGetModifiers") (:return-type ffi:int) (:arguments) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: int glutLayerGet( GLenum query ); (ffi:def-call-out glutLayerGet (:name "glutLayerGet") (:return-type ffi:int) (:arguments (query GLenum)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; COMMENT: /* * Font stuff, see freeglut_font.c */ ;;; CODE: void glutBitmapCharacter( void* font, int character ); (ffi:def-call-out glutBitmapCharacter (:name "glutBitmapCharacter") (:return-type NIL) #+UNIX (:arguments (font ffi:c-pointer) (character ffi:int)) #+WIN32 (:arguments (font ffi:int) (character ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: int glutBitmapWidth( void* font, int character ); (ffi:def-call-out glutBitmapWidth (:name "glutBitmapWidth") (:return-type ffi:int) (:arguments (font ffi:c-pointer) (character ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutStrokeCharacter( void* font, int character ); (ffi:def-call-out glutStrokeCharacter (:name "glutStrokeCharacter") (:return-type NIL) (:arguments (font ffi:c-pointer) (character ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: int glutStrokeWidth( void* font, int character ); (ffi:def-call-out glutStrokeWidth (:name "glutStrokeWidth") (:return-type ffi:int) (:arguments (font ffi:c-pointer) (character ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: int glutBitmapLength( void* font, unsigned char* string ); (ffi:def-call-out glutBitmapLength (:name "glutBitmapLength") (:return-type ffi:int) (:arguments (font ffi:c-pointer) (string (ffi:c-ptr ffi:uchar))) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: int glutStrokeLength( void* font, unsigned char* string ); (ffi:def-call-out glutStrokeLength (:name "glutStrokeLength") (:return-type ffi:int) (:arguments (font ffi:c-pointer) (string (ffi:c-ptr ffi:uchar))) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; COMMENT: /* * Geometry functions, see freeglut_geometry.c */ ;;; CODE: void glutWireCube( GLdouble size ); (ffi:def-call-out glutWireCube (:name "glutWireCube") (:return-type NIL) (:arguments (size GLdouble)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutSolidCube( GLdouble size ); (ffi:def-call-out glutSolidCube (:name "glutSolidCube") (:return-type NIL) (:arguments (size GLdouble)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutWireSphere( GLdouble radius, GLint slices, GLint stacks ); (ffi:def-call-out glutWireSphere (:name "glutWireSphere") (:return-type NIL) (:arguments (radius GLdouble) (slices GLint) (stacks GLint)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutSolidSphere( GLdouble radius, GLint slices, GLint stacks ); (ffi:def-call-out glutSolidSphere (:name "glutSolidSphere") (:return-type NIL) (:arguments (radius GLdouble) (slices GLint) (stacks GLint)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutWireCone( GLdouble base, GLdouble height, GLint slices, GLint stacks ); (ffi:def-call-out glutWireCone (:name "glutWireCone") (:return-type NIL) (:arguments (base GLdouble) (height GLdouble) (slices GLint) (stacks GLint)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutSolidCone( GLdouble base, GLdouble height, GLint slices, GLint stacks ); (ffi:def-call-out glutSolidCone (:name "glutSolidCone") (:return-type NIL) (:arguments (base GLdouble) (height GLdouble) (slices GLint) (stacks GLint)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutWireTorus( GLdouble innerRadius, GLdouble outerRadius, GLint sides, GLint rings ); (ffi:def-call-out glutWireTorus (:name "glutWireTorus") (:return-type NIL) (:arguments (innerRadius GLdouble) (outerRadius GLdouble) (sides GLint) (rings GLint)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutSolidTorus( GLdouble innerRadius, GLdouble outerRadius, GLint sides, GLint rings ); (ffi:def-call-out glutSolidTorus (:name "glutSolidTorus") (:return-type NIL) (:arguments (innerRadius GLdouble) (outerRadius GLdouble) (sides GLint) (rings GLint)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutWireDodecahedron( void ); (ffi:def-call-out glutWireDodecahedron (:name "glutWireDodecahedron") (:return-type NIL) (:arguments) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutSolidDodecahedron( void ); (ffi:def-call-out glutSolidDodecahedron (:name "glutSolidDodecahedron") (:return-type NIL) (:arguments) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutWireOctahedron( void ); (ffi:def-call-out glutWireOctahedron (:name "glutWireOctahedron") (:return-type NIL) (:arguments) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutSolidOctahedron( void ); (ffi:def-call-out glutSolidOctahedron (:name "glutSolidOctahedron") (:return-type NIL) (:arguments) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutWireTetrahedron( void ); (ffi:def-call-out glutWireTetrahedron (:name "glutWireTetrahedron") (:return-type NIL) (:arguments) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutSolidTetrahedron( void ); (ffi:def-call-out glutSolidTetrahedron (:name "glutSolidTetrahedron") (:return-type NIL) (:arguments) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutWireIcosahedron( void ); (ffi:def-call-out glutWireIcosahedron (:name "glutWireIcosahedron") (:return-type NIL) (:arguments) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutSolidIcosahedron( void ); (ffi:def-call-out glutSolidIcosahedron (:name "glutSolidIcosahedron") (:return-type NIL) (:arguments) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; COMMENT: /* * Teapot rendering functions, found in freeglut_teapot.c */ ;;; CODE: void glutWireTeapot( GLdouble size ); (ffi:def-call-out glutWireTeapot (:name "glutWireTeapot") (:return-type NIL) (:arguments (size GLdouble)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutSolidTeapot( GLdouble size ); (ffi:def-call-out glutSolidTeapot (:name "glutSolidTeapot") (:return-type NIL) (:arguments (size GLdouble)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; COMMENT: /* * Game mode functions, see freeglut_gamemode.c */ ;;; CODE: void glutGameModeString( char* string ); (ffi:def-call-out glutGameModeString (:name "glutGameModeString") (:return-type NIL) (:arguments (string ffi:c-string)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: int glutEnterGameMode( void ); (ffi:def-call-out glutEnterGameMode (:name "glutEnterGameMode") (:return-type ffi:int) (:arguments) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutLeaveGameMode( void ); (ffi:def-call-out glutLeaveGameMode (:name "glutLeaveGameMode") (:return-type NIL) (:arguments) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: int glutGameModeGet( GLenum query ); (ffi:def-call-out glutGameModeGet (:name "glutGameModeGet") (:return-type ffi:int) (:arguments (query GLenum)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; COMMENT: /* * Video resize functions, see freeglut_videoresize.c */ ;;; CODE: int glutVideoResizeGet( GLenum query ); (ffi:def-call-out glutVideoResizeGet (:name "glutVideoResizeGet") (:return-type ffi:int) (:arguments (query GLenum)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutSetupVideoResizing( void ); (ffi:def-call-out glutSetupVideoResizing (:name "glutSetupVideoResizing") (:return-type NIL) (:arguments) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutStopVideoResizing( void ); (ffi:def-call-out glutStopVideoResizing (:name "glutStopVideoResizing") (:return-type NIL) (:arguments) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutVideoResize( int x, int y, int width, int height ); (ffi:def-call-out glutVideoResize (:name "glutVideoResize") (:return-type NIL) (:arguments (x ffi:int) (y ffi:int) (width ffi:int) (height ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutVideoPan( int x, int y, int width, int height ); (ffi:def-call-out glutVideoPan (:name "glutVideoPan") (:return-type NIL) (:arguments (x ffi:int) (y ffi:int) (width ffi:int) (height ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; COMMENT: /* * Colormap functions, see freeglut_misc.c */ ;;; CODE: void glutSetColor( int color, GLfloat red, GLfloat green, GLfloat blue ); (ffi:def-call-out glutSetColor (:name "glutSetColor") (:return-type NIL) (:arguments (color ffi:int) (red GLfloat) (green GLfloat) (blue GLfloat)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: GLfloat glutGetColor( int color, int component ); (ffi:def-call-out glutGetColor (:name "glutGetColor") (:return-type GLfloat) (:arguments (color ffi:int) (component ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutCopyColormap( int window ); (ffi:def-call-out glutCopyColormap (:name "glutCopyColormap") (:return-type NIL) (:arguments (window ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; COMMENT: /* * Misc keyboard and joystick functions, see freeglut_misc.c */ ;;; CODE: void glutIgnoreKeyRepeat( int ignore ); (ffi:def-call-out glutIgnoreKeyRepeat (:name "glutIgnoreKeyRepeat") (:return-type NIL) (:arguments (ignore ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutSetKeyRepeat( int repeatMode ); (ffi:def-call-out glutSetKeyRepeat (:name "glutSetKeyRepeat") (:return-type NIL) (:arguments (repeatMode ffi:int)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; COMMENT: /* DEPRECATED 11/4/02 - Do not use */ ;;; CODE: void glutForceJoystickFunc( void ); (ffi:def-call-out glutForceJoystickFunc (:name "glutForceJoystickFunc") (:return-type NIL) (:arguments) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; COMMENT: /* * Misc functions, see freeglut_misc.c */ ;;; CODE: int glutExtensionSupported( char* extension ); (ffi:def-call-out glutExtensionSupported (:name "glutExtensionSupported") (:return-type ffi:int) (:arguments (extension ffi:c-string)) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; CODE: void glutReportErrors( void ); (ffi:def-call-out glutReportErrors (:name "glutReportErrors") (:return-type NIL) (:arguments) (:language :STDC) (:library #+UNIX "libglut.so" #+WIN32 "lib/glut32.dll")) ;;; DEFINE: #ifdef __cplusplus ;; **IGNORED**: #ifdef __cplusplus ;;; CODE: } ;; **IGNORED**: } ;;; DEFINE: #endif ;; **IGNORED**: #endif ;;; COMMENT: /*** END OF FILE ***/ ;;; COMMENT: /* __FREEGLUT_STD_H__ */ ;;; DEFINE: #endif ;; **IGNORED**: #endif