Updated OSC example

2019-07-26 13:09:54 +09:00 · 2019-07-26 13:09:54 +09:00 · b30b3eb2d8
commit b30b3eb2d8
parent bcd98907c9
1 changed files with 23 additions and 1 deletions
--- a/examples/events/on-osc.lisp
+++ b/examples/events/on-osc.lisp
@ -1 +1,23 @@
-(on "/a" (λ (msg) (debug msg)))
+;
+(def frame-rect 
+  (frame))
+(def disc 
+  (circle frame-rect:c frame-rect:m 200))
+;
+(defn on-animate 
+  () 
+  (
+    (clear) 
+    (fill disc "#72dec2") 
+    (set disc "r" 
+      (clamp 
+        (mul disc:r 0.95) 0 200))))
+;
+(defn on-osc 
+  (msg) 
+  (
+    (echo msg) 
+    (set disc "r" 200)))
+; triggers
+(on "animate" on-animate)
+(on "/a" on-osc)