(ns lv.demo)
(use 'lv.core)

(layout "grid" [vid0 ras1]
[ras2 ras3])
; (render)

; read from a USB camera.
(hsv :vid0 [c0]
(repeat-x 3) (repeat-y 2)
(hsv (+ c0.hsv (vec3 ks0 0 0)))
(v (* ks1 c0.s))
)

; mixer
(render 2)
(rgb :ras2 [vid0 ras3]
(mirror)
(rgb (min vid0.rgb ras3.rgb))
)

; color wheel
(hsv :ras3 []
(rot (* f 0.01))
(h (* 0.1 a))
(s 1)
(v (max 0 (- 0.9 (* 1.5 a r))))
)

#videoFeedback #Clojure