[clinton/guile-figl.git] / figl / glut / low-level.scm

;;; fgil
;;; Copyright (C) 2013 Daniel Hartwig <mandyke@gmail.com>
;;; 
;;; Figl is free software: you can redistribute it and/or modify it
;;; under the terms of the GNU Lesser General Public License as
;;; published by the Free Software Foundation, either version 3 of the
;;; License, or (at your option) any later version.
;;; 
;;; Figl is distributed in the hope that it will be useful, but WITHOUT
;;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
;;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General
;;; Public License for more details.
;;; 
;;; You should have received a copy of the GNU Lesser General Public
;;; License along with this program.  If not, see
;;; <http://www.gnu.org/licenses/>.

;;; Commentary:
;;
;; These bindings are direct mappings to the OpenGL Utility Library
;; (GLUT) Programming Interface, API Version 3.
;;
;; Care should be taken to avoid errors as GLUT implementations may
;; exit() on error condition.  See section 14.3 of the specification.
;;
;;; Code:

(define-module (figl glut low-level)
  #:use-module (figl glut runtime)
  #:use-module (figl glut types)
  #:use-module (figl gl types)
  #:use-module ((system foreign) #:renamer (symbol-prefix-proc 'ffi:))
  #:use-module (srfi srfi-26) ; cut
  #:export (;; 2 Initialization
            glutInit
            glutInitWindowPosition
            glutInitWindowSize
            glutInitDisplayMode

            ;; 3 Begin Event Processing
            glutMainLoop

            ;; 4 Window Management
            glutCreateWindow
            glutCreateSubWindow
            glutSetWindow
            glutGetWindow
            glutDestroyWindow
            glutPostRedisplay
            glutSwapBuffers
            glutPositionWindow
            glutReshapeWindow
            glutFullScreen
            glutPopWindow
            glutPushWindow
            glutShowWindow
            glutHideWindow
            glutIconifyWindow
            glutSetWindowTitle
            glutSetIconTitle
            glutSetCursor

            ;; 5 Overlay Management
            glutEstablishOverlay
            glutUseLayer
            glutRemoveOverlay
            glutPostOverlayRedisplay
            glutShowOverlay
            glutHideOverlay

            ;; 6 Menu Management
            glutCreateMenu
            glutSetMenu
            glutGetMenu
            glutDestroyMenu
            glutAddMenuEntry
            glutAddSubMenu
            glutChangeToMenuEntry
            glutChangeToSubMenu
            glutRemoveMenuItem
            glutAttachMenu
            glutDetachMenu

            ;; 7 Callback Registration
            glutDisplayFunc
            glutOverlayDisplayFunc
            glutReshapeFunc
            glutKeyboardFunc
            glutMouseFunc
            glutMotionFunc
            glutPassiveMotionFunc
            glutVisibilityFunc
            glutEntryFunc
            glutSpecialFunc
            glutSpaceballMotionFunc
            glutSpaceballRotateFunc
            glutSpaceballButtonFunc
            glutButtonBoxFunc
            glutDialsFunc
            glutTabletMotionFunc
            glutTabletButtonFunc
            glutMenuStatusFunc
            glutMenuStateFunc
            glutIdleFunc
            glutTimerFunc

            ;; 8 Color Index Colormap Management
            glutSetColor
            glutGetColor
            glutCopyColormap

            ;; 9 State Retrieval
            glutGet
            glutLayerGet
            glutDeviceGet
            glutGetModifiers
            glutExtensionSupported

            ;; 10 Font Rendering
            glutBitmapCharacter
            glutBitmapWidth
            glutStrokeCharacter
            glutStrokeWidth

            ;; 11 Geometric Object Rendering
            glutSolidSphere
            glutWireSphere
            glutSolidCube
            glutWireCube
            glutSolidCone
            glutWireCone
            glutSolidTorus
            glutWireTorus
            glutSolidDodecahedron
            glutWireDodecahedron
            glutSolidOctahedron
            glutWireOctahedron
            glutSolidTetrahedron
            glutWireTetrahedron
            glutSolidIcosahedron
            glutWireIcosahedron
            glutSolidTeapot
            glutWireTeapot
            ))

;;;
;;; 2 Initialization
;;;

(define-glut-procedure
  (glutInit (argcp int-*) (argv char-**) -> void)
  #f)

(define-glut-procedure
  (glutInitWindowPosition (x int) (y int) -> void)
  #f)

(define-glut-procedure
  (glutInitWindowSize (width int) (height int) -> void)
  #f)

(define-glut-procedure
  (glutInitDisplayMode (mode unsigned-int) -> void)
  #f)

;;;
;;; 3 Begin Event Processing
;;;

(define-glut-procedure
  (glutMainLoop -> void)
  #f)

;;;
;;; 4 Window Management
;;;

(define-glut-procedure
  (glutCreateWindow (name char-*) -> int)
  #f)

(define-glut-procedure
  (glutCreateSubWindow (win int)
                       (x int)
                       (y int)
                       (width int)
                       (height int)
                       ->
                       int)
  #f)

(define-glut-procedure
  (glutSetWindow (win int) -> void)
  #f)

(define-glut-procedure
  (glutGetWindow -> int)
  #f)

(define-glut-procedure
  (glutDestroyWindow (win int) -> void)
  #f)

(define-glut-procedure
  (glutPostRedisplay -> void)
  #f)

(define-glut-procedure
  (glutSwapBuffers -> void)
  #f)

(define-glut-procedure
  (glutPositionWindow (x int) (y int) -> void)
  #f)

(define-glut-procedure
  (glutReshapeWindow (width int) (height int) -> void)
  #f)

(define-glut-procedure
  (glutFullScreen -> void)
  #f)

(define-glut-procedure
  (glutPopWindow -> void)
  #f)

(define-glut-procedure
  (glutPushWindow -> void)
  #f)

(define-glut-procedure
  (glutShowWindow -> void)
  #f)

(define-glut-procedure
  (glutHideWindow -> void)
  #f)

(define-glut-procedure
  (glutIconifyWindow -> void)
  #f)

(define-glut-procedure
  (glutSetWindowTitle (name char-*) -> void)
  #f)

(define-glut-procedure
  (glutSetIconTitle (name char-*) -> void)
  #f)

(define-glut-procedure
  (glutSetCursor (cursor int) -> void)
  #f)

\f
;;;
;;; 5 Overlay Management
;;;

(define-glut-procedure
  (glutEstablishOverlay -> void)
  #f)

(define-glut-procedure
  (glutUseLayer (layer GLenum) -> void)
  #f)

(define-glut-procedure
  (glutRemoveOverlay -> void)
  #f)

(define-glut-procedure
  (glutPostOverlayRedisplay -> void)
  #f)

(define-glut-procedure
  (glutShowOverlay -> void)
  #f)

(define-glut-procedure
  (glutHideOverlay -> void)
  #f)

\f
;;;
;;; 6 Menu Management
;;;

(define-glut-procedure
  (glutCreateMenu (func void-*) -> int)
  #f)

(define-glut-procedure
  (glutSetMenu (menu int) -> void)
  #f)

(define-glut-procedure
  (glutGetMenu -> int)
  #f)

(define-glut-procedure
  (glutDestroyMenu (menu int) -> void)
  #f)

(define-glut-procedure
  (glutAddMenuEntry (name char-*) (value int) -> void)
  #f)

(define-glut-procedure
  (glutAddSubMenu (name char-*) (menu int) -> void)
  #f)

(define-glut-procedure
  (glutChangeToMenuEntry (entry int)
                         (name char-*)
                         (value int)
                         ->
                         void)
  #f)

(define-glut-procedure
  (glutChangeToSubMenu (entry int)
                       (name char-*)
                       (menu int)
                       ->
                       void)
  #f)

(define-glut-procedure
  (glutRemoveMenuItem (entry int) -> void)
  #f)

(define-glut-procedure
  (glutAttachMenu (button int) -> void)
  #f)

(define-glut-procedure
  (glutDetachMenu (button int) -> void)
  #f)

\f
;;;
;;; 7 Callback Registration
;;;

(define-glut-procedure
  (glutDisplayFunc (func void-*) -> void)
  #f)

(define-glut-procedure
  (glutOverlayDisplayFunc (func void-*) -> void)
  #f)

(define-glut-procedure
  (glutReshapeFunc (func void-*) -> void)
  #f)

(define-glut-procedure
  (glutKeyboardFunc (func void-*) -> void)
  #f)

(define-glut-procedure
  (glutMouseFunc (func void-*) -> void)
  #f)

(define-glut-procedure
  (glutMotionFunc (func void-*) -> void)
  #f)

(define-glut-procedure
  (glutPassiveMotionFunc (func void-*) -> void)
  #f)

(define-glut-procedure
  (glutVisibilityFunc (func void-*) -> void)
  #f)

(define-glut-procedure
  (glutEntryFunc (func void-*) -> void)
  #f)

(define-glut-procedure
  (glutSpecialFunc (func void-*) -> void)
  #f)

(define-glut-procedure
  (glutSpaceballMotionFunc (func void-*) -> void)
  #f)

(define-glut-procedure
  (glutSpaceballRotateFunc (func void-*) -> void)
  #f)

(define-glut-procedure
  (glutSpaceballButtonFunc (func void-*) -> void)
  #f)

(define-glut-procedure
  (glutButtonBoxFunc (func void-*) -> void)
  #f)

(define-glut-procedure
  (glutDialsFunc (func void-*) -> void)
  #f)

(define-glut-procedure
  (glutTabletMotionFunc (func void-*) -> void)
  #f)

(define-glut-procedure
  (glutTabletButtonFunc (func void-*) -> void)
  #f)

(define-glut-procedure
  (glutMenuStatusFunc (func void-*) -> void)
  #f)

(define-glut-procedure
  (glutIdleFunc (func void-*) -> void)
  #f)

(define-glut-procedure
  (glutTimerFunc (msecs unsigned-int)
                 (func void-*)
                 (value int)
                 ->
                 void)
  #f)

\f
;;;
;;; 8 Color Index Colormap Management
;;;

(define-glut-procedure
  (glutSetColor (cell int)
                (red GLfloat)
                (green GLfloat)
                (blue GLfloat)
                ->
                void)
  #f)

(define-glut-procedure
  (glutGetColor (cell int) (component int) -> GLfloat)
  #f)

(define-glut-procedure
  (glutCopyColormap (win int) -> void)
  #f)

;;;
;;; 9 State Retrieval
;;;

(define-glut-procedure
  (glutGet (state GLenum) -> int)
  #f)

(define-glut-procedure
  (glutLayerGet (info GLenum) -> int)
  #f)

(define-glut-procedure
  (glutDeviceGet (info GLenum) -> int)
  #f)

(define-glut-procedure
  (glutGetModifiers -> int)
  #f)

(define-glut-procedure
  (glutExtensionSupported (extension char-*) -> int)
  #f)

;;;
;;; 10 Font Rendering
;;;

(define-glut-procedure
  (glutBitmapCharacter (font void-*) (character int) -> void)
  #f)

(define-glut-procedure
  (glutBitmapWidth (font void-*) (character int) -> int)
  #f)

(define-glut-procedure
  (glutStrokeCharacter (font void-*) (character int) -> void)
  #f)

(define-glut-procedure
  (glutStrokeWidth (font void-*) (character int) -> void)
  #f)

\f
;;;
;;; 11 Geometric Object Rendering
;;;

(define-glut-procedure
  (glutSolidSphere (radius GLdouble)
                   (slices GLint)
                   (stacks GLint)
                   ->
                   void)
  #f)

(define-glut-procedure
  (glutWireSphere (radius GLdouble)
                  (slices GLint)
                  (stacks GLint)
                  ->
                  void)
  #f)

(define-glut-procedure
  (glutSolidCube (size GLdouble) -> void)
  #f)

(define-glut-procedure
  (glutWireCube (size GLdouble) -> void)
  #f)

(define-glut-procedure
  (glutSolidCone (base GLdouble)
                 (height GLdouble)
                 (slices GLint)
                 (stacks GLint)
                 ->
                 void)
  #f)

(define-glut-procedure
  (glutWireCone (base GLdouble)
                (height GLdouble)
                (slices GLint)
                (stacks GLint)
                ->
                void)
  #f)

(define-glut-procedure
  (glutSolidTorus (inner-radius GLdouble)
                  (outer-radius GLdouble)
                  (sides GLint)
                  (rings GLint)
                  ->
                  void)
  #f)

(define-glut-procedure
  (glutWireTorus (inner-radius GLdouble)
                 (outer-radius GLdouble)
                 (sides GLint)
                 (rings GLint)
                 ->
                 void)
  #f)

(define-glut-procedure
  (glutSolidDodecahedron -> void)
  #f)

(define-glut-procedure
  (glutWireDodecahedron -> void)
  #f)

(define-glut-procedure
  (glutSolidOctahedron -> void)
  #f)

(define-glut-procedure
  (glutWireOctahedron -> void)
  #f)

(define-glut-procedure
  (glutSolidTetrahedron -> void)
  #f)

(define-glut-procedure
  (glutWireTetrahedron -> void)
  #f)

(define-glut-procedure
  (glutSolidIcosahedron -> void)
  #f)

(define-glut-procedure
  (glutWireIcosahedron -> void)
  #f)

(define-glut-procedure
  (glutSolidTeapot (size GLdouble) -> void)
  #f)

(define-glut-procedure
  (glutWireTeapot (size GLdouble) -> void)
  #f)
Commit	Line	Data
61ebde6d DH	1	;;; fgil
	2	;;; Copyright (C) 2013 Daniel Hartwig <mandyke@gmail.com>
	3	;;;
	4	;;; Figl is free software: you can redistribute it and/or modify it
	5	;;; under the terms of the GNU Lesser General Public License as
	6	;;; published by the Free Software Foundation, either version 3 of the
	7	;;; License, or (at your option) any later version.
	8	;;;
	9	;;; Figl is distributed in the hope that it will be useful, but WITHOUT
	10	;;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
	11	;;; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General
	12	;;; Public License for more details.
	13	;;;
	14	;;; You should have received a copy of the GNU Lesser General Public
	15	;;; License along with this program. If not, see
	16	;;; <http://www.gnu.org/licenses/>.
	17
	18	;;; Commentary:
	19	;;
	20	;; These bindings are direct mappings to the OpenGL Utility Library
	21	;; (GLUT) Programming Interface, API Version 3.
	22	;;
	23	;; Care should be taken to avoid errors as GLUT implementations may
	24	;; exit() on error condition. See section 14.3 of the specification.
	25	;;
	26	;;; Code:
	27
	28	(define-module (figl glut low-level)
25072f02	29	#:use-module (figl glut runtime)
13a9b539	30	#:use-module (figl glut types)
61ebde6d DH	31	#:use-module (figl gl types)
	32	#:use-module ((system foreign) #:renamer (symbol-prefix-proc 'ffi:))
	33	#:use-module (srfi srfi-26) ; cut
	34	#:export (;; 2 Initialization
	35	glutInit
	36	glutInitWindowPosition
	37	glutInitWindowSize
	38	glutInitDisplayMode
	39
	40	;; 3 Begin Event Processing
	41	glutMainLoop
	42
	43	;; 4 Window Management
	44	glutCreateWindow
	45	glutCreateSubWindow
	46	glutSetWindow
	47	glutGetWindow
	48	glutDestroyWindow
	49	glutPostRedisplay
	50	glutSwapBuffers
	51	glutPositionWindow
	52	glutReshapeWindow
	53	glutFullScreen
	54	glutPopWindow
	55	glutPushWindow
	56	glutShowWindow
	57	glutHideWindow
	58	glutIconifyWindow
	59	glutSetWindowTitle
	60	glutSetIconTitle
	61	glutSetCursor
	62
	63	;; 5 Overlay Management
	64	glutEstablishOverlay
	65	glutUseLayer
	66	glutRemoveOverlay
	67	glutPostOverlayRedisplay
	68	glutShowOverlay
	69	glutHideOverlay
	70
	71	;; 6 Menu Management
	72	glutCreateMenu
	73	glutSetMenu
	74	glutGetMenu
	75	glutDestroyMenu
	76	glutAddMenuEntry
	77	glutAddSubMenu
	78	glutChangeToMenuEntry
	79	glutChangeToSubMenu
	80	glutRemoveMenuItem
	81	glutAttachMenu
	82	glutDetachMenu
	83
	84	;; 7 Callback Registration
	85	glutDisplayFunc
	86	glutOverlayDisplayFunc
	87	glutReshapeFunc
	88	glutKeyboardFunc
	89	glutMouseFunc
	90	glutMotionFunc
	91	glutPassiveMotionFunc
	92	glutVisibilityFunc
	93	glutEntryFunc
	94	glutSpecialFunc
95	glutSpaceballMotionFunc
96	glutSpaceballRotateFunc
97	glutSpaceballButtonFunc
98	glutButtonBoxFunc
99	glutDialsFunc
100	glutTabletMotionFunc
101	glutTabletButtonFunc
102	glutMenuStatusFunc
103	glutMenuStateFunc
104	glutIdleFunc
105	glutTimerFunc
106
107	;; 8 Color Index Colormap Management
108	glutSetColor
109	glutGetColor
110	glutCopyColormap
111
112	;; 9 State Retrieval
113	glutGet
114	glutLayerGet
115	glutDeviceGet
116	glutGetModifiers
117	glutExtensionSupported
118
119	;; 10 Font Rendering
120	glutBitmapCharacter
121	glutBitmapWidth
122	glutStrokeCharacter
123	glutStrokeWidth
124
125	;; 11 Geometric Object Rendering
126	glutSolidSphere
127	glutWireSphere
128	glutSolidCube
129	glutWireCube
130	glutSolidCone
131	glutWireCone
132	glutSolidTorus
133	glutWireTorus
134	glutSolidDodecahedron
135	glutWireDodecahedron
136	glutSolidOctahedron
137	glutWireOctahedron
138	glutSolidTetrahedron
139	glutWireTetrahedron
140	glutSolidIcosahedron
141	glutWireIcosahedron
142	glutSolidTeapot
143	glutWireTeapot
144	))
145
61ebde6d DH	146	;;;
	147	;;; 2 Initialization
	148	;;;
	149
25072f02	150	(define-glut-procedure
61ebde6d DH	151	(glutInit (argcp int-) (argv char-*) -> void)
	152	#f)
	153
25072f02	154	(define-glut-procedure
61ebde6d DH	155	(glutInitWindowPosition (x int) (y int) -> void)
	156	#f)
	157
25072f02	158	(define-glut-procedure
61ebde6d DH	159	(glutInitWindowSize (width int) (height int) -> void)
	160	#f)
	161
25072f02	162	(define-glut-procedure
61ebde6d DH	163	(glutInitDisplayMode (mode unsigned-int) -> void)
	164	#f)
	165
	166	;;;
	167	;;; 3 Begin Event Processing
	168	;;;
	169
25072f02	170	(define-glut-procedure
61ebde6d DH	171	(glutMainLoop -> void)
	172	#f)
	173
	174	;;;
	175	;;; 4 Window Management
	176	;;;
	177
25072f02	178	(define-glut-procedure
61ebde6d DH	179	(glutCreateWindow (name char-*) -> int)
	180	#f)
	181
25072f02	182	(define-glut-procedure
61ebde6d DH	183	(glutCreateSubWindow (win int)
	184	(x int)
	185	(y int)
	186	(width int)
	187	(height int)
	188	->
	189	int)
	190	#f)
	191
25072f02	192	(define-glut-procedure
61ebde6d DH	193	(glutSetWindow (win int) -> void)
	194	#f)
	195
25072f02	196	(define-glut-procedure
61ebde6d DH	197	(glutGetWindow -> int)
	198	#f)
	199
25072f02	200	(define-glut-procedure
61ebde6d DH	201	(glutDestroyWindow (win int) -> void)
	202	#f)
	203
25072f02	204	(define-glut-procedure
61ebde6d DH	205	(glutPostRedisplay -> void)
	206	#f)
	207
25072f02	208	(define-glut-procedure
61ebde6d DH	209	(glutSwapBuffers -> void)
	210	#f)
	211
25072f02	212	(define-glut-procedure
61ebde6d DH	213	(glutPositionWindow (x int) (y int) -> void)
	214	#f)
	215
25072f02	216	(define-glut-procedure
61ebde6d DH	217	(glutReshapeWindow (width int) (height int) -> void)
	218	#f)
	219
25072f02	220	(define-glut-procedure
61ebde6d DH	221	(glutFullScreen -> void)
	222	#f)
	223
25072f02	224	(define-glut-procedure
61ebde6d DH	225	(glutPopWindow -> void)
	226	#f)
	227
25072f02	228	(define-glut-procedure
61ebde6d DH	229	(glutPushWindow -> void)
	230	#f)
	231
25072f02	232	(define-glut-procedure
61ebde6d DH	233	(glutShowWindow -> void)
	234	#f)
	235
25072f02	236	(define-glut-procedure
61ebde6d DH	237	(glutHideWindow -> void)
	238	#f)
	239
25072f02	240	(define-glut-procedure
61ebde6d DH	241	(glutIconifyWindow -> void)
	242	#f)
	243
25072f02	244	(define-glut-procedure
61ebde6d DH	245	(glutSetWindowTitle (name char-*) -> void)
	246	#f)
	247
25072f02	248	(define-glut-procedure
61ebde6d DH	249	(glutSetIconTitle (name char-*) -> void)
	250	#f)
	251
25072f02	252	(define-glut-procedure
61ebde6d DH	253	(glutSetCursor (cursor int) -> void)
	254	#f)
	255
	256	\f
	257	;;;
	258	;;; 5 Overlay Management
	259	;;;
	260
25072f02	261	(define-glut-procedure
61ebde6d DH	262	(glutEstablishOverlay -> void)
	263	#f)
	264
25072f02	265	(define-glut-procedure
61ebde6d DH	266	(glutUseLayer (layer GLenum) -> void)
	267	#f)
	268
25072f02	269	(define-glut-procedure
61ebde6d DH	270	(glutRemoveOverlay -> void)
	271	#f)
	272
25072f02	273	(define-glut-procedure
61ebde6d DH	274	(glutPostOverlayRedisplay -> void)
	275	#f)
	276
25072f02	277	(define-glut-procedure
61ebde6d DH	278	(glutShowOverlay -> void)
	279	#f)
	280
25072f02	281	(define-glut-procedure
61ebde6d DH	282	(glutHideOverlay -> void)
	283	#f)
	284
	285	\f
	286	;;;
	287	;;; 6 Menu Management
	288	;;;
	289
25072f02	290	(define-glut-procedure
61ebde6d DH	291	(glutCreateMenu (func void-*) -> int)
	292	#f)
	293
25072f02	294	(define-glut-procedure
61ebde6d DH	295	(glutSetMenu (menu int) -> void)
	296	#f)
	297
25072f02	298	(define-glut-procedure
61ebde6d DH	299	(glutGetMenu -> int)
	300	#f)
	301
25072f02	302	(define-glut-procedure
61ebde6d DH	303	(glutDestroyMenu (menu int) -> void)
	304	#f)
	305
25072f02	306	(define-glut-procedure
61ebde6d DH	307	(glutAddMenuEntry (name char-*) (value int) -> void)
	308	#f)
	309
25072f02	310	(define-glut-procedure
61ebde6d DH	311	(glutAddSubMenu (name char-*) (menu int) -> void)
	312	#f)
	313
25072f02	314	(define-glut-procedure
61ebde6d DH	315	(glutChangeToMenuEntry (entry int)
	316	(name char-*)
	317	(value int)
	318	->
	319	void)
	320	#f)
	321
25072f02	322	(define-glut-procedure
61ebde6d DH	323	(glutChangeToSubMenu (entry int)
	324	(name char-*)
	325	(menu int)
	326	->
	327	void)
	328	#f)
	329
25072f02	330	(define-glut-procedure
61ebde6d DH	331	(glutRemoveMenuItem (entry int) -> void)
	332	#f)
	333
25072f02	334	(define-glut-procedure
61ebde6d DH	335	(glutAttachMenu (button int) -> void)
	336	#f)
	337
25072f02	338	(define-glut-procedure
61ebde6d DH	339	(glutDetachMenu (button int) -> void)
	340	#f)
	341
	342	\f
	343	;;;
	344	;;; 7 Callback Registration
	345	;;;
	346
25072f02	347	(define-glut-procedure
61ebde6d DH	348	(glutDisplayFunc (func void-*) -> void)
	349	#f)
	350
25072f02	351	(define-glut-procedure
61ebde6d DH	352	(glutOverlayDisplayFunc (func void-*) -> void)
	353	#f)
	354
25072f02	355	(define-glut-procedure
61ebde6d DH	356	(glutReshapeFunc (func void-*) -> void)
	357	#f)
	358
25072f02	359	(define-glut-procedure
61ebde6d DH	360	(glutKeyboardFunc (func void-*) -> void)
	361	#f)
	362
25072f02	363	(define-glut-procedure
61ebde6d DH	364	(glutMouseFunc (func void-*) -> void)
	365	#f)
	366
25072f02	367	(define-glut-procedure
61ebde6d DH	368	(glutMotionFunc (func void-*) -> void)
	369	#f)
	370
25072f02	371	(define-glut-procedure
61ebde6d DH	372	(glutPassiveMotionFunc (func void-*) -> void)
	373	#f)
	374
25072f02	375	(define-glut-procedure
61ebde6d DH	376	(glutVisibilityFunc (func void-*) -> void)
	377	#f)
	378
25072f02	379	(define-glut-procedure
61ebde6d DH	380	(glutEntryFunc (func void-*) -> void)
	381	#f)
	382
25072f02	383	(define-glut-procedure
61ebde6d DH	384	(glutSpecialFunc (func void-*) -> void)
	385	#f)
	386
25072f02	387	(define-glut-procedure
61ebde6d DH	388	(glutSpaceballMotionFunc (func void-*) -> void)
	389	#f)
	390
25072f02	391	(define-glut-procedure
61ebde6d DH	392	(glutSpaceballRotateFunc (func void-*) -> void)
	393	#f)
	394
25072f02	395	(define-glut-procedure
61ebde6d DH	396	(glutSpaceballButtonFunc (func void-*) -> void)
	397	#f)
	398
25072f02	399	(define-glut-procedure
61ebde6d DH	400	(glutButtonBoxFunc (func void-*) -> void)
	401	#f)
	402
25072f02	403	(define-glut-procedure
61ebde6d DH	404	(glutDialsFunc (func void-*) -> void)
	405	#f)
	406
25072f02	407	(define-glut-procedure
61ebde6d DH	408	(glutTabletMotionFunc (func void-*) -> void)
	409	#f)
	410
25072f02	411	(define-glut-procedure
61ebde6d DH	412	(glutTabletButtonFunc (func void-*) -> void)
	413	#f)
	414
25072f02	415	(define-glut-procedure
61ebde6d DH	416	(glutMenuStatusFunc (func void-*) -> void)
	417	#f)
	418
25072f02	419	(define-glut-procedure
61ebde6d DH	420	(glutIdleFunc (func void-*) -> void)
	421	#f)
	422
25072f02	423	(define-glut-procedure
61ebde6d DH	424	(glutTimerFunc (msecs unsigned-int)
	425	(func void-*)
	426	(value int)
	427	->
	428	void)
	429	#f)
	430
	431	\f
	432	;;;
	433	;;; 8 Color Index Colormap Management
	434	;;;
	435
25072f02	436	(define-glut-procedure
61ebde6d DH	437	(glutSetColor (cell int)
	438	(red GLfloat)
	439	(green GLfloat)
	440	(blue GLfloat)
	441	->
	442	void)
	443	#f)
	444
25072f02	445	(define-glut-procedure
61ebde6d DH	446	(glutGetColor (cell int) (component int) -> GLfloat)
	447	#f)
	448
25072f02	449	(define-glut-procedure
61ebde6d DH	450	(glutCopyColormap (win int) -> void)
	451	#f)
	452
	453	;;;
	454	;;; 9 State Retrieval
	455	;;;
	456
25072f02	457	(define-glut-procedure
61ebde6d DH	458	(glutGet (state GLenum) -> int)
	459	#f)
	460
25072f02	461	(define-glut-procedure
61ebde6d DH	462	(glutLayerGet (info GLenum) -> int)
	463	#f)
	464
25072f02	465	(define-glut-procedure
61ebde6d DH	466	(glutDeviceGet (info GLenum) -> int)
	467	#f)
	468
25072f02	469	(define-glut-procedure
61ebde6d DH	470	(glutGetModifiers -> int)
	471	#f)
	472
25072f02	473	(define-glut-procedure
61ebde6d DH	474	(glutExtensionSupported (extension char-*) -> int)
	475	#f)
	476
	477	;;;
	478	;;; 10 Font Rendering
	479	;;;
	480
25072f02	481	(define-glut-procedure
61ebde6d DH	482	(glutBitmapCharacter (font void-*) (character int) -> void)
	483	#f)
	484
25072f02	485	(define-glut-procedure
61ebde6d DH	486	(glutBitmapWidth (font void-*) (character int) -> int)
	487	#f)
	488
25072f02	489	(define-glut-procedure
61ebde6d DH	490	(glutStrokeCharacter (font void-*) (character int) -> void)
	491	#f)
	492
25072f02	493	(define-glut-procedure
61ebde6d DH	494	(glutStrokeWidth (font void-*) (character int) -> void)
	495	#f)
	496
	497	\f
	498	;;;
	499	;;; 11 Geometric Object Rendering
	500	;;;
	501
25072f02	502	(define-glut-procedure
61ebde6d DH	503	(glutSolidSphere (radius GLdouble)
	504	(slices GLint)
	505	(stacks GLint)
	506	->
	507	void)
	508	#f)
	509
25072f02	510	(define-glut-procedure
61ebde6d DH	511	(glutWireSphere (radius GLdouble)
	512	(slices GLint)
	513	(stacks GLint)
	514	->
	515	void)
	516	#f)
	517
25072f02	518	(define-glut-procedure
61ebde6d DH	519	(glutSolidCube (size GLdouble) -> void)
	520	#f)
	521
25072f02	522	(define-glut-procedure
61ebde6d DH	523	(glutWireCube (size GLdouble) -> void)
	524	#f)
	525
25072f02	526	(define-glut-procedure
61ebde6d DH	527	(glutSolidCone (base GLdouble)
	528	(height GLdouble)
	529	(slices GLint)
	530	(stacks GLint)
	531	->
	532	void)
	533	#f)
	534
25072f02	535	(define-glut-procedure
61ebde6d DH	536	(glutWireCone (base GLdouble)
	537	(height GLdouble)
	538	(slices GLint)
	539	(stacks GLint)
	540	->
	541	void)
	542	#f)
	543
25072f02	544	(define-glut-procedure
61ebde6d DH	545	(glutSolidTorus (inner-radius GLdouble)
	546	(outer-radius GLdouble)
	547	(sides GLint)
	548	(rings GLint)
	549	->
	550	void)
	551	#f)
	552
25072f02	553	(define-glut-procedure
61ebde6d DH	554	(glutWireTorus (inner-radius GLdouble)
	555	(outer-radius GLdouble)
	556	(sides GLint)
	557	(rings GLint)
	558	->
	559	void)
	560	#f)
	561
25072f02	562	(define-glut-procedure
61ebde6d DH	563	(glutSolidDodecahedron -> void)
	564	#f)
	565
25072f02	566	(define-glut-procedure
61ebde6d DH	567	(glutWireDodecahedron -> void)
	568	#f)
	569
25072f02	570	(define-glut-procedure
61ebde6d DH	571	(glutSolidOctahedron -> void)
	572	#f)
	573
25072f02	574	(define-glut-procedure
61ebde6d DH	575	(glutWireOctahedron -> void)
	576	#f)
	577
25072f02	578	(define-glut-procedure
61ebde6d DH	579	(glutSolidTetrahedron -> void)
	580	#f)
	581
25072f02	582	(define-glut-procedure
61ebde6d DH	583	(glutWireTetrahedron -> void)
	584	#f)
	585
25072f02	586	(define-glut-procedure
61ebde6d DH	587	(glutSolidIcosahedron -> void)
	588	#f)
	589
25072f02	590	(define-glut-procedure
61ebde6d DH	591	(glutWireIcosahedron -> void)
	592	#f)
	593
25072f02	594	(define-glut-procedure
61ebde6d DH	595	(glutSolidTeapot (size GLdouble) -> void)
	596	#f)
	597
25072f02	598	(define-glut-procedure
61ebde6d DH	599	(glutWireTeapot (size GLdouble) -> void)
61ebde6d DH	600	#f)