Reel.Deal: link

2015-09-15T17:46:23Z

link

← Older revision		Revision as of 19:46, 15 September 2015
Line 1:		Line 1:
	~~copy~~ the code below into a file 'RestoreSuper8Frames.avsi' in your AviSynth plugins directory or directly into your script:		Discussion thread: http://forum.doom9.org/showthread.php?t=155245

			Copy the code below into a file '<tt>RestoreSuper8Frames.avsi</tt>' in your AviSynth plugins directory or directly into your script:

	# RestoreSuper8Frames() ( 9 Mar 2007 )		# RestoreSuper8Frames() ( 9 Mar 2007 )

Admin: 1 revision

2013-05-09T21:34:45Z

1 revision

New page

copy the code below into a file 'RestoreSuper8Frames.avsi' in your AviSynth plugins directory or directly into your script:

# RestoreSuper8Frames() ( 9 Mar 2007 )
#
# A combed-frames eliminator for transcript of old movies to video by Martin Wagener
#
# RestoreSuper8Frames() is designed to select the video frames that were best exposed with single images of the movie
# and transform all the other frames to plain black.
#
# RestoreSuper8Frames() expects a data stream with at least 3 and no more than 4 time the field(!) rate of the movie.
# i.e. the video frame rate must be between 1.5 and 2 of the movie image rate.
#
# The algorithm is simple: with the help of FieldDeinterlace(), the combing of the previous, current and
# next frame are compared and a black frame is returned if the current frame is not the minimum.
#
# The filter returns irregular sequences of single best-choice frames and one to three black frames.
# These sequences can be turned into alternating black-good-black-good sequences with MultiDecimate()
# and then into the perfect sequence with SelectEven().
#
# In favor to guarantee that it is always SelectEven() and not SelectOdd() for the good frames,
# this filter always turns the first frame black.
#
# To supply RestoreSuper8Frames() with the neccessary frames, use DoubleWeave().
# DoubleWeave() will recombine all fields of the raw video in a way that always outputs one uncombed frame in the sequence.
#
# Movie: | A |~| B |~| C |~| D ( A...D are the movie images - Projector slow at B, ~ is shutter)
# source vid.: |a* a*|b b*|c* c*|d d*|e* e | (a..e are the video frames, * shows the uncombed)
# |1 2 |1 2 |1 2 |1 2 |1 2 | (1 and 2 are the the fields of the frames)
# | a | b | c | d | e | (this shows the complete frames before DoubleWeave()
# DoubleWeave: |aa|ab|bb|bc|cc|cd|dd|de|ee|
# |12|21|12|21|12|21|12|21|12|
# |a |a'|b |b'|c |c'|d |d'|e | (the frames after DoubleWeave())
# A - - B - - - C - (A-C=good frames after RestoreSuper8Frames(), -=black frames)
#
# The exact(!) image sequence of the celluloid movie will be reconstructed if the camera takes not less than
# three and not more than four fields per image.
#
## --------

function RestoreSuper8Frames(clip "clip", bool "map", bool "show")
{
map= default(map, false)
SC= "clip=(ip<=ic)?blank:last"+chr(13)+"clip=(in<ic)?blank:clip"+chr(13)+"return((RS8Fshow)?clip.Subtitle(string(ic)):clip)"
FE= "ip=AverageLuma(cp)"+chr(13)+"ic=AverageLuma(cc)"+chr(13)+"in=AverageLuma(cn)"
global RS8Fshow= default(show,false)
global ip=0
global ic=0
global in=0
dt=8
global cf=clip.GreyScale().HorizontalReduceBy2().Blur(1.58,0)
global blank=BlankClip(clip,length=clip.FrameCount(),color=0)
global cp=cf.DuplicateFrame(0).FieldDeinterlace(threshold=255,dthreshold=dt,map=true).Levels(140,1,255,0,255,coring=false)
global cc=cf.FieldDeinterlace(threshold=255,dthreshold=dt,map=true).Levels(140,1,255,0,255,coring=false)
global cn=cf.DeleteFrame(0).DuplicateFrame(clip.Framecount()-1).FieldDeinterlace(threshold=255,dthreshold=dt,map=true).Levels(140,1,255,0,255,coring=false)
f1= clip.ScriptClip(SC)
f0= f1.FrameEvaluate(FE)
return((map) ? Overlay(f0,clip,opacity=0.5).Overlay(BilinearResize(cc,clip.Width(),clip.Height()),opacity=0.5,mode="add") : f0)
# return((show) ? BilinearResize(cc,clip.Width(),clip.Height()) : f0)
}

Back to [[Shared functions]].
[[Category:Shared_functions]]

RestoreSuper8Frames - Revision history

Reel.Deal: link

Admin: 1 revision