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

Add strafing.

Signed-off-by: default avatarHugo Hörnquist <>
parent 6f4d69de
...@@ -88,7 +88,13 @@ exec guile -q -e main -s $0 ...@@ -88,7 +88,13 @@ exec guile -q -e main -s $0
(when (< tau (a player)) (when (< tau (a player))
(set! (a player) 0)) (set! (a player) 0))
(wake)) (wake))
((a d) (set! (p player)
= (+ (* dt 3e-3 (if (eq? key 'a) 1 -1)
(v3 (sin (a player))
(- (cos (a player)))))))
keys-down)))) keys-down))))
(define (find-next-wall x y a callback) (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