Fixed the paddle collision on corners

master
Abhinav Sarkar 2013-10-12 18:37:57 +05:30
parent 05b4abf0ef
commit d5f8f6702c
1 changed files with 1 additions and 1 deletions

View File

@ -184,7 +184,7 @@
Reads the current tick, ball position, ball velocity and left and right paddle positions from Reads the current tick, ball position, ball velocity and left and right paddle positions from
the `ticks`, `pos`, `vel-in`, `pl-pos` and `pr-pos` signals respectively." the `ticks`, `pos`, `vel-in`, `pl-pos` and `pr-pos` signals respectively."
(defn in-y-range? [y paddle-y] (defn in-y-range? [y paddle-y]
(and (> y (+ paddle-y padding)) (< y (- (+ paddle-y paddle-size) padding)))) (and (> y (- paddle-y padding)) (< y (+ paddle-y paddle-size padding))))
(defn detect-x-collision [x y lpaddle-y rpaddle-y] (defn detect-x-collision [x y lpaddle-y rpaddle-y]
(cond (cond