diff options
| -rw-r--r-- | 2d/wrappers/gl.scm | 24 |
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) |