builtins: add doto macro

1 files changed, 21 insertions, 0 deletions

diff --git a/examples/glsl-view/stream-controls.alv b/examples/glsl-view/stream-controls.alv
new file mode 100644
index 0000000..fb37c31
--- /dev/null
+++ b/examples/glsl-view/stream-controls.alv
@@ -0,0 +1,21 @@
+([1]import* glsl-view link-time)
+([2]import osc)
+
+([3]def 
+  *clock* ([8]clock false 120)
+  *oscout* ([5]osc/connect 'localhost' 9000))
+
+([6]def 
+  paused? ([12]switch ([13]every 2) true false)
+  cam ([16]doto ([7]stream-source 'webcam' '2D' '/dev/video0')
+    ([11]freeze paused?)
+    ([14]step! ([15]every 0.5))))
+
+([9]draw $[10]shader"
+in vec2 uv;
+out vec4 color;
+
+void main() {
+  color = texture($cam , uv);
+  color.rgb = mix(color.rgb, color.rrr, $paused? ? 1 : 0);
+}")