Mpeg2Source("B5_ch4.d2v")


# return bicubicresize(704,400,0.0,0.5)  ##  Scharfis Vorschlag


deblock(quant=24,aOffset=16)

vb3 = last.mvanalyse(truemotion=true,pel=2,blksize=16,isb=true, delta=3,idx=1)
vb2 = last.mvanalyse(truemotion=true,pel=2,blksize=16,isb=true, delta=2,idx=1)
vb  = last.mvanalyse(truemotion=true,pel=2,blksize=16,isb=true,         idx=1)
vf  = last.mvanalyse(truemotion=true,pel=2,blksize=16,isb=false,        idx=1)
vf2 = last.mvanalyse(truemotion=true,pel=2,blksize=16,isb=false,delta=2,idx=1)
vf3 = last.mvanalyse(truemotion=true,pel=2,blksize=16,isb=false,delta=3,idx=1)

interleave( repair(last.mvflow(vf3,idx=1),o,1,3), 
 \          repair(last.mvflow(vf2,idx=1),o,1,3),
 \          repair(last.mvflow(vf, idx=1),o,1,3),
 \          last,
 \          repair(last.mvflow(vb, idx=1),o,1,3),
 \          repair(last.mvflow(vb2,idx=1),o,1,3),
 \          repair(last.mvflow(vb3,idx=1),o,1,3)  )

removedirt()
ttempsmooth(3,15,10,2,1,5)
selectevery(7,3)

yv12lutxy(last,last.sss(),"x 7 + y < x 4 + x 7 - y > x 4 - x x y - 0.49 * - ? ?","y","y",U=3,V=3)

return( last )

#------------------------------
function sss(clip clp)
{
a=clp .yv12lutxy(clp.removegrain(20),
 \ "x x y - abs 16 / 1 4 / ^ 16 * 3 * x y - 2 ^ x y - abs 2 ^ 5 + / * x y - x y - abs 0.0001 + / * +",
 \ "x x y - abs 16 / 1 4 / ^ 16 * x y - x y - abs 4 + / * +",
 \ "x x y - abs 16 / 1 4 / ^ 16 * x y - x y - abs 4 + / * +",U=3,V=3)
b=clp .yv12lutxy(clp.removegrain(4),
 \ "x x y - abs 16 / 1 4 / ^ 16 * 2 * x y - 2 ^ x y - abs 2 ^ 5 + / * x y - x y - abs 0.0001 + / * +",
 \ "x x y - abs 16 / 1 4 / ^ 16 * x y - x y - abs 4 + / * +",
 \ "x x y - abs 16 / 1 4 / ^ 16 * x y - x y - abs 4 + / * +",U=3,V=3)
maskedmerge(a,b,clp.prewitt(multiplier=2.0).fity2uv(),U=3,V=3)
}