Commit | Line | Data |
---|---|---|
7ec693ed AW |
1 | ;;; figl |
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 | ;; Mappings from OpenGL to FFI types. | |
21 | ;; | |
22 | ;;; Code: | |
23 | ||
00239761 | 24 | (define-module (figl glu types) |
93f72ad8 | 25 | #:use-module (figl runtime) |
00239761 AW |
26 | #:export (GLUnurbs* |
27 | GLUquadric* | |
28 | GLUtesselator* | |
29 | GLdouble* | |
30 | GLfloat* | |
31 | GLvoid* | |
32 | _GLUfuncptr | |
33 | const-void-*)) | |
7ec693ed AW |
34 | |
35 | (module-use! (module-public-interface (current-module)) | |
36 | (resolve-interface '(figl gl types))) | |
00239761 | 37 | |
93f72ad8 AW |
38 | (define-simple-foreign-type GLUnurbs* '*) |
39 | (define-simple-foreign-type GLUquadric* '*) | |
40 | (define-simple-foreign-type GLUtesselator* '*) | |
41 | (define-simple-foreign-type GLdouble* '*) | |
42 | (define-simple-foreign-type GLfloat* '*) | |
43 | (define-simple-foreign-type GLvoid* '*) | |
44 | (define-simple-foreign-type _GLUfuncptr '*) | |
45 | (define-simple-foreign-type const-void-* '*) |