[не удалять] XviD4PSP - универсальный медиаконвертер [архив №4]

#ccd_sse2.vdf
#vdf_arguments:CamCD:0
#RemoveGrainTSSE2.dll
#RemoveGrainSSE2.dll
#RepairSSE2.dll
#mvtools2.dll
#MT.dll
#msharpen.dll
#mipsmooth.dll
#awarpsharp2.dll
#mt_masktools-25.dll
#dfttest.dll
#SDIAdapt.avs
#DeRainbow.avs
#LimitedSharpenfaster mod.avs
setmtmode(2)
setmemorymax(640)
Global thicknessline = 2 # thickness horizontal spike in pixels at field scale (not frame)
Global radvertmed = 2*thicknessline-1
Global distser = 25 # distance between short lines
Global halflength = 3 # detect line longer 2*halflength+1 pixels
# удаление радужности и цветового шума
ConvertToRGB32().CamCD(15,1).ConvertToYV12()
DeRainbow(10).mergechroma(last)
bobnn = last
# bobbing for better motion estimation
bobnnmed = bobnn.mt_luts(bobnn,mode="median",pixels=mt_rectangle(0,radvertmed),U=3,V=3)
# vertical median filter
bobnnmedf = bobnnmed.dfttest(tbsize=1,ftype=1,sbsize=8,sosize=6,sigma=1000,U=false,V=false)
#dft filter remove segregation after median vertical filter
super = bobnn.MSuper()
superf = bobnnmedf.MSuper(chroma=false)
bw1 = MAnalyse(superf, blksize=8, isb = true, delta = 1, overlap=4, dct=5, chroma=false)
bw2 = MAnalyse(superf, blksize=8, isb = true, delta = 2, overlap=4, dct=5, chroma=false)
fw1 = MAnalyse(superf, blksize=8, isb = false,delta = 1, overlap=4, dct=5, chroma=false)
fw2 = MAnalyse(superf, blksize=8, isb = false,delta = 2, overlap=4, dct=5, chroma=false)
bc1 = MCompensate(bobnn, super, bw1, thSAD=16000, thSCD1=16000)
bc2 = MCompensate(bobnn, super, bw2, thSAD=16000, thSCD1=16000)
fc1 = MCompensate(bobnn, super, fw1, thSAD=16000, thSCD1=16000)
fc2 = MCompensate(bobnn, super, fw2, thSAD=16000, thSCD1=16000)
# motion estimation on filtered and compensating on source
bwabs1 = mt_lutxy(bobnn,bc1,"x y - abs")
bwabs2 = mt_lutxy(bobnn,bc2,"x y - abs")
fwabs1 = mt_lutxy(bobnn,fc1,"x y - abs")
fwabs2 = mt_lutxy(bobnn,fc2,"x y - abs")
# calculation absolute difference between source and compensated
SDIc = SDIAdapt(bwabs1,fwabs1)
SDIb = SDIAdapt(bwabs1,bwabs2)
SDIf = SDIAdapt(fwabs1,fwabs2)
# calculation spike detection index for center, forwad and backward
mb1sad = bobnnmedf.MMask(bw1,kind=1,ml=100,Ysc=255, thSCD1=16000)
mb2sad = bobnnmedf.MMask(bw2,kind=1,ml=100,Ysc=255, thSCD1=16000)
mf1sad = bobnnmedf.MMask(fw1,kind=1,ml=100,Ysc=255, thSCD1=16000)
mf2sad = bobnnmedf.MMask(fw2,kind=1,ml=100,Ysc=255, thSCD1=16000)
# calculating SAD for filtered for estimation better choice for motion compensation
centersad = mt_logic(mf1sad,mb1sad,"max")#,U=2,V=2)
# maximum SAD from forward and backward measure for quality center compensation
bwsad = mt_logic(mb1sad,mb2sad,"max")
#for backward compensation
fwsad = mt_logic(mf1sad,mf2sad,"max")
#for forward compensation
centermask = mt_invert(centersad)
bwmask = mt_invert(bwsad)
fwmask = mt_invert(fwsad)
# inverting mask for using mt_merge
mcfcenter = clense(bc1, bobnn,fc1,increment=0, grey=false)
mcfbw = clense(bc1, bobnn,bc2,increment=0, grey=false)
mcffw = clense(fc1, bobnn,fc2,increment=0, grey=false)
# motion compensated median filtering for center, backward and forward compensation
# sort SAD for finding better motion compensated median filtering, this approach can use without SDI for pixels and 1 line thickness stripes
mt_logic(mt_lutxy(centersad,bwsad,"x y <= "), mt_lutxy(centersad,fwsad,"x y <="),"and")
maskcentersad = mt_lutxy(last,centersad,"x 255 y - 0 ?") # center filtered
mt_logic(mt_lutxy(bwsad,centersad,"x y < "), mt_lutxy(bwsad,fwsad,"x y <="),"and")
maskbwsad = mt_lutxy(last,bwsad,"x 255 y - 0 ?") # backward filtered
mt_logic(mt_lutxy(fwsad,centersad,"x y < "), mt_lutxy(fwsad,bwsad,"x y < "),"and")
maskfwsad = mt_lutxy(last,fwsad,"x 255 y - 0 ?") # forward filtered
mcfmaskedsad = mt_merge(bobnnmed,mcfbw,maskbwsad,luma=true)
mcfmaskedsad = mt_merge(mcfmaskedsad,mcffw,maskfwsad,luma=true)
mcfcentersad = mt_merge(mcfmaskedsad,mcfcenter,maskcentersad,luma=true)
#best value based on 3 motion compensated median time filtered value and spatial filtered
# where motion compensation bad, work only for one sequintial frame with spike
mcfbwsad = mt_merge(bobnnmed,mcfbw,maskbwsad,luma=true)
mcffwsad = mt_merge(bobnnmed,mcffw,maskfwsad,luma=true)
# backward and forward compensated full for SDI approach and spatial filtered where motion compensation bad
#end sort SAD
# sort SDI for choose center, forward or forward compensation work with 2 sequential frames, for 3 need 2 pass filtering, for 4 3 pass
maskcentersdi = mt_logic(mt_logic(mt_lutxy(SDIc,SDIb,"x y >= "), mt_lutxy(SDIc,SDIf,"x y >="),"and"),SDIc,"and").mt_lut("x 255 0 ?") # center SDI
maskbwsdi = mt_logic(mt_lutxy(SDIb,SDIc,"x y > "), mt_lutxy(SDIb,SDIf,"x y >="),"and").mt_lut("x 255 0 ?") # backward SDI
maskfwsdi = mt_logic(mt_lutxy(SDIf,SDIc,"x y > "), mt_lutxy(SDIf,SDIb,"x y >"),"and").mt_lut("x 255 0 ?") # forward SDI
maskedsdi = mt_merge(bobnn,mcfcentersad,maskcentersdi,luma=true)
maskedsdi = mt_merge(maskedsdi,mcffwsad,maskfwsdi,luma=true)
mt_merge(maskedsdi,mcfbwsad,maskbwsdi,luma=true) #end sort SDI
LSFmod(defaults="fast", preblur="ON", strength=90)
# Пресет предназначен для обработки старых VHS видеокассет с выбросами пульсаций

#ccd_sse2.vdf
#vdf_arguments:CamCD:0
#RemoveGrainSSE2.dll
#RemoveGrainTSSE2.dll
#RemoveDirt.dll
#RepairSSE3.dll
#aWarpsharp2.dll
#mvtools2.dll
#medianblur.dll
#mt_masktools-25.dll
#MT.dll
#Warpsharp.dll
#DePulse.dll
#Gradfun2db.dll
#AddGrainC.dll
#deVCR.avs
#DeHalo_Alpha.avs
#RemoveColorBleeding.avs
#GradFunkMirror.avs
#GrainFactory3.avs
#LimitedSharpenFaster Mod.avs
setmtmode(2)
setmemorymax(640)
# ==== Подавление цветового шума и радужности изображения ====
ConvertToRGB32()
CamCD(15,1)
ConvertToYUY2()
DePulse(h=180, l=60, d=30, debug=false)
ConvertToYV12()
RemoveColorBleeding() # Delate Colorbleeding
deVCR(10).deVCR(0) # ремонт горизонтальных линий затиров
# ==== Ремонт полосы нарезки и наложение её на исходник ====
source=last
filtered = source.RemoveDirt(false,10)
dark = 32
bright = 196
mask1 = mt_lut(source,"x "+string(dark)+" < 255 x "+string(bright)+" > 255 0 ? ?",U=1,V=1).removegrain(19,-1,-1)
min = 16
max = 255
mask2 = mt_lutxy(source,filtered,"x y - abs "+string(min)+" < 0 x y - abs "+string(max)+" > 0 255 ? ?",U=1,V=1).removegrain(19,-1,-1)
rdr = mt_merge(source,filtered,mt_logic(mask1,mask2,"min"),luma=true)
preNR_super = filtered.MSuper(pel=2, sharp=2, rfilter=2)
rdr_super = rdr.MSuper(pel=2, sharp=2, levels=1)
vb2 = MAnalyse(preNR_super, isb=true, truemotion=false, delta=2, blksize=16, overlap=8, dct=5)
vb1 = MAnalyse(preNR_super, isb=true, truemotion=false, delta=1, blksize=16, overlap=8, dct=5)
vf1 = MAnalyse(preNR_super,isb=false, truemotion=false, delta=1, blksize=16, overlap=8, dct=5)
vf2 = MAnalyse(preNR_super,isb=false, truemotion=false, delta=2, blksize=16, overlap=8, dct=5)
den = rdr.MDegrain2(rdr_super,vb1,vf1,vb2,vf2,thSAD=400).unsharpmask(40,1,0)
dsup = den.MSuper(pel=2,levels=1,chroma=true)
cf1 = MCompensate(den, dsup, vf1, thSCD1=400)
cb1 = MCompensate(den, dsup, vb1, thSCD1=400)
interleave(cf1, den, cb1)
MedianblurT(0,0,0,1)
# Clense(reduceflicker=false)
SelectEvery(3,1)
# ==== Sharpening ====
DeHalo_Alpha(rx=1.5,ry=1.5).LSFmod(defaults="slow", strength=300)
# ==== DeBanding & AddGrain ====
GradFunkMirror().GrainFactory3(3,2,3)
# Назначение:для обработки старых проблемных DVD
# Тип предварительного шумоподавителя: CamCD, DePulse, RemoveDirt
# Тип основного шумоподавителя: на основе векторного анализа оценки движения на MDegrain2+ MCompensate c MedianblurT
# Тип шарпера: LSFmod
# наличие фильтра DeBanding: включен
# Скорость обработки: медленная

Ниже я просто все твои рекомендации вместе собрал. Чтоб потом не рыскать...

---

Учту. Ага. Я и идиотский, и q3 попробую. =)) Учту.

У лондонца StainlessS в подписи на forum.doom9 написаны гениальные слова:

# ==== Подавление цветового шума и радужности изображения ====
ConvertToRGB32()
CamCD(15,1)
ConvertToYUY2()
DePulse(h=180, l=60, d=30, debug=false)
ConvertToYV12()
RemoveColorBleeding() # Delate Colorbleeding
# ==== DeBanding & AddGrain ====
GradFunkMirror().GrainFactory3(3,2,3)