Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-09 00:28:20 -05:00
Code Issues Activity

Add image shape impl for geom functions.

Browse source
This commit is contained in:
Andrey Antukh 2016-10-24 22:15:38 +02:00
parent 13c20acaa6
commit 8e27e19e41
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
1 changed files with 26 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
src/uxbox/main/geom.cljs
View file

@ -38,6 +38,7 @@
[shape dpoint]
(case (:type shape)
:icon (move-rect shape dpoint)
:image (move-rect shape dpoint)
:rect (move-rect shape dpoint)
:text (move-rect shape dpoint)
:path (move-path shape dpoint)
@ -166,6 +167,7 @@
[shape id]
(case (:type shape)
:icon (get-rect-vertext-point shape id)
:image (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)))
@ -200,6 +202,7 @@
:rect (move-rect-vertex shape vid dpoint)
:text (move-rect-vertex shape vid dpoint)
:icon (move-rect-vertex shape vid dpoint)
:image (move-rect-vertex shape vid dpoint)
:path (move-rect-vertex shape vid dpoint)
:circle (move-circle-vertex shape vid dpoint)))
@ -279,6 +282,7 @@
;; --- Setup Proportions
(declare setup-proportions-rect)
(declare setup-proportions-image)
;; FIXME: improve proportions setup for icons.
@ -288,8 +292,15 @@
:rect (setup-proportions-rect shape)
:icon (setup-proportions-rect shape)
:circle (setup-proportions-rect shape)
:image (setup-proportions-image shape)
shape))
(defn setup-proportions-image
[{:keys [metadata] :as shape}]
(println "setup-proportions-image" shape)
(let [{:keys [width height]} metadata]
(assoc shape :proportion (/ width height))))
(defn setup-proportions-rect
[shape]
(let [{:keys [width height]} (size shape)]
@ -355,6 +366,7 @@
(case (:type shape)
:rect (resize-rect shape point)
:icon (resize-rect shape point)
:image (resize-rect shape point)
:text (resize-rect shape point)
:path (resize-rect shape point)
:circle (resize-circle shape point)))
@ -414,6 +426,7 @@
;; --- Setup (Initialize)
(declare setup-rect)
(declare setup-image)
(declare setup-circle)
(declare setup-group)
@ -424,6 +437,7 @@
(case (:type shape)
:rect (setup-rect shape props)
:icon (setup-rect shape props)
:image (setup-image shape props)
:text (setup-rect shape props)
:circle (setup-circle shape props)
:group (setup-group shape props)))
@ -451,6 +465,17 @@
:rx (mth/abs (- x2 x1))
:ry (mth/abs (- y2 y1))))
(defn- setup-image
[{:keys [view-box] :as shape} {:keys [x1 y1 x2 y2] :as props}]
(let [[_ _ width height] view-box]
(assoc shape
:x1 x1
:y1 y1
:x2 x2
:y2 y2
:proportion (/ width height)
:proportion-lock true)))
;; --- Inner Rect
(declare apply-rotation-transformation)
@ -531,6 +556,7 @@
:rect (generic-outer-rect state shape)
:text (generic-outer-rect state shape)
:icon (generic-outer-rect state shape)
:image (generic-outer-rect state shape)
;; :path (generic-outer-rect state shape)
:path (path-outer-rect state shape)
:circle (circle-outer-rect state shape)