unblendtc

function unblendtc(clip c,int phase)
{
# phase indicates where the clean-combed-combed-combed-combed sequence starts
c
assumetff().separatefields()
deblended=raveragew(last,1.25,last.trim(2,0),-0.25,lsb_out=true).ditherpost(mode=6)
interleave(last,deblended)
select(phase,\
/*0*/selectevery(20,0,2,9,6,12,10,16,19),\
/*1*/selectevery(20,0,3,4,6,13,10,16,14),\
/*2*/selectevery(20,4,7,8,10,17,14,20,18),\
/*3*/selectevery(20,4,2,8,11,12,14,21,18),\
/*4*/selectevery(20,5,2,8,6,12,15,16,18))
assumetff().weave()
}