aboutsummaryrefslogtreecommitdiffstats
path: root/examples/glsl-view/stream-controls.alv
blob: 5fd5a03984520894c321eab0137936dc33568444 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
([1]import* glsl-view link-time)
([2]import osc)

([3]def
  *clock* ([4]clock false 120)
  *oscout* ([5]osc/connect 'localhost' 9000))

([6]def
  paused? ([7]switch ([8]every 2) true false)
  cam ([9]doto ([10]stream-source 'webcam' '2D' '/dev/video0')
    ([11]freeze paused?)
    ([12]step! ([13]every 0.5))))

([14]draw $[15]shader"
in vec2 uv;
out vec4 color;

void main() {
  color = texture($cam , uv);
  color.rgb = mix(color.rgb, color.rrr, $paused? ? 1 : 0);
}")