Quantcast Avisynth: MA Script for Interlaced Sources? - digitalFAQ.com Forums [Archives]
  #1  
10-15-2003, 07:56 AM
Boulder Boulder is offline
Free Member
 
Join Date: Sep 2002
Location: Lahti, Finland
Posts: 1,652
Thanks: 0
Thanked 0 Times in 0 Posts
Code:
nf=0

MPEG2Source("path\video.d2v")

Crop(enter your values here, crop height mod 4, width mod 2!)

SeparateFields()
UnDot()
BicubicResize(enter your values here, height/2!)
MergeChroma(Blur(1.5))
MergeLuma(Blur(0.1)) # use only if the video won't get too blurry!
STMedianFilter(4,32,0,0)

SwitchThreshold = (Width<=352) ? 4 : (Width<=480) ? 3 : 2 
even=SelectEven().ScriptClip("nf=YDifferenceToNext()"+chr(13)+"nf>=SwitchThreshold?unfilter(-(fmin(round(nf)*2,100)),-(fmin(round(nf)*2,100))):TemporalSoften(fmin(round(2/nf),6),round(1/nf),round(3/nf),0,2)")
odd=SelectOdd().ScriptClip("nf=YDifferenceToNext()"+chr(13)+"nf>=SwitchThreshold?unfilter(-(fmin(round(nf)*2,100)),-(fmin(round(nf)*2,100))):TemporalSoften(fmin(round(2/nf),6),round(1/nf),round(3/nf),0,2)")
Interleave(even,odd)
Weave()

AddBorders here
Limiter()

function fmin( int f1, int f2) { 
  return ( f1<f2 ) ? f1 : f2 
}
This script is meant for interlaced encodes. As I put most of my TV caps on DVD these days, I encode them as interlaced to preserve the details, sharpness and the smooth motion. The even= and odd= lines contain the whole MA portion of the script on the same line. The word wrapping just puts them on several lines.

Spatial filters affect the video more because SeparateFields() splits each frame into two fields, so 720x576 becomes 720x288. That's why I've lowered the STMedianFilter values, MergeLuma may also appear to be too strong. You may want to try replacing STMedianFilter with FluxSmooth. Just don't do any temporal filtering at that point (use FluxSmooth(-1,4) for example)!

DCTFilter can introduce some artifacts near the top and bottom of the video. This can be avoided by cropping slightly. It's probably due to the filters nature, unfortunately I can't give you any better explanations.

This is only a small sample based on Kwag's optimal script. Feel free to bash it around
Reply With Quote
Someday, 12:01 PM
admin's Avatar
Site Staff / Ad Manager
 
Join Date: Dec 2002
Posts: 42
Thanks: ∞
Thanked 42 Times in 42 Posts
  #2  
10-15-2003, 08:21 AM
Boulder Boulder is offline
Free Member
 
Join Date: Sep 2002
Location: Lahti, Finland
Posts: 1,652
Thanks: 0
Thanked 0 Times in 0 Posts
Some remarks:

SwitchThreshold may need tweaking. Kwag?
Reply With Quote
  #3  
10-15-2003, 09:50 AM
kwag kwag is offline
Free Member
 
Join Date: Apr 2002
Location: Puerto Rico, USA
Posts: 13,537
Thanks: 0
Thanked 0 Times in 0 Posts
Quote:
Originally Posted by Boulder
Some remarks:

SwitchThreshold may need tweaking. Kwag?
Looking at it now
Maybe make SwitchThreshold a manual constant, until you get the desired switching value
Just include: ScriptClip("Subtitle(String(nf),1,30)") after your limiter function call. Then you can see the dynamic value of nf as you play your .avs in Vdub or any player, and this way, you can see the activity level and tune the SwithTreshold selection line depending on activity/resolution.

-kwag
Reply With Quote
  #4  
10-15-2003, 10:00 AM
Boulder Boulder is offline
Free Member
 
Join Date: Sep 2002
Location: Lahti, Finland
Posts: 1,652
Thanks: 0
Thanked 0 Times in 0 Posts
Thanks! I've often wondered how I would see the 'nf' value at each frame..never really got around to check how Subtitle works.

I'm going to capture a TV series tonight and see what I can come up with.
Reply With Quote
  #5  
10-15-2003, 10:06 AM
nicksteel nicksteel is offline
Free Member
 
Join Date: Nov 2002
Posts: 863
Thanks: 0
Thanked 0 Times in 0 Posts
Boulder,

Do post your results. I do a lot of MPEG2 captures and would like to try doing interlaced.
Reply With Quote
  #6  
10-15-2003, 10:14 AM
Boulder Boulder is offline
Free Member
 
Join Date: Sep 2002
Location: Lahti, Finland
Posts: 1,652
Thanks: 0
Thanked 0 Times in 0 Posts
A _very_ quick test on a 720x576 VHS capture shows that the value is around 2.5 - 4.0 when there's little motion and 6.0 - 12.0 when there's motion (not intense but some).

How would I start tweaking the threshold?

* feeling like a total newbie *
Reply With Quote
  #7  
10-15-2003, 10:36 AM
kwag kwag is offline
Free Member
 
Join Date: Apr 2002
Location: Puerto Rico, USA
Posts: 13,537
Thanks: 0
Thanked 0 Times in 0 Posts
Quote:
Originally Posted by Boulder
A _very_ quick test on a 720x576 VHS capture shows that the value is around 2.5 - 4.0 when there's little motion and 6.0 - 12.0 when there's motion (not intense but some).

How would I start tweaking the threshold?

* feeling like a total newbie *
For that resolution, I would use SwitchTreshold = 4. So only after 4, dynamic blurring starts to be applied.
Or you can expand the line: "SwitchThreshold = (Width<=352) ? 4 : (Width<=480) ? 3 : 2" to include more resolutions

-kwag
Reply With Quote
  #8  
10-15-2003, 05:20 PM
audioslave audioslave is offline
Free Member
 
Join Date: Mar 2003
Location: Sweden
Posts: 725
Thanks: 0
Thanked 0 Times in 0 Posts
@Boulder

How/where do you get the correct values for Crop and BicubicResize? I'm guessing you're using MovieStacker, but could you please explain where you find the values?

EDIT: Never mind the BicubicResize question, but I'm still having trouble with getting Crop to work...
__________________
AudioSlave
Reply With Quote
  #9  
10-15-2003, 05:50 PM
Zyphon Zyphon is offline
Free Member
 
Join Date: Oct 2003
Location: London, England (UK)
Posts: 1,035
Thanks: 0
Thanked 0 Times in 0 Posts
Thanx 4 the script Boulder looks good.
__________________
Regards.

Michael.
Reply With Quote
  #10  
10-15-2003, 06:22 PM
audioslave audioslave is offline
Free Member
 
Join Date: Mar 2003
Location: Sweden
Posts: 725
Thanks: 0
Thanked 0 Times in 0 Posts
I simply put my Crop values from MovieStacker's Crop boxes in the script, like this: Crop(668, 42
But I'm getting an 'invalid arguments to function "Crop"' error in Vdub.
How does this line have to look to be correct
__________________
AudioSlave
Reply With Quote
  #11  
10-16-2003, 03:32 AM
Boulder Boulder is offline
Free Member
 
Join Date: Sep 2002
Location: Lahti, Finland
Posts: 1,652
Thanks: 0
Thanked 0 Times in 0 Posts
Quote:
Originally Posted by audioslave
I simply put my Crop values from MovieStacker's Crop boxes in the script, like this: Crop(668, 42
But I'm getting an 'invalid arguments to function "Crop"' error in Vdub.
How does this line have to look to be correct
When everything else fails, read the docs

You'll have to state how many pixels you crop. I crop manually, using VirtualDub for help. I've never used any program to get the correct values as I trust my own eyes more.

So, the syntax is Crop(crop_width,crop_height,destination_width,dest ination_height).

Crop(10,24,700,52 would mean that you would crop 10 pixels off the left and right side and 24 pixels off the top and bottom of the clip. The source would be 720x576 in this case (720 - 10 - 10 = 700 and 576 - 24 - 24 = 52.

If you want to crop a different amount of pixels from the sides, you can use Crop(left,top,-right,-bottom).


From the Avisynth docs:

In order to preserve the data structure of the different colorspaces, the following mods should be used. You will not get an error message if they are not obeyed, but it may create strange artifacts.

In RGB:
width no restriction
height no restriction if video is progressive
height mod-2 if video is interlaced

In YUY2:
width mod-2
height no restriction if video is progressive
height mod-2 if video is interlaced

In YV12:
width mod-2
height mod-2 if video is progressive
height mod-4 if video is interlaced
Reply With Quote
  #12  
10-16-2003, 03:59 AM
Dialhot Dialhot is offline
Free Member
 
Join Date: May 2003
Posts: 10,463
Thanks: 0
Thanked 0 Times in 0 Posts
Or you can use the avisynth plugin Autocrop that will give you this information visually, on the image.
Reply With Quote
  #13  
10-16-2003, 07:54 AM
nicksteel nicksteel is offline
Free Member
 
Join Date: Nov 2002
Posts: 863
Thanks: 0
Thanked 0 Times in 0 Posts
When you get your interlaced script tweaked, could you post it? I'm capturing with a PVR-250 at 720x480.

NickSteel
Reply With Quote
  #14  
10-16-2003, 08:07 AM
Boulder Boulder is offline
Free Member
 
Join Date: Sep 2002
Location: Lahti, Finland
Posts: 1,652
Thanks: 0
Thanked 0 Times in 0 Posts
Sure thing. I'm currently testing the script with the capture, checking some low-motion scenes and extremely high motion scenes and see how the MA script compares to a script I normally use.
Reply With Quote
  #15  
10-16-2003, 09:29 AM
Boulder Boulder is offline
Free Member
 
Join Date: Sep 2002
Location: Lahti, Finland
Posts: 1,652
Thanks: 0
Thanked 0 Times in 0 Posts
OK, here are some results:

With the MA script
Code:
nf=0
AVISource("path\clip.avi")
ConverttoYV12(interlaced=true)
SeparateFields() 
UnDot() 
BicubicResize(656,272,0,0.6) 
MergeChroma(Blur(1.5)) 
MergeLuma(Blur(0.1)) # use only if the video won't get too blurry! 
FluxSmooth(-1,7)

SwitchThreshold = (Width<=352) ? 4 : (Width<=480) ? 3 : 2
even=SelectEven().ScriptClip("nf=YDifferenceToNext()"+chr(13)+"nf>=SwitchThreshold?unfilter(-(fmin(round(nf)*2,100)),-(fmin(round(nf)*2,100))):TemporalSoften(fmin(round(2/nf),6),round(1/nf),round(3/nf),0,2)")
odd=SelectOdd().ScriptClip("nf=YDifferenceToNext()"+chr(13)+"nf>=SwitchThreshold?unfilter(-(fmin(round(nf)*2,100)),-(fmin(round(nf)*2,100))):TemporalSoften(fmin(round(2/nf),6),round(1/nf),round(3/nf),0,2)")
Weave() 

AddBorders(24,16,24,16)
Limiter() 
ConverttoYUY2(interlaced=true)

function fmin( int f1, int f2) { 
  return ( f1<f2 ) ? f1 : f2 
}
Low motion 55 755 504 bytes
High motion 32 993 620 bytes

With a static script
Code:
SeparateFields() 
UnDot() 
BicubicResize(656,272,0,0.6) 
MergeChroma(Blur(1.5)) 
MergeLuma(Blur(0.1)) # use only if the video won't get too blurry! 
FluxSmooth(-1,7)
even=SelectEven().TemporalCleaner(6,11)
odd=SelectOdd().TemporalCleaner(6,11)
Interleave(even,odd) 
Weave() 

AddBorders(24,16,24,16)
Limiter() 

function fmin( int f1, int f2) { 
  return ( f1<f2 ) ? f1 : f2 
}
Low motion 55 206 840 bytes
High motion 35 406 512 bytes

Encoding is surprisingly slightly faster with the MA script. The result is a bit blurrier but I'm not sure if it's noticable when watched on a TV. The low motion scene was a bit larger with the MA script, but if I had used TemporalCleaner instead of TemporalSoften, I'm sure that the filesize would have been lower than with the static script.

I'm now encoding the whole clip and see how it looks.
Reply With Quote
  #16  
10-24-2003, 05:33 AM
nicksteel nicksteel is offline
Free Member
 
Join Date: Nov 2002
Posts: 863
Thanks: 0
Thanked 0 Times in 0 Posts
Quote:
Originally Posted by Boulder
OK, here are some results:

With the MA script
Code:
nf=0
AVISource("path\clip.avi")
ConverttoYV12(interlaced=true)
SeparateFields() 
UnDot() 
BicubicResize(656,272,0,0.6) 
MergeChroma(Blur(1.5)) 
MergeLuma(Blur(0.1)) # use only if the video won't get too blurry! 
FluxSmooth(-1,7)

SwitchThreshold = (Width<=352) ? 4 : (Width<=480) ? 3 : 2
even=SelectEven().ScriptClip("nf=YDifferenceToNext()"+chr(13)+"nf>=SwitchThreshold?unfilter(-(fmin(round(nf)*2,100)),-(fmin(round(nf)*2,100))):TemporalSoften(fmin(round(2/nf),6),round(1/nf),round(3/nf),0,2)")
odd=SelectOdd().ScriptClip("nf=YDifferenceToNext()"+chr(13)+"nf>=SwitchThreshold?unfilter(-(fmin(round(nf)*2,100)),-(fmin(round(nf)*2,100))):TemporalSoften(fmin(round(2/nf),6),round(1/nf),round(3/nf),0,2)")
Weave() 

AddBorders(24,16,24,16)
Limiter() 
ConverttoYUY2(interlaced=true)

function fmin( int f1, int f2) { 
  return ( f1<f2 ) ? f1 : f2 
}
Low motion 55 755 504 bytes
High motion 32 993 620 bytes

With a static script
Code:
SeparateFields() 
UnDot() 
BicubicResize(656,272,0,0.6) 
MergeChroma(Blur(1.5)) 
MergeLuma(Blur(0.1)) # use only if the video won't get too blurry! 
FluxSmooth(-1,7)
even=SelectEven().TemporalCleaner(6,11)
odd=SelectOdd().TemporalCleaner(6,11)
Interleave(even,odd) 
Weave() 

AddBorders(24,16,24,16)
Limiter() 

function fmin( int f1, int f2) { 
  return ( f1<f2 ) ? f1 : f2 
}
Low motion 55 206 840 bytes
High motion 35 406 512 bytes

Encoding is surprisingly slightly faster with the MA script. The result is a bit blurrier but I'm not sure if it's noticable when watched on a TV. The low motion scene was a bit larger with the MA script, but if I had used TemporalCleaner instead of TemporalSoften, I'm sure that the filesize would have been lower than with the static script.

I'm now encoding the whole clip and see how it looks.
I'm going to capture a marathon run of several Planet of the Apes films with my PVR250 as 720x480 MPEG2's. I would like trying to keep interlaced and encode as 704x480 or 352x480 MPEG2 with SKVCD.

I plan to use DVD2AVI to make d2v and create trim statements with VDUB. I will not create AVI files, but go MPEG2 to MPEG2.

Should I use the first script EXACTLY as listed above (with d2v instead of avi), or would you recommend something else?
Reply With Quote
  #17  
10-24-2003, 12:30 PM
J-Wo J-Wo is offline
Free Member
 
Join Date: Nov 2002
Location: Toronto, Canada
Posts: 454
Thanks: 0
Thanked 0 Times in 0 Posts
ooooooohhhhhhhhhhh I am SOOOO confused about the cropping and resizing and addbording bit! I don't think I can handle the "use my eyes" idea because I just don't understand how to change the parameters correctly. If I use Boulder's bicubicresize paraemters and tweak it slightly to be for 704x480 (as opposed to 704x576), it looks like his addborder line is resizing the image too much (i.e. I can see some black bars on the sides).

Is there not an easy way to do this? I rely on Moviestacker so much!!! I also give AutoCrop a try, which found out that my source has some black bars on the sides. So it recommends a cropping of Crop(8,0,708,480). This just throws everything off for me, so now I have completely NO idea what to do for BiCubicResize or AddBorder. Hoping someone out there can help me!
Reply With Quote
  #18  
10-24-2003, 10:45 PM
J-Wo J-Wo is offline
Free Member
 
Join Date: Nov 2002
Location: Toronto, Canada
Posts: 454
Thanks: 0
Thanked 0 Times in 0 Posts
Okay, just so I don't sound like a complete buffoon. I finally figured out how to use any resize values obtained from Moviestacker and make them work with Boulder's script. Whether you choose Overlap or Resize for "Blocks TV-Overscan", take whatever values for AddBorders() and/or Letterbox() and put them at the end of your script. Choose Bicubic precise as your resize method, but you'll have to make some modifications to the figures given. In my example, I have a 740x480 source that I'm encoding at 704x480. So according to Moviestacker, I get:
Code:
BicubicResize(704, 352, 0, 0.6, 0, 0, 720, 480)
AddBorders(0, 64, 0, 64)
LetterBox(0, 0, 16, 16)
But in Boulder's original script he mentioned BicubicResize(enter your values here, height/2!). So I halved 352 and got 176. I also noticed that Boulder doesn't include the last four values for resizing, so the final line becomes:
Code:
BicubicResize(704, 176, 0, 0.6)
AddBorders(0, 64, 0, 64)
LetterBox(0, 0, 16, 16)
In this example, I'm using overscan = 2. If I use resize = 2 then the lines become:
Code:
BicubicResize(672, 168, 0, 0.6)
AddBorders(16, 72, 16, 72)
I hope this explanation might be able to help others. I also found Boulder's script to do an amazing job on my NTSC interlaced dvd source, which was quite grainy/pixelated/noisy in certain scenes. Permutations of the MA script simply never got it right, and this one did the trick. It also lead to almost the same compression, but was way faster. Thanks a load Boulder!
Reply With Quote
  #19  
10-25-2003, 06:36 AM
nicksteel nicksteel is offline
Free Member
 
Join Date: Nov 2002
Posts: 863
Thanks: 0
Thanked 0 Times in 0 Posts
When I use MovieStacker v2.0.0 (beta3) for a PVR250 capture of Futurama at 720x480 to produce a KSVCD at 480x480:

MPEG Resizing

Source 720x480 DVD Pal(Unchecked) Anamorphic(Unchecked) ITU=R BT.601-4(Checked)

Film pixel 720x480 0 left border 0 top border

Crop 720x480 accurate Use GripFit(crop/resize)(Unchecked)

Resize 336x446

Destination 480x480 SVCD Anamorphic(Checked) Format conversion(Unchecked)

Blocks TV-Overscan 2 Resize

AviSynth Script

Bicubic precise

LoadPlugin("C:\video\moviestacker\Filters\MPEG2Dec .dll")

Mpeg2Source("H:\fut16\fut16.d2v")
BicubicResize(336, 446, 0, 0.6, 0, 1, 720, 47
AddBorders(72, 17, 72, 17)

If I half 446 to 223, will not run.

BicubicResize(336, 223, 0, 0.6)

What should BicubicResize line look like for this?

My capture is already YV12. Should I change script in any way?
Reply With Quote
  #20  
10-25-2003, 09:40 AM
J-Wo J-Wo is offline
Free Member
 
Join Date: Nov 2002
Location: Toronto, Canada
Posts: 454
Thanks: 0
Thanked 0 Times in 0 Posts
Are you using AviSynth 2.5x? I think Boulder's script requires it.
Reply With Quote
Reply




Similar Threads
Thread Thread Starter Forum Replies Last Post
Avisynth: Guide to dealing with interlaced sources Boulder Avisynth Scripting 121 04-07-2008 09:36 AM
Avisynth: Interlaced sources guide? [See pg2] J-Wo Avisynth Scripting 50 04-20-2004 07:41 AM
Avisynth: optimal script for dvd sources? CheronAph Avisynth Scripting 6 12-16-2003 07:54 AM
DVD2SVCD: Script for Interlaced sources azel Video Encoding and Conversion 3 11-02-2003 11:29 AM
Avisynth: Multiple Sources in one script? Bchteam Avisynth Scripting 2 09-19-2003 12:12 AM

Thread Tools



 
All times are GMT -5. The time now is 08:15 AM  —  vBulletin © Jelsoft Enterprises Ltd