// Copyright 2007 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 "Slow Motion"
group "TMTS Video"
FullFrame

input field, "Field Order", popup, 2, "Upper (Odd)", "Lower (Even)"

InformationFlag("YUVaware")

code
float i, h, v
point sp[4], dp[4]
dimensionsof(dest, h, v)
image buf[h][v]

dest = src1;

MakeRect(sp, -h/2, -v/2+(frame+field-1)%2, h, v)
MakeRect(dp, -h/2, -v/4, h, v/2)

blitrect(src1,sp,buf,dp);
blitrect(buf,dp,dest,sp);