Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-26 08:45:34 -05:00
Code Issues Activity

Minor code cleaning on assisted path drawing code.

Browse source
This commit is contained in:
Andrey Antukh 2016-08-24 17:10:46 +03:00
parent 547faa16a9
commit e95c1c76c0
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
1 changed files with 15 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
src/uxbox/main/ui/workspace/drawarea.cljs
View file

@ -176,18 +176,24 @@
(swap! counter inc)
(reset! drawing-shape shape)))
(on-draw [[point ctrl?]]
(if ctrl?
(let [center (get-in @drawing-shape [:points (dec @counter)])
point (as-> point $
(gpt/subtract $ center)
(align-position (gpt/angle $) $)
(gpt/add $ center))]
(->> (update-point @drawing-shape point @counter)
(reset! drawing-shape)))
(on-assisted-draw [point]
(let [center (get-in @drawing-shape [:points (dec @counter)])
point (as-> point $
(gpt/subtract $ center)
(align-position (gpt/angle $) $)
(gpt/add $ center))]
(->> (update-point @drawing-shape point @counter)
(reset! drawing-shape))))
(on-free-draw [point]
(->> (update-point @drawing-shape point @counter)
(reset! drawing-shape)))
(on-draw [[point ctrl?]]
(if ctrl?
(on-assisted-draw point)
(on-free-draw point)))
(on-end []
(let [shape (normalize-shape @drawing-shape)]
(rs/emit! (uds/add-shape shape)