From 11dd0ef869d2f45c88583464beef8a5243e3998a Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 15 Feb 2014 21:06:20 -0500 Subject: Delete draw-texture. * 2d/texture.scm (draw-texture): Delete it. --- 2d/texture.scm | 24 ------------------------ 1 file changed, 24 deletions(-) diff --git a/2d/texture.scm b/2d/texture.scm index faa2359..cfcd2bf 100644 --- a/2d/texture.scm +++ b/2d/texture.scm @@ -150,27 +150,3 @@ that will be rendered, in pixels." (texture (bitmap->texture bitmap))) (freeimage-unload bitmap) texture)) - -(define* (draw-texture texture x y #:optional (color white)) - "Render a textured quad in GL immediate mode." - (let* ((x2 (+ x (texture-width texture))) - (y2 (+ y (texture-height texture))) - (r (vector-ref color 0)) - (g (vector-ref color 1)) - (b (vector-ref color 2)) - (a (vector-ref color 3)) - (s1 (texture-s1 texture)) - (t1 (texture-t1 texture)) - (s2 (texture-s2 texture)) - (t2 (texture-t2 texture))) - (with-gl-bind-texture (texture-target texture-2d) (texture-id texture) - (use-color color) - (gl-begin (begin-mode quads) - (gl-texture-coordinates s1 t1) - (gl-vertex x y) - (gl-texture-coordinates s1 t2) - (gl-vertex x y2) - (gl-texture-coordinates s2 t2) - (gl-vertex x2 y2) - (gl-texture-coordinates s2 t1) - (gl-vertex x2 y))))) -- cgit v1.2.3