vbs - enum_folder_mencoder_join

Sub enum_folder_mencoder_join()
    Dim fso As New FileSystemObject, fo As Folder, fi As File, s, i
    Dim pn
    pn = "F:\Movies\new!"
    pn = "F:\Neuer Ordner\Neuer Ordner (3)"
    pn = "F:\Movies\AVI"
    pn = "F:\Movies\new2"
    'pn = "F:\Movies\new!"
    pn = "D:\JD\_DONE_"
    'pn = "D:\Filme\new"
    
    
    For Each fo In fso.GetFolder(pn).SubFolders
        i = 0: s = ""
        For Each fi In fo.Files
            If Right(fi.Name, 4) = ".avi" Then
                If InStr(1, fo.Name, fi.Name) > 0 Then Exit For
                i = i + 1
                s = s & "|" & fi.Name
            End If
        Next
        If i > 1 Then
            Debug.Print "d:\mencoder -noodml -ovc copy -oac copy -o """ & fo.Name & "\" & fo.Name & "-XviD.avi"" " & Mid(Replace(s, "|", """ """ & fo.Name & "\") & """", 3)
            
        End If
    Next
    
    
End Sub

visited 12 states (5.33%)
Create your own visited map of The World

Perfect masking using a highpass - GIMP

Perfect masking using a highpass

http://www.gimpusers.de/tutorials/highpass-freistellen.html

1. 1
   Öffnet ein beliebiges Bild mit einer Großaufnahme einer Person. Ich verwende ein in Google gefundenes Bild von einer bekannten Persönlichkeit
   
   Zum Vergrößern klicken
2. 2
   Dupliziert die HG-Ebene 2 mal, sodass ihr 3 gleiche Ebenen habt. Auf die oberste wendet ihr den gaußschen Weichzeichner an (Wert 18) an und setzt die Ebene auf 50 % Deckkraft. Danach geht ihr auf Farben / Invertieren. Ihr solltet nun etwas ähnliches erhalten:
   
   Zum Vergrößern klicken
3. 3
   Nun klickt rechts in den Ebenendialog und vereint die Ebene mit der darunterliegenden. Geht auf Farben / Sättigung entfernen (Mittelwert). Danach geht auf Farben / Kurven und wendet eine leichte S-Kurve an:
   
   Zum Vergrößern klicken
4. 4
   Danach wählt ihr Farben / Helligkeit-Kontrast: Es müssen gute Kontraste zustande kommen (vor allem bei den Haaren sollten sie gut zu sehen sein). Jetzt sind wir zumindest mal mit dem Highpass / Hochpass fertig.
   
   Zum Vergrößern klicken
5. 5
   Geht auf Farben / Invertieren.
   
   Zum Vergrößern klicken
6. 6
   Jetzt nehmt ihr den Pinsel und malt die Person vollständig weiß an. Ihr müsst die Hautteile, die im Bild sichtbar bleiben sollen anmalen. Malt auf keinen fall über die Haare bzw über die Details die ihr freistellen wollt.
   
   Tipp: Schiebt die Originalebene über die mit dem Hochpass und stellt die Deckkraft auf 20 od 30%. So seht ihr die Person ganz leicht durchscheinen und wisst genau was ihr anmalen müsst und was nicht.
   
   Zum Vergrößern klicken
7. 7
   Danach malt ihr außen herum alles schwarz an. Malt auf keinen Fall bereits weiße Teile an. Nehmt euch zuerst die Übergänge von Weiß auf Grau vor, danach nehmt ihr das freie Auswahlwerkzeug, zieht eine grobe Auswahl um den Körper und füllt den Rest auf einmal (STRG+, oder Bearbeiten / mit VG-Farbe füllen) mit Schwarz - drückt vorher D um die Farben auf Schwarz / Weiß zurückzusetzen.
   
   Zum Vergrößern klicken
8. 8
   Wenn ihr nur noch Schwarz und Weiß auf dieser Ebene habt habt markiert ihr alles mit STRG+A, kopiert es (STRG+C) und wechselt auf die HG-Ebene mit dem Originalbild. Klickt rechts auf die Ebene und wählt Alphakanal hinzufügen. Danach wählt ihr im selben Menü Ebenenmaske hinzufügen. Dann geht ihr auf Bearbeiten -> Einfügen. Danach ist das Eingefügte auf einer schwebenden Ebene. Klickt auf den Verankern-Button im Ebenenmenü um die Maske zu aktivieren.
   
   Erstellt eine neue, transparente Ebene, schiebt sie in der Ebenenreihenfolge im Ebenendialog ganz nach unten und füllt diese mit einer beliebigen Farbe. Fertig! Das Objekt oder die Person sollte nun perfekt freigestellt sein.
   
   Zum Vergrößern klicken