// Copyright 2004 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 "Anamorphic Squeeze"
group "TMTS Video"

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

MakeRect(sp, -h/2, -v/2, h, v)
MakeRect(dp, -h/2, -v*0.375, h, v*0.75)

channelfill(dest,0,0,0,0);
blitrect(src1,sp,dest,dp);