varied screen parameters (without success)

Notebook.org

@@ -364,3 +364,36 @@ state
 
 (process-file! state "test/resources/test1.ev")
   #+end_src
+
+* 2024-12-25
+
+- testez tot sistemul:
+  #+begin_src clojure
+(go)
+
+(keys (system))
+;; => (:duct.logger.timbre/println
+;;     [:duct/logger :duct.logger/timbre]
+;;     :mirror.renderer/screen
+;;     :mirror.tracer/file
+;;     :mirror/main)
+
+(require '[duct.logger :refer [log]]
+         '[mirror.tracer.file :refer [trace!]]
+         '[mirror.renderer.screen :as scr])
+
+
+(def tracer (:mirror.tracer/file (system)))
+
+(trace! tracer "test/resources/test2.ev")
+
+(def renderer (:mirror.renderer/screen (system)))
+
+(def state (:state renderer))
+state
+
+(trace! tracer "test/resources/test4.ev")
+
+(halt)
+
+  #+end_src

src/mirror/renderer/screen.clj

@@ -19,6 +19,7 @@
 (def scale-value 20.0)
 (def background 255)
 (def color 0)
+(def line-weight 3)
 
 
 (def colors
@@ -80,8 +81,8 @@
 (defn setup
   []
   (q/frame-rate 6) ; draw will be called 60 times per second
-  (q/background 255)
-  (q/stroke-weight 1)
+  (q/background background)
+  (q/stroke-weight line-weight)
   (q/smooth))
 
 
@@ -151,3 +152,29 @@
     (stm/close! stream)
     (.exit ^PApplet skatch)
     (log logger :info ::halt)))
+
+
+(comment
+
+  (user/go)
+
+  (keys (user/system))
+  ;; => (:duct.logger.timbre/println
+  ;;     [:duct/logger :duct.logger/timbre]
+  ;;     :mirror.renderer/screen
+  ;;     :mirror.tracer/file
+  ;;     :mirror/main)
+
+  (require '[mirror.tracer.file :as ftr])
+
+  (def main (:mirror/main (user/system)))
+
+  (def tracer (:tracer main))
+
+  (ftr/trace! tracer "test/resources/test1.ev")
+
+  (def renderer (:renderer main))
+
+
+  ;;
+  )

src/mirror/system.clj

@@ -13,11 +13,41 @@
 
 (defn config
   [profile]
-  (aero/read-config (io/resource "mirror/config.edn") {:profile profile}))
+  (aero/read-config (io/resource "config.edn") {:profile profile}))
 
 
 (defn prep
   [profile]
   (let [conf (config profile)]
     (ig/load-namespaces conf)
-    config))
+    conf))
+
+
+(comment
+
+  (config :dev)
+  ;; => {:mirror/main
+  ;;     {:tracer {:key :mirror/tracer},
+  ;;      :renderer {:key :mirror/renderer},
+  ;;      :logger {:key :duct/logger}},
+  ;;     :mirror.tracer/file {:logger {:key :duct/logger}},
+  ;;     :mirror.renderer/screen {:logger {:key :duct/logger}},
+  ;;     [:duct/logger :duct.logger/timbre]
+  ;;     {:level :debug,
+  ;;      :appenders {:println {:key :duct.logger.timbre/println}}},
+  ;;     :duct.logger.timbre/println {}}
+
+  (prep :dev)
+  ;; => {:mirror/main
+  ;;     {:tracer {:key :mirror/tracer},
+  ;;      :renderer {:key :mirror/renderer},
+  ;;      :logger {:key :duct/logger}},
+  ;;     :mirror.tracer/file {:logger {:key :duct/logger}},
+  ;;     :mirror.renderer/screen {:logger {:key :duct/logger}},
+  ;;     [:duct/logger :duct.logger/timbre]
+  ;;     {:level :debug,
+  ;;      :appenders {:println {:key :duct.logger.timbre/println}}},
+  ;;     :duct.logger.timbre/println {}}
+
+  ;;
+  )

test/resources/test2.ev

@@ -1,4 +1,4 @@
-[{:pen 1, :x 17699, :y 3161}
+{:pen 1, :x 17699, :y 3161}
 {:x 17700}
 {:y 3160}
 {:x 17701, :y 3159}
@@ -20138,5 +20138,4 @@
 {:x 4214, :y 6297}
 {:x 4213, :y 6289}
 {:y 6281}
-{:pen 0}
-]
+{:pen 0}

test/resources/test3.ev

@@ -1,4 +1,4 @@
-[{:pen 1, :x 17791, :y 3212}
+{:pen 1, :x 17791, :y 3212}
 {:x 17536}
 {:x 17537, :y 3210}
 {:x 17538, :y 3209}
@@ -15196,5 +15196,4 @@
 {:y 8044}
 {:y 8042}
 {:x 6489, :y 8039}
-{:pen 0}
-]
+{:pen 0}

test/resources/test4.ev

@@ -1,4 +1,4 @@
-[{:pen 1, :x 17884, :y 2923}
+{:pen 1, :x 17884, :y 2923}
 {:x 17885}
 {:x 17886, :y 2922}
 {:x 17887, :y 2920}
@@ -17931,4 +17931,3 @@
 {:x 3951, :y 3372}
 {:x 3954, :y 3375}
 {:pen 0}
-]