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)
opacity1 = round((1 - ratio) * 257)
opacity2 = round(( ratio) * 257)
c
Interleave(Layer(SelectEvery(4, 0), SelectEvery(4, 1), level=opacity1),
\ Layer(SelectEvery(4, 2), SelectEvery(4, 3), level=opacity2))
}very nice hack and very entertaining run, only flaw for me are the missing bosses :(
It plays like at 2 FPS
just use the raw output from the emulator
NES games, for example, look a lot crisper and clearer nowadays on emulators than they do on an actual NES and NTSC TV through that nasty-ass field of grainy artifacts.
AVISource("video.avi")
blended = TASBlend
ChangeFPS(FrameRate / 2)
Replace( 500, 999, blended)
Replace( 2000, 2999, blended)
Replace(70000, 71999, blended)
...
function Replace(clip c, int i, int j, clip d) {
Assert(i >= 0, "Replace: parameter i is negative")
Assert(j >= 0, "Replace: parameter j is negative")
p1 = c.Trim(0 , -i)
p2 = d.Trim(i , j)
p3 = c.Trim(j + 1, 0)
p1 = (i == 0) ? c.Trim(0, -1).DeleteFrame(0) : p1
p3 = (j == 0) ? c.Trim(0, -1).DeleteFrame(0) : p3
p1 + p2 + p3
return (c.HasAudio) ? last.AudioDub(c) : last
}From the perspective of the original consoles, take also into account that TV sets were also 30 FPS (in NTSC systems) or 25 FPS (in PAL systems). The game switching the visibility of a sprite on each frame (in other words the visibility flag changing 60 times per second on NTSC) wouldn't have caused the sprite to flicker on screen. It would have caused the sprite to be seen only on each other scanline (because TVs use interlacing). There would have not been a visible flicker.
AVISource("clip.avi").ConvertToRGB32
PointResize(Width * 2, Height * 2)
v1 = last .Subtitle( "source: 60 fps")
v2 = SimpleBlend .ChangeFPS(60).Subtitle( "SimpleBlend: f0=50% + f1=50%")
v3 = TASBlend .ChangeFPS(60).Subtitle( "TASBlend: f0=66% + f1=33%; f2=33% + f3=66%")
v4 = TASInterleave.ChangeFPS(60).Subtitle("TASInterleave: f0; f1 [f2; f3]")
StackVertical(StackHorizontal(v1, v2),
\ StackHorizontal(v3, v4))
function SimpleBlend(clip c) {
c
Layer(SelectEven, SelectOdd, level=128)
}
function TASBlend(clip c) {
c
Interleave(Layer(SelectEvery(4, 0), SelectEvery(4, 1), level=round((2.0 / 3) * 257)),
\ Layer(SelectEvery(4, 2), SelectEvery(4, 3), level=round((1.0 / 3) * 257)))
}
function TASInterleave(clip c) {
c
Interleave(SelectEvery(4, 0),
\ SelectEvery(4, 1))
}If it is 30.050, then AssumeFPS will make the A/V desync. It should probably be ChangeFPS instead.
The AVS script for this clip is here.
Looks a lot better than I expected. Though, it would be nice to have another example that uses a bit more scrolling at higher speeds.
A quick question - all of this seems to be based on the fact that youtube... sucks. Seriously, seriously, sucks.
function TASBlend(clip c) {
Interleave(Layer(SelectEvery(4, 0), SelectEvery(4, 1), round(2.0 / 3 * 257))
\ Layer(SelectEvery(4, 2), SelectEvery(4, 3), round(1.0 / 3 * 257)))
}function Blend(clip c1, clip c2, float opacity) {Layer(c1, c2, level=int(opacity * 257))}
AVISource(...)
ConvertToRGB32
...@Flygon: How would it be impossible if you let a modified version of the emulator (or maybe LUA) do it?
function Blend(clip c1, clip c2, float opacity) {Layer(c1, c2, level=opacity)}
AVISource(...)
src = last
f0 = SelectEvery(4, 0)
f1 = SelectEvery(4, 1)
f2 = SelectEvery(4, 2)
f3 = SelectEvery(4, 3)
a = Blend(f0, f1, 1.0 * 2/3)
b = Blend(f2, f3, 1.0 * 1/3)
pattern_33_66__66_33 = Interleave(a, b)
src
f0 = SelectEvery(8, 0)
f1 = SelectEvery(8, 1)
f2 = SelectEvery(8, 2)
f3 = SelectEvery(8, 3)
f4 = SelectEvery(8, 4)
f5 = SelectEvery(8, 5)
f6 = SelectEvery(8, 6)
f7 = SelectEvery(8, 7)
a = Blend(f0, f1, 1.0 * 2/3)
b = Blend(f2, f3, 1.0 * 1/2)
c = Blend(f4, f5, 1.0 * 1/3)
d = Blend(f6, f7, 1.0 * 1/2)
pattern_33_66__50_50__66_33__50_50 = Interleave(a, b, c, d)
pattern_... # select oneIt would still be nice to see how the Super Metroid clip would look like with averaged frames.
function BlendFields(clip) {
clip
(FrameCount % 2 == 1) ? DuplicateFrame(FrameCount - 1) : nop
Layer(SelectEven, SelectOdd, level=128)
}