From 68a4a1ebd2f8286bc6190bdce976a1828da3aa8a Mon Sep 17 00:00:00 2001 From: David Thompson Date: Thu, 5 Sep 2013 18:04:28 -0400 Subject: Revert "Add missing wrappers for glGenTextures and glDeleteTextures." This reverts commit f6eed03342b55a2a843c177822bef13609d81703. --- 2d/wrappers/gl.scm | 24 +----------------------- 1 file changed, 1 insertion(+), 23 deletions(-) (limited to '2d') 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) -- cgit v1.2.3