Move texture anchor procedure.

* 2d/sprite.scm (make-anchor): Delete it.
* 2d/texture.scm (anchor-texture): New procedure.

1 files changed, 14 insertions, 1 deletions

diff --git a/2d/texture.scm b/2d/texture.scm
index 684ad42..5185368 100644
--- a/2d/texture.scm
+++ b/2d/texture.scm
@@ -28,6 +28,7 @@
   #:use-module (figl contrib packed-struct)
   #:use-module (2d color)
   #:use-module (2d helpers)
+  #:use-module (2d vector2)
   #:use-module (2d wrappers gl)
   #:use-module (2d wrappers freeimage)
   #:export (make-texture
@@ -42,7 +43,7 @@
             texture-t1
             texture-s2
             texture-t2
-            surface->texture
+            anchor-texture
             texture-vertex
             pack-texture-vertices
             draw-texture-vertices))
@@ -154,6 +155,18 @@ that will be rendered, in pixels."
     (freeimage-unload bitmap)
     texture))
 
+(define (anchor-texture texture anchor)
+  "Return a vector2 of the coordinates for the center point of a
+texture."
+  (cond
+   ((vector2? anchor)
+    anchor)
+   ((eq? anchor 'center)
+    (vector2 (/ (texture-width texture) 2)
+             (/ (texture-height texture) 2)))
+   (else
+    (error "Invalid anchor type!" anchor))))
+
 ;;;
 ;;; Texture Vertices
 ;;;