     (if (empty? lowers)
       nil
       (reduce max (map (fn [node]
-			 ((position node) 1))
-		       lowers)))))
+                         ((position node) 1))
+                       lowers)))))
 
 (defn- height-of-upper-neighbors
   "Returns minimal height of all upper neighbors."

(defn- create-two-halfcircles
  "Creates points for two half circles, lower circle points first."
  [x y radius]
  (let [x (double x),
	y (double y),
	radius (double radius),
	samples 100,
	angle (/ Math/PI samples),
	[upper-points, lower-points] (loop [current-angle (double (- (/ Math/PI 2.0))),
					    acc-samples 0,
					    upper-points [],
					    lower-points []]
				       (if (> acc-samples samples)
					 [upper-points, lower-points]
					 (let [new-x (+ x (* radius (Math/sin current-angle))),
					       new-y (+ y (* radius (Math/cos current-angle)))]
					   (recur (double (+ current-angle angle))
						  (inc acc-samples)
						  (conj upper-points new-x new-y)
						  (conj lower-points new-x (+ y y (- new-y)))))))]
    [(into-array Double/TYPE lower-points), (into-array Double/TYPE upper-points)]))

(defvar default-node-radius 5.0


(ns conexp.contrib.draw.nodes-and-connections
  (:use [conexp.base :only (ns-doc,defvar-, defvar, round, union, difference)]
        conexp.contrib.draw.scenes)
  (:use [clojure.contrib.core :only (-?>)])
  (:import [java.awt Color]
           [no.geosoft.cc.graphics GWindow GScene GObject GSegment
                                   GStyle GInteraction ZoomInteraction
                                   GText GPosition]))

(ns-doc
 "Namespace for representing nodes and their connections for drawing
