summaryrefslogtreecommitdiff
path: root/examples/game-controller.scm
diff options
context:
space:
mode:
Diffstat (limited to 'examples/game-controller.scm')
-rw-r--r--examples/game-controller.scm68
1 files changed, 38 insertions, 30 deletions
diff --git a/examples/game-controller.scm b/examples/game-controller.scm
index fe1a681..252f368 100644
--- a/examples/game-controller.scm
+++ b/examples/game-controller.scm
@@ -1,5 +1,6 @@
(use-modules (chickadee)
(chickadee math vector)
+ (chickadee render color)
(chickadee render font)
(chickadee render sprite)
(chickadee render texture)
@@ -23,6 +24,9 @@
(right-stick ,(vec2 450.0 20.0) 13 31)
(left-shoulder ,(vec2 110.0 390.0) 4 22)
(right-shoulder ,(vec2 450.0 390.0) 5 23)))
+(define trigger-icons
+ `((trigger-left ,(vec2 10.0 390.0) 22)
+ (trigger-right ,(vec2 550.0 390.0) 23)))
(define no-controller-msg "no controller detected :'(")
(define no-controller-msg-pos #f)
(define controller-name-pos #f)
@@ -40,38 +44,42 @@
(set! controller-name-pos
(vec2 (center-text (controller-name controller)) 440.0)))
-;; FIXME: I couldn't think of a decent way to display the analog
-;; left/right trigger buttons, so they are omitted.
(define (draw alpha)
(if controller
- (begin
- (draw-text (controller-name controller) controller-name-pos)
- (for-each (match-lambda
- (((and (or 'left-stick 'right-stick) button)
- p released pressed)
- (let ((pressed? (controller-button-pressed? controller
- button))
- (x (controller-axis controller
- (if (eq? button 'left-stick)
- 'left-x
- 'right-x)))
- (y (controller-axis controller
- (if (eq? button 'left-stick)
- 'left-y
- 'right-y))))
- (draw-sprite (texture-atlas-ref atlas released)
- p)
- (when (or pressed? (not (zero? x)) (not (zero? y)))
- (draw-sprite (texture-atlas-ref atlas pressed)
- (vec2+ p (vec2 (* x 16.0) (* y -16.0)))))))
- ((button p released pressed)
- (let ((pressed? (controller-button-pressed? controller
- button)))
- (draw-sprite (texture-atlas-ref
- atlas
- (if pressed? pressed released))
- p))))
- button-icons))
+ (with-batched-sprites
+ (draw-text (controller-name controller) controller-name-pos)
+ (for-each (match-lambda
+ ((axis p tile)
+ (let ((alpha (controller-axis controller axis)))
+ (draw-sprite (texture-atlas-ref atlas tile) p
+ #:tint (color 1.0 1.0 1.0 alpha)))))
+ trigger-icons)
+ (for-each (match-lambda
+ (((and (or 'left-stick 'right-stick) button)
+ p released pressed)
+ (let ((pressed? (controller-button-pressed? controller
+ button))
+ (x (controller-axis controller
+ (if (eq? button 'left-stick)
+ 'left-x
+ 'right-x)))
+ (y (controller-axis controller
+ (if (eq? button 'left-stick)
+ 'left-y
+ 'right-y))))
+ (draw-sprite (texture-atlas-ref atlas released)
+ p)
+ (when (or pressed? (not (zero? x)) (not (zero? y)))
+ (draw-sprite (texture-atlas-ref atlas pressed)
+ (vec2+ p (vec2 (* x 16.0) (* y -16.0)))))))
+ ((button p released pressed)
+ (let ((pressed? (controller-button-pressed? controller
+ button)))
+ (draw-sprite (texture-atlas-ref
+ atlas
+ (if pressed? pressed released))
+ p))))
+ button-icons))
(draw-text no-controller-msg no-controller-msg-pos)))
(run-game #:load load #:draw draw #:controller-add controller-add)