pti/bloatrunner
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

make state and bloat immutable

Browse source
This commit is contained in:
Peter Tillemans 2024-05-21 14:18:47 +02:00
parent 6d6dba55f7
commit bc18fb899b
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
game/model/hero.scm
View file

@ -6,8 +6,8 @@
#:use-module (chickadee math vector) #:use-module (chickadee math vector)
#:use-module (game model level) #:use-module (game model level)
#:export (hero-load #:export (hero-load
hero-state hero-with-state hero-state
hero-bloat hero-with-bloat hero-bloat
hero-position hero-with-position hero-position hero-with-position
hero-x hero-with-x hero-x hero-with-x
hero-y hero-with-y hero-y hero-with-y
@ -30,8 +30,11 @@
(%make-hero initial-position default-state default-bloat))) (%make-hero initial-position default-state default-bloat)))
(define (hero-x hero) (define (hero-x hero)
"return the x coordinate as an integer"
(inexact->exact (floor (vec2-x (hero-position hero))))) (inexact->exact (floor (vec2-x (hero-position hero)))))
(define (hero-y hero) (define (hero-y hero)
"return the y coordinate as an integer"
(inexact->exact (floor (vec2-y (hero-position hero))))) (inexact->exact (floor (vec2-y (hero-position hero)))))
(define (hero-with-x hero x) (define (hero-with-x hero x)
@ -40,6 +43,8 @@
(define (hero-with-y hero y) (define (hero-with-y hero y)
(hero-with-position hero (vec2 (hero-x hero) y))) (hero-with-position hero (vec2 (hero-x hero) y)))
(define speed 50.0)
;; Tests ;; Tests
[test-begin "hero model"] [test-begin "hero model"]
@ -60,6 +65,7 @@
(test-equal 16 (hero-x (hero-with-position hero (vec2 16.34 20.78)))) (test-equal 16 (hero-x (hero-with-position hero (vec2 16.34 20.78))))
(test-equal 20 (hero-y (hero-with-position hero (vec2 16.34 20.78)))) (test-equal 20 (hero-y (hero-with-position hero (vec2 16.34 20.78))))
) )
(test-end "hero model") (test-end "hero model")