pti/flappy-ball
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix speed and start tests

Browse source
This commit is contained in:
Peter Tillemans 2024-04-25 23:05:15 +02:00
parent 508f52ef2c
commit 557655e603
3 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
flappy-ball-test.lisp
View file

@ -4,3 +4,7 @@
(in-package :flappy-ball-test) (in-package :flappy-ball-test)
(def-suite all-tests)
(in-suite all-tests)

2
flappy-ball.asd
View file

@ -9,7 +9,7 @@
:in-order-to ((asdf:test-op (test-op "flappy-ball-test")))) :in-order-to ((asdf:test-op (test-op "flappy-ball-test"))))
(asdf:defsystem "flappy-ball/test" (asdf:defsystem "flappy-ball/test"
:depends-on ("flappy-ball fiveam") :depends-on ("flappy-ball" "fiveam")
:components ((:file "flappy-ball-test")) :components ((:file "flappy-ball-test"))
:perform (asdf:test-op (o c) :perform (asdf:test-op (o c)
(funcall (intern (format nil "RUN-~A" (symbol-name (asdf:component-name c))))))) (funcall (intern (format nil "RUN-~A" (symbol-name (asdf:component-name c)))))))

2
flappy-ball.lisp
View file

@ -11,7 +11,7 @@
(copy-pixels nil) (copy-pixels nil)
(ball (list (/ width 10) (/ height 3) 0)) (ball (list (/ width 10) (/ height 3) 0))
(gravity 0.05) (gravity 0.05)
(flap-speed -0.25) (flap-speed -2.5)
(ball-pen (make-pen :stroke (gray 0.5) :fill sketch:+yellow+ :weight 1)) (ball-pen (make-pen :stroke (gray 0.5) :fill sketch:+yellow+ :weight 1))
(pipe-pen (make-pen :stroke (gray 0.5) :fill sketch:+green+ :weight 1)) (pipe-pen (make-pen :stroke (gray 0.5) :fill sketch:+green+ :weight 1))
(pipes '((200 200 100) (400 300 100) (600 400 100))) (pipes '((200 200 100) (400 300 100) (600 400 100)))