<ForNeVeR> (def normilize 'xD)

Author: rexim

src/hyperspace/game.clj

@@ -41,12 +41,12 @@
   (let [{position               :position
          [_, power :as heading] :heading} player
          missile-position (-> (polar->cartesian heading)
-                              normilize-vector
+                              normalize-vector
                               (multiply-by-scalar (+ player-radius
                                                      missile-radius))
                               (vector-sum position))
          missile-velocity (-> (polar->cartesian heading)
-                              normilize-vector
+                              normalize-vector
                               (multiply-by-scalar (* power 100)))]
     (add-missile world
                  missile-position
@@ -91,7 +91,7 @@
              planet-radius     :radius} planet
 
              fragments-position (-> (vector-subtract particle-position planet-position)
-                                    normilize-vector
+                                    normalize-vector
                                     (multiply-by-scalar (+ particle-radius planet-radius 5))
                                     (vector-sum planet-position))]
         (repeatedly 5

src/hyperspace/geometry.clj

@@ -2,15 +2,13 @@
 
 (def
   ^{:arglists '([vtr & vtrs])
-    :doc "Returns the sum of vectors. The result vector has a minimum
-  possible dimension."}
+    :doc "Returns the sum of vectors."}
   vector-sum (partial mapv +))
 
 (def
   ^{:arglists '([vtr & vtrs])
-    :doc "If no vtrs are supplied, returns the negation of vtr, else
-  subtracts the vtrs from vtr and returns the result. The result
-  vector has a minimum possible dimension."}
+    :doc "If  vtrs are supplied, returns the negation of vtr, else
+  subtracts the vtrs from vtr and returns the result."}
   vector-subtract
   (partial mapv -))
 
@@ -36,8 +34,8 @@
   [vtr]
   (Math/sqrt (reduce #(+ %1 (* %2 %2)) 0.0 vtr)))
 
-(defn normilize-vector
-  "Normilizes vector, that is returns a vector with the same
+(defn normalize-vector
+  "Normalizes vector, that is returns a vector with the same
   direction, but with the length equal 1."
   [vtr]
   (let [length (vector-length vtr)]

src/hyperspace/gravity.clj

@@ -13,5 +13,5 @@
                  (* d d))
         acceleration (/ force mass1)]
     (-> (vector-subtract position2 position1)
-        normilize-vector
+        normalize-vector
         (multiply-by-scalar acceleration))))

test/hyperspace/test/geometry.clj

@@ -20,6 +20,12 @@
        (multiply-by-scalar [0.2, 0.5] 3) => (just [(almost= 0.6),
                                                    (almost= 1.5)]))
 
+;; (facts "about polar->cartesian function"
+;;        )
+
+;; (facts "about cartesia->polar function"
+;;        )
+
 (facts "about vector-length function"
        (vector-length [10, 10]) => (almost= 14.142135623730951)
        (vector-length [1.23, 10.32]) => (almost= 10.393040940937354))
@@ -37,4 +43,20 @@
 
 (facts "about distance function"
        (distance [0, 0] [10, 10]) => (almost= (vector-length [10, 10]))
-       (distance [34, 12] [-24, 42]) => (almost= 65.29931086925804))
+       (distance [34, 12] [-24, 42]) => (almost= 65.29931086925804))
+
+;; (facts "about circle-X-circle? function"
+;;        (circle-X-circle? {:position [0, 0],     :radius 10}
+;;                          {:position [100, 100], :radius 10})
+;;        => false
+
+;;        (circle-X-circle? {:position [34, 32], :radius 20}
+;;                          {:position []})
+;;        => true
+;;        )
+
+;; (facts "about circle-X-any-circle? function"
+;;        )
+
+;; (facts "about circle-X-rectangle? fucntion"
+;;        )