NAT color component

2022-09-10 23:06:23 +00:00
parent 49734a071f
commit 10301cb4ae
4 changed files with 41 additions and 11 deletions
--- a/projects/nat-archive-tool/src/nat/Lib.kiss
+++ b/projects/nat-archive-tool/src/nat/Lib.kiss
@@ -149,6 +149,9 @@
            (doFor e2 entriesToRemove (conn.remove e2.id))))
    e)

+(function addColorRGBA [:nat.Archive archive :nat.Entry e :Float r :Float g :Float b :Float a]
+    (addComponent archive e Color (objectWith r g b a)))
+
 (function isEntry [o]
    (let [fields (Reflect.fields o)]
        (and (= fields.length 3)