function QTEC(clip source,int "w",int "h",float "sharp",float "rad",int "depth")
{
depth=default(depth,10)
sharp = default(sharp,5)
rad=default(rad, 3)
source


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

return last
}