trying to adapt compute; tag 0.5.7

WebGPU-Art · Nov 17, 2024 · f332b1a · f332b1a
1 parent bd2e66f
commit f332b1a
Show file tree

Hide file tree

Showing 4 changed files with 69 additions and 8 deletions.
diff --git a/calcit.cirru b/calcit.cirru
diff --git a/compact.cirru b/compact.cirru
@@ -1,6 +1,6 @@
 
 {} (:package |lagopus)
-  :configs $ {} (:init-fn |lagopus.main/main!) (:reload-fn |lagopus.main/reload!) (:version |0.5.5)
+  :configs $ {} (:init-fn |lagopus.main/main!) (:reload-fn |lagopus.main/reload!) (:version |0.5.7)
     :modules $ [] |memof/ |quaternion/
   :entries $ {}
   :files $ {}
@@ -122,6 +122,7 @@
                     &map:get options :get-params
                     js-array & $ either (&map:get options :textures) ([])
                     &map:get options :label
+                    &map:get options :compute-options
         |object-writer $ %{} :CodeEntry (:doc |)
           :code $ quote
             defn object-writer (options)
@@ -172,6 +173,9 @@
                         collect-array! indices collect!
                         , *arr
                     &map:get options :get-params
+                    js-array & $ either (&map:get options :textures) ([])
+                    &map:get options :label
+                    &map:get options :compute-options
         |wgsl-colors $ %{} :CodeEntry (:doc |)
           :code $ quote
             def wgsl-colors $ inline-shader "\"lagopus-colors"
@@ -786,6 +790,8 @@
                             &doseq (x p) (build-polyline-points *prev x write!)
                             build-polyline-points *prev p write!
                       chunk-writer! collect!
+                  :get-params $ &map:get options :get-params
+                  :compute-options $ &map:get options :compute-options
         |comp-polylines-marked $ %{} :CodeEntry (:doc |)
           :code $ quote
             defn comp-polylines-marked (options)
@@ -805,6 +811,7 @@
                             build-polyline-points-marked *prev p write!
                       chunk-writer! collect!
                   :get-params $ &map:get options :get-params
+                  :compute-options $ &map:get options :compute-options
         |count-hex $ %{} :CodeEntry (:doc |)
           :code $ quote
             defn count-hex (xs)

diff --git a/package.json b/package.json
@@ -1,9 +1,9 @@
 {
-  "version": "0.5.5",
+  "version": "0.5.7",
   "dependencies": {
     "@calcit/procs": "^0.9.6",
     "@calcit/std": "^0.0.3",
-    "@triadica/lagopus": "0.1.1",
+    "@triadica/lagopus": "0.1.3",
     "@triadica/touch-control": "^0.0.4-a1",
     "ismobilejs": "^1.1.1"
   },

diff --git a/yarn.lock b/yarn.lock