summaryrefslogtreecommitdiff
path: root/2d/wrappers/gl.scm
diff options
context:
space:
mode:
Diffstat (limited to '2d/wrappers/gl.scm')
-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)