// Copyright 2003 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. 

filter "Speeder III";
group "TMTS Video";	

input theclip, "Source Clip", clip;
input method, "Stretch Method", popup, 1, "Keyframe (%)", "Keyframe (#)"
input percentage, "Key (%)", slider, 0, 0, 100;
input frameno, "Key (#)", slider, 0, 0, 30000;
input blending, "Frame Blending", checkbox, 1;

code

float dur, offsetTC, f1, f2, bp, w, h;
dimensionsof(dest,w,h);
image buf1[w][h],buf2[w][h];

getLimits(theclip, dur, offsetTC);
if dur < 1
	theclip = clip1;
	getLimits(theclip, dur, offsetTC);
end if;

if method == 1
	bp = dur*percentage/100;
end if;
if method == 2
	bp = (frameno >= dur)? dur-1:frameno;
end if;

f1 = integer(bp);

getVideo(theclip, f1, buf1);
if blending == 1
	f2 = f1 + 1;
	if f2 >= dur
		f2 = dur - 1
	end if;
	bp = bp - f1;
	getVideo(theclip, f2, buf2);
	blend(buf1,buf2,dest,bp);
else;
	dest = buf1;
end if;