crtview

# see interlaced source like CRT TV
FUNCTION crtview(clip c1) {
originField    = c1.SeparateFields()
tfpar          = c1.getparity() ? true : false
newDoubleWeave = tfpar ? Interleave(originField,blankclip(originField,length=FrameCount(originField))) : \
                         Interleave(blankclip(originField,length=FrameCount(originField)),originField)
outputfieldDoubleWeave = newDoubleWeave.DoubleWeave()
return tfpar ? outputfieldDoubleWeave.SelectEvery(4,0,2) : outputfieldDoubleWeave.SelectEvery(4,1,3)
}