Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-23 23:18:48 -05:00
Code Issues Activity

Make icon rotation behave in the same way as rect.

Browse source
This commit is contained in:
Andrey Antukh 2017-02-26 21:03:15 +01:00
parent 653e0b5669
commit 8e8f230504
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
1 changed files with 19 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
frontend/src/uxbox/main/ui/shapes/icon.cljs
View file

@ -30,19 +30,31 @@
;; --- Icon Shape
(defn- rotate
;; TODO: revisit, i'm not sure if this function is duplicated.
[mt {:keys [x1 y1 x2 y2 width height rotation] :as shape}]
(let [x-center (+ x1 (/ width 2))
y-center (+ y1 (/ height 2))
center (gpt/point x-center y-center)]
(gmt/rotate* mt rotation center)))
(mx/defc icon-shape
{:mixins [mx/static]}
[{:keys [id content metadata rotation x1 y1 modifiers] :as shape}]
(let [{:keys [width height]} (geom/size shape)
{:keys [resize displacement]} modifiers
view-box (apply str (interpose " " (:view-box metadata)))
(let [{:keys [resize displacement]} modifiers
xfmt (cond-> (gmt/matrix)
resize (gmt/multiply resize)
displacement (gmt/multiply displacement)
rotation (gmt/rotate* rotation (gpt/point (+ x1 (/ width 2))
(+ y1 (/ height 2)))))
resize (gmt/multiply resize))
{:keys [x1 y1 width height] :as shape} (-> (geom/transform shape xfmt)
(geom/size))
view-box (apply str (interpose " " (:view-box metadata)))
xfmt (cond-> (gmt/matrix)
(pos? rotation) (rotate shape))
props {:id (str id)
:x x1
:y y1