mirror of
https://github.com/penpot/penpot.git
synced 2026-11-09 19:41:34 +00:00
9b9bc9412b
Updating a rotated copy also turns its main. A swapped descendant whose content and position sizes differ needs its placement settled in that new frame. Append the main-file placement changes to the inverse sync, keeping source-copy changes local and restoring both files in one undo group. Portable local/library regressions at 45 and 90 degrees fail eight assertions before the fix and pass all 20 after it. The original seed712 case4855 and its exact shrink pass, as does the 4855..5000 tail diagnostic. The diagnostic does not replace the full 5000-program swap gate. Common JVM1851/30684 and JS1782/29308, frontend1539/9312, backend1610/8104, exporter14/32 and all 68 plugin cases pass. Focused suites and unchanged goldens pass; lint and formatting pass. Live WASM at 45/90 degrees keeps placement stable through undo/redo and a later main edit. Maximum anchor error is below 0.00001px. Benchmark ratios against the recorded baseline: main 10/100/1000: 0.49/0.56/0.54; three levels: 0.49; chain: 0.49; library: 0.50; many shapes: 0.45; switch: 0.58. AI-assisted-by: GPT-6
395 lines
23 KiB
Clojure
395 lines
23 KiB
Clojure
;; This Source Code Form is subject to the terms of the Mozilla Public
|
|
;; License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
;;
|
|
;; Copyright (c) KALEIDOS SUBSIDIARY SL
|
|
|
|
(ns common-tests.logic.comp-expected-geometry-test
|
|
"A copy whose root (or another shape) keeps a geometry of its own, and the
|
|
children of that shape: a transform of the shape leaves them untouched,
|
|
and sync gives them their main's geometry placed against it, resized
|
|
through their constraints (decision (f) of the component contract)."
|
|
(:require
|
|
[app.common.files.changes-builder :as pcb]
|
|
[app.common.geom.matrix :as gmt]
|
|
[app.common.geom.modifiers :as gm]
|
|
[app.common.geom.point :as gpt]
|
|
[app.common.geom.shapes :as gsh]
|
|
[app.common.logic.libraries :as cll]
|
|
[app.common.logic.placement :as clp]
|
|
[app.common.logic.shapes :as cls]
|
|
[app.common.math :as mth]
|
|
[app.common.test-helpers.components :as thc]
|
|
[app.common.test-helpers.composable.comp.files :as cf]
|
|
[app.common.test-helpers.composable.comp.nodes :as n]
|
|
[app.common.test-helpers.composable.comp.runner :as r]
|
|
[app.common.test-helpers.composable.comp.setups :as setup]
|
|
[app.common.test-helpers.composable.core :as tm]
|
|
[app.common.test-helpers.compositions :as tho]
|
|
[app.common.test-helpers.files :as thf]
|
|
[app.common.test-helpers.ids-map :as thi]
|
|
[app.common.test-helpers.normalize :as thn]
|
|
[app.common.test-helpers.shapes :as ths]
|
|
[app.common.test-helpers.texts :as thtx]
|
|
[app.common.types.container :as ctn]
|
|
[app.common.types.modifiers :as ctm]
|
|
[clojure.test :as t]))
|
|
|
|
(t/use-fixtures :each thi/test-fixture)
|
|
|
|
(t/deftest updating-a-turned-copy-settles-swapped-placement-in-the-main
|
|
(doseq [remote? [false true]
|
|
angle [45 90]]
|
|
(let [file (-> (thf/sample-file :file)
|
|
(tho/add-simple-component :a :main-a :rect-a
|
|
:root-params {:width 100 :height 100})
|
|
(tho/add-simple-component :other :main-other :rect-other
|
|
:root-params {:width 100 :height 100})
|
|
(tho/add-frame :main-b {:width 200 :height 200})
|
|
(thc/instantiate-component :a :b-a :parent-label :main-b)
|
|
(thc/make-component :b :main-b)
|
|
(tho/add-frame :main-c {:width 300 :height 300})
|
|
(thc/instantiate-component :b :c-b :parent-label :main-c
|
|
:children-labels [:c-a])
|
|
(thc/make-component :c :main-c))
|
|
prepared (-> (tm/make-situation file)
|
|
(r/step (n/change-height :b-a 80)) r/settle
|
|
(r/step (n/swap-shape :c-a :other)) r/settle)
|
|
library (tm/file prepared)
|
|
initial (if remote?
|
|
(-> (tm/make-situation
|
|
(thc/instantiate-component (thf/sample-file :local) :c :copy-c
|
|
:library library :children-labels [:copy-b :copy-a]))
|
|
(tm/with-aux-files {(:id library) library}))
|
|
(tm/with-file prepared
|
|
(thc/instantiate-component library :c :copy-c
|
|
:children-labels [:copy-b :copy-a])))
|
|
before (-> initial (r/step (n/rotate :copy-c angle)) r/settle)
|
|
updated (-> before (r/step (n/update-main :copy-c)) r/settle)
|
|
main-file (if remote? (get (tm/aux-files updated) (:id library)) (tm/file updated))
|
|
head (ths/get-shape main-file :c-a)
|
|
full (:situation (cf/sync-world updated (keys (get-in main-file [:data :components]))))
|
|
full-main (if remote? (get (tm/aux-files full) (:id library)) (tm/file full))
|
|
full-head (ths/get-shape-by-id full-main (:id head))]
|
|
(t/is (mth/close? angle (:rotation head) 0.001))
|
|
(t/is (= #{:swap-group} (:touched head)))
|
|
(t/is (gsh/close-attrs? :points (:points full-head) (:points head) 0.001))
|
|
(t/is (gsh/close-attrs? :points
|
|
(:points (tm/resolve-shape full :copy-a))
|
|
(:points (tm/resolve-shape updated :copy-a)) 0.001))
|
|
(t/is (= (into {} (map (fn [[id f]] [id (thn/normalize-file f)])) (cf/all-files before))
|
|
(into {} (map (fn [[id f]] [id (thn/normalize-file f)]))
|
|
(cf/all-files (r/step updated (n/undo)))))))))
|
|
|
|
(t/deftest resetting-a-turned-copy-places-replacement-children-in-the-main-frame
|
|
(doseq [angle [45 90]]
|
|
(let [file (-> (thf/sample-file :file)
|
|
(tho/add-simple-component :a :main-a :rect-a
|
|
:root-params {:width 100 :height 100}
|
|
:child-params {:width 20 :height 20 :x 10 :y 10})
|
|
(tho/add-simple-component :other :main-other :rect-other
|
|
:root-params {:width 100 :height 100}
|
|
:child-params {:width 20 :height 20 :x 10 :y 10})
|
|
(tho/add-frame :main-b {:width 200 :height 200})
|
|
(thc/instantiate-component :a :b-a :parent-label :main-b)
|
|
(thc/make-component :b :main-b)
|
|
(thc/instantiate-component :b :copy-b :children-labels [:copy-a]))
|
|
turned (-> (tm/make-situation file)
|
|
(r/step (n/swap-shape :copy-a :other)) r/settle
|
|
(r/step (n/rotate :copy-b angle)) r/settle)
|
|
reset (-> turned (r/step (n/reset :copy-b)) r/settle)
|
|
head (tm/resolve-shape reset :copy-a)
|
|
child (tm/shape-by-id reset (first (:shapes head)))
|
|
expected (gsh/move (ths/get-shape file :rect-a)
|
|
(gpt/subtract (gsh/shape->center head)
|
|
(gsh/shape->center (ths/get-shape file :main-a))))
|
|
file (tm/file reset)
|
|
full (:file (r/sync-cascade file {} (keys (get-in file [:data :components]))))]
|
|
(t/is (mth/close? 0 (:rotation head) 0.001))
|
|
(t/is (mth/close? 0 (:rotation child) 0.001))
|
|
(t/is (empty? (:touched head)))
|
|
(t/is (empty? (:touched child)))
|
|
(t/is (gsh/close-attrs? :points (:points expected) (:points child) 0.001))
|
|
(t/is (gsh/close-attrs? :points (:points child)
|
|
(:points (ths/get-shape-by-id full (:id child))) 0.001))
|
|
(t/is (= (thn/normalize-file (tm/file turned))
|
|
(thn/normalize-file (tm/file (r/step reset (n/undo)))))))))
|
|
|
|
(t/deftest turning-a-parent-settles-a-swapped-head-with-a-different-position-size
|
|
(doseq [angle [45 90]]
|
|
(let [file (-> (thf/sample-file :file)
|
|
(tho/add-simple-component :a :main-a :rect-a
|
|
:root-params {:width 100 :height 100})
|
|
(tho/add-simple-component :other :main-other :rect-other
|
|
:root-params {:width 100 :height 100})
|
|
(tho/add-frame :main-b {:width 200 :height 200})
|
|
(thc/instantiate-component :a :b-a :parent-label :main-b)
|
|
(thc/make-component :b :main-b)
|
|
(tho/add-frame :main-c {:width 300 :height 300})
|
|
(thc/instantiate-component :b :c-b :parent-label :main-c)
|
|
(thc/make-component :c :main-c)
|
|
(thc/instantiate-component :c :copy-c :children-labels [:copy-b :copy-a]))
|
|
before (-> (tm/make-situation file)
|
|
(r/step (n/swap-shape :copy-a :other)) r/settle
|
|
(r/step (n/change-height :b-a 80)) r/settle)
|
|
turned (-> before (r/step (n/rotate :copy-c angle)) r/settle)
|
|
head (tm/resolve-shape turned :copy-a)
|
|
child (tm/shape-by-id turned (first (:shapes head)))
|
|
file (tm/file turned)
|
|
full (:file (r/sync-cascade file {} (keys (get-in file [:data :components]))))]
|
|
(t/is (mth/close? 100 (:height head) 0.001))
|
|
(t/is (= #{:swap-group} (:touched head)))
|
|
(t/is (empty? (:touched child)))
|
|
(t/is (gsh/close-attrs? :points (:points head)
|
|
(:points (ths/get-shape-by-id full (:id head))) 0.001))
|
|
(t/is (gsh/close-attrs? :points (:points child)
|
|
(:points (ths/get-shape-by-id full (:id child))) 0.001))
|
|
(t/is (= (thn/normalize-file (tm/file before))
|
|
(thn/normalize-file (tm/file (r/step turned (n/undo)))))))))
|
|
|
|
(t/deftest authored-child-geometry-follows-a-parent-rotation-received-through-sync
|
|
(doseq [swapped? [false true]
|
|
angle [45 135]
|
|
own-angle [0 10]]
|
|
(let [file (-> (thf/sample-file :file)
|
|
(tho/add-simple-component :a :main-a :rect-a
|
|
:root-params {:width 100 :height 100})
|
|
(tho/add-simple-component :other :main-other :rect-other
|
|
:root-params {:width 100 :height 100})
|
|
(tho/add-frame :main-b {:width 200 :height 200})
|
|
(thc/instantiate-component :a :b-a :parent-label :main-b)
|
|
(thc/make-component :b :main-b)
|
|
(tho/add-frame :main-c {:width 300 :height 300})
|
|
(thc/instantiate-component :b :c-b :parent-label :main-c)
|
|
(thc/make-component :c :main-c)
|
|
(thc/instantiate-component :c :copy-c :children-labels [:copy-b :copy-a]))
|
|
initial (tm/make-situation file)
|
|
initial (cond-> initial swapped? (r/step (n/swap-shape :copy-a :other)))
|
|
edited (-> initial r/settle (r/step (n/change-height :copy-a 80)) r/settle
|
|
(r/step (n/rotate :copy-a own-angle)) r/settle)
|
|
pending (r/step edited (n/rotate :c-b angle))
|
|
pending-file (tm/file pending)
|
|
bare-changes (cll/generate-sync-shape-direct
|
|
(pcb/empty-changes) pending-file {(:id pending-file) pending-file}
|
|
(ctn/make-container (thf/current-page pending-file) :page)
|
|
(thi/id :copy-c) false)
|
|
bare-file (thf/apply-changes pending-file bare-changes)
|
|
turned (r/settle pending)
|
|
parent (tm/resolve-shape turned :copy-b)
|
|
child (tm/resolve-shape turned :copy-a)
|
|
old-parent (tm/resolve-shape edited :copy-b)
|
|
old-child (tm/resolve-shape edited :copy-a)
|
|
expected (-> old-child
|
|
(gsh/transform-shape (ctm/rotation-modifiers old-child (gsh/shape->center old-parent) angle))
|
|
(gsh/move (gpt/subtract (gsh/shape->center parent) (gsh/shape->center old-parent))))
|
|
file (tm/file turned)
|
|
full (:file (r/sync-cascade file {} (keys (get-in file [:data :components]))))]
|
|
(t/is (mth/close? angle (:rotation parent) 0.001))
|
|
(t/is (mth/close? (+ angle own-angle) (:rotation child) 0.001))
|
|
(t/is (= (boolean (:flip-x parent)) (boolean (:flip-x child))))
|
|
(t/is (= (boolean (:flip-y parent)) (boolean (:flip-y child))))
|
|
(t/is (mth/close? 80 (:height child) 0.001))
|
|
(t/is (gsh/close-attrs? :points (:points expected) (:points child) 0.001))
|
|
(t/is (gsh/close-attrs? :points (:points expected)
|
|
(:points (ths/get-shape-by-id bare-file (:id child))) 0.001))
|
|
(t/is (mth/close? (+ angle own-angle) (:rotation (ths/get-shape-by-id bare-file (:id child))) 0.001))
|
|
(t/is (= (if swapped? #{:geometry-group :swap-group} #{:geometry-group}) (:touched child)))
|
|
(t/is (gsh/close-attrs? :points (:points child)
|
|
(:points (ths/get-shape-by-id full (:id child))) 0.001))
|
|
(t/is (= (thn/normalize-file (tm/file edited))
|
|
(thn/normalize-file (tm/file (r/step turned (n/undo)))))))))
|
|
|
|
(t/deftest a-nested-copy-keeps-its-detached-parents-orientation-on-sync
|
|
(let [detached (-> (setup/nested-component-with-copy)
|
|
(r/step (n/rotate :copy-root 90)) r/settle
|
|
(r/step (n/detach :copy-root)) r/settle)
|
|
head (tm/role-shape detached :copy-instance)
|
|
id (first (:shapes head))
|
|
before (tm/shape-by-id detached id)
|
|
synced (-> detached (r/step (n/change-property :main1-child :fills "#ff0000")) r/settle)
|
|
after (tm/shape-by-id synced id)]
|
|
(t/is (= "#ff0000" (-> after :fills first :fill-color)))
|
|
(t/is (gsh/close-attrs? :points (:points before) (:points after) 0.001))
|
|
(t/is (= (:rotation before) (:rotation after)))
|
|
(t/is (nil? (:touched after)))))
|
|
|
|
(defn- component-with-child
|
|
"A 100x100 main board with a 20x20 rect at (70, 10) of it, constrained
|
|
`constraints-h`, and a copy of it at (300, 0)."
|
|
[constraints-h]
|
|
(-> (thf/sample-file :file1)
|
|
(tho/add-frame :main-root {:x 0 :y 0 :width 100 :height 100})
|
|
(tho/add-rect :main-child {:parent-label :main-root :x 70 :y 10 :width 20 :height 20
|
|
:constraints-h constraints-h :constraints-v :top})
|
|
(thc/make-component :component1 :main-root)
|
|
(thc/instantiate-component :component1 :copy-root :children-labels [:copy-child])))
|
|
|
|
(defn- resize
|
|
"Resize the shape `label` to `width` x `height`, as the editor does: the
|
|
modifiers propagate to its children through their constraints, and the
|
|
placement step decides what the transform touches. With `scale-content`,
|
|
strokes, radii and the like scale by it too."
|
|
[file label width height & {:keys [scale-content]}]
|
|
(let [page (thf/current-page file)
|
|
objects (:objects page)
|
|
shape (ths/get-shape file label)
|
|
modifiers (cond-> (ctm/change-size shape width height)
|
|
(some? scale-content) (ctm/scale-content scale-content))
|
|
modif-tree (gm/set-objects-modifiers {(:id shape) {:modifiers modifiers}}
|
|
objects)
|
|
ids (keys modif-tree)
|
|
changes (cls/generate-update-shapes (pcb/empty-changes nil (:id page))
|
|
ids
|
|
(clp/modifiers-transform modif-tree)
|
|
objects
|
|
{:ignore-tree (clp/calculate-ignore-tree objects ids
|
|
(clp/modifiers-transform modif-tree)
|
|
#{(:id shape)})
|
|
:attrs clp/transform-attrs})]
|
|
(thf/apply-changes file changes)))
|
|
|
|
(defn- edit-and-sync
|
|
"Change the fill of the main child and sync the copy."
|
|
[file]
|
|
(let [page (thf/current-page file)
|
|
changes (cls/generate-update-shapes (pcb/empty-changes nil (:id page))
|
|
#{(thi/id :main-child)}
|
|
#(assoc % :fills (ths/sample-fills-color :fill-color "#ff0000"))
|
|
(:objects page)
|
|
{})
|
|
file (thf/apply-changes file changes)]
|
|
(thf/apply-changes file (cll/generate-sync-file-changes (pcb/empty-changes) nil :components (:id file)
|
|
(thi/id :component1) (:id file)
|
|
{(:id file) file} (:id file)))))
|
|
|
|
(defn- child-box
|
|
"The position of the copy child relative to its root, and its size."
|
|
[file]
|
|
(let [root (ths/get-shape file :copy-root)
|
|
child (ths/get-shape file :copy-child)]
|
|
(mapv #(mth/round (double %))
|
|
[(- (-> child :selrect :x) (-> root :selrect :x))
|
|
(- (-> child :selrect :y) (-> root :selrect :y))
|
|
(-> child :selrect :width)
|
|
(-> child :selrect :height)])))
|
|
|
|
(t/deftest a-resized-copy-root-keeps-its-children-placed-through-their-constraints
|
|
(doseq [[constraints-h box] [[:left [70 10 20 20]]
|
|
[:right [170 10 20 20]]
|
|
[:center [120 10 20 20]]
|
|
[:scale [140 10 40 20]]
|
|
[:leftright [70 10 120 20]]]]
|
|
(t/testing (name constraints-h)
|
|
(let [resized (resize (component-with-child constraints-h) :copy-root 200 100)
|
|
synced (edit-and-sync resized)]
|
|
(t/is (= box (child-box resized)) "the resize places the child")
|
|
(t/is (contains? (:touched (ths/get-shape resized :copy-root)) :geometry-group))
|
|
(t/is (nil? (:touched (ths/get-shape resized :copy-child))) "the child is not touched")
|
|
(t/is (= box (child-box synced)) "the sync keeps it there")
|
|
(t/is (= "#ff0000" (-> (ths/get-shape synced :copy-child) :fills first :fill-color)))))))
|
|
|
|
(t/deftest a-copy-root-resized-with-its-content-touches-only-the-root
|
|
(let [file (-> (component-with-child :scale)
|
|
(ths/update-shape :main-child :strokes [{:stroke-color "#000000" :stroke-opacity 1
|
|
:stroke-width 2 :stroke-alignment :center
|
|
:stroke-style :solid}])
|
|
(thc/instantiate-component :component1 :copy2-root :children-labels [:copy2-child]))
|
|
resized (resize file :copy2-root 200 200 :scale-content 2)
|
|
child (ths/get-shape resized :copy2-child)
|
|
synced (edit-and-sync resized)]
|
|
(t/is (mth/close? 4 (-> child :strokes first :stroke-width)))
|
|
(t/is (nil? (:touched child)))
|
|
(t/is (mth/close? 4 (-> (ths/get-shape synced :copy2-child) :strokes first :stroke-width)))
|
|
(t/is (nil? (:touched (ths/get-shape synced :copy2-child))))))
|
|
|
|
(t/deftest content-scale-survives-repeated-sync-and-reset-undo
|
|
(let [file (-> (component-with-child :scale)
|
|
(ths/update-shape :main-child :r1 5)
|
|
(thc/instantiate-component :component1 :copy2-root :children-labels [:copy2-child]))
|
|
scaled (-> file
|
|
(resize :copy2-root 200 200 :scale-content 2)
|
|
(resize :copy2-root 300 300 :scale-content 1.5))
|
|
synced (edit-and-sync scaled)
|
|
changed (-> synced
|
|
(ths/update-shape :main-child :r1 7)
|
|
(edit-and-sync))
|
|
reset-changes (cll/generate-reset-component
|
|
(pcb/empty-changes) changed {(:id changed) changed}
|
|
(ctn/make-container (thf/current-page changed) :page) (thi/id :copy2-root))
|
|
reset (thf/apply-changes changed reset-changes)
|
|
undone (thf/apply-changes reset {:redo-changes (:undo-changes reset-changes)})]
|
|
(t/is (mth/close? 3 (:content-scale (ths/get-shape changed :copy2-root))))
|
|
(t/is (mth/close? 21 (:r1 (ths/get-shape changed :copy2-child))))
|
|
(t/is (nil? (:touched (ths/get-shape changed :copy2-child))))
|
|
(t/is (mth/close? 7 (:r1 (ths/get-shape reset :copy2-child))))
|
|
(t/is (nil? (:content-scale (ths/get-shape reset :copy2-root))))
|
|
(t/is (= (thn/normalize-file changed) (thn/normalize-file undone)))))
|
|
|
|
|
|
(t/deftest rotating-a-copy-with-text-in-a-detached-child-is-already-synced
|
|
(doseq [angle [45 135 225]]
|
|
(let [setup (fn []
|
|
(tm/make-situation
|
|
(-> (thf/sample-file :file1)
|
|
(thtx/add-text-component-with-copy [[["Hello world"]]])
|
|
(ths/update-shape :main-child :grow-type :auto-height)
|
|
(ths/update-shape :copy-child :grow-type :auto-height)
|
|
(ths/update-shape :copy-child :touched nil)
|
|
(tho/add-simple-component :outer :outer-root :outer-child
|
|
:root-params {:width 100 :height 100})
|
|
(thc/instantiate-component :outer :outer-copy))))
|
|
situation (r/run-variant
|
|
{:setup setup
|
|
:operation (tm/in-sequence [(n/nest-copy :copy-root :outer-root)
|
|
(n/detach :copy-root)
|
|
(n/rotate :outer-copy angle)])})
|
|
file (tm/file situation)
|
|
text (first (filter #(= (thi/id :copy-child) (:shape-ref %))
|
|
(vals (:objects (thf/current-page file)))))
|
|
full (:file (r/sync-cascade file {} (keys (get-in file [:data :components]))))
|
|
synced (ths/get-shape-by-id full (:id text))]
|
|
(t/is (some? text))
|
|
(t/is (gmt/close? (:transform text) (:transform synced)))
|
|
(t/is (gsh/close-attrs? :points (:points text) (:points synced) 0.01))
|
|
(t/is (mth/close? (:x text) (:x synced) 0.01))
|
|
(t/is (mth/close? (:y text) (:y synced) 0.01)))))
|
|
|
|
(t/deftest nesting-a-copy-settles-its-derived-orientation-before-its-new-main
|
|
(let [initial (-> (setup/nested-component-with-copy)
|
|
(r/step (n/rotate :main2-root 45)) r/settle
|
|
(r/step (n/detach :copy-root)) r/settle
|
|
(as-> s (tm/apply-to (n/create-component "destination" setup/labeled-fill :size 100) s)))
|
|
moved (-> initial
|
|
(r/step (n/nest-copy :copy-instance (n/main-head-of "destination"))) r/settle)
|
|
file (tm/file moved)
|
|
full (:file (r/sync-cascade file {} (keys (get-in file [:data :components]))))]
|
|
(t/is (= (thn/normalize-file file) (thn/normalize-file full)))))
|
|
|
|
(t/deftest full-sync-keeps-child-flips-after-several-small-root-rotations
|
|
(let [situation (-> (setup/nested-component-with-copy)
|
|
(r/step (n/rotate :copy-root 45)) r/settle
|
|
(r/step (n/rotate :copy-root 45)) r/settle
|
|
(r/step (n/rotate :copy-root 45)) r/settle)
|
|
file (tm/file situation)
|
|
head (tm/role-shape situation :copy-instance)
|
|
child (tm/shape-by-id situation (first (:shapes head)))
|
|
synced (:file (r/sync-cascade file {} (keys (get-in file [:data :components]))))
|
|
after (get-in (thf/current-page synced) [:objects (:id child)])]
|
|
(t/is (= (select-keys child [:flip-x :flip-y]) (select-keys after [:flip-x :flip-y])))
|
|
(t/is (gsh/close-attrs? :points (:points child) (:points after) 0.001))))
|
|
|
|
(t/deftest update-main-keeps-child-flips-when-syncing-through-a-rotated-parent
|
|
(let [updated (-> (setup/nested-component-with-copy)
|
|
(r/step (n/rotate :copy-root 45)) r/settle
|
|
(r/step (n/rotate :copy-root 90)) r/settle
|
|
(r/step (n/update-main :copy-root)) r/settle)
|
|
file (tm/file updated)
|
|
main (tm/resolve-shape updated :main2-nested-head)
|
|
child (tm/shape-by-id updated (first (:shapes main)))
|
|
synced (:file (r/sync-cascade file {} (keys (get-in file [:data :components]))))]
|
|
(doseq [shape [main child]]
|
|
(let [after (ths/get-shape-by-id synced (:id shape))
|
|
flips (fn [shape] (mapv #(boolean (get shape %)) [:flip-x :flip-y]))]
|
|
(t/is (= (flips shape) (flips after)))
|
|
(t/is (gsh/close-attrs? :points (:points shape) (:points after) 0.001))))))
|