Optimize point functions

This commit is contained in:
Andrey Antukh 2022-11-20 20:05:15 +01:00 committed by alonso.torres
parent c28534555b
commit fc4e755f2b
8 changed files with 589 additions and 155 deletions

View file

@ -297,8 +297,8 @@
(mapv (fn [[value points]]
[(- value pval)
(->> points (mapv #(vector point %)))])))))]
{:x (query-coord point :x)
:y (query-coord point :y)}))
(gpt/point (query-coord point :x)
(query-coord point :y))))
(defn merge-matches
([] {:x nil :y nil})