From anaglyph to stereo - DVD2StereoAVI

[slit]

There's this very old tool to convert anaglyph DVDs (or .vob, mpeg2 files) to stereo (SBS) AVIs with any supported codec. The results aren't stellar, but I can appreciate some stereoscopy resulting from the process. Is there any modern and better refined filter or conversion tool as easy as DVD2StereoAVI? Link: http://stereo.jpn.org/eng/stvmkr/dvdtoavi/dvdtostereoavi.htm

[Krispy Kritter]

What is the desired end result?

[slit]

To crop this videohttps://www.youtube.com/watch?v=q2wT_WgOHJ4 and make it stereo, just the building projection. I think resolution is enough.

[jagabo]

This is a difficult source because the RGB channels don't cleanly separate, there are blending artifacts (the camera wasn't sync'd to the projector) and it's over compressed. But some tweaking with AviSynth gives (720p video side by side)

LSmashVideoSource("C:\Users\John\Desktop\YouTube.mp4") 

# pump up the saturation so there's more color
ColorYUV(cont_u=500, cont_v=500)
ConvertToRGB(matrix="rec601")

# extract red and blue channels, adjust the black and white levels
red = ShowRed().RGBAdjust(rb=-30, gb=-30, bb=-30).RGBAdjust(r=1.1, g=1.1, b=1.1).Subtitle("red")
blue = ShowBlue().RGBAdjust(rb=-10, gb=-10, bb=-10).RGBAdjust(r=1.04, g=1.04, b=1.04).Subtitle("blue")

Stack them side by side, rec=left, right=blue
StackHorizontal(red, blue)

[slit]

Thanks very much! I can see the 3D depth in that example

Now, I want to use your script with the path modification pointing at my file with AviSynth and VirtualDub (both latest 32bit versions), but after I dropped LSMASHSource.dll into avisynth plugins folder, and run the script through VirtualDub's Load Processing Settings... I get this


EDIT: When I load the script into vdub through Open file... I get the script error: syntax error. I'm a newbie in AviSynth for sure, so a little help would be great.

Script:

LSmashVideoSource("D:\Axioma\Axioma3D.mp4")

# pump up the saturation so there's more color
ColorYUV(cont_u=500, cont_v=500)
ConvertToRGB(matrix="rec601")

# extract red and blue channels, adjust the black and white levels
red = ShowRed().RGBAdjust(rb=-30, gb=-30, bb=-30).RGBAdjust(r=1.1, g=1.1, b=1.1).Subtitle("red")
blue = ShowBlue().RGBAdjust(rb=-10, gb=-10, bb=-10).RGBAdjust(r=1.04, g=1.04, b=1.04).Subtitle("blue")

Stack them side by side, rec=left, right=blue
StackHorizontal(red, blue)

[jagabo]

Put a # at the start of the second to last line, the one that reads "Stack them..." Sorry, I added the comments when I posted the script here.

Always use File -> Open to open AVS script in VirtualDub. Or drag/drop them onto VirtualDub.

[slit]

Thanks, it worked. Now to fiddle with the compressors...

Cheers jagabo!