   (:import (java.util.regex Pattern)))
 
 
-(def gap 0.125)
+(def gap 0.0625)
 
 (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/defpoint (* (:w coord) (m/x ps)) (* (:h coord (m/y ps)))))
      old-clip-size)
    old-clip-size))


  (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))

