github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-09-07 20:49:37 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add update-path-point function to geom ns.

Browse Source
This commit is contained in:
Andrey Antukh 2016-08-21 23:30:01 +03:00
parent 63f6de930d
commit a4f29d25e1
No known key found for this signature in database
GPG Key ID: 4DFEBCB8316A8B95
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/uxbox/main/geom.cljs
View File

@ -245,6 +245,16 @@
:bottom (assoc shape :ry (max 0 (+ (:ry shape) dy))) :bottom (assoc shape :ry (max 0 (+ (:ry shape) dy)))
:left (assoc shape :rx (max 0 (+ (:rx shape) dx)))))) :left (assoc shape :rx (max 0 (+ (:rx shape) dx))))))
;; --- Paths
(defn update-path-point
"Update a concrete point in the path.
The point should exists before, this function
does not adds it automatically."
[shape index point]
(assoc-in shape [:points index] point))
;; --- Resize (Absolute) ;; --- Resize (Absolute)
(declare resize-rect) (declare resize-rect)