commit
660180d6b8
@ -1,21 +0,0 @@
|
||||
; send OSC msg to port:49162, at "/a"
|
||||
(def disc
|
||||
(circle frame:c frame: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)
|
Loading…
x
Reference in New Issue
Block a user