Suche zwei Funktionen

vielleicht auch interessant:
BAutoDeint: A small automatic deinterlacing program based on AviSynth
http://forum.doom9.org/showthread.php?t=111870

ich wollt mir demnächst erstmal Ruby noch antun

Zitat von incredible

Was auch sehr interessant ist, sind dort die Links zur Programmiersprache "D".
http://www.digitalmars.com/d/

Ja, das ist mir auch gleich ins Auge gefallen. Solange es keine Standardisierung gibt ist das aber wohl noch nicht so interessant.

Zitat von incredible

Daher scheint jeder xte genommene Frame im jeweiligen Pattern-Abschnitt genau der zu sein, welcher im "kontinuierlichen" Pattern immer progressiv daherkommt. .... sollte nich genau das der 17ner deci verhindern?

Ja, das 17ner deci sollte das eigentlich verhindern, wenn die 17 jetzt aber mal ein Vielfaches von fünf genommen wird, hat man von der 17 nichts mehr.

Zur Funktion:
Aus amount und every wird emount. Wird emount unter 100 gesetzt arbeitet es wie every, ansonsten wird mit den Werten die Anzahl der zu untersuchenden Frames angegeben. Ob nun unter oder uber hundert, der angegebene bzw. resultierende Dezimierungsfaktor wird so angepasst, dass er nicht mehr durch 2, 3 oder 5 teilbar ist. Dadurch ist emount zwar immer nur eine grobe Annährung an die tatsächlichen Gegebenheiten, dafür treten die oben genannten Patternprobleme nicht mehr auf. Achja, emount (default:300) wird immer an die vorgegebene Länge (end) angepasst.

Function Interlacing2Reader(clip clp, float "mthresh", int "start", int "end", int "emount", int "inf", string "file", bool "lowprec", int "FontSize")
{
###### PREPARATION ######
begin   = default(start, 0)
out     = default(inf, 1)
output  = default(file,"C:\interlacing.log")
lowprec = default(lowprec, false)
global stop      = default(end, framecount(clp))
global mthresh   = default(mthresh, 3.0)
global FontSize  = default(FontSize, 16) 


amount	= default(emount,300)
dec	= amount<100 ? amount : int(stop/amount)+1
mod3	= dec%3
mod5	= dec%5


global deci 	 = dec%2==1 ? 	( mod3!=0 && mod5!=0 ? dec : (mod3!=1 && mod5!=3 ? dec+2 : dec-2) ) :
			\	( mod3!=1 && mod5!=1 ? dec-1 : (mod3!=2 && mod5!=4 ? dec+1 : dec+3) )
global source    = lowprec==false ? clp.trim(begin,stop) : clp.trim(begin,stop).pointresize(width(clp)/2,height(clp)) 
global cltff     = source.AssumeTFF().bob()
global clbff     = source.AssumeBFF().bob()
global matched   = source.tfm(mode=0,pp=2, MI=74,clip2=cltff.selecteven())


###### VAR.. ######
global interlaced        = 0
global progressive       = 0
global fieldshifted      = 0
global tffcount          = 0
global bffcount          = 0
global real_interlaced   = 0
global currentframe_s    = "CurrFrame: "
global interlaced_s      = "interlaced: "
global progressive_s     = "progressive: "
global fieldshifted_s    = "fieldshifted: "
global real_s 		 = " (real: "
global real_s2		 = ")"
global bffcount_s        = "bff: "
global tffcount_s        = "tff : "


###### Conditional Function Chain, evaluated from bottom to top (!) ######
c99=   out==0 ? scriptclip(source, "source") : ( out==1 ?
   \   scriptclip(source,     "Subtitle(currentframe_s+string(current_frame),size= FontSize )."+
         \   "Subtitle(interlaced_s+string(interlaced)+real_s+string(real_interlaced)+real_s2,size=FontSize,y= FontSize )."+
         \   "Subtitle(progressive_s+string(progressive),size=FontSize,y= FontSize*2 )."+
         \   "Subtitle(fieldshifted_s+string(fieldshifted),size=FontSize,y= FontSize*3 )."+
         \   "Subtitle(tffcount_s+string(tffcount),size=FontSize,y= FontSize*4 )."+
         \   "Subtitle(bffcount_s+string(bffcount),size=FontSize,y= FontSize*5 )") :
   \   WriteFileIf(source, output, "current_frame>stop-deci", """ "interlaced:" """, "interlaced", """ ",  progressive:" """, "progressive",
         \   """ ",  fieldshifted:" """, "fieldshifted", """ ",  real_interlaced:" """ , "real_interlaced", """ ",  BFF:" """,
         \   "bffcount", """ ",  TFF:" """, "tffcount", append=false, flush=true) )


c4=FrameEvaluate(c99, "   global interlaced = count==2 || count==3 ? interlaced+1 : interlaced
         global progressive = count==0 ? progressive+1 : progressive
         global fieldshifted = count==1 ? fieldshifted+1 : fieldshifted
         global tffcount = count!=20 && (tffc+tffb)*1.25<bffc+bffb ? tffcount+1 : tffcount
         global bffcount = count!=20 && (bffc+bffb)*1.25<tffc+tffb ? bffcount+1 : bffcount
         global real_interlaced = count==2 && tffc*0.7<tffb && tffc*1.33>tffb ||
         \      count==3 && bffc*0.7<bffb && bffc*1.33>bffb ? real_interlaced+1 : real_interlaced")


c3=FrameEvaluate(c4, "   global count = (tffc>tffb && tffc>bffc && tffc>bffb ? tffc : (tffb>bffc && tffb>bffb ? tffb :
         \      (bffc>bffb ? bffc : bffb))) > mthresh ? (abs(LumaDifference(matched,cltff.selectodd())-tffc)<0.0001 ?
         \      (tffc+tffb<bffc+bffb ? 2 : 3) : (LumaDifference(source,matched)<0.0002 ? 0 : 1)): 20")


c2=FrameEvaluate(c3, "   global tffc = LumaDifference(cltff.selecteven(), cltff.selectodd())
         global tffb = LumaDifference(cltff.selectodd().duplicateframe(0), cltff.selecteven())
         global bffc = LumaDifference(clbff.selecteven(), clbff.selectodd())
         global bffb = LumaDifference(clbff.selectodd().duplicateframe(0), clbff.selecteven())")     


return(c2.selectrangeevery(deci,1))
}

Und wegen vfw: Ich möchte einen Codec programmieren (zunächst lossless). Ich bin gerade dabei den Code erstmal mit selbserstellten log Files zu testen, aber habe jetzt auch genug Informationen um als nächstes den Code mit einer BMP zu testen. Am hilfreichsten waren bis jetzt Quellcodes von anderen C-Codecs. Aber es wird wohl noch etwas Zeit in Anspruch nehmen.

"Ich möchte einen Codec programmieren (zunächst lossless)."
Wenn man fragen darf: auf welcher Theoriebasis? (Wavelet, Mpeg4, fractal, was eigenes,..)

Cu Selur

OFFTOPIC: Weder Wavelet noch DCT. Es gibt genügend und zudem auch sehr gute Implementierungen davon. Ich glaube nicht, dass ich da irgendetwas besser machen würde. Fractal war noch eine Überlegung, aber vorerst viel zu komplex für mich als Anfänger. Die verlustbehaftete Version wird linearadaptiv arbeiten und basiert auf keiner mir bekannten Komprimierungsgrundlage, was eben genau der Anlass für mich ist, diesen Versuch zu starten. Zu gegebener Zeit mache ich einen Thread dazu auf, aber vorher muss sich der Code noch als brauchbar erweisen.

incredible
Zur besseren Vorstellung nehme ich mal einfach immer den modulo5 Wert des jeweiligen Vielfachen von 17:
1. (17*1)%5=2
2. (17*2)%5=4
3. (17*3)%5=1
4. (17*4)%5=3
5. (17*5)%5=0
6. (17*6)%5=2
...
Wenn multi jetzt ein Vielfaches von 5 ist (Beispiel 10):
1. (17*10*1)%5=0
2. (17*10*2)%5=0
3. (17*10*3)%5=0
4. (17*10*4)%5=0
5. (17*10*5)%5=0
6. (17*10*6)%5=0

Daraus resultiert das vorher besprochene Patternproblem.

Nochmal zum Codec: Bei dem Codec geht es darum meine eigene Idee umzusetzen und diese hat glaub ich sehr wenig mit LZW gemeinsam und lässt auch nicht so gut damit kombinieren (weiß im Moment aber auch nicht viel darüber).

Moment , also nen LZW-Codec hab ich schon ziemlich häufig gesehen.

Zum Beispiel von Gabest:

http://www.codeclibrary.com/details.php?fourcc=GLZW
http://212.9.224.7/~video/CODECs/…Codec_v.1.0.exe

Zitat von incredible

Was auch sehr interessant ist, sind dort die Links zur Programmiersprache "D".
http://www.digitalmars.com/d/

Auf B folgte C. Und nun kommt D. :ja: Und als Gegenpol zu C++ gibt es C--.

MOmonster, ich hab da ein kleines Problem.
___

Anmerkungen vorweg:
* Man sollte erwähnen, dass die TIVTC.dll (von tritical) mit geladen muss.
* Könntest du eine Überprüfung einbauen, damit das Startframe nicht kleiner 0 sein kann. (Ich weiß das es keine negativen Frames gibt. Als ich jedoch nach trim()-Notation, also mit Null beginnend, das Skript laufen ließ, "drehte es irgendwie durch". Schlecht zu beschreiben.)
___

Ich hab versucht dein Script als externes "Interlacing2Reader.avs" über die OVA 2 von Lupin the 3rd laufen zu lassen. Eigentlich über den gesamten Film (132.438 Frames). Nur hat er das irgendwie nicht gemocht. :redface: Also hab ich den Auschnitt auf 500 begrenzt (beginnend bei 1).
Das Skript hab ich mit dem MPC abgespielt, 60min lang. Auf dem genutzten CPU-Kern gab es eine Prozessorauslastung von ~90% und 500MB Speichernutzung.

Ergebnis:
CurrFrame: 164
interlaced: 6855 (real: 3077)
progressive: 4914
fieldshifted: 3245
ttf: 14750
bff: 0

Wie gesagt, er lief, und lief und lief ... 60 min lang, dann hab ich abgebrochen. (hat leider auch kein Logfile geschrieben). Frage: Hört der auch mal auf?
Ist es möglich eine "Restanzeige" (Lauf x von y) einzublenden?

Ich versuch mal das Ergebnis anhand dessen was du hier gesagt hast zu interpretieren:

6855 (i) + 4914 (p) + 3245 (fs) = 15014 (summe)

Interlaced?: 3077 (real_i) / 15014 (summe) = 0,205 < 0,70 (i) ==> nicht Interlaced

NTSC pulldown?: 3245 (fs) / 4914 (p) = 0,66 ==> NTSC pulldown (fieldshiefted liegt zw. 33% und 66% von progressiv)

Progressiv?: 4914 (p) / 15014 (summe) = 0,33 < 0,95 (p) ==> nicht progressiv

Wenn es stimmt was ich da gerechnet habe, dann ist die OVA 2 "NTSC Pulldown" (und ich hab schon wieder versucht TDeint auf sowas anzuwenden).

Naito
Könntest du bitte mal das gesamte Skript posten. Currframe 164 aber bei der Erkennung sind viel mehr herangezogen worden. Da muss in der tat irgendetwas falsch gelaufen sein. Stecke gerade nicht in der Materie, weil ich an Mrestore und moderate_ee arbeite, aber wenn du das Skript postest werfe ich mal ein Blick drauf.
Die Werte sehen übrigens nach einer Normwandlung aus. Bei NTSC Pulldown werden nur fieldshifted und progressiv erkannt aber keine interlaced fields (bzw verschwindet wenig).

Mein Skript sieht so aus:

LoadPlugin("I:\Programme\DGMPGDec\DGDecode.dll")
LoadPlugin("I:\Programme\AviSynth\filter\TIVTC.dll")
Import("I:\Programme\AviSynth\filter\Interlacing2Reader.avs")


MPEG2Source("H:\Lupin\OVA 2\OVA 2.d2v", cpu=0)


Interlacing2Reader(start=1, end=500, file="H:\500.txt")

Im Anhang findest du nochmal die "Interlacing2Reader.avs", falls was beim Copy&Paste schief gegangen sein sollte. Geändert habe ich aber nur "output = default(file,"C:\interlacing.log")" zu "output = default(file,"H:\interlacing.log")".

Zitat von MOmonster

Currframe 164 aber bei der Erkennung sind viel mehr herangezogen worden. Da muss in der tat irgendetwas falsch gelaufen sein.

Das ich "Currframe 164" geschrieben habe liegt daran, dass das Skript ja immer von von nach hinten durchläuft. Abgeschrieben habe ich die Werte, als er wieder ganz am Anfang war. Die höchste Framezahl die unter "Currframe" stand war (wenn ich mich recht erinnere) irgendwas bei 31xx.

Zitat von MOmonster

Stecke gerade nicht in der Materie, weil ich an Mrestore und moderate_ee arbeite, aber wenn du das Skript postest werfe ich mal ein Blick drauf.

Weiß ich, ich will deswegen auch nicht drängeln. Aber ich wollt die Funktion unbedingt mal ausprobieren. (Ich hab leider immer noch nicht den Durchblick, bei den ganzen Wandlungsmethoden; geschweige denn, wie ich erkenne was es ist.)

Zitat von MOmonster

Die Werte sehen übrigens nach einer Normwandlung aus. Bei NTSC Pulldown werden nur fieldshifted und progressiv erkannt aber keine interlaced fields (bzw verschwindet wenig).

Danke für den Tipp, werd schaun was ich tun kann.

So ich hab mich gestern mal an die Funktion gesetzt. Lief wirklich sehr instabil, was aber auch mit den letzten TIVTC Versionen zu tun hatte (rc7-rc9). Also unbedingt die neuste Version verwenden.
Ich habe den Code überarbeitet, ein paar Dinge verbessert und neu strukturiert. Sollte TIVTC nicht stabil laufen, kann man jetzt zum Beispiel auch auf Decomb zurueckgreifen.
Ich habe die letzte Version hier integriert.