RemoveDirtMC

function RemoveDirtMC(clip c, int "clmodeY", int "clmodeU")
{
  clmodeY = Default(clmodeY, 2)
  clmodeU = Default(clmodeU, 4)
  super_c = MSuper(c)
  bw_vec3 = MAnalyse(super_c, delta=3, truemotion=false, isb=true)
  bw_vec2 = MAnalyse(super_c, delta=2, truemotion=false, isb=true)
  bw_vec1 = MAnalyse(super_c, delta=1, truemotion=false, isb=true)
  fw_vec1 = MAnalyse(super_c, delta=1, truemotion=true, isb=false)
  fw_vec2 = MAnalyse(super_c, delta=2, truemotion=true, isb=false)
  fw_vec3 = MAnalyse(super_c, delta=3, truemotion=true, isb=false)
  bw_clp3 = MFlow(c, super_c, bw_vec3)
  bw_clp2 = MFlow(c, super_c, bw_vec2)
  bw_clp1 = MFlow(c, super_c, bw_vec1)
  fw_clp1 = MFlow(c, super_c, fw_vec1)
  fw_clp2 = MFlow(c, super_c, fw_vec2)
  fw_clp3 = MFlow(c, super_c, fw_vec3)
  newclip = Interleave(bw_clp3, bw_clp2, bw_clp1, c, fw_clp1, fw_clp2, fw_clp3)
  clensed = Clense(newclip, reduceflicker=true)
  cleaned = RemoveGrain(newclip, clmodeY, clmodeU)
  restore = RestoreMotionBlocks(clensed, newclip, alternative=cleaned, \
                                gmthreshold=70, dist=1, dmode=2,       \
                                noise=10, noisy=12)
  return SelectEvery(restore, 7, 3)
}