🐛 Fixed problems with lines selrect

This commit is contained in:
alonso.torres 2021-01-14 08:20:56 +01:00
parent a14686c9f3
commit ba7b2fd270
2 changed files with 67 additions and 41 deletions

View file

@ -120,9 +120,13 @@
extremities (mapcat calc-extremities
content
(d/concat [nil] content))]
(d/concat [nil] content))
(gpr/points->selrect extremities)))
selrect (gpr/points->selrect extremities)]
(-> selrect
(update :width #(if (mth/almost-zero? %) 1 %))
(update :height #(if (mth/almost-zero? %) 1 %)))))
(defn transform-content [content transform]
(let [set-tr (fn [params px py]