cleanup
parent
f88bd57999
commit
f5626910d6
|
@ -10,8 +10,6 @@
|
|||
<body>
|
||||
<div>Frame: <span id="frame"></span></div>
|
||||
<div>FPS: <span id="fps"></span></div>
|
||||
<div>Position: <span id="pos"></span></div>
|
||||
<div>Velocity: <span id="vel"></span></div>
|
||||
<div>State: <span id="state"></span></div>
|
||||
<svg style="border: 1px black solid" id="canvas">
|
||||
<circle id="ball" />
|
||||
|
|
|
@ -1,9 +1,7 @@
|
|||
(ns frpong.core
|
||||
(:require [frpong.helpers :as h]
|
||||
[cljs.core.async :as async
|
||||
:refer [<! >! chan put! close! sliding-buffer dropping-buffer timeout]]
|
||||
[domina :as dom :refer [log]]
|
||||
[domina.events :as ev])
|
||||
[cljs.core.async :refer [<! >! chan put!]]
|
||||
[domina :as dom :refer [log]])
|
||||
(:require-macros [cljs.core.async.macros :as m :refer [go]]
|
||||
[frpong.core :refer (go-loop)]))
|
||||
;;
|
||||
|
@ -50,31 +48,37 @@
|
|||
pos-next [(+ x (* vel-x tick)) (+ y (* vel-y tick))]]
|
||||
(>! pos-out pos-next))))
|
||||
|
||||
(defn paddle-positioner [keycodes max-y movement pos-in pos-out]
|
||||
(let [keys (h/key-chan keycodes)]
|
||||
(go-loop
|
||||
(let [pos (<! pos-in)]
|
||||
(>! pos-out
|
||||
(condp = (<! keys)
|
||||
:up (max (- pos movement) 0)
|
||||
:down (min (+ pos movement) max-y)))))))
|
||||
|
||||
(defn collision-detector
|
||||
[{:keys [width height padding paddle-size paddle-width]}
|
||||
ticks game-state pos pl-pos pr-pos vel-in vel-out]
|
||||
(let [adjust-v (fn [state v] [(condp = state
|
||||
(let [ef-paddle-width (+ paddle-width padding)
|
||||
adjust-v (fn [state v] [(condp = state
|
||||
:collision-left (abs v)
|
||||
:collision-right (- (abs v))
|
||||
:moving v
|
||||
:gameover 0)
|
||||
state])
|
||||
in-y-range? (fn [y p-pos] (and (> y (+ p-pos padding))
|
||||
(< y (- (+ p-pos paddle-size) padding))))
|
||||
detect-x-collision (fn [x y pl-pos pr-pos]
|
||||
(cond
|
||||
(< x ef-paddle-width)
|
||||
(if (in-y-range? y pl-pos) :collision-left :gameover)
|
||||
(> x (- width ef-paddle-width))
|
||||
(if (in-y-range? y pr-pos) :collision-right :gameover)
|
||||
:else :moving))
|
||||
detect-y-collision (fn [y] (cond
|
||||
(< y padding) :collision-left
|
||||
(> y (- height padding)) :collision-right
|
||||
:else :moving))
|
||||
detect-x-collision (fn [x y pl-pos pr-pos]
|
||||
(cond
|
||||
(< x (+ paddle-width padding))
|
||||
(if (and (> y (+ pl-pos padding))
|
||||
(< y (- (+ pl-pos paddle-size) padding)))
|
||||
:collision-left
|
||||
:gameover)
|
||||
(> x (- width (+ paddle-width padding)))
|
||||
(if (and (> y (+ pr-pos padding))
|
||||
(< y (- (+ pr-pos paddle-size) padding)))
|
||||
:collision-right
|
||||
:gameover)
|
||||
:else :moving))]
|
||||
(go-loop
|
||||
(let [tick (<! ticks)
|
||||
|
@ -93,27 +97,14 @@
|
|||
(= bs-y :collision-left) (= bs-y :collision-right)) :collision
|
||||
:else :moving))))))
|
||||
|
||||
(defn paddle-positioner [keycodes max-y movement pos-in pos-out]
|
||||
(let [keys (h/key-chan keycodes)]
|
||||
(go-loop
|
||||
(let [pos (<! pos-in)]
|
||||
(>! pos-out
|
||||
(condp = (<! keys)
|
||||
:up (max (- pos movement) 0)
|
||||
:down (min (+ pos movement) max-y)))))))
|
||||
|
||||
(defn renderer [game-state pos vel pl-pos pr-pos]
|
||||
(let [pos-el (dom/by-id "pos")
|
||||
vel-el (dom/by-id "vel")
|
||||
ball-el (dom/by-id "ball")
|
||||
(defn renderer [game-state pos pl-pos pr-pos]
|
||||
(let [ball-el (dom/by-id "ball")
|
||||
state-el (dom/by-id "state")
|
||||
lpaddle-el (dom/by-id "lpaddle")
|
||||
rpaddle-el (dom/by-id "rpaddle")]
|
||||
(go-loop
|
||||
(let [[x y] (<! pos)
|
||||
gs (<! game-state)]
|
||||
(dom/set-text! pos-el (map int [x y]))
|
||||
(dom/set-text! vel-el (<! vel))
|
||||
(dom/set-text! state-el (name gs))
|
||||
(doto ball-el
|
||||
(dom/set-attr! "cx" x)
|
||||
|
@ -136,7 +127,7 @@
|
|||
ticks (chan)
|
||||
[tick-pos tick-collsion tick-pl tick-pr] (h/multiplex ticks 4)
|
||||
[pos-in pos-collision pos-render] (h/multiplex pos 3)
|
||||
[vel-pos vel-collision vel-render] (h/multiplex vel 3)
|
||||
[vel-pos vel-collision] (h/multiplex vel 2)
|
||||
[pl-pos-in pl-pos-collision pl-pos-render] (h/multiplex pl-pos 3)
|
||||
[pr-pos-in pr-pos-collision pr-pos-render] (h/multiplex pr-pos 3)
|
||||
[game-state-ticker game-state-render] (h/dup-chan game-state)]
|
||||
|
@ -148,7 +139,7 @@
|
|||
vel-collision vel)
|
||||
(paddle-positioner {83 :down 87 :up} max-y paddle-movement pl-pos-in pl-pos)
|
||||
(paddle-positioner {38 :up 40 :down} max-y paddle-movement pr-pos-in pr-pos)
|
||||
[game-state-render pos-render vel-render pl-pos-render pr-pos-render]))
|
||||
[game-state-render pos-render pl-pos-render pr-pos-render]))
|
||||
|
||||
(defn game-init [{:keys [height paddle-size] :as layout}
|
||||
{:keys [init-pos init-vel paddle-movement]} frames stop-frames]
|
||||
|
@ -170,7 +161,6 @@
|
|||
(defn ^:export init []
|
||||
(let [[frames stop-frames] (h/frame-chan)
|
||||
[frames-fps frames-count frames-game] (h/multiplex frames 3)
|
||||
|
||||
fps (h/map-chan #(/ 1000 %) (h/diff-chan frames-fps))
|
||||
frames-count (h/counting-chan frames-count)
|
||||
|
||||
|
|
Loading…
Reference in New Issue