🐛 Fix problem with hug and item margins

This commit is contained in:
alonso.torres 2022-12-13 16:46:34 +01:00
parent 029efefb62
commit 2fbd1d8078
2 changed files with 26 additions and 30 deletions

View file

@ -75,8 +75,8 @@
points [start-p
(-> start-p (gpt/add (xv line-width)))
(-> start-p (gpt/add (xv line-width)) (gpt/add (yv line-height)))
(-> start-p (gpt/add (yv line-height)))
]]
(-> start-p (gpt/add (yv line-height)))]]
[:g.layout-line {:key (dm/str "line-" idx)}
[:polygon {:points (->> points (map #(dm/fmt "%, %" (:x %) (:y %))) (str/join " "))
:style {:stroke "red" :stroke-width (/ 2 zoom) :stroke-dasharray (dm/str (/ 10 zoom) " " (/ 5 zoom))}}]]))]))))