# by Herbert Poetzl
unit filter wobbly_transition (float scale: 0-50 (5), float speed: 0-10,
                               float smoothness: 1-5,
                               unit image input1, unit image input2)
    mt=t;
    nxy=xy*scale;
    xyn1=noise([nxy[0],nxy[1],mt*speed*1.5])*sin(t*pi);
    xyn2=noise([nxy[1],nxy[0],(mt+3)*speed]);
    l=clamp(xyn1*sin((mt+xyn2)*2*pi)*smoothness+t,0,1);
    lerp(l,input1(xy),input2(xy))
end
