diff options
Diffstat (limited to 'chickadee/graphics/texture.scm')
| -rw-r--r-- | chickadee/graphics/texture.scm | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/chickadee/graphics/texture.scm b/chickadee/graphics/texture.scm index f056be8..3ced853 100644 --- a/chickadee/graphics/texture.scm +++ b/chickadee/graphics/texture.scm @@ -48,6 +48,10 @@ texture-gl-rect texture-gl-tex-rect null-texture + g:texture-0 + g:texture-1 + g:texture-2 + g:texture-3 current-texture-0 current-texture-1 current-texture-2 @@ -125,22 +129,22 @@ #:predicate texture? #:free free-texture) -(define-graphics-state texture-0 +(define-graphics-state g:texture-0 current-texture-0 #:default null-texture #:bind (make-bind-texture 0)) -(define-graphics-state texture-1 +(define-graphics-state g:texture-1 current-texture-1 #:default null-texture #:bind (make-bind-texture 1)) -(define-graphics-state texture-2 +(define-graphics-state g:texture-2 current-texture-2 #:default null-texture #:bind (make-bind-texture 2)) -(define-graphics-state texture-3 +(define-graphics-state g:texture-3 current-texture-3 #:default null-texture #:bind (make-bind-texture 3)) @@ -179,7 +183,7 @@ clamp-to-edge. FORMAT specifies the pixel format. Currently only (make-rect 0.0 1.0 1.0 -1.0) (make-rect 0.0 0.0 1.0 1.0))))) (graphics-engine-guard! texture) - (with-graphics-state ((texture-0 texture)) + (with-graphics-state ((g:texture-0 texture)) (graphics-engine-commit!) (gl-texture-parameter (texture-target texture-2d) (texture-parameter-name texture-min-filter) |