radiance 0.7.1

Video art software designed for live performance
Documentation 
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
30
31
32
33
34

#property description Introduce a delay (and reduce resolution.)
// More of a tech demo than actuall useful

const SZ: f32 = 6.;    // Delay of SZ*SZ frames (36)
fn main(uv: vec2<f32>) -> vec4<f32> {
    let original = textureSample(iInputsTex[0], iSampler, uv);
    let shift = floor(iResolution / SZ) / iResolution;
    let uvNew = uv * shift;
    let uvNew2 = mix(uvNew, uv, smoothstep(0.8, 0.9, iIntensity));
    let delayed = textureSample(iChannelsTex[1], iSampler, uvNew2);
    return mix(original, delayed, smoothstep(0., 0.2, iIntensity));
}

#buffershader

const SZ: f32 = 6.;    // Delay of SZ*SZ frames (36)
fn main(uv: vec2<f32>) -> vec4<f32> {
    let shift = floor(iResolution / SZ) / iResolution;
    let maxShift = shift * SZ;
    var uvNext = uv + vec2<f32>(shift.x, 0.);
    if (uvNext.x > maxShift.x) {
        uvNext.x -= maxShift.x;
        uvNext.y += shift.y;
    }
    var c = vec4<f32>(0.);
    if (uvNext.y > maxShift.y) {
        uvNext.y -= maxShift.y;
        uvNext /= shift;
        c = textureSampleLevel(iInputsTex[0], iSampler, uvNext, 0.);
    } else {
        c = textureSampleLevel(iChannelsTex[1], iSampler, uvNext, 0.);
    }
    return c;
}