View Single Post
Old 27th February 2015, 20:53   #12  |  Link
StainlessS
HeartlessS Usurer
 
StainlessS's Avatar
 
Join Date: Dec 2009
Location: Over the rainbow
Posts: 10,980
Nope, have not forgotten, still quite amazing results.
If of interest to OP, here was thread:- http://forum.doom9.org/showthread.ph...yinrangeLocate

Here script for odd field detect
Code:
AVISource("D:\NLPGuy\source.avi").Assumetff.SeparateFields.SelectOdd
CMD = "OddCmd.txt"
RT_FileDelete(CMD)

ZEBRA_LO=220
ZEBRA_HI=255
LOCATE_LO=200
LOCATE_HI=255

Z =Last.Zebra(lo=ZEBRA_LO,hi=ZEBRA_HI).Crop(5*48,0,-0,-0)  # EDIT: Crop to select YInRange Band
ZP=Z.DeleteFrame(Z.Framecount()-1).DuplicateFrame(0)       # Shift clip to align previous with current frame
ZN=Z.DuplicateFrame(Z.Framecount()-1).DeleteFrame(0)       # Shift clip to align next with current frame
X=Subtract(Z,Merge(ZP,ZN))
X=X.ScriptClip("""
    n=current_frame
    Bingo=RT_YInRangeLocate(Last,n=n,Baffle_W=48,Baffle_H=1,lo=LOCATE_LO,hi=LOCATE_HI)
    # Got to make coords even for YV12
    (BINGO) ? Overlay(Last.BlankClip(Width=24,height=(YIRL_H+1)/2*2,color=$FF0000),x=48/2-12,y=RT_BitClr(YIRL_Y,0)) : NOP
    (BINGO) ? RT_WriteFile(CMD,"1 %d",n,Append=True) : NOP
    Return Last
""")
StackHorizontal(Last,X)
And script to fix the clip
Code:
AVISource("D:\NLPGuy\source.avi")
ECMD="EvenCmd.txt"
OCMD="OddCmd.txt"
Assumetff
SeparateFields
E=SelectEven
O=SelectOdd


pel    = 2      # Default as for MSuper(), ie 2, range=1 or 2 or 4
sharp  = 2      # Default as for MSuper(), ie 2, range=0 -> 2
rfilter= 2      # Default as for MSuper(), ie 2, range=0 -> 4
ml     = 100.0  # Default as for MFlowInter(), ie 100.0, range=greater than 0.0.

E_CP      = E.DeleteFrame(E.Framecount()-1).DuplicateFrame(0)
E_sup     = E_CP.MSuper(pel=pel, sharp=sharp, rfilter=rfilter)
E_bv      = E_sup.MAnalyse(isb=true,  delta=2)
E_fv      = E_sup.MAnalyse(isb=false, delta=2)
EC        = E_CP.MFlowInter(E_sup,E_bv,E_fv, time=100.0 * 1 / 2 , ml=ml)

O_CP      = O.DeleteFrame(O.Framecount()-1).DuplicateFrame(0)
O_sup     = O_CP.MSuper(pel=pel, sharp=sharp, rfilter=rfilter)
O_bv      = O_sup.MAnalyse(isb=true,  delta=2)
O_fv      = O_sup.MAnalyse(isb=false, delta=2)
OC        = O_CP.MFlowInter(O_sup,O_bv,O_fv, time=100.0 * 1 / 2 , ml=ml)

SHOW=False
E_RESULT=ClipClop(E,EC,cmd=ECMD,Show=SHOW)
O_RESULT=ClipClop(O,OC,cmd=OCMD,Show=SHOW)

Interleave(E_RESULT,O_RESULT)
Weave
EDIT: 1st script edited, added clipclop clip index to text file.

NOTE, I used AssumeTFF.

EDIT: You need to run both detection scripts to create the text command files, and then the fix script.
__________________
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; 28th February 2015 at 14:56.
StainlessS is offline   Reply With Quote