3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-07-04 15:27:17 +02:00
Code Issues Projects Releases Packages Wiki Activity

💄 Add minor cosmetic improvements to geom shape pixel precision code

Browse source
This commit is contained in:
Andrey Antukh 2023-06-20 11:41:10 +02:00
parent 0e513f950a
commit 4d3064ba6d
1 changed files with 19 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

15
common/src/app/common/geom/shapes/pixel_precision.cljc
View file

@ -8,6 +8,7 @@
(:require (:require
[app.common.data :as d] [app.common.data :as d]
[app.common.data.macros :as dm] [app.common.data.macros :as dm]
[app.common.geom.matrix :as gmt]
[app.common.geom.point :as gpt] [app.common.geom.point :as gpt]
[app.common.geom.rect :as grc] [app.common.geom.rect :as grc]
[app.common.geom.shapes.common :as gco] [app.common.geom.shapes.common :as gco]
@ -23,20 +24,24 @@
curr-width (gpo/width-points points) curr-width (gpo/width-points points)
curr-height (gpo/height-points points) curr-height (gpo/height-points points)
[_ transform transform-inverse] (gtr/calculate-geometry points) center (gco/points->center points)
selrect (gtr/calculate-selrect points center)
transform (gtr/calculate-transform points center selrect)
transform-inverse (when (some? transform) (gmt/inverse transform))
path? (cph/path-shape? shape) path? (cph/path-shape? shape)
vertical-line? (and path? (<= curr-width 0.01)) vertical-line? (and path? (<= curr-width 0.01))
horizontal-line? (and path? (<= curr-height 0.01)) horizontal-line? (and path? (<= curr-height 0.01))
target-width (if vertical-line? curr-width (max 1 (mth/round curr-width precision))) target-width (if vertical-line? curr-width (mth/max 1 (mth/round curr-width precision)))
target-height (if horizontal-line? curr-height (max 1 (mth/round curr-height precision))) target-height (if horizontal-line? curr-height (mth/max 1 (mth/round curr-height precision)))
ratio-width (/ target-width curr-width) ratio-width (/ target-width curr-width)
ratio-height (/ target-height curr-height) ratio-height (/ target-height curr-height)
scalev (gpt/point ratio-width ratio-height)] scalev (gpt/point ratio-width ratio-height)]
(-> modifiers
(ctm/resize scalev origin transform transform-inverse {:precise? true})))) (ctm/resize modifiers scalev origin transform transform-inverse {:precise? true})))
(defn position-pixel-precision (defn position-pixel-precision
[modifiers _ points precision ignore-axis] [modifiers _ points precision ignore-axis]