From e3a3ee4d1383b5de455513539999a426bca6c6fe Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@member.fsf.org>
Date: Wed, 14 Aug 2013 18:12:46 -0400
Subject: Move gl.scm to wrappers subdirectory.

---
 2d/gl.scm | 96 ---------------------------------------------------------------
 1 file changed, 96 deletions(-)
 delete mode 100644 2d/gl.scm

(limited to '2d/gl.scm')

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)
-- 
cgit v1.2.3