forked from Dogway/Avisynth-Scripts
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Stabilization Tools Pack.avsi
421 lines (353 loc) · 19.9 KB
/
Stabilization Tools Pack.avsi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
### #
### #
### 2.1 by Dogway (16-09-2015) #
### mod 2.533 by A.SONY (29-11-2020) #
### 3.0b3 by Dogway (20-05-2021) # Updated Stab() and FillBorder()
### Stabilization Tools Pack 3.1 by Dogway (17-11-2021) # Cosmetics and update a few functions
### #
### https://forum.doom9.org/showthread.php?t=182881 #
### #
############################################################
###
###
### Set of tools to work with common stabilization issues, mainly from telecine process.
### For aggressive handheld camera shaking I still recommend vdub's Deshaker.
###
### Required: AviSynth+ 3.5+
### ExTools
###
###
##########################################################
###
### FilmGateFix()
###
### Function to fix frames ( by means of FreezeFrame() ) with film gate issues after a scene change.
### This is aimed at animation, for live footage frame interpolation should be desired.
###
### Rationale:
### Film Gate is about non-linear vertical stretching, thus we compare
### current and next frames in two blocks, a 1/5 block of top and bottom.
### The difference in both should be very high for film gate artifacts
### between the 2nd and 3rd frame after a Scene Change (also 1st and 2nd are compared).
### We mask this through a Scene Detection filter, motion masks, etc.
###
### EXPERIMENTAL:
### It still grabs too many false-positives, and leaves many positives-positives undone
### a better approach would be to automatically bookmark every scene change and manually freezeframe them
###
###
### Dependencies:
###
### Required:
### ------------
###
### MVTools (v2.7.45 or higher) (https://avisynth.nl/index.php/MVTools)
### MaskTools2 (v2.2.29 or higher) (https://avisynth.nl/index.php/MaskTools2)
### Average (v0.95 or higher) (https://avisynth.nl/index.php/Average)
### GRunT (v1.0.2 or higher) (https://avisynth.nl/index.php/GRunT)
###
####################################
function FilmGateFix(clip c, float "thr", int "window", int "thSCD1", int "thSCD2", bool "debug") {
thr = Default(thr,1.2) # Main tweak setting, use debug and tweak according 2nd frame after Scene Change
window = Default(window,5) # Enlarges/reduces detection area, "height()/window"
thSCD1 = Default(thSCD1,500) # Increase to reduce number of scenes detected
thSCD2 = Default(thSCD2,145) # Increase to reduce number of scenes detected
Debug = Default(Debug,false) # Check what frames will be fixed and the difference value of frames for tweaking "thr"
thr2 = 5.0 # central part of frame must change less than this to consider static scene to fix.
c
w=width()
h=height()
# change with StainlessS SceneSC()
# Codeblock for Scene Change detection and Motion Mask
kind = 0
gam = 1.2 # Could probably be exposed
mvthr = 30 # Threshold, heavily dependent on gamma value above
super = MSuper (pel=1, sharp=0,vpad=0,hpad=0)
b1v = MAnalyse(super,isb=true, blksize=16,overlap=8,search=0)
f1v = MAnalyse(super,isb=false, blksize=16,overlap=8,search=0)
SADbv1 = MMask (b1v,kind=kind,gamma=gam,thSCD1=thSCD1,thSCD2=thSCD2)
SADfv1 = MMask (f1v,kind=kind,gamma=gam,thSCD1=thSCD1,thSCD2=thSCD2)
SceneChange = MSCDetection (f1v,thSCD1=thSCD1,thSCD2=thSCD2)
mvmask = Average(SADbv1,1./2,SADfv1,1./2)
# Film Gate happens commonly between 2nd and 3rd frame after SC
# 1st frame is commonly garbage
add = round(w/(window*1.0))
T = crop(0,0,0,nmod(-h+add,8),true)
B = crop(0,nmod(h-add,8),0,0, true)
L = crop(0,0,nmod(-w+add,8),0,true)
R = crop(nmod(w-add,8),0,0,0, true)
CTB = crop(0,nmod(add,8),0,-((add)/8)*8,true)
CLR = crop(nmod(add*1.5,8),0,-nmod(add*1.5,8),0,true)
SC2 = ex_logic(SceneChange,selectevery(SceneChange,1,-1),"max",UV=3)
# Here, if after SC top area changes more than "thr" compared to bottom area
# then apply one FreezeFrame() for first SC frame, and another FreezeFrame() for the 2nd one,
# they (1st and 2nd) compute individually. There is a motionmask on top to rule out false positives.
scriptclip("""(abs(YDifferenceToNext(T)-YDifferenceToNext(B))>"""+string(thr)+""" && abs(YDifferenceToNext(CTB))<"""+
\ string(thr2)+""") || (abs(YDifferenceToNext(L)-YDifferenceToNext(R))>"""+string(thr)+
\ """ && abs(YDifferenceToNext(CLR))<"""+string(thr2)+""") ?"""+
\ """(YplaneMax(SC2)>254?(YDifferenceFromPrevious(SC2)>250?(AverageLuma(mvmask)<"""+string(mvthr)+
\ """?(LumaDifference(c,d)<3.7?freezeframe(current_frame,current_frame,current_frame+2):(YDifferenceToNext()<8.0?freezeframe(current_frame,current_frame,current_frame+1):c)):c):"""+
\ """(AverageLuma(mvmask)<"""+string(mvthr)+"""?freezeframe(current_frame,current_frame,current_frame+1):c)):c):c""",
\ args="T,B,L,R,c,SC2,CTB,CLR,mvmask,d=Trim(2,0)")
# Debug block
debug ? +\
eval("""stackhorizontal(scriptclip("Subtitle(c,"+Chr(34)+" Top & Bottom:"+Chr(34)+"+String(YDifferenceToNext(T)-YDifferenceToNext(B))+
\ "+Chr(34)+"\n Left & Right: "+Chr(34)+"+String(YDifferenceToNext(L)-YDifferenceToNext(R))+
\ "+Chr(34)+"\n Center Horiz: "+Chr(34)+"+String(YDifferenceToNext(CTB))+
\ "+Chr(34)+"\n Center Vert: "+Chr(34)+"+String(YDifferenceToNext(CLR))+
\ "+Chr(34)+"\n AvgLuma: "+Chr(34)+"+String(LumaDifference(c,d)),
\ align=7,size=30,lsp=10)",args="T,B,L,R,c,CTB,CLR,d=Trim(2,0)"),
\ scriptclip("AverageLuma(mvmask)<"""+string(mvthr)+"""?((abs(YDifferenceToNext(T)-YDifferenceToNext(B))>"+string(thr)+
\ " && abs(YDifferenceToNext(CTB))<"+string(thr2)+") || (abs(YDifferenceToNext(L)-YDifferenceToNext(R))>"+
\ string(thr)+" && abs(YDifferenceToNext(CLR))<"+string(thr2)+") ? "+
\ "(YplaneMax(SC2)>254?(LumaDifference(c,d)<3.7?mt_lut(c,"+Chr(34)+"255"+Chr(34)+",U=128,V=128):(YDifferenceToNext()<8.0?mt_lut(c,"+Chr(34)+"255"+Chr(34)+",U=128,V=128):mt_lut(c,"+Chr(34)+"0"+Chr(34)+
\ ",U=128,V=128))):mt_lut(c,"+Chr(34)+"0"+Chr(34)+",U=128,V=128)):mt_lut(c,"+Chr(34)+"0"+Chr(34)+",U=128,V=128)):mt_lut(c,"+Chr(34)+"0"+
\ Chr(34)+",U=128,V=128)",args="T,B,L,R,c,CTB,CLR,SC2,mvmask,d=Trim(2,0)"))
\ crop(0,0,-nmod(w/1.1,2),0,true).Subtitle("Frame to Freeze",align=9,size=40)""") : last }
####################################
###
### FillBorder()
###
###
### Function to fill dark (use threshold) borders, in the vein of old FillMargins() function.
### But instead of mirroring or other approaches like resizing, this function fills/interpolates
### missing data from surrounding pixels.
### Useful to use as a clean pass after stab() and crop(x1,y1,x2,y2)
### for the remaining thin black borders (up to 3px)
###
### For borders of 4px and more you can enable FixFalPos, there you supply a clip
### without black borders (ie. before stab() ). It automatically replaces the offended frames.
### Some thick black borders aren't "0" black at all, they show garbage and the 3+1 pixel border
### may not average to 0, so a "thr2" setting is added as threshold, default 7 should be enough.
###
### Below you can still use the the FindBlackBorders() function for manual handling of thick black borders.
### Use ClipClop() for the stab() results according to the statistics file of FindBlackBorders()
###
###
### EXPERIMENTAL:
### Some thick black borders aren't value 0 at all, sometimes they average to 16, so one would
### need to set thr2 to >16 which will basically bypass the Stab'ed clip in a lot of dark scenes.
### So probably you might still want to use this for only <4px borders and FindBlackBorders() to
### manually find the most offending borders and problematic areas.
###
###
### Dependencies:
###
### GRunT (v1.0.2 or higher) (https://avisynth.nl/index.php/GRunT)
### AVSInpaint (v1.3 or higher) (https://avisynth.nl/index.php/AvsInpaint)
###
####################################
function FillBorder(clip c, int "thr", int "pad", bool "blur", bool "debug", clip "FixFalPos", clip "FillBordersc", int "thr2", bool "mirror", float "PAR", bool "subsample", bool "maskonly") {
thr = Default(thr, 1) # Threshold, pixel values below this will be considered borders
pad = Default(pad, 0) # Pixels, you can expand the replacement area adding more pixels
# (to deal with dirty borders) (use "1" to deal with 1px b/w chroma, due to the chroma subsampling nature of video)
mirror = Default(mirror, false)
blur = Default(blur, false) # Blurs the masking for the replacement area. Currently not supported for InpaintLogo()
debug = Default(debug,false) # Show the borders that are going to be filled
FalPos = Defined(FixFalPos) # If you supply a reference clip borders with 4 or more
# average thr2 pixels will be replaced with the clip's frame
thr2 = Default(thr2, 7) # Threshold for FalPos, FalPos frames sometimes have garbage borders so you need to increase threshold
mskonly = Default(maskonly, false) # Show the border mask
subsampl = Default(subsample,false)
# FillBordersc, replacement clip, even for 1 or 2 pixel borders
c
contoy = !isy()
contoy ? ExtractY() : last
yclip=last
w=width()
h=height()
# 4px or greater
L4=FalPos ? crop(0,0,-w+4,0,true) : nop()
R4=FalPos ? crop(w-4,0,0 ,0,true) : nop()
T4=FalPos ? crop(0,0,0,-h+4,true) : nop()
B4=FalPos ? crop(0,h-4,0 ,0,true) : nop()
c
Fill = ScriptClip("""
yclip
pad = blur ? pad+2 : pad
x1o=0 x2o=0
y1o=0 y2o=0
for (li=1, 3, 1) {
if (AverageLuma(crop(li-1,0,-w+li,0,true))>thr) {
x1o= li-1
li=3
}
}
for (ri=1, 3, 1) {
if (AverageLuma(crop(w-ri,0,-ri+1,0,true))>thr) {
x2o= ri-1
ri=3
}
}
for (ti=1, 3, 1) {
if (AverageLuma(crop(0,ti-1,0,-h+ti,true))>thr) {
y1o= ti-1
ti=3
}
}
for (bi=1, 3, 1) {
if (AverageLuma(crop(0,h-bi,0 ,-bi+1,true))>thr) {
y2o= bi-1
bi=3
}
}
x1=x1o+pad
x2=x2o+pad
y1=y1o+pad
y2=y2o+pad
FalPos = !mskonly && FalPos ? ((x1o > 2 || x2o > 2 || y1o > 2 || y2o > 2 )
\ ? ((AverageLuma(L4) < thr2) || (AverageLuma(R4) < thr2) || (AverageLuma(T4) < thr2) || (AverageLuma(B4) < thr2))
\ : false) : false
cropnpad = (x1+y1+x2+y2>0)
ter = !FalPos && cropnpad
x1inp=cropnpad && subsampl ? nmod(x1o,2) : x1
x2inp=cropnpad && subsampl ? nmod(x2o,2) : x2
y1inp=cropnpad && subsampl ? nmod(y1o,2) : y1
y2inp=cropnpad && subsampl ? nmod(y2o,2) : y2
PaCl = mskonly ? nop() : mirror && !ter ? c.crop(x1inp,y1inp,-x2inp,-y2inp,true).PadBorders(x1inp,y1inp,x2inp,y2inp) : c
msk = LetterBox(BlankClip(last,1,pixel_type="Y8",color_yuv=$ffffff),y1,y2,x1,x2,color_yuv=$000000).killaudio()
msk = !mirror ? msk.expr("x range_half > range_max x ?") : msk
msk = !mirror && blur ? msk.ex_boxblur(2) : msk
msk = contoy ? CombinePlanes(msk,c,planes="YUV",sample_clip=c) : msk
fill = mskonly ? msk : FalPos ? trim(c,0,current_frame-1)++trim(FixFalPos,current_frame,-1)++trim(c,current_frame+1,0) : \
(ter ? Defined(FillBordersc) ? ex_merge(c,FillBordersc,msk) : \
InpaintLogo(c, radius=max(x1,y1,x2,y2)+max(2,pad), mask=msk,ChromaTensor=subsampl,PixelAspect=PAR,PreBlur=mirror && blur ? 2.5 : Undefined) : \
PaCl)
debug ? ter ? subtitle(msk,"Bordered",align=3,size=round(h/20.0)) : msk : fill
""",args="yclip,c,w,h,contoy,thr,thr2,L4,R4,T4,B4,pad,blur,debug,FalPos,FixFalPos,mirror,subsampl,PAR,mskonly,FillBordersc",local=true)
!debug ? Fill : \
eval("""
box = h/4.0
m = 2
corner = crop(Expr("range_max"),nmod(w-box,m),nmod(h-box,m),0,0,true)
corner = corner.addborders(0,0,nmod(w/2.0-box,m),nmod(box,m)).expr("x range_max < range_min range_max ?")
horiz = stackhorizontal(corner,corner.fliphorizontal())
verti = stackvertical(horiz,horiz.flipvertical())
ex_merge(c,Fill.PointResize(w,h),verti,luma=true)""") }
####################################
###
### FindBlackBorders()
###
###
### Script to find sources with black borders for example as a result of bad deshaking, run on analysis pass
### The output file is formatted to be imported to avspmod as bookmarks
### use ClipClop() afterwards on a scene by scene basis to fix this.
###
### "width" is border thickness for detection
### "thr" is threshold, pixel values below this will be considered borders
### "path" is the path to store the statistics file, with end backslash. Default is "C:"
### "filename" is the statistics file name. In case you don't want to overwrite old ones
###
### Dependencies:
###
### Required:
### ------------
###
### MaskTools2 (v2.2.29 or higher) (https://avisynth.nl/index.php/MaskTools2)
### Dither (v1.28.1 or higher) (https://avisynth.nl/index.php/Dither)
###
####################################
function FindBlackBorders(clip c, int "width", int "thr", string "path", string "filename") {
add = Default(width,1) # Width for detection, normally 1 should suffix to most situations
thr = Default(thr, 1) # Threshold for detection, pixels lower than this value will be considered a border
path = Default(path, "C:") # This is the path to store the statistics file
filename = Default(filename, "FindBlackBorders - Statistics.log") # Filename of the statistics file
c
ExtractY()
w=width()
h=height()
L1=crop(0,0,-w+add,0,true)
R1=crop(w-add,0,0 ,0,true)
T1=crop(0,0,0,-h+add,true)
B1=crop(0,h-add,0 ,0,true)
ScriptClip("""
x1 = AverageLuma(L1) < thr
x2 = AverageLuma(R1) < thr
y1 = AverageLuma(T1) < thr
y2 = AverageLuma(B1) < thr
function IsBorder(clip c, bool x1, bool x2, bool y1, bool y2) {return (x1||y1||x2||y2)}
q = chr(34)chr(34)chr(34)
WriteFileIf(""+path+"\"+filename+"", " "+string(IsBorder(x1,y1,x2,y2))+" ", q+"CHAPTER00="+q,
\ "FFFormatTime_stabi(round((current_frame * 1000) / framerate()))", "", "")
""",args="thr,L1,R1,T1,B1,path,filename")
converttoyv12()
# Bug or limitations of 8-bit masktools with Overlay or...
# mt_merge (masking PC Range masks) so use Dither tools
Dither_merge16_8(Dither_convert_8_to_16(),Dither_convert_8_to_16(c),mt_lut("255"),luma=true)
ditherpost(mode=-1) }
####################################
###
### Stab() v4.0
###
###
### For completeness I'm going to list all the shortcomings of Depan plugin
### maybe a programmer realises the urge of an avisynth bug-free stabilizer:
### -Artifacts occasionally on frame borders (1px skew) --> crop out, check example
### -No advanced border fill --> addressed above ( FillBorder() )
### -Some false-positives when people clapping, trembling...
### -Requires mod 4 inputs?
### -No medium jitter fix
### -Some thick borders (false positives) aren't 0 black on the inner side
###
#######################################
###
### Implemented a FixPalPos to replace frames that present black borders of 3 or more pixels
### with source frames, check output just in case, since some borders don't average to 0 black (rare).
### Also supplied a more contrasty clip version for more subtle global motion analysis
### Prefilter is for the prefilter clip, in case the clip is very grainy/noisy
### Finally a few more things were introduced by testing and checking other script versions.
###
###
### Required (* Optional):
### ------------
### Depan (v2.13.1.6 or higher) (https://avisynth.nl/index.php/DePan)
### DePanEstimate (v2.10.0.4 or higher) (https://avisynth.nl/index.php/DePanEstimate)
### GRunT (v1.0.2 or higher) (https://avisynth.nl/index.php/GRunT)
### RgTools (v1.2) (https://avisynth.nl/index.php/RgTools)
### AVSInpaint* (v1.3 or higher) (https://avisynth.nl/index.php/AvsInpaint)
### Autolevels* (v0.12b3 or higher) (https://avisynth.nl/index.php/Autolevels)
###
### Example:
###
### Stab(dxmax=20, fill=3, FixFalPos=true)
###
####################################
# demote subpixel when UHD or even HD
# Add feedback.dll filling option (use fixed previous frame)
function Stab(clip clp, int "ts", int "range", int "dxmax", int "dymax", bool "FixFalPos", clip "FalPosclip", float "zoom", int "fill", float "PAR", clip "Prefilter", int "Luma_Exp") {
ts = Default(ts, 7) # frames to temporal average for better motion estimation (max. 7)
range = Default(range, 3) # frames before/after to estimate motion
dxmax = Default(dxmax, Round(width(clp)/120.0)) # maximum deviation in pixels
dymax = Default(dymax, dxmax) # x, and y should be the same
zoom = Default(zoom, 1) # maximum zoom factor (1 disabled)
fill = Default(fill, 2) # Border filling. -1: off 0: extend 1: mirror 2: copy from source 3: process with inpaint
PAR = Default(PAR, 1.0) # PAR of your source
FixFalPos = Default(FixFalPos, true) # Fixes borders of 3 or more pixels wide. Use along crop(2,2,-2,-2)...
# ...after stab3() to get rid of border issues entirely
Lumae = Default(Luma_Exp, 1) # Luma Expansion for better accuracy
# 0: disabled 1: TV to PC levels 2: Auto Contrast
Source = Defined(Prefilter) ? Prefilter : clp
Pref = Source.ExtractY()
temp = Pref.TemporalSoften(ts,255,0,25,2) # SC thr to 25 otherwise pans will stutter
rep = temp.Repair(Pref.TemporalSoften(1, 255,0,25,2))
repc = CombinePlanes(rep, Source, planes="YUV", source_planes="YUV", sample_clip = Source)
inter = Interleave(rep,Pref)
# temporal stable auto-contrast (better subpixel detection)
Luma_Expa = Lumae==2 ? Autolevels(inter, filterRadius=10, output_low=0, output_high=255, ignore=0.05, sceneChgThresh=16) : \
Lumae==1 ? inter.SMPTE_legal(false) : \
inter
mdata = DePanEstimate(Luma_Expa,range=range,pixaspect=PAR,trust=0.0,dxmax=dxmax,dymax=dymax,zoommax=zoom)
DePan(Interleave(repc,Source),data=mdata,offset=-1,mirror=fill==1?15:0,pixaspect=PAR,matchfields=false,subpixel=2)
SelectEvery(2,0)
subsampl = !(clp.is444() || clp.isy())
abs(fill) != 1 ? FillBorder(pad=subsampl ? 1 : 0,subsample=subsampl,FixFalPos=Defined(FalPosclip) ? FalPosclip : FixFalPos ? clp : Undefined, mirror=fill==0, FillBordersc=fill==2 ? clp : Undefined, PAR=PAR) : last }
######### HELPER FUNCTIONS #########
# Helper function for FindBlackBorders() from FFMS2.avsi
function FFFormatTime_stabi(int ms) {
s = ms / 1000
ms = ms % 1000
m = s / 60
s = s % 60
h = m / 60
m = m % 60
return string(h) + ":" + string(m,"%02.0f") + ":" + string(s,"%02.0f") + "." + string(ms,"%03.0f")}