Added some doc strings

Author: rexim

src/hyperspace/geometry.clj

@@ -54,6 +54,7 @@
       (+ radius1 radius2)))
 
 (defn circle-X-any-circle?
+  "Does the circle intersects any other circles?"
   [circle other-circles]
   (some #(circle-X-circle? % circle) other-circles))
 

src/hyperspace/gravity.clj

@@ -1,10 +1,11 @@
 (ns hyperspace.gravity
   (:use [hyperspace geometry]))
 
-(def gravity-constant 0.1;6.6725e-11
-  )
+(def gravity-constant 0.1)
 
 (defn gravity-acceleration
+  "Returns acceleration for the first object under gravity's impact of
+  the second one."
   [{position1 :position mass1 :mass}
    {position2 :position mass2 :mass}]
   (let [d (distance position1 position2)

src/hyperspace/misc.clj

@@ -1,11 +1,16 @@
 (ns hyperspace.misc)
 
 (defn rand-range
-  "Returns a random integer between low (inclusive) and high (inclusive)"
+  "Returns a random integer between low (inclusive) and
+  high (inclusive)"
   [low high]
-  (+ low (rand-int (+ 1 (- high low)))))
+  (-> (- high low)
+      (+ 1)
+      rand-int
+      (+ low)))
 
 (defn saturation
+  "Ensures that the value is not going out of bounds [low, high]"
   [value low high]
   (cond
     (< value low) low