// Copyright 2002 Matt Sandstršm/Too Much Too Soon
// This script is freeware, meaning you may copy and
// distribute it free of charge, as long as it's kept intact,
// including this message. Feel free to use the code as
// inspiration for your own scripts, but don't steal.
// Email me at mattias@beauty.se if you have any questions.
// Thank you. Have fun. 

transition "Wind Blur Cross"
group "Too Much Too Soon"
wipeCode(0, 100);
producesAlpha;

input dir, "Direction", radiogroup, 2, "Vertical", "Horizontal"

code

float w,h;
dimensionsof(dest,w,h);
image buf1[w][h],buf2[w][h];

if dir == 1 then
	blur(src1,buf1,power(ratio,1.5)*h/1000,aspectof(buf1)/1000)
	blur(src2,buf2,power(1-ratio,1.5)*h/1000,aspectof(buf2)/1000)
else
	blur(src1,buf1,power(ratio,1.5)*w,aspectof(buf1)*1000)	
	blur(src2,buf2,power(1-ratio,1.5)*w,aspectof(buf2)*1000)	
end if;

blend(buf1, buf2, dest, ratio);