Commit 1cdc7fc2 authored by Gustav Sörnäs's avatar Gustav Sörnäs Committed by Hugo Hörnquist

Add strafing.

Signed-off-by: default avatarHugo Hörnquist <hugo@hornquist.se>
parent 6f4d69de
......@@ -88,7 +88,13 @@ exec guile -q -e main -s $0
(when (< tau (a player))
(set! (a player) 0))
(wake))
))
((a d) (set! (p player)
= (+ (* dt 3e-3 (if (eq? key 'a) 1 -1)
(v3 (sin (a player))
(- (cos (a player)))))))
(wake))
))
keys-down))))
(define (find-next-wall x y a callback)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment