aboutsummaryrefslogtreecommitdiffstats
path: root/examples/glsl-view/video.alv
blob: 8b0fe70bf15644157f97b7afcee3a5c4208df600 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
([1]import* glsl-view math link-time)
([2]import osc random)

([4]def *oscout* ([3]osc/connect 'localhost' 9000)
        *clock* ([8]clock true 110))

([7]def  v3d ([6]video-source '3D' '/home/s-ol/drone.mkv')
         v2d ([9]stream-source '2D' '/home/s-ol/drone.mkv'))

([10]draw $[5]shader"
in vec2 uv;
out vec4 outcol;

uniform float tmpval;

void main() {
  vec3 nuv = vec3(uv, $([11]ramp 60));
  nuv.xy *= 2;
  nuv.z += dot(floor(nuv.xy), vec2(2, 1)) / 32;
  vec3 v3d = texture($v3d, nuv).rgb;

  vec3 v2d = texture($v2d, uv).rgb;

  vec3 color = mix(v3d, v2d, $([12]lfo 8));

  color *= $([16]fade 4 1);

  outcol = vec4(color, 1);
}")