 		   (- (second pos-u_i) (second pos-n_i))]
 	edge-rot [(- y_e), x_e],	; rotated edge from n_i to u_i
 
-	phi_n_i (double (phi pos-n_i pos-u_i)),
-	phi_0 (double (/ Math/PI (+ 1 (count inf-irrs))))]
+	phi_n_i (double (phi pos-n_i pos-u_i))]
     (cond
      (<= 0 phi_n_i phi_0)
      (* (nth edge-rot part)

    (* 2 (sum [[v_1 v_2] edges,
	       :when (and (order [v_1 n_i])
			  (not (order [v_2 n_i])))]
	      (- (nth (pos v_2) part) (nth (pos v_1) part))))))


;; Gravitative Energy and Force

			    inf-irr-points),

	;; 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
