From 932b69a2346d1fd4eba1839339a2879f50892de7 Mon Sep 17 00:00:00 2001
From: Abhinav Sarkar <abhinav.sarkar@gmail.com>
Date: Wed, 16 Oct 2013 00:32:26 +0530
Subject: [PATCH] fixed the max gravity

---
 resources/public/index.html | 4 ++--
 src/cljs/frpong/core.cljs   | 3 +--
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/resources/public/index.html b/resources/public/index.html
index 1148e16..1bbc440 100644
--- a/resources/public/index.html
+++ b/resources/public/index.html
@@ -61,7 +61,7 @@ body {
     <center>
         <div id="screen">
             <h2 id="title">Gravity Pong!</h2>
-            <div id="msg"></div>
+            <div id="msg">press &lt;space&gt; to start</div>
             <svg id="canvas">
                 <circle id="mass" />
                 <text id="score">0</text>
@@ -75,7 +75,7 @@ body {
                 </div>
                 use W-S and Up-Down keys to move the paddles / use Left-Right keys to change gravity
                 <div style="float: right">
-                    <a target="_blank" href="https://github.com/abhin4v/frpong">Source</a>
+                    <a target="_blank" href="http://github.com/abhin4v/frpong">github</a>
                 </div>
             </div>
         </div>
diff --git a/src/cljs/frpong/core.cljs b/src/cljs/frpong/core.cljs
index 339ae51..0a3461b 100644
--- a/src/cljs/frpong/core.cljs
+++ b/src/cljs/frpong/core.cljs
@@ -87,7 +87,7 @@
     (go-loop
       (let [k (:keyCode (<! keydowns))]
         (when (contains? actions k)
-          (do (swap! *gravity* #(max 0 (min 10 ((actions k) %))))
+          (do (swap! *gravity* #(max 0 (min 0.1 ((actions k) %))))
             (dom/set-attr! (dom/by-id "mass") "r" (mass-radius))))))))
 
 (defn layout-game
@@ -356,5 +356,4 @@
 (defn ^:export frpong []
   (setup-gravity-control)
   (layout-game)
-  (dom/set-text! (dom/by-id "msg") "press <space> to start")
   (start-on-space))