Improve Uint32 array generation from uuid

This commit is contained in:
Andrey Antukh 2024-11-15 19:09:27 +01:00
parent c21a48d13b
commit f509b0c1a7
6 changed files with 157 additions and 73 deletions

View file

@ -27,13 +27,13 @@
(defn create-shape
[id]
(let [buffer (uuid/uuid->u32 id)
(let [buffer (uuid/get-u32 id)
create-shape (unchecked-get internal-module "_create_shape")]
(^function create-shape (aget buffer 0) (aget buffer 1) (aget buffer 2) (aget buffer 3))))
(defn use-shape
[id]
(let [buffer (uuid/uuid->u32 id)
(let [buffer (uuid/get-u32 id)
use-shape (unchecked-get internal-module "_use_shape")]
(^function use-shape (aget buffer 0) (aget buffer 1) (aget buffer 2) (aget buffer 3))))
@ -68,7 +68,7 @@
add-shape-child (unchecked-get internal-module "_add_shape_child")]
(^function clear-shape-children)
(doseq [id shape_ids]
(let [buffer (uuid/uuid->u32 id)]
(let [buffer (uuid/get-u32 id)]
(^function add-shape-child (aget buffer 0) (aget buffer 1) (aget buffer 2) (aget buffer 3))))))
(defn set-shape-fills