After watching the first video of the youtube encode, I would like to ask if at all possible that that commentary be added to the final encode.
Worst minute of my life. I want it back.
Does it actually help to have all layers separated from each other?
What is the arm-pumping? Part of the running animation?
AVISource("#2223 - cpadolf's SNES Super Metroid ''any%, glitched''.avi").ConvertToRGB32
v1 = TASBlend .PointResize(512, 448)
v2 = PointResize(512, 448).ConvertToYUY2.TASBlend_nanogyth.ConvertToRGB32
v3 = TASBlend_Vit.PointResize(512, 448)
StackHorizontal(v1.Subtitle("TASBlend" ),
\ v2.Subtitle("TASBlend_nanogyth"),
\ v3.Subtitle("TASBlend_Vit" ))
function TASBlend_nanogyth(clip c) {
c
Assert(!IsRGB, "TASBlend_nanogyth: clip cannot be RGB")
Interleave(SelectEven.dbz.SelectEvery(4, 0),
\ SelectOdd .dbz.SelectEvery(4, 1))
}
function dbz(clip c) {
super = c.MSuper(pel=2)
backward_vec = MAnalyse(super, isb=true)
forward_vec = MAnalyse(super, isb=false)
MFlowFps(c, super, backward_vec, forward_vec, num=60, den=1, ml=100)
}
function TASBlend_Vit(clip c, float "ratio") {
# reduces framerate to 1/2 but leaves flicker effects partly visible
# blends frame pairs with alternating opacity (default is 2/3 + 1/3;1/3 + 2/3)
# optional "ratio" is the opacity of the first frame out of the four
ratio = default(ratio, 2.0/3)
opacity = round(ratio * 257)
# blend flicker to half-rate
c.SelectEvery(4, 1, 0, 2, 3)
blend = Layer(SelectEven, SelectOdd, level=opacity)
# determine flicker is a simplistic way - compare each pixel with the previous and next two frames
similar2 = 1 # how similar current pixel must be to the same pixel 2 frames forwards and backwards
different1 = 8 # how different current pixel must be from the same pixel 1 frame forwards and backwards
mask_f2 = Overlay(c, c.SelectEvery(1, 2), mode="difference", pc_range=true).Greyscale.Levels(128 + similar2 , 1.0, 129 + similar2 , 0, 255, false).Invert
mask_f1 = Overlay(c, c.SelectEvery(1, 1), mode="difference", pc_range=true).Greyscale.Levels(128 + different1, 1.0, 129 + different1, 0, 255, false)
mask_b1 = Overlay(c, c.SelectEvery(1,-1), mode="difference", pc_range=true).Greyscale.Levels(128 + different1, 1.0, 129 + different1, 0, 255, false)
mask_b2 = Overlay(c, c.SelectEvery(1,-2), mode="difference", pc_range=true).Greyscale.Levels(128 + similar2 , 1.0, 129 + similar2 , 0, 255, false).Invert
mask_f = Overlay(mask_f1, mask_f2, mode="multiply", pc_range=true)
mask_b = Overlay(mask_b1, mask_b2, mode="multiply", pc_range=true)
mask = Overlay(mask_f, mask_b, mode="multiply", pc_range=true).SelectEven
# only use blend where detected flicker
Layer(c.SelectEven, blend.mask(mask))
}AVISource(...)
PointResize(Width * 2, Height * 2)
ConvertToYUY2
Test
function Test(clip c) {
Interleave(c.SelectEven.dbz.SelectEvery(4, 0),
\ c.SelectOdd .dbz.SelectEvery(4, 1))
}
function dbz(clip c) {
super = c.MSuper(pel=2)
backward_vec = MAnalyse(super, isb=true)
forward_vec = MAnalyse(super, isb=false)
MFlowFps(c, super, backward_vec, forward_vec, num=60, den=1, ml=100)
}function TASBlend(clip c, float "ratio") {
# reduces framerate to 1/2 but leaves flicker effects partly visible
# blends frame pairs with alternating opacity (default is 2/3 + 1/3;1/3 + 2/3)
# optional "ratio" is the opacity of the first frame out of the four
ratio = default(ratio, 2.0/3)
opacity = round(ratio * 257)
# blend flicker to half-rate
c.SelectEvery(4, 1, 0, 2, 3)
blend = Layer(SelectEven, SelectOdd, level=opacity)
# determine flicker is a simplistic way - compare each pixel with the previous and next two frames
similar2 = 1 # how similar current pixel must be to the same pixel 2 frames forwards and backwards
different1 = 8 # how different current pixel must be from the same pixel 1 frame forwards and backwards
mask_f2 = Overlay(c, c.SelectEvery(1, 2), mode="difference", pc_range=true).Greyscale.Levels(128 + similar2 , 1.0, 129 + similar2 , 0, 255, false).Invert
mask_f1 = Overlay(c, c.SelectEvery(1, 1), mode="difference", pc_range=true).Greyscale.Levels(128 + different1, 1.0, 129 + different1, 0, 255, false)
mask_b1 = Overlay(c, c.SelectEvery(1,-1), mode="difference", pc_range=true).Greyscale.Levels(128 + different1, 1.0, 129 + different1, 0, 255, false)
mask_b2 = Overlay(c, c.SelectEvery(1,-2), mode="difference", pc_range=true).Greyscale.Levels(128 + similar2 , 1.0, 129 + similar2 , 0, 255, false).Invert
mask_f = Overlay(mask_f1, mask_f2, mode="multiply", pc_range=true)
mask_b = Overlay(mask_b1, mask_b2, mode="multiply", pc_range=true)
mask = Overlay(mask_f, mask_b, mode="multiply", pc_range=true).SelectEven
# only use blend where detected flicker
Layer(c.SelectEven, blend.mask(mask))
}I came up with this idea earlier. My idea involved dumping 32-bit PNG image strips of every layer and then blending the ones when appropriate manually. It isn't perfect, but it's better than doing the whole frame.
BGMode front -> back condition
-----------------------------------
0 3AB2ab1CD0cd
1 3AB2ab1C 0c BG3_Top == 0
1 C3AB2ab1 0c BG3_Top == 1
2 3A 2B 1a 0b
3 3A 2B 1a 0b
4 3A 2B 1a 0b
5 3A 2B 1a 0b
6 3A 2 1a 0
7 3 2 1a 0 EXTBG == 0
7 3 2B 1a 0b EXTBG == 1
0..3 = sprites with that priority
ABCD = BG1..BG4 tiles with priority bit == 1
abcd = BG1..BG4 tiles with priority bit == 0
BGMode = register $2105 bits 0..2
BG3_Top = register $2105 bit 3
EXTBG = register $2133 bit 6So this is the first time I see the blurrying caused by TASblend. I think my simple 25 FPS solution was better since it was almost unnoticeable.
I've defaulted to using TASBlend on all of my new encodes regardless to flicker.
LoadCPlugin("path_to_separate_directory\yadif.dll")AVISource("00.avi", audio=false)
PointResize(Width, Height * 2)
ConvertToYUY2
src = last
even = SelectEven
odd = SelectOdd
MaskClip = Get_BlackWhitePattern(Width, Height)
temp1 = even.Overlay(odd , mask=MaskClip, opacity=0.7).SelectEven
temp2 = odd .Overlay(even, mask=MaskClip, opacity=0.3).SelectOdd
result1 = Interleave(temp1, temp2.SelectOdd).Yadif(order=1).PointResize(256, 896)
src.DeleteFrame(0)
even2 = SelectEven
odd2 = SelectOdd
temp2_1 = even2.Overlay(odd2 , mask=MaskClip, opacity=0.7)
temp2_2 = odd2 .Overlay(even2, mask=MaskClip, opacity=0.3)
result2 = Interleave(temp1, temp2).Yadif(order=1).PointResize(256, 896)
Overlay(result1, result2, mask=StackVertical(MaskClip, MaskClip)).Yadif(order=1)
function Get_BlackWhitePattern(int xRes, int yRes) {
BlankClip(10000, xRes, 1, "YUY2", 30, color=$FFFFFF)
Add_BlackWhiteLines(yRes)
}
function Add_BlackWhiteLines(clip c, int yRes) {
return (c.Height==yRes) ? c : ((c.Height % 2) == 0) ? c.AddBorders(0, 0, 0, 1, $FFFFFF).Add_BlackWhiteLines(yRes)
\ : c.AddBorders(0, 0, 0, 1, $000000).Add_BlackWhiteLines(yRes)
}Someone on IRC had the following idea: take odd lines from frame 1, merge with even lines from frame 2 ---> frame 1 take even lines from frame 3, merge with odd lines from frame 4 ---> frame 2 ... and so on. I tested how it looks like, but it wasn't good. I did the following: take line 1 from frame 1, line 1 from frame 2, line 2 from frame 1, line 2 from frame 2, line 3 from frame 1, line 3 from frame 2, ... -> frame 1 take line 1 from frame 4, line 1 from frame 3, line 2 from frame 4, line 2 from frame 3, line 3 from frame 4, line 3 from frame 3, ... -> frame 2 (blackwhite-test.png is a 1x224 picture consisting of a white pixel followed by a black pixel followed by a white pixel followed by a black pixel ...) That's the AVIsynth code to do that (given the input video is 256x224)What do you think about the result for 70% / 30% or the result with 100% / 100% with deinterlacer ?original = AVIsource("test-blend.avi").pointresize(256,448).killaudio() even = original.selecteven() odd = original.selectodd() maskclip1 = ImageReader("blackwhite-test.png",1,10000,30).pointresize(256,224) maskclip = stackvertical(maskclip1, maskclip1) temp1 = even.overlay(odd, mask=maskclip, opacity = 0.7) temp2 = odd.overlay(even, mask=maskclip, opacity = 0.3) return interleave(temp1.selecteven(), temp2.selectodd())