AviSource(" -Your Movie Here- ")

FilterBlocks()

function FilterBlocks( clip clip, int "cwidth", int "cheight", clip "vertclip" ) {
 cwidth = default(cwidth,0)
 cheight = default(cheight,0)
 vertclip = default(vertclip, HorizontalStrip(clip, cwidth, cheight))
 cheight = cheight+16
 cheight < clip.height ? FilterBlocks(clip, cwidth, cheight, StackVertical(vertclip,HorizontalStrip(clip, cwidth, cheight))): vertclip
}

function HorizontalStrip( clip clip, int cwidth, int cheight, clip "hortclip" ) {
 hortclip = default(hortclip, Crop(clip,cwidth,cheight,16,16).filters())
 cwidth = cwidth+16
 cwidth < clip.width ? HorizontalStrip(clip, cwidth, cheight, StackHorizontal(hortclip,Crop(clip,cwidth,cheight,16,16).filters())): hortclip
}

function filters( clip clip ) {
greyscale(clip)
}

LoadPlugin("C:\Filters25\MPEG2Dec3.dll") 
 LoadPlugin("C:\Filters25\STMedianFilter.dll") 
 LoadPlugin("C:\Filters25\UnFilter.dll") 
 LoadPlugin("C:\Filters25\BlockBuster.dll") 
  
 Mpeg2Source("K:\VIDEO_TS\project.d2v") 
  
 MaxThreshold=1.58 
  
 UnFilter(50, 50) 
 BicubicResize(528, 368, 0, 0.6, 16, 0, 688, 480) 
 STMedianFilter(8, 32, 0, 0 ) 
 TemporalSoften(2,7,7,3,2) 
 mergechroma(blur(1.50)) 
  
 ### Dynamic Adaptive Filtering ### 
 val=0 # Initialize our motion variable. 
 N="noise" 
  
 FrameEvaluate("val=YDifferenceFromPrevious()/14.55") # Assign "val" with difference between current frame and last frame. 
 ScriptClip("val > MaxThreshold ? MergeLuma(blur(MaxThreshold)) : MergeLuma(blur( val )) ") # Adaptive mergeluma. 
 AddBorders(0, 56, 0, 56) 
 LetterBox(16, 16, 16, 16) 
 Limiter()