Welcome to Doom9's Forum, THE in-place to be for everyone interested in DVD conversion.

Before you start posting please read the forum rules. By posting to this forum you agree to abide by the rules.

 

Go Back   Doom9's Forum > Capturing and Editing Video > Avisynth Usage

 
 
Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
Old 14th February 2019, 02:49   #1  |  Link
StainlessS
HeartlessS Usurer
 
StainlessS's Avatar
 
Join Date: Dec 2009
Location: Over the rainbow
Posts: 10,980
Scharfis_Brain - Exotic Interlacing (Exotisches Interlacing)

Hi guys,

Found Scharfis_Brain "Exotic Interlacing" on Archive.org,
home site now dead, posting here so as to ensure that it dont get lost.

Original German :- https://web.archive.org/web/20140411...esInterlacing/

Or as PDF here:- http://www.mediafire.com/file/qobn3e...s_Brain%29.pdf

Also English translation :- http://www.mediafire.com/file/kkw0j7...Brain.zip/file
Best I could do a coupla years back, is web page in zip file.

EDIT: PDF and English zip also available via MediaFire in my sig below this post [in DATA folder].

EDIT: Made Englsh translation into PDF and posted in my MediaFire DATA folder (too big for attachment ~500KB): http://www.mediafire.com/file/ndfhri...English%29.pdf


Additional links in the zip:-

The Lurkers Guide: https://lurkertech.com/lg/fields/

And two by Scharfis_Brain

Automated NTSC to PAL conversion for hybrid clips : https://forum.doom9.org/showthread.p...=converter.avs
Fighting against fieldblends (constant pattern): https://forum.doom9.org/showthread.p...threadid=66093

Scripts by Scharfis_Brain
Code:
function converter(clip input, int x, int y, bool TFF, int "combth", bool "speedup", bool "show")
{
    function kernelbob(clip a, int th)
        {
        f=a.
          \kerneldeint(order=0, sharp=true, twoway=true, threshold=th)
        e=a.separatefields.trim(1,0).weave.
          \kerneldeint(order=1, sharp=true, twoway=true, threshold=th)
        interleave(f,e)
        }

    function speeduphybrid(clip i, int width, int height, bool debug)
        {
        comb  = telecide(i,order=1,post=0).decimate(5)
        f     = framerate(comb)

        film  = comb.lanczosresize(width,height).assumefps(25,true)
        film  = (debug == false) ? film : film.subtitle("film -> IVTC -> speedup")

        video = i.kernelbob(5).lanczosresize(width,height).
            \convertfps(2*f).assumefps(50,true).separatefields.selectevery(4,0,3).weave
        video = (debug == false) ? video : video.subtitle("video -> blending -> speedup")

        conditionalfilter(comb,video,film,"iscombed(combthr)","=","true")
        }

    function speedupfilm(clip i, int width, int height, bool debug)
        {
        film  = i.assumefps(25,true).lanczosresize(width,height)
        film  = (debug == false) ? film : film.subtitle("film -> speedup")
        return film
        }

    function converthybrid(clip i, int width, int height, bool debug)
        {
        comb  = telecide(i,order=1,post=0).decimate(5)

        film  = comb.lanczosresize(width,height).
            \changefps(50).separatefields.selectevery(4,0,3).weave
        film  = (debug == false) ? film : film.subtitle("film -> IVTC -> convert")

        video = i.kernelbob(5).lanczosresize(width,height).
            \convertfps(50).separatefields.selectevery(4,0,3).weave
        video = (debug == false) ? video : video.subtitle("video -> blending")

        conditionalfilter(convertfps(comb,25),video,film,"iscombed(combthr)","=","true")
        }

    function convertfilm(clip i, int width, int height, bool debug)
        {
        film  = i.lanczosresize(width,height).
            \changefps(50).separatefields.selectevery(4,0,3).weave
        film  = (debug == false) ? film : film.subtitle("film -> convert")
        return film
        }

    combth = default(combth,20)
    global combthr=combth
    speed = default(speedup,true)
    debug = default(show ,false)

    input = (TFF == true) ? input.assumetff : input.assumebff

    speedupout = (framerate(input) < 26) ?
        \speedupfilm(input,x,y,debug) : speeduphybrid(input,x,y,debug)

    convertout = (framerate(input) < 26) ?
        \convertfilm(input,x,y,debug) : converthybrid(input,x,y,debug)

    final = (speed == true) ? speedupout : convertout

    final.resampleaudio(audiorate(input))
}
and another (Cropping seems a bit off in this one)
Code:
src=BlankClip(1,256,384,"RGB24",24)
rot=$FF0000
gruen=$00FF00
blau=$0000FF
gelb=$FFFF00
lila=$FF00FF
tuerkis=$00FFFF
gr=320
off=48
A=src.SubTitle("A",size=gr,text_color=rot)
B=src.SubTitle("B",x=off,size=gr,text_color=gruen)
C=src.SubTitle("C",size=gr,text_color=blau)
D=src.SubTitle("D",x=off,size=gr,text_color=gelb)
E=src.SubTitle("E",size=gr,text_color=lila)
F=src.SubTitle("F",x=off,size=gr,text_color=tuerkis)
G=src.SubTitle("G",size=gr,text_color=rot)
H=src.SubTitle("H",x=off,size=gr,text_color=gruen)
I=src.SubTitle("I",size=gr,text_color=blau)
J=src.SubTitle("J",x=off,size=gr,text_color=gelb)
K=src.SubTitle("K",size=gr,text_color=lila)
L=src.SubTitle("L",x=off,size=gr,text_color=tuerkis)
M=src.SubTitle("M",size=gr,text_color=rot)
N=src.SubTitle("N",x=off,size=gr,text_color=gruen)
O=src.SubTitle("O",size=gr,text_color=blau)
P=src.SubTitle("P",x=off,size=gr,text_color=gelb)
Q=src.SubTitle("Q",size=gr,text_color=lila)
R=src.SubTitle("R",x=off,size=gr,text_color=tuerkis)
S=src.SubTitle("S",size=gr,text_color=rot)
T=src.SubTitle("T",x=off,size=gr,text_color=gruen)
U=src.SubTitle("U",size=gr,text_color=blau)
V=src.SubTitle("V",x=off,size=gr,text_color=gelb)
W=src.SubTitle("W",size=gr,text_color=lila)
X=src.SubTitle("X",x=off,size=gr,text_color=tuerkis)
Y=src.SubTitle("Y",size=gr,text_color=rot)
Z=src.SubTitle("Z",x=off,size=gr,text_color=gruen)

res=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+r+s+t+u+v+w+x+y+z

res=res.crop(0,88,0,-40)

res+res+res+res+res
EDIT: You can find more D9 Threads started by Scharfis_Brain by visiting his profile/Statistics/Find all threads started by scharfis_brain/
Dont know if this link will expire after ~10 mins(threads by Scharfis_Brain - 3 Pages of links): LINK REMOVED.
EDIT: Above link HAS EXPIRED, so you have to do search yourslf.
__________________
I sometimes post sober.
StainlessS@MediaFire ::: AND/OR ::: StainlessS@SendSpace

"Some infinities are bigger than other infinities", but how many of them are infinitely bigger ???

Last edited by StainlessS; 27th February 2019 at 10:43.
StainlessS is offline   Reply With Quote
 

Tags
deinterlace, interlacing

Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump


All times are GMT +1. The time now is 04:35.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.