Best Code to Improve this Garbage

[jagabo]

Add ConvertToRGB() before crt_display().

[Caiosouza]

Add ConvertToRGB() before crt_display().

Code:

Import("C:\Program Files\AviSynth\plugins\crt_display.avsi")
SetMTMode(3)
MPEG2Source("C:\Users\User\Desktop\Samples\Sample 1993 MX 250\Sample 1993 MX 250.d2v", CPU2="ooooxx", Info=3)
SetMTMode(2)
LoadPlugin("C:\Program Files\AviSynth\plugins\mt_masktools-25.dll")
SeparateFields()
PointResize(width,height*2)
Deblock_QED(last, quant1=35, quant2=40, aoff1=4, boff1=4, aoff2=4, boff2=4)
PointResize(width, height/2)
Weave()
QTGMC(preset="fast")
McTemporalDenoise(settings="medium")
aWarpSharp(depth=5)
Sharpen(0.3, 0.0)
nnedi3_rpow2(2, cshift="Spline64Resize", fwidth=width*2, fheight=height)
aWarpSharp(depth=5)
AssumeTFF().SeparateFields().SelectEvery(4,0,3).We ave()
ar = 1.0 / 1.0
ConvertToRGB()crt_display (12*ar, 11, ppp=1.09*ar, sharpv=0.75, sharph=0.25, blurh=1.5, scandist=1, cutoff=0.8, gamma=2, glowgain=0.125, halgain=0.03, contrast=3, phosphor=true, maskpp=3, beamshape=1.0, vcs=0.25, cromaclear=1, voff=0, pgrid=true, halrange=3, mix=2)

[jagabo]

You're trying to generate an image ~12 times width and ~11 times the height of the source, about 8448x6336. You're running out of memory.

And I think crt_diplay() is meant for use on progressive frames, not interlaced frames. Giving it interlaced frames may lead to other problems.

You really want to generate a DVD that looks like this?


[Attachment 39411 - Click to enlarge]

[Caiosouza]

You're trying to generate an image ~12 times width and ~11 times the height of the source, about 8448x6336. You're running out of memory.

And I think crt_diplay() is meant for use on progressive frames, not interlaced frames. Giving it interlaced frames may lead to other problems.

Could you correct this code? My "stupid" lines...

[jagabo]

If you're going to do this there's no point in any of the other filtering:

Mpeg2Source("D:\Downloads\1993 MX 250 Sample.d2v", CPU2="ooooxx", Info=3) 
Spline36Resize(60, 48)
ar = 1.0 / 1.0
ConvertToRGB()
crt_display (12*ar, 12, ppp=1.09*ar, sharpv=0.75, sharph=0.25, blurh=1.5, scandist=1, cutoff=0.8, gamma=2, glowgain=0.125, halgain=0.03, contrast=3, phosphor=true, maskpp=3, beamshape=1.0, vcs=0.25, cromaclear=1, voff=0, pgrid=true, halrange=3, mix=2)

[Caiosouza]

You're trying to generate an image ~12 times width and ~11 times the height of the source, about 8448x6336. You're running out of memory.

And I think crt_diplay() is meant for use on progressive frames, not interlaced frames. Giving it interlaced frames may lead to other problems.

You really want to generate a DVD that looks like this?


[Attachment 39411 - Click to enlarge]

No,
I quit,get error RGB...again
I just wanted something like this
I going to preoceed to restore the fulll video with the normal code,
Thanks a kilo...a Ton.. for all

[jagabo]

crt_display() isn't multithread-safe. You'll need to run it single threaded. Try this:

SetMtMode(5,1)
Mpeg2Source("1993 MX 250 Sample.d2v", CPU2="ooooxx", Info=3) 
ar = 1.0 / 1.0
ConvertToRGB(interlaced=true)
crt_display (2*ar, 1, ppp=1.09*ar, sharpv=0.75, sharph=0.25, blurh=1.5, scandist=1, cutoff=0.8, gamma=2, glowgain=0.125, halgain=0.03, contrast=3, phosphor=true, maskpp=3, beamshape=1.0, vcs=0.25, cromaclear=1, voff=0, pgrid=true, halrange=3, mix=2)

There's still some semblance of a CRT mask left at that size.


[Attachment 39413 - Click to enlarge]

I don't understand why you think adding dark horizontal stripes improves the image quality.

[Caiosouza]

EDIT: I very hapy now, the phopspor mode by you worked at mkv 50p! Could be a little more visibles only, something around 15,20%

Brilliant#2 !!!!

[Caiosouza]

crt_display() isn't multithread-safe. You'll need to run it single threaded. Try this:

SetMtMode(5,1)
Mpeg2Source("1993 MX 250 Sample.d2v", CPU2="ooooxx", Info=3) 
ar = 1.0 / 1.0
ConvertToRGB(interlaced=true)
crt_display (2*ar, 1, ppp=1.09*ar, sharpv=0.75, sharph=0.25, blurh=1.5, scandist=1, cutoff=0.8, gamma=2, glowgain=0.125, halgain=0.03, contrast=3, phosphor=true, maskpp=3, beamshape=1.0, vcs=0.25, cromaclear=1, voff=0, pgrid=true, halrange=3, mix=2)

There's still some semblance of a CRT mask left at that size.


[Attachment 39413 - Click to enlarge]

I don't understand why you think adding dark horizontal stripes improves the image quality.

Brilliant#3 !!!
Not improve but Disguise.
...But having to be horizontal

[Caiosouza]

And I get this.........damn colorspace

Import("C:\Program Files\AviSynth\plugins\crt_display.avsi")
SetMtMode(5,1)
MPEG2Source("C:\Users\User\Desktop\Samples\Sample 1993 MX 250\1993 MX 250 Sample.d2v", CPU2="ooooxx", Info=3)
LoadPlugin("C:\Program Files\AviSynth\plugins\mt_masktools-25.dll")
SeparateFields()
PointResize(width,height*2)
Deblock_QED(last, quant1=35, quant2=40, aoff1=4, boff1=4, aoff2=4, boff2=4)
PointResize(width, height/2)
Weave()
QTGMC(preset="fast")
McTemporalDenoise(settings="medium")
aWarpSharp(depth=5)
Sharpen(0.3, 0.0)
nnedi3_rpow2(2, cshift="Spline64Resize", fwidth=width*2, fheight=height)
aWarpSharp(depth=5)
AssumeTFF().SeparateFields().SelectEvery(4,0,3).We ave()
ar = 1.0 / 1.0
ConvertToRGB(interlaced=true)
crt_display (2*ar, 1, ppp=1.09*ar, sharpv=0.75, sharph=0.25, blurh=1.5, scandist=1, cutoff=0.8, gamma=2, glowgain=0.125, halgain=0.03, contrast=3, phosphor=true, maskpp=3, beamshape=1.0, vcs=0.25, cromaclear=1, voff=0, pgrid=true, halrange=3, mix=2)

[jagabo]

You probably have some library version conflict that's causing crt_display() to fail. If you just want some dark horizontal lines you can do something like:

SetMTMode(5,4)
Mpeg2Source("1993 MX 250 Sample.d2v", CPU2="ooooxx", Info=3) 
SetMTMode(2)

# deblock
SeparateFields()
PointResize(width,height*2)
Deblock_QED(last, quant1=35, quant2=40, aoff1=4, boff1=4, aoff2=4, boff2=4)
PointResize(width, height/2)
Weave()

# deinterlace, noise reduction
QTGMC(preset="fast")
McTemporalDenoise(settings="medium")
aWarpSharp(depth=5)
Sharpen(0.3, 0.0)
nnedi3_rpow2(2, cshift="Spline64Resize", fwidth=width*2, fheight=height)
aWarpSharp(depth=5)

# add dark horizontal stripes
SeparateFields()
Interleave(SelectEven(), SelectOdd().ColorYUV(gain_y=-256))
Weave()
Spline36Resize(width,432).Spline36Resize(width,height)
ColorYUV(gain_y=256)

# re-interlace the video for DVD
AssumeTFF().SeparateFields().SelectEvery(4,0,3).Weave()

Then encode that as interlaced MPEG 2 for DVD. It should something like this when you play it back:


[Attachment 39416 - Click to enlarge]

But I consider that butchering the video.

[Caiosouza]

you probably have some library version conflict that's causing crt_display() to fail. If you just want some dark horizontal lines you can do something like:

setmtmode(5,4)
mpeg2source("1993 mx 250 sample.d2v", cpu2="ooooxx", info=3) 
setmtmode(2)

# deblock
separatefields()
pointresize(width,height*2)
deblock_qed(last, quant1=35, quant2=40, aoff1=4, boff1=4, aoff2=4, boff2=4)
pointresize(width, height/2)
weave()

# deinterlace, noise reduction
qtgmc(preset="fast")
mctemporaldenoise(settings="medium")
awarpsharp(depth=5)
sharpen(0.3, 0.0)
nnedi3_rpow2(2, cshift="spline64resize", fwidth=width*2, fheight=height)
awarpsharp(depth=5)

# add dark horizontal stripes
separatefields()
interleave(selecteven(), selectodd().coloryuv(gain_y=-256))
weave()
spline36resize(width,432).spline36resize(width,height)
coloryuv(gain_y=256)

# re-interlace the video for dvd
assumetff().separatefields().selectevery(4,0,3).weave()

then encode that as interlaced mpeg 2 for dvd. It should something like this when you play it back:


[Attachment 39416 - Click to enlarge]

but i consider that butchering the video.

y.o.u a.r.e t.h.e m.a.n !!!

What value do I control (set) a width of lines on the code? to approach maximum of the VLC effect ?


WORKS FINE ON DVD COMPILED !!!!!

PS: I knew it would be done, but only you could know how

[jagabo]

[QUOTE=Caiosouza;2466006]

What value do I control (set) a width of lines on the code?

The downscale size, Spline36Resize(width,432). But there's a limit on what you can do without causing flickering and banding problems during playback.

to approach maximum of the VLC effect ?

To get much thinner lines you'll have to upscale the video and leave a larger progressive frame. And then you won't be DVD compatible.

[Caiosouza]

[QUOTE=jagabo;2466009]

What value do I control (set) a width of lines on the code?

The downscale size, Spline36Resize(width,432). But there's a limit on what you can do without causing flickering and banding problems during playback.

to approach maximum of the VLC effect ?

To get much thinner lines you'll have to upscale the video and leave a larger progressive frame. And then you won't be DVD compatible.

You may have heard this a hundred times, but I need to say it again: YOU HAVE A FABULOUS MIND!

This is a sample of your First CRT code, this works fine (on DVD compiled progressive), The second Works fine on DVD Interlaced , I loved all That.
The first approach more than VLC. The blue line I add to get 25fps then reencode progressive DVD on HCenc

AssumeTFF().SeparateFields().SelectEvery(4,0,3).We ave()
SeparateFields()
Interleave(last, last.loop(2,0,0).ColorYUV(gain_y=-96).Trim(1,0))
Trim(1,0)
Weave()
AssumeTFF().SeparateFields().SelectEvery(4,0,3).We ave()

Here a result:

[Caiosouza]

In encode on HCenc to DVD PAL Interlaced what is the setting of chroma downsampling, progressive or interlaced?

[jagabo]

If your source is YV12 the downsampling setting doesn't matter. It only matters for YUY2 or RGB input -- It should match the source. If the source is interlaced it should be set to interlaced, if the source is progressive it should be set to progressive.

AssumeTFF().SeparateFields().SelectEvery(4,0,3).We ave() turns 50p into 25i. You should encode interlaced if you use that line. If you encode progressive the video may not play back correctly (actually, it definitely will not play back correctly but the difference can be subtle, depending on the material). If you want 25p use just SelectEven() instead -- 50p to 25p. But note that 25p motion will not be as smooth as 50p or 25i motion.

[Caiosouza]

If your source is YV12 the downsampling setting doesn't matter. It only matters for YUY2 or RGB input -- It should match the source. If the source is interlaced it should be set to interlaced, if the source is progressive it should be set to progressive.

AssumeTFF().SeparateFields().SelectEvery(4,0,3).We ave() turns 50p into 25i. You should encode interlaced if you use that line. If you encode progressive the video may not play back correctly (actually, it definitely will not play back correctly but the difference can be subtle, depending on the material). If you want 25p use just SelectEven() instead -- 50p to 25p. But note that 25p motion will not be as smooth as 50p or 25i motion.

Thanks again!

In my semi final testes, this is much better:

McTemporalDenoise(settings="medium")

Than this:

TemporalDegrain(SAD1=100, SAD2=75, sigma=4)





...but each case is particular

[jagabo]

MCTD medium is a much higher nose reduction setting that TD 100 75 4. 200 150 8 is probably closer. MCTD includes spacial denoising as well as temporal denoising. So it will lose more low contrast detail in still parts of the picture but it will also remove more noise around edges. Overall, MCTD is probably a better choice for this type of material.

[Caiosouza]

MCTD medium is a much higher nose reduction setting that TD 100 75 4. 200 150 8 is probably closer. MCTD includes spacial denoising as well as temporal denoising. So it will lose more low contrast detail in still parts of the picture but it will also remove more noise around edges. Overall, MCTD is probably a better choice for this type of material.

Yes I used 200 150 8 too, but in this case MCTD medium is better , and I think the lost detail is very closer to temporal degrain 200 150 8, but in geral MCTD looks better

In your clinical eye, what would you change? I trying this:

SetMTMode(3)
MPEG2Source("C:\Users\User\Desktop\Samples\Origina l 1992 MX 250 Sample\Sample 1993 MX 250.d2v", CPU2="ooooxx", Info=3)
SetMTMode(2)
SeparateFields()
PointResize(width,height*2)
Deblock_QED(last, quant1=35, quant2=40, aoff1=4, boff1=4, aoff2=4, boff2=4)
PointResize(width, height/2)
Weave()
QTGMC(preset="fast")
McTemporalDenoise(settings="medium")
aWarpSharp(depth=5)
Sharpen(0.3, 0.0)
nnedi3_rpow2(2, cshift="Spline64Resize", fwidth=width*2, fheight=height)
aWarpSharp(depth=5)
Sharpen(0.3, 0.0) #Wrong?
AssumeTFF().SeparateFields().SelectEvery(4,0,3).We ave()



Another segment of the same video: