kiss-lang/nat-archive-tool
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases Wiki Activity

Move savePosition() out of EntrySprite into PlaygroundSystem

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-02-15 05:47:26 -07:00
parent ad8fdd0fd0
commit 141953df42
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/nat/systems/PlaygroundSystem.kiss
View File

@@ -83,6 +83,12 @@
pos2 (dictGet (readComponent e2 Positions) _playgroundKey)] pos2 (dictGet (readComponent e2 Positions) _playgroundKey)]
(connectionProcessor archive e pos e2 pos2 ui)))))))) (connectionProcessor archive e pos e2 pos2 ui))))))))
(method savePosition [:Entry e :Float x :Float y &opt :Float z]
(withWritableComponents ui.controller.archive e [positions Positions]
(let [oldPos (dictGet positions _playgroundKey)]
(dictSet positions _playgroundKey
(objectWith [z (or z oldPos.z)] x y)))))
(method defaultPosition [:Entry e] (method defaultPosition [:Entry e]
(object x 0.0 y 0.0 z 0.0)) (object x 0.0 y 0.0 z 0.0))