Commit | Line | Data |
---|---|---|
1d88ea77 AW |
1 | ;;; figl |
2 | ;;; Copyright (C) 2013 Andy Wingo <wingo@pobox.com> | |
3 | ;;; Copyright (C) 2013 Daniel Hartwig <mandyke@gmail.com> | |
4 | ;;; | |
5 | ;;; Figl is free software: you can redistribute it and/or modify it | |
6 | ;;; under the terms of the GNU Lesser General Public License as | |
7 | ;;; published by the Free Software Foundation, either version 3 of the | |
8 | ;;; License, or (at your option) any later version. | |
9 | ;;; | |
10 | ;;; Figl is distributed in the hope that it will be useful, but WITHOUT | |
11 | ;;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY | |
12 | ;;; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General | |
13 | ;;; Public License for more details. | |
14 | ;;; | |
15 | ;;; You should have received a copy of the GNU Lesser General Public | |
16 | ;;; License along with this program. If not, see | |
17 | ;;; <http://www.gnu.org/licenses/>. | |
18 | ||
19 | ;;; Commentary: | |
20 | ;; | |
21 | ;; OpenGL binding. | |
22 | ;; | |
23 | ;;; Code: | |
24 | ||
25 | (define-module (figl glu) | |
26 | #:use-module (figl runtime) | |
27 | #:use-module (figl glu types) | |
28 | #:use-module ((figl glu low-level) #:renamer (symbol-prefix-proc '%))) | |
29 | ||
30 | ;; Notice there is no #:export clause. Exports are done inline to | |
31 | ;; facilitate re-exporting low-level bindings (and changing that | |
32 | ;; choice), and identifying gaps in the API. | |
33 | ;; | |
34 | ;; There are two sets of exports for each section. The first is for | |
35 | ;; bindings defined in the specification, exported in order. The | |
36 | ;; second is for additional procedures not defined by the spec. but | |
37 | ;; relevant to the section, for example with-gl-begin. | |
38 | ;; | |
39 | ;; At least keep this format until the bindings are fairly complete. | |
40 | ||
41 | ;;; | |
42 | ;;; 4 Matrix Manipulation | |
43 | ;;; | |
44 | ||
45 | (re-export (%gluPerspective . glu-perspective)) |