function QTEC(clip source,int "w",int "h",int "depth")
{
depth=default(depth,10)
source


BicubicResize(w,h)
mt_lutxy(unsharp(3,strength=6),last,"x y < y x ?")
awarpsharp2(depth=depth)
awarpsharp2(depth=depth)

return last
}