Avi2DVD ( Auch ich könnte eine Aspirin gebrauchen)

Morpheus

Hallo,
ich hab eine Doku auf der Festplatte die ich gerne auf DVD brennen würde.
Doch bevor ich das mach wollte ich sie noch umwandeln in mpeg und dabei ein bisschen die Qualität verbessern.

Letzteres stellte sich als nicht ganz so einfach raus, ich hab mir alle möglichen Threads durchgelesen die tollsten Filter probiert.
Aber anstatt besser wurde es immer schlimmer, fand ich zumindest.

Ich hab RemoveGrain ausprobiert LimitedSharpen aber nichts brachte das gewünschte Ergebnis.

Als Musterscript hatte ich mir ein Script von Eriman ausgesucht, aber wie schon erwähnt brachte auch das nicht das gewünschte Ergebnis.

Ich poste mal am besten mein Script und häng zwei Bilder vom Ausgangsmaterial an.
Bin für jeden Tipp dankbar.

Zitat

LoadPlugin("C:\Programme\AviSynth 2.5\TomsMoComp\Avisynth_2.5\TomsMoComp.dll")
LoadPlugin("C:\Programme\AviSynth 2.5\warpsharppackage_25_dll_20031103\warpsharp.dll")
LoadPlugin("C:\Programme\AviSynth 2.5\warpsharppackage_25_dll_20031103\LoadPluginEx.dll")
LoadPlugin("C:\Programme\AviSynth 2.5\RemoveGrain1.0\RemoveGrain.dll")
LoadPlugin("C:\Programme\AviSynth 2.5\RemoveGrain\SSE2Tools.dll")
LoadPlugin("C:\Programme\AviSynth 2.5\dust_20_dll_20030123\DustV5.dll")
LoadPlugin("C:\Programme\AviSynth 2.5\RemoveGrain1.0\Repair.dll")
LoadPlugin("C:\Programme\AviSynth 2.5\MaskTools-v1.5.6\MaskTools-v1.5.6\MaskTools.dll")
import("F:\Programme\Avisynth\Avisynth 2.5x\Filter2.5x\LimitedSharpen.avs")
#import("C:\Programme\AviSynth 2.5\iip.avs")
AVISource("G:\DivX2DVD\Der Drechsler\Der Drechsler.avi",pixel_type="YUY2")
ConvertToYV12
# DEINTERLACING
#TomsMoComp(1,5,1)

# SCHÄRFEN UND RESIZEN
Limitedsharpen(ss_x=1.33,ss_y=1.33,Smode=3,strength=200,wide=true )

# RAUSCHEN ENTFERNEN

LRemoveDust(1,2)

#FluxSmoothST (2,2)

Limitedsharpen(ss_x=2.0,ss_y=2.0,Smode=3,strength=100,wide=true )

# SÄTTIGUNG
Tweak(bright=-1.0)

function LRemoveDust(clip input, int _mode, int "limit")
{
limit=default(limit,4)
repmode = 2
clensed = Clense(input)
rep=Repair(clensed, input, mode=repmode)
rg = RemoveGrain(rep, mode=_mode)
rd=TemporalRepair(rg, rep)
return LimitChange(rd, input, limit, limitU=255)
}
Trim(0,43750).FadeOut(150)

Alles anzeigen

max

Woran liegen diese Farbkästchen, an der Bilderkompression oder ist deine Quelle derat verblockt ?

Bei letzterem würde ich mal übers matschen nachdenken, eventuell mit
LRemoveDust(4,4)

Wie gesagt hängt davon ab woher die extremen Blockartefakte und Farbdifferenzen im 2 shot kommen.

max

Morpheus

Hallo,
Meine Quelle ist so stark verblockt. Mal mehr mal weniger schlimm, ich kann ja noch zwei weitere Bilder dranhängen.

Eriman

Schade das mein Script nicht helfen konnte.
Wie Max schon sagte, vielleicht erst mal zuschmieren und danach erst schärfen. ( LRemoveDust(4,2). LRemoveDust(4,2))
Könnten die Verblockungen von zu niedriger Bitrate her stammen?
Den Radius von LS würde ich auch nicht so eng setzen d.h. 1.33 könnte schon zu eng sein.

Selur

eventuell hilft BlindDeHalo auch etwas

Trekkie2

Ich weiß nicht, ob das auch für geladene avis was bringt, müßte aber eigentlich:
Wie wärs mit blindPP aus dem DGIndex-Paket?
Aber ansonsten stimme ich auch für BDH...
...wenn sich da was machen läßt: Die Dinger sind schon irgendwie falsch "aufgebessert" worden - ist fraglich, was da noch rauskommen kann...

Morpheus

Hallo,
so ich hab mal jetzt BlindDeHalo/BlindDeHalo2 ins Script eingefügt.
Hier mal mein Script wie es zur Zeit aussieht.

Zitat

# -= AviSynth v2.5.5.0 script by Fit2Disc v1.2.6 =-
LoadPlugin("C:\Programme\AviSynth 2.5\TomsMoComp\Avisynth_2.5\TomsMoComp.dll")
LoadPlugin("C:\Programme\AviSynth 2.5\warpsharppackage_25_dll_20031103\warpsharp.dll")
LoadPlugin("C:\Programme\AviSynth 2.5\warpsharppackage_25_dll_20031103\LoadPluginEx.dll")
LoadPlugin("C:\Programme\AviSynth 2.5\RemoveGrain1.0\RemoveGrain.dll")
LoadPlugin("C:\Programme\AviSynth 2.5\RemoveGrain\SSE2Tools.dll")
LoadPlugin("C:\Programme\AviSynth 2.5\dust_20_dll_20030123\DustV5.dll")
LoadPlugin("C:\Programme\AviSynth 2.5\RemoveGrain1.0\Repair.dll")
LoadPlugin("C:\Programme\AviSynth 2.5\MaskTools-v1.5.6\MaskTools-v1.5.6\MaskTools.dll")
import("F:\Programme\Avisynth\Avisynth 2.5x\Filter2.5x\LimitedSharpen.avs")
#import("C:\Programme\AviSynth 2.5\iip.avs")
#import("C:\Programme\AviSynth 2.5\BlindDeHalo.avs")
import("C:\Programme\AviSynth 2.5\BlindDeHalo2.avs")
AVISource("G:\DivX2DVD\Der Drechsler\Der Drechsler.avi",pixel_type="YUY2")
ConvertToYV12
# DEINTERLACING
#TomsMoComp(1,5,1)

# SCHÄRFEN UND RESIZEN
#Limitedsharpen(ss_x=1.33,ss_y=1.33,Smode=3,strength=200,wide=true )

# RAUSCHEN ENTFERNEN
#BlindDeHalo()

BlindDeHalo2(2.0,2.0,200)

LRemoveDust(4,2).LRemoveDust(4,2)

#iip (ss1_x = 1.414, ss1_y = 1.414,
#\ duststr = 2, dustweight = 1.0, antiflicker1= true, antiflicker2= true,
#\ detailcontr1= 104, detailcontr2 = 208, contr_radius = 2, PixSharp=0.38,
#\ ss2_x = 3.5, ss2_y = 3.5,
#\ Xstren = 255, Xlimit = 255,
#\ subpelstren= 1.58, flatweight = 0,
#\ protect_floor = 0, protect_bias = 16,
#\ dering = -80, dering_weight= 1.0, dering_floor = 8, dering_bias=12,
#\ detail_floor = 10, EQ = 2,
#\ warp_Y = false, warp_UV = false, exborder = false,
#\ debug= "protect | dering | compareH|V | showall",
#\ cropx=64, cropy=32
#\ )

#FluxSmoothST (2,2)

#Schärfen 2

Limitedsharpen(ss_x=2.5,ss_y=2.5,Smode=3,strength=300,wide=true )

# SÄTTIGUNG
Tweak(bright=-1.0)

function LRemoveDust(clip input, int _mode, int "limit")
{
limit=default(limit,4)
repmode = 2
clensed = Clense(input)
rep=Repair(clensed, input, mode=repmode)
rg = RemoveGrain(rep, mode=_mode)
rd=TemporalRepair(rg, rep)
return LimitChange(rd, input, limit, limitU=255)
}
Trim(0,43750).FadeOut(150)

Alles anzeigen

Ich häng auch noch neue Bilder an, damit man den Stand der Dinge auch sehen kann. Obwohl ich finde die Bilder sehen ein bisschen schlechter aus als es wirklich ist. In Bewegung geht es.
Ich denke ich werde das Script einfach mal durch den encoder jagen.

Bin aber für weitere Tipps durchaus zu haben.;)

Eastermeyer

Nur mal so am Rande:

Wenn's auf DVD soll , würde ich das Logo entfernen , dass sieht einfach besser aus!

Morpheus

Hallo,
mich stört es erlich gesagt gar nicht. Hauptsache ist ich bekomm die Doku in einer akzeptablen Qualli hin.

Eriman

Zitat von Morpheus

Obwohl ich finde die Bilder sehen ein bisschen schlechter aus als es wirklich ist. In Bewegung geht es.

Yep, das Problem kenne ich.
Deswegen schneide ich mir immer ein ~10MB grosses Schnipsel aus der zu bearbeitenden Datei raus, damit ich das Ergebnis auch umgewandelt sehen kann, und nicht nur als Einzelbild.

max

Hi

gerade gematschtes sieht als Bild schlechter aus, und gerade am PC sowieso.

Der Fernseher weicht ja auch nochmal bauartbedingt die Suppe gut auf.

Am besten mal wie bereits erwähnt ein paar MB auf DVD RW und ab in den SA Player.

Ich bin zwar nicht der BlindDehalo experte, aber wäre es nicht sinnvoller den BlindeHalo aufruf als letztes nach Schärfen und Tweak zu starten ?

max

Morpheus

Hallo,

Zitat

Ich bin zwar nicht der BlindDehalo experte, aber wäre es nicht sinnvoller den BlindeHalo aufruf als letztes nach Schärfen und Tweak zu starten ?

diese Variante hab ich mir auch schon überlegt. Ich bin jetzt erst mak davon ausgegangen dass das Bild erst mal "zermatscht" wird und geschärft.
Ich hab das Script auch nochmal überarbeitet und werd es heute mittag posten.
Jetzt muß ich erst mal zur Arbeit.

Der Encoder ist immer noch dran, naja kein Wunder bei 2 Frames die sek..

max

LimitedSharpen bremmst ungemein, ob das bei Deinem Vorhaben eh sinnvoll ist ?

ModerateSharpen dürfte durchaus genügen.

max

Morpheus

Hallo,
so ich jetzt mal einen Testdurchlauf gemacht und ich muß sagen es sieht gar nicht mal schlecht aus.
Nur leider hab ich jetzt das Problem das die Szenen die von der Qualli in Ordnung waren jetzt etwas überschärft aussehen, wenn man das so sagen kann.
ich werd also das Script noch weiter anpassen müssen.

Hier das Script:

Zitat

# -= AviSynth v2.5.5.0 script by Fit2Disc v1.2.6 =-
LoadPlugin("C:\Programme\AviSynth 2.5\TomsMoComp\Avisynth_2.5\TomsMoComp.dll")
LoadPlugin("C:\Programme\AviSynth 2.5\warpsharppackage_25_dll_20031103\warpsharp.dll")
LoadPlugin("C:\Programme\AviSynth 2.5\warpsharppackage_25_dll_20031103\LoadPluginEx.dll")
LoadPlugin("C:\Programme\AviSynth 2.5\RemoveGrain1.0\RemoveGrain.dll")
LoadPlugin("C:\Programme\AviSynth 2.5\RemoveGrain\SSE2Tools.dll")
LoadPlugin("C:\Programme\AviSynth 2.5\dust_20_dll_20030123\DustV5.dll")
LoadPlugin("C:\Programme\AviSynth 2.5\RemoveGrain1.0\Repair.dll")
LoadPlugin("C:\Programme\AviSynth 2.5\MaskTools-v1.5.6\MaskTools-v1.5.6\MaskTools.dll")
import("F:\Programme\Avisynth\Avisynth 2.5x\Filter2.5x\LimitedSharpen.avs")
#import("C:\Programme\AviSynth 2.5\iip.avs")
import("C:\Programme\AviSynth 2.5\BlindDeHalo.avs")
import("C:\Programme\AviSynth 2.5\BlindDeHalo2.avs")
AVISource("G:\DivX2DVD\Der Drechsler\Der Drechsler.avi",pixel_type="YUY2")
BilinearResize(688,560,0,0,496,368)

ConvertToYV12
# DEINTERLACING
#TomsMoComp(1,5,1)

# SCHÄRFEN UND RESIZEN
#Limitedsharpen(ss_x=1.33,ss_y=1.33,Smode=3,strength=100,wide=true )
asharp(2,4)

# RAUSCHEN ENTFERNEN

BlindDeHalo2(2.0,2.0,200)

LRemoveDust(4,2).LRemoveDust(4,2)

#iip (ss1_x = 1.414, ss1_y = 1.414,
#\ duststr = 2, dustweight = 1.0, antiflicker1= true, antiflicker2= true,
#\ detailcontr1= 104, detailcontr2 = 208, contr_radius = 2, PixSharp=0.38,
#\ ss2_x = 3.5, ss2_y = 3.5,
#\ Xstren = 255, Xlimit = 255,
#\ subpelstren= 1.58, flatweight = 0,
#\ protect_floor = 0, protect_bias = 16,
#\ dering = -80, dering_weight= 1.0, dering_floor = 8, dering_bias=12,
#\ detail_floor = 10, EQ = 2,
#\ warp_Y = false, warp_UV = false, exborder = false,
#\ debug= "protect | dering | compareH|V | showall",
#\ cropx=64, cropy=32
#\ )

#FluxSmoothST (2,2)

#Schärfen 2

Limitedsharpen(ss_x=3.0,ss_y=3.0,Smode=3,strength=400,wide=true )

#Rauschen entfernen 2

BlindDeHalo()

# SÄTTIGUNG
Tweak(bright=-1.0)

function LRemoveDust(clip input, int _mode, int "limit")
{
limit=default(limit,4)
repmode = 2
clensed = Clense(input)
rep=Repair(clensed, input, mode=repmode)
rg = RemoveGrain(rep, mode=_mode)
rd=TemporalRepair(rg, rep)
return LimitChange(rd, input, limit, limitU=255)
}
Trim(0,43750).FadeOut(150)

AddBorders(16,0,16,16)

Alles anzeigen

Ich werd die Schärfe etwas senken und den Radius wohl wieder etwas verkleinern. Mal schauen was bei rauskommt.

Eriman

Du hast 2 mal BlindDeHalo drin? Interessant.
Asharp hatte ich auch mal probiert, für Linien fand ich den gut, aber für Flächen war es zu "comichaft"
Kleiner Tip, schmeiss mal die "#" Zeilen raus, wird sonst zu unübersichtlich.

Zitat

# -= AviSynth v2.5.5.0 script by Fit2Disc v1.2.6 =-
LoadPlugin("C:\Programme\AviSynth 2.5\TomsMoComp\Avisynth_2.5\TomsMoComp.dll")
LoadPlugin("C:\Programme\AviSynth 2.5\warpsharppackage_25_dll_20031103\warpsharp.dll")
LoadPlugin("C:\Programme\AviSynth 2.5\warpsharppackage_25_dll_20031103\LoadPluginEx.dll")
LoadPlugin("C:\Programme\AviSynth 2.5\RemoveGrain1.0\RemoveGrain.dll")
LoadPlugin("C:\Programme\AviSynth 2.5\RemoveGrain\SSE2Tools.dll")
LoadPlugin("C:\Programme\AviSynth 2.5\dust_20_dll_20030123\DustV5.dll")
LoadPlugin("C:\Programme\AviSynth 2.5\RemoveGrain1.0\Repair.dll")
LoadPlugin("C:\Programme\AviSynth 2.5\MaskTools-v1.5.6\MaskTools-v1.5.6\MaskTools.dll")
import("F:\Programme\Avisynth\Avisynth 2.5x\Filter2.5x\LimitedSharpen.avs")
import("C:\Programme\AviSynth 2.5\BlindDeHalo.avs")
import("C:\Programme\AviSynth 2.5\BlindDeHalo2.avs")
AVISource("G:\DivX2DVD\Der Drechsler\Der Drechsler.avi",pixel_type="YUY2")
BilinearResize(688,560,0,0,496,368)

ConvertToYV12

asharp(2,4)

# RAUSCHEN ENTFERNEN
BlindDeHalo2(2.0,2.0,200)
LRemoveDust(4,2).LRemoveDust(4,2)

#Schärfen 2
Limitedsharpen(ss_x=3.0,ss_y=3.0,Smode=3,strength=400,wide=true )

#Rauschen entfernen 2
BlindDeHalo()

# SÄTTIGUNG
Tweak(bright=-1.0)

function LRemoveDust(clip input, int _mode, int "limit")
{
limit=default(limit,4)
repmode = 2
clensed = Clense(input)
rep=Repair(clensed, input, mode=repmode)
rg = RemoveGrain(rep, mode=_mode)
rd=TemporalRepair(rg, rep)
return LimitChange(rd, input, limit, limitU=255)
}
Trim(0,43750).FadeOut(150)

AddBorders(16,0,16,16)

Alles anzeigen

Selur

Woha, 2xMal BlindDeHalo, kann man so ein Script wirklich laufen lassen?
Meine: Wird sowas auch mal fertig?

Cu Selur

Trekkie2

Nicht falsch verstehen, aber das sieht danach aus, als hättest Du BDH nicht wirklich verstanden:
Mit BDH werden die Halos (könnte man mit Heiligenschein übersetzen) entfernt. Gemeint ist damit der Effekt von überschärften Kanten - das sieht dann aus wie ein Heiligenschein um die Personen rum...
...eine Anwendung, bei der es Sinn macht, das 2x aufzurufen fällt mir echt nicht ein.

Zum Rauschen entfernen ist LRemoveDust eine ganz gute Wahl, aber bevor Du das 2x hintereinander mit (4,2) aufrufst, solltest Du es einmal mit (4,4) probieren - läuft deutlich schneller und liefert je nachdem ein weniger matschiges Ergebnis, die 2xAusführung von Eriman hatte ja eine spezielle Anwendung.

Wie gesagt: Nicht persönlich nehmen, sind nur kleine Hinweise.

Dussel0120

Hat zwar jetzt nix damit zu tun, aber die Doku scheinste ja schon ein bisschen länger auf der Platte zu haben, oder?

Trekkie2

Oh grade erst jetzt gesehen:

Du resized direkt nach dem Laden und vor dem Filtern.
Würde ich umgekehrt machen: Erst Filtern, ganz am Ende Resizen (schlimmstenfalls nochmal (L)RemoveDust danach). Insbesondere wenn Du LimitedSharpen verwendest, dann resize einfach damit, per dest_x=..., dest_y=... - sacht zumindest der Meister...

Welche Ausgangsauflösung hast Du denn vorliegen?

max

Wenn Resize dann ans Ende und mit Lanczos4Resize , da hast Du den Schärfer inclusive, zum Schluss BlinddeHalo.

Mein Script vorschlag einfach mal zum probieren, wäre der hier: (auch in der Reihenfolge)

Zitat

Crop(?????)
CoverttoYV12()
LRemoveDust(4,4)
Lanzcos4Resize( ????)
BlinddeHalo()
Tweak(bright=-1.0)
AddBorders(???)
ConverttoYUY2()

Alles anzeigen

Relativ schnell und vielleicht reichts schon.

max

Jetzt mitmachen!