transition "Example Transition";
group "NAB 2004";

input color1, "Color", color, 255, 255, 0, 0;
input opacity, "Opacity", slider, 50, 0, 100;
input blurRadius, "Blur Radius", slider, 5, 0, 25;

input fadecheck, "Fade Check", checkbox, 1;

code

on halfRatio()
	if (ratio < 0.5)
		return ratio * 2;
	else
		return (1-ratio) * 2);
	end if
end

on blurInPlace(image _src, image _dest, value _radius)
	
	if (_radius > 0)
		float _w, _h;
		dimensionsOf(_dest, _w, _h);
		image _temp[_w][_h];
		
		blur(_src, _temp, _radius,  aspectOf(_dest));	
		_dest = _temp;
	else
		_dest = _src;
	end if
end


exposedBackground = 1;

float imgWidth, imgHeight;

DimensionsOf(dest, imgWidth, imgHeight);

image colorBuffer[imgWidth][imgHeight];



if (fadecheck == 1)
	matte(src2, src1, dest, ratio, kalpha);
else
	if (ratio < 0.5)
		dest = src1;
	else
		dest = src2;
	end if
end if	

blurInPlace(dest, dest, blurRadius * halfRatio);

ChannelFill(colorBuffer, 255, color1.r, color1.g, color1.b);

matte(colorBuffer, dest, dest, opacity/100 * halfRatio, kalpha);