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

#property description That cool thing that happens when you beat solitaire
#property frequency 2

fn main(uv: vec2<f32>) -> vec4<f32> {
    // Relative size of the bouncing image
    // I don't think we need to encorporate aspectCorrection?
    let scale = mix(1.0, 0.25, smoothstep(0., 0.3, iIntensity));

    // Closed-form bouncing behavior
    // I think this is periodic over [0.0, 16.] to prevent discontinuities
    let phase = iTime * iFrequency / 32.;
    let xy = vec2<f32>(sawtooth(phase * 5.0, 0.5), abs(sin(phase * 9.0 * pi)));

    let xy2 = (xy - 0.5) * (1.0 - scale);
    let uvSample = (uv - 0.5 + xy2) / scale + 0.5;

    let c = textureSample(iInputsTex[0], iSampler,  uvSample);
    //let c2 = vec4<f32>(c.rgb, mix(c.a, 1., iIntensity)); // onblack
    let c2 = c * box(uvSample);
    let under = textureSample(iChannelsTex[0], iSampler,  uv) * smoothstep(0., 0.1, iIntensity);
    return composite(under, c2);
}