       (let [stretch-space (- 1.0 stable-pref-total)
             _ (println "stretch-space" stretch-space)
             index-range (range 0 (count dir))
-            ws (map #(if (stretches? %) (do (println "sw" (:stch-weight %)) (* (:stch-weight %) stretch-space)) (sfn (:pref %))) dir)
+            ws (map #(if (stretches? %) (* (:stch-weight %) stretch-space) (sfn (:pref %))) dir)
             xs (map #(reduce + (take % ws)) index-range)]
            ;; y and h are here temporarily
            ;; instead of :x and :w there should be variables (params)

  (:import (java.util.regex Pattern)))


(def gap 0.125)

(def component-min-size (m/defpoint 0.375 0.375))


  (if-let [coord-map (get-property [] :coord-map)]
    (if-let [coord ((:id component) coord-map)]
      (let [ps (get-property [] :clip-size)]
        (m/translation (+ gap (* (:x coord) (m/x ps))) (+ gap (* (:y coord (m/y ps))))))
      old-position-matrix)
    old-position-matrix))

