summaryrefslogtreecommitdiff
path: root/2d/gl.scm
diff options
context:
space:
mode:
Diffstat (limited to '2d/gl.scm')
-rw-r--r--2d/gl.scm96
1 files changed, 0 insertions, 96 deletions
diff --git a/2d/gl.scm b/2d/gl.scm
deleted file mode 100644
index ae9feb7..0000000
--- a/2d/gl.scm
+++ /dev/null
@@ -1,96 +0,0 @@
-;;; guile-2d
-;;; Copyright (C) 2013 David Thompson <dthompson2@worcester.edu>
-;;;
-;;; Guile-2d 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.
-;;;
-;;; Guile-2d 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:
-;;
-;; Custom wrappers over low level OpenGL commands that aren't part of
-;; FIGL.
-;;
-;;; Code:
-
-(define-module (2d gl)
- #:use-module (figl runtime)
- #:use-module ((figl gl low-level) #:renamer (symbol-prefix-proc '%))
- #:export (pixel-format*))
-
-;; Workaround broken figl pixel-fromat enumeration.
-(define-enumeration
- pixel-format*
- (color-index 6400)
- (stencil-index 6401)
- (depth-component 6402)
- (red 6403)
- (green 6404)
- (blue 6405)
- (alpha 6406)
- (rgb 6407)
- (rgba 6408)
- (luminance 6409)
- (luminance-alpha 6410)
- (abgr-ext 32768)
- (cmyk-ext 32780)
- (cmyka-ext 32781)
- (ycrcb-422-sgix 33211)
- (ycrcb-444-sgix 33212))
-
-;;;
-;;; 3.8.1 Texture Image Specification
-;;;
-
-(re-export (%glTexImage3D . gl-texture-image-3d)
- (%glTexImage2D . gl-texture-image-2d)
- (%glTexImage1D . gl-texture-image-1d))
-
-;;;
-;;; 3.8.2 Alternate Texture Image Specification Commands
-;;;
-
-(re-export (%glCopyTexImage2D . gl-copy-texture-image-2d)
- (%glCopyTexImage1D . gl-copy-texture-image-1d)
- (%glCopyTexSubImage3D . gl-copy-texture-sub-image-3d)
- (%glCopyTexSubImage2D . gl-copy-texture-sub-image-2d)
- (%glCopyTexSubImage1D . gl-copy-texture-sub-image-1d)
- (%glTexSubImage3D . gl-texture-sub-image-3d)
- (%glTexSubImage2D . gl-texture-sub-image-2d)
- (%glTexSubImage1D . gl-texture-sub-image-1d))
-
-;;;
-;;; 3.8.3 Compressed Texture Images
-;;;
-
-(re-export (%glCompressedTexImage1D . gl-compressed-texture-image-1d)
- (%glCompressedTexImage2D . gl-compressed-texture-image-2d)
- (%glCompressedTexImage3D . gl-compressed-texture-image-3d)
- (%glCompressedTexSubImage1D . gl-compressed-texture-sub-image-1d)
- (%glCompressedTexSubImage2D . gl-compressed-texture-sub-image-2d)
- (%glCompressedTexSubImage3D . gl-compressed-texture-sub-image-3d))
-
-;;;
-;;; 3.8.4 Texture Parameters
-;;;
-
-(re-export (%glTexParameteri . gl-texture-parameter))
-
-;; emacs: (put 'with-gl-bind-texture 'scheme-indent-function 2)
-(define-syntax-rule (with-gl-bind-texture target id body ...)
- (begin
- (%glBindTexture target id)
- body
- ...
- (%glBindTexture target 0)))
-
-(export with-gl-bind-texture)