From b30b3eb2d822d30b06460123f567e96ea83abffc Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Fri, 26 Jul 2019 13:09:54 +0900
Subject: [PATCH] Updated OSC example

---
 examples/events/on-osc.lisp | 24 +++++++++++++++++++++++-
 1 file changed, 23 insertions(+), 1 deletion(-)

diff --git a/examples/events/on-osc.lisp b/examples/events/on-osc.lisp
index 71293e3..6d8e9eb 100644
--- a/examples/events/on-osc.lisp
+++ b/examples/events/on-osc.lisp
@@ -1 +1,23 @@
-(on "/a" (λ (msg) (debug msg)))
\ No newline at end of file
+;
+(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)
\ No newline at end of file