summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@member.fsf.org>2013-09-05 18:04:28 -0400
committerDavid Thompson <dthompson@member.fsf.org>2013-09-05 18:04:28 -0400
commit68a4a1ebd2f8286bc6190bdce976a1828da3aa8a (patch)
tree88ec9c09aaa01a4cd4b42d919ad4de7e5d513155
parentf6eed03342b55a2a843c177822bef13609d81703 (diff)
Revert "Add missing wrappers for glGenTextures and glDeleteTextures."
This reverts commit f6eed03342b55a2a843c177822bef13609d81703.
-rw-r--r--2d/wrappers/gl.scm24
1 files changed, 1 insertions, 23 deletions
diff --git a/2d/wrappers/gl.scm b/2d/wrappers/gl.scm
index 108fc75..8360463 100644
--- a/2d/wrappers/gl.scm
+++ b/2d/wrappers/gl.scm
@@ -65,25 +65,6 @@
(re-export (%glTexParameteri . gl-texture-parameter))
-
-;;;
-;;; 3.8.12 Texture Objects
-;;;
-
-;; TODO gl-are-textures-resident? gl-prioritze-textures
-
-(define (gl-generate-textures n)
- (let ((bv (make-u32vector n 0)))
- (%glGenTextures n bv)
- (u32vector->list bv)))
-
-(define (gl-generate-texture)
- (car (gl-generate-textures 1)))
-
-(define (gl-delete-textures textures)
- (let ((bv (list->u32vector textures)))
- (%glDeleteTextures (u32vector-length bv) bv)))
-
;; emacs: (put 'with-gl-bind-texture 'scheme-indent-function 2)
(define-syntax-rule (with-gl-bind-texture target id body ...)
(begin
@@ -92,7 +73,4 @@
...
(%glBindTexture target 0)))
-(export gl-generate-textures
- gl-generate-texture
- gl-delete-textures
- with-gl-bind-texture)
+(export with-gl-bind-texture)