95 lines
3.2 KiB
Scheme
95 lines
3.2 KiB
Scheme
(define-module (game render hero)
|
|
#:use-module (game model hero)
|
|
#:use-module (game util assets)
|
|
#:use-module (chickadee)
|
|
#:use-module (chickadee math vector)
|
|
#:use-module (chickadee graphics sprite)
|
|
#:use-module (chickadee graphics texture)
|
|
#:use-module (chickadee graphics text)
|
|
#:export (render-hero
|
|
render-hero-load))
|
|
|
|
;; start index of the walk animation
|
|
(define hero-walking-offset 56)
|
|
(define hero-falling-offset 32)
|
|
(define hero-climbing-offset 48)
|
|
|
|
(define (hero-sprite-walking hero)
|
|
(let* ((x (hero-x hero))
|
|
(animation-frame (remainder x 8))
|
|
(hero-index (+ hero-walking-offset animation-frame)))
|
|
(texture-atlas-ref hero-atlas hero-index)))
|
|
|
|
(define (hero-sprite-stationary _hero)
|
|
(texture-atlas-ref hero-atlas 56))
|
|
|
|
|
|
(define (hero-sprite-falling hero)
|
|
(let* ((y (hero-y hero))
|
|
(animation-frame (remainder y 8))
|
|
(hero-index (+ hero-falling-offset animation-frame)))
|
|
(texture-atlas-ref hero-atlas hero-index)))
|
|
|
|
(define (hero-sprite-climbing hero)
|
|
(let* ((y (hero-y hero))
|
|
(animation-frame (remainder y 8))
|
|
(hero-index (+ hero-climbing-offset animation-frame)))
|
|
(texture-atlas-ref hero-atlas hero-index)))
|
|
|
|
(define red-tile 3501)
|
|
(define green-tile 3502)
|
|
(define good-marker-tile 1227)
|
|
(define bad-marker-tile 1226)
|
|
|
|
(define (render-bloat-indicator bloat)
|
|
(let ((red (texture-atlas-ref tile-atlas red-tile))
|
|
(green (texture-atlas-ref tile-atlas green-tile))
|
|
(good-marker (texture-atlas-ref tile-atlas good-marker-tile))
|
|
(bad-marker (texture-atlas-ref tile-atlas bad-marker-tile))
|
|
)
|
|
(draw-sprite red (vec2 0 128))
|
|
(draw-sprite red (vec2 0 144))
|
|
(draw-sprite red (vec2 0 160))
|
|
(draw-sprite green (vec2 0 176))
|
|
(draw-sprite green (vec2 0 192))
|
|
(draw-sprite green (vec2 0 208))
|
|
(draw-sprite green (vec2 0 224))
|
|
(draw-sprite green (vec2 0 240))
|
|
(draw-sprite green (vec2 0 256))
|
|
(draw-sprite red (vec2 0 272))
|
|
(draw-sprite red (vec2 0 288))
|
|
(draw-sprite red (vec2 0 304))
|
|
(draw-sprite
|
|
(if (< 0.5 bloat 1.5) good-marker bad-marker)
|
|
(vec2 0 (+ 120 (* 96 bloat))))
|
|
|
|
))
|
|
|
|
(define (render-hero hero)
|
|
(let ((position (vec2+ (hero-position hero)
|
|
(if (equal? 'go-left (hero-state hero))
|
|
(vec2* (vec2 16.0 1.0) (hero-bloat hero))
|
|
(vec2* (vec2 -16.0 1.0) (hero-bloat hero)))))
|
|
(scale (if (equal? 'go-left (hero-state hero))
|
|
(vec2 (- (hero-bloat hero)) 1.0)
|
|
(vec2 (hero-bloat hero) 1.0)))
|
|
(sprite (case (hero-state hero)
|
|
((stationary) (hero-sprite-stationary hero))
|
|
((fall) (hero-sprite-falling hero))
|
|
((climb) (hero-sprite-climbing hero))
|
|
((go-left) (hero-sprite-walking hero))
|
|
((go-right) (hero-sprite-walking hero))
|
|
))
|
|
)
|
|
(draw-sprite sprite position #:scale scale))
|
|
|
|
(draw-text
|
|
(format #f "Calories Exercised: ~a" (floor (hero-exercise hero)))
|
|
(vec2 216 4))
|
|
(draw-text
|
|
(format #f "Bloat: ~a" (hero-bloat hero))
|
|
(vec2 516 4))
|
|
|
|
(render-bloat-indicator (hero-bloat hero))
|
|
|
|
)
|