            [(keyword c)
             (mapv #(Double/parseDouble %)
                   (let [res (re-seq #"[+-]*[\d.]+" pts)]
-                    (prn res)
                     res))]))))
 
 (defn linerize-path-commands [path-commands]

    (let [locations
          (reduce
            (fn [res {:keys [attrs data]}]
              (prn attrs text)
              (assoc res (:id attrs)
                         {:coords [(Double/parseDouble (:cx attrs))
                                   (Double/parseDouble (:cy attrs))]

          rx (rand-int r)
          ry (rand-int r)]
      [(opx x rx) (opy y ry)])))


(defn gen-locations [{:keys [width height] :as chart}]
