0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-15 03:28:25 -05:00

Use get-prop for access transform and rect props

This commit is contained in:
Andrey Antukh 2024-11-19 11:54:58 +01:00
parent 5420e0e06d
commit db2eb2c420

View file

@ -39,21 +39,21 @@
(defn set-shape-selrect (defn set-shape-selrect
[selrect] [selrect]
(let [x1 (:x1 selrect) (let [x1 (dm/get-prop selrect :x1)
y1 (:y1 selrect) y1 (dm/get-prop selrect :y1)
x2 (:x2 selrect) x2 (dm/get-prop selrect :x2)
y2 (:y2 selrect) y2 (dm/get-prop selrect :y2)
set-shape-selrect (unchecked-get internal-module "_set_shape_selrect")] set-shape-selrect (unchecked-get internal-module "_set_shape_selrect")]
(^function set-shape-selrect x1 y1 x2 y2))) (^function set-shape-selrect x1 y1 x2 y2)))
(defn set-shape-transform (defn set-shape-transform
[transform] [transform]
(let [a (:a transform) (let [a (dm/get-prop transform :a)
b (:b transform) b (dm/get-prop transform :b)
c (:c transform) c (dm/get-prop transform :c)
d (:d transform) d (dm/get-prop transform :d)
e (:e transform) e (dm/get-prop transform :e)
f (:f transform) f (dm/get-prop transform :f)
set-shape-transform (unchecked-get internal-module "_set_shape_transform")] set-shape-transform (unchecked-get internal-module "_set_shape_transform")]
(^function set-shape-transform a b c d e f))) (^function set-shape-transform a b c d e f)))