figl/glu.scm

   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))