// Copyright 2005 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 "Smart Anamorphic"
group "TMTS Video"

InformationFlag("YUVaware")

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

channelfill(dest,0,0,0,0);

MakeRect(sp, -h/2, -v/2, h/6, v)
MakeRect(dp, -h/2, -v/2, h/5, v)
blitrect(src1,sp,dest,dp);

MakeRect(sp, -h/3, -v/2, h*5/24, v)
MakeRect(dp, -h*3/10, -v/2, h/5, v)
blitrect(src1,sp,dest,dp);

MakeRect(sp, -h/8, -v/2, h/4, v)
MakeRect(dp, -h/10, -v/2, h/5, v)
blitrect(src1,sp,dest,dp);

MakeRect(sp, h/8, -v/2, h*5/24, v)
MakeRect(dp, h/10, -v/2, h/5, v)
blitrect(src1,sp,dest,dp);

MakeRect(sp, h/3, -v/2, h/6, v)
MakeRect(dp, h*3/10, -v/2, h/5, v)
blitrect(src1,sp,dest,dp);