## DLL Section ## 
# 
LoadPlugin("C:\Filters25\MPEG2Dec3.dll") 
  

# 
Mpeg2Source("F:\Movie\styx.d2v") 

bob() 
converttoyuy2().convert60ito24p(2,0).converttoyv12() 

BicubicResize(336, 448, 0, 0.6, 0, 0, 720, 480) 
STMedianFilter(3, 3, 0, 0 ) 
MergeChroma(blur(1.5)) 


ScriptClip(" nf = YDifferenceToNext()" +chr(13)+ "unfilter( -(fmin(round(nf)*2, 100)), -(fmin(round(nf)*2, 100)) ).TemporalSoften( fmin( round(2/nf), 6), round(1/nf) , round(3/nf) , 1, 1)  ") 


AddBorders(8, 16, 8, 16) 


  
# 
############### the function ############# 
# 
function convert60ito24p (clip video, int mode, int offset) 
{ 
work = assumefieldbased(video) 
out = (mode==2) ? interleave( 
\selectevery( 
\layer(trim(work, 1, 0), 
\layer(work, trim(work, 2, 0), "fast"), 
\"fast"), 5, 0 + offset), 
\selectevery( 
\layer(work, trim(work, 1, 0), "fast"), 5, 3 + offset)) : 
\    (mode==1) ? interleave( 
\selectevery(trim(work, 1, 0), 5, 0 + offset), 
\selectevery(layer(work, trim(work, 1, 0), "fast"), 5, 3 + offset)) : 
\    (mode==0) ? selectevery(work, 5, 1 + offset, 4 + offset) : work 
assumeframebased(out) 
} 
################################# 

# 
# 
## Functions ### 

function fmin( int f1, int f2) { 
  return ( f1<f2 ) ? f1 : f2 
} 
  
# 
####