 ;;;
 
 (defn- test-repulsive-force
-  ""
+  "Testing repulsive forces with a tiny example."
   [pos-w n_i]
   (let [layout [{:w pos-w, :w-1 [0 0], :w-2 [1 1]}
 		#{[:w-1 :w-2]}],

    [(repulsive-force layout n_i 0 {:order order}),
     (repulsive-force layout n_i 1 {:order order})]))

(require 'conexp)
(defn- make-test-lattice
  ""

	;; minimize layout energy with above placement as initial value
	[energy, neg-force] (energy-by-inf-irr-positions lattice inf-irrs),
	[new-points, value] (minimize energy
				      neg-force
				      (apply concat inf-irr-points)),

	;; make hash
