abhin4v/frpong
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Some more cleanup

Browse Source
This commit is contained in:
Abhinav Sarkar 2013-09-26 10:52:21 +05:30
parent 90a9f672cd
commit 104005713a
2 changed files with 20 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
resources/public/index.html
View File

@ -12,7 +12,7 @@
<div>FPS: <span id="fps"></span></div> <div>FPS: <span id="fps"></span></div>
<div>Position: <span id="pos"></span></div> <div>Position: <span id="pos"></span></div>
<div>Velocity: <span id="vel"></span></div> <div>Velocity: <span id="vel"></span></div>
<svg style="width: 600px; height: 400px; border: 1px black solid" id="canvas"> <svg style="border: 1px black solid" id="canvas">
<circle id="ball" r="5" cx="5" cy="100" /> <circle id="ball" r="5" cx="5" cy="100" />
<rect id="lpaddle" x="0" y="160" width="10" height="80" /> <rect id="lpaddle" x="0" y="160" width="10" height="80" />
<rect id="rpaddle" x="590" y="160" width="10" height="80" /> <rect id="rpaddle" x="590" y="160" width="10" height="80" />

31
src/cljs/frpong/core.cljs
View File

@ -50,7 +50,8 @@
pos-next [(+ x (* vel-x tick)) (+ y (* vel-y tick))]] pos-next [(+ x (* vel-x tick)) (+ y (* vel-y tick))]]
(>! pos-chan-out pos-next)))) (>! pos-chan-out pos-next))))
(defn collision-detector [{:keys [width height padding]} tick-chan pos-chan vel-chan-in vel-chan-out] (defn collision-detector
[{:keys [width height padding]} tick-chan pos-chan vel-chan-in vel-chan-out]
(go-loop (go-loop
(let [adjust-v (fn [p v size] (let [adjust-v (fn [p v size]
(cond (cond
@ -74,14 +75,15 @@
:up (>! pos-chan-out (max (- pos movement) 0)) :up (>! pos-chan-out (max (- pos movement) 0))
:down (>! pos-chan-out (min (+ pos movement) max-y))))))) :down (>! pos-chan-out (min (+ pos movement) max-y)))))))
(defn render-loop [[pos-chan vel-chan pl-pos-chan pr-pos-chan]] (defn renderer [pos-chan vel-chan pl-pos-chan pr-pos-chan]
(go-loop (go-loop
(let [[x y] (map int (<! pos-chan)) (let [[x y] (map int (<! pos-chan))
vel (<! vel-chan)] vel (<! vel-chan)]
(dom/set-text! (dom/by-id "pos") [x y]) (dom/set-text! (dom/by-id "pos") [x y])
(dom/set-text! (dom/by-id "vel") vel) (dom/set-text! (dom/by-id "vel") vel)
(dom/set-attr! (dom/by-id "ball") "cx" x) (doto (dom/by-id "ball")
(dom/set-attr! (dom/by-id "ball") "cy" y))) (dom/set-attr! "cx" x)
(dom/set-attr! "cy" y))))
(go-loop (go-loop
(dom/set-attr! (dom/by-id "lpaddle") "y" (<! pl-pos-chan))) (dom/set-attr! (dom/by-id "lpaddle") "y" (<! pl-pos-chan)))
(go-loop (go-loop
@ -101,19 +103,20 @@
(paddle-positioner {38 :up 40 :down} max-y paddle-movement pr-pos-chan-pos pr-pos-chan) (paddle-positioner {38 :up 40 :down} max-y paddle-movement pr-pos-chan-pos pr-pos-chan)
[pos-chan-render vel-chan-render pl-pos-chan-render pr-pos-chan-render])) [pos-chan-render vel-chan-render pl-pos-chan-render pr-pos-chan-render]))
(defn game-init [layout {:keys [init-pos init-vel paddle-movement]} frame-chan] (defn game-init [{:keys [height paddle-size] :as layout}
(let [pos-chan (chan 1) {:keys [init-pos init-vel paddle-movement]} frame-chan]
(let [paddle-x (/ (- height paddle-size) 2)
pos-chan (chan 1)
vel-chan (chan 1) vel-chan (chan 1)
pl-pos-chan (chan 1) pl-pos-chan (chan 1)
pr-pos-chan (chan 1)] pr-pos-chan (chan 1)]
(put! pos-chan init-pos) (put! pos-chan init-pos)
(put! vel-chan init-vel) (put! vel-chan init-vel)
(put! pl-pos-chan 160) (put! pl-pos-chan paddle-x)
(put! pr-pos-chan 160) (put! pr-pos-chan paddle-x)
(render-loop (apply renderer
(game-setup layout paddle-movement (game-setup layout paddle-movement frame-chan pos-chan vel-chan pl-pos-chan pr-pos-chan))))
frame-chan pos-chan vel-chan pl-pos-chan pr-pos-chan))))
(defn ^:export init [] (defn ^:export init []
(let [frame-chan (h/frame-chan) (let [frame-chan (h/frame-chan)
@ -123,12 +126,16 @@
frame-count-chan (h/counting-chan frame-chan-count) frame-count-chan (h/counting-chan frame-chan-count)
layout {:width 600 layout {:width 600
:height 400 :height 300
:padding 5 :padding 5
:paddle-size 80} :paddle-size 80}
init-vals {:init-pos [5 100] init-vals {:init-pos [5 100]
:init-vel [0.2 0.22] :init-vel [0.2 0.22]
:paddle-movement 10}] :paddle-movement 10}]
(doto (dom/by-id "canvas")
(dom/set-style! "width" (str (:width layout) "px"))
(dom/set-style! "height" (str (:height layout) "px")))
(go-loop (go-loop
(dom/set-text! (dom/by-id "fps") (<! fps-chan)) (dom/set-text! (dom/by-id "fps") (<! fps-chan))
(dom/set-text! (dom/by-id "frame") (<! frame-count-chan))) (dom/set-text! (dom/by-id "frame") (<! frame-count-chan)))