summaryrefslogtreecommitdiff
path: root/2d/sprite.scm
diff options
context:
space:
mode:
Diffstat (limited to '2d/sprite.scm')
-rw-r--r--2d/sprite.scm85
1 files changed, 57 insertions, 28 deletions
diff --git a/2d/sprite.scm b/2d/sprite.scm
index fddfaa4..ebeb3b4 100644
--- a/2d/sprite.scm
+++ b/2d/sprite.scm
@@ -56,42 +56,71 @@
(define (pack-sprite-vertices vertices offset x y width height origin-x origin-y
scale-x scale-y rotation u v u2 v2 color)
(let* ((color (rgba->gl-color color))
- (sin (sin-degrees rotation))
- (cos (cos-degrees rotation))
(local-x1 (* (- origin-x) scale-x))
(local-y1 (* (- origin-y) scale-y))
(local-x2 (* (- width origin-x) scale-x))
(local-y2 (* (- height origin-y) scale-y))
- (x1 (+ x (- (* cos local-x1) (* sin local-y1))))
- (y1 (+ y (* sin local-x1) (* cos local-y1)))
- (x2 (+ x (- (* cos local-x1) (* sin local-y2))))
- (y2 (+ y (* sin local-x1) (* cos local-y2)))
- (x3 (+ x (- (* cos local-x2) (* sin local-y2))))
- (y3 (+ y (* sin local-x2) (* cos local-y2)))
- (x4 (+ x1 (- x3 x2)))
- (y4 (- y3 (- y2 y1)))
(r (vector-ref color 0))
(g (vector-ref color 1))
(b (vector-ref color 2))
(a (vector-ref color 3)))
- ;; Vertices go counter clockwise, starting from the top-left
- ;; corner.
- (pack vertices offset sprite-vertex
- x1 y1
- r g b a
- u v)
- (pack vertices (+ offset 1) sprite-vertex
- x2 y2
- r g b a
- u v2)
- (pack vertices (+ offset 2) sprite-vertex
- x3 y3
- r g b a
- u2 v2)
- (pack vertices (+ offset 3) sprite-vertex
- x4 y4
- r g b a
- u2 v)))
+ (if (= rotation 0)
+ (begin
+ (let ((x1 (+ x local-x1))
+ (y1 (+ y local-y1))
+ (x2 (+ x local-x1))
+ (y2 (+ y local-y2))
+ (x3 (+ x local-x2))
+ (y3 (+ y local-y2))
+ (x4 (+ x local-x2))
+ (y4 (+ y local-y1)))
+ ;; Vertices go counter clockwise, starting from the top-left
+ ;; corner.
+ (pack vertices offset sprite-vertex
+ x1 y1
+ r g b a
+ u v)
+ (pack vertices (+ offset 1) sprite-vertex
+ x2 y2
+ r g b a
+ u v2)
+ (pack vertices (+ offset 2) sprite-vertex
+ x3 y3
+ r g b a
+ u2 v2)
+ (pack vertices (+ offset 3) sprite-vertex
+ x4 y4
+ r g b a
+ u2 v)))
+ (begin
+ (let* ((sin (sin-degrees rotation))
+ (cos (cos-degrees rotation))
+ (x1 (+ x (- (* cos local-x1) (* sin local-y1))))
+ (y1 (+ y (* sin local-x1) (* cos local-y1)))
+ (x2 (+ x (- (* cos local-x1) (* sin local-y2))))
+ (y2 (+ y (* sin local-x1) (* cos local-y2)))
+ (x3 (+ x (- (* cos local-x2) (* sin local-y2))))
+ (y3 (+ y (* sin local-x2) (* cos local-y2)))
+ (x4 (+ x1 (- x3 x2)))
+ (y4 (- y3 (- y2 y1))))
+ ;; Vertices go counter clockwise, starting from the top-left
+ ;; corner.
+ (pack vertices offset sprite-vertex
+ x1 y1
+ r g b a
+ u v)
+ (pack vertices (+ offset 1) sprite-vertex
+ x2 y2
+ r g b a
+ u v2)
+ (pack vertices (+ offset 2) sprite-vertex
+ x3 y3
+ r g b a
+ u2 v2)
+ (pack vertices (+ offset 3) sprite-vertex
+ x4 y4
+ r g b a
+ u2 v))))))
;;;
;;; Sprites