     {:x 180 :y 120 :text "Testing!!!"
      :color :white
      :alpha 0.7
-     :rotate 0.2
-     :scale 1.1
+     :rotate 20
+     :scale-x 1.1
      :fill true
      :stroke {:width 10 :cap :butt}
      :font {:name "Arial"

     :fill false
     :stroke {:width 10}
     :alpha 0.7}]
   ])



           w width h height]
    :as the-map}]
  (let [l (or l left) t (or t top) r (or r right) b (or b bottom)
        w (or (-? r l) (twice? (-? x l)) (twice? (-? r x)) w width)
        h (or (-? b t) (twice? (-? y t)) (twice? (-? b y)) h height)
        l (or l (-? r w) (-? x (half? w)))
        t (or t (-? b h) (-? y (half? h)))
        r (or r (+? l w) (+? x (half? w)))
        b (or b (+? t h) (+? y (half? h)))
        x (or x (+? l (half? w)))
        y (or y (+? t (half? h)))]
    (->> (merge the-map {:w w :h h :l l :t t :r r :b b :x x :y y})
         (filter second)
         (into {}))))
   
(defmulti make-obj (fn [obj-keyword params] obj-keyword))

