github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-09-18 09:56:15 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add align to text and circle resize.

Browse Source
This commit is contained in:
Andrey Antukh 2016-04-22 20:05:37 +03:00
parent f054233a9e
commit a63c9f7d33
No known key found for this signature in database
GPG Key ID: 4DFEBCB8316A8B95
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/uxbox/util/geom.cljs
View File

@ -141,12 +141,15 @@
;; --- Vertex Access ;; --- Vertex Access
(declare get-rect-vertext-point) (declare get-rect-vertext-point)
(declare get-circle-vertext-point)
(defn get-vertex-point (defn get-vertex-point
[shape id] [shape id]
(case (:type shape) (case (:type shape)
:icon (get-rect-vertext-point shape id) :icon (get-rect-vertext-point shape id)
:rect (get-rect-vertext-point shape id))) :rect (get-rect-vertext-point shape id)
:circle (get-circle-vertext-point shape id)
:text (get-rect-vertext-point shape id)))
(defn- get-rect-vertext-point (defn- get-rect-vertext-point
[{:keys [x1 y1 x2 y2]} id] [{:keys [x1 y1 x2 y2]} id]
@ -156,6 +159,10 @@
3 (gpt/point x1 y2) 3 (gpt/point x1 y2)
4 (gpt/point x2 y2))) 4 (gpt/point x2 y2)))
(defn- get-circle-vertext-point
[{:keys [rx ry]} id]
(gpt/point rx ry))
;; --- Vertex Movement (Relative) ;; --- Vertex Movement (Relative)
(declare move-rect-vertex) (declare move-rect-vertex)