Change the way the osc is handled

examples/orca.lisp

@@ -1 +0,0 @@
-(debug (of (osc "/a") :0 :value))

examples/osc.lisp

@@ -1,11 +1,13 @@
-(clear)
-(def x (of (osc "/test") "args" "0" "value"))
-(def y (of (osc "/test") "args" "1" "value"))
-(def r (of (osc "/test") "args" "2" "value"))
-
-(fill 
-(circle x y r)
-"red")
-(stroke 
-(circle x y r)
-5 "white")
+(defn on-msg 
+  (msg) 
+  (
+    (clear) 
+    (def msg-value 
+      (of 
+        (first msg) :value)) 
+    (stroke 
+      (circle 300 300 150) 2 
+      (if 
+        (eq msg-value 1) "#ffb545" "#72dec2" ))))
+; trigger
+(on "/a" on-msg)