Dotaz: Fazovy posun titulku

[egg]

Stahl jsem si titulky, ktere maji zacatek trochu jinde nez film. Nemate nekdo skript, kterej by ke vsem casum titulku v souboru .sub pricetl/odecetl konstantu? Dik moc.

Odpovědi

[Michal Karas]

Format titulku?

Jinak se zkuste mrknout na nejake programy pro praci s titulky. Uz to tady nekolikrat bylo. Tusim, ze jsou zrovna vyjmenovane v jednom threadu, ktery je o par mist nize...

[Ritchie]

Myslim, ze by to melo jit skriptem v awk.

[Ondra 'Kepi' Kudlík]

Pokud pro přehrávání filmů používáte mplayer, nemusíte hledat žádný nový software (na což jsem bohužel přišel až po napsání několika svých skriptíků). Stačí použít volbu -subdelay

[egg]

Ono je fajn si to pustit s titulkama spravne pomoci -subdelay. Ale jina vec je, kdyz si to chci nasledne vypalit na cedecko tak, aby titulky byly konzistentni s filmem. Az ten skript napisu (nebo nekde najdu), pastnu ho sem.

[Radomír Fojtík]

"Az ten skript napisu (nebo nekde najdu), pastnu ho sem."

Mam tomu rozumet, ze jste ho nenapsal(nenasel)?

[Stanislav Brabec]

MPlayer má jedno zajímavou vlastnost:

Ovevíráte-li soubor /mojecesta/mujfilm.ext, hledá doplňkové volby v souborech /mojecesta/mujfilm.ext.conf a ~/.mplayer/mujfilm.ext.conf.

Takže za podmínky, že to budete přehrávat MPlayerem, stačí si takový soubor vypálit na CD.

[honza_s]

dalsi moznost je dumpnout titulky do nativniho mplayer formatu , ve kterem se to da snadno posunout rucne, a pak si to treba vydumpnout zpatky do puvodniho formatu. proste.

[Valoun]

Zkus ksubeditor

[Tomáš]

Našel jsem jeden skript, který se mi dostal na disk společně s nějakým seriálem. Je to v Perlu a nedělal jsem ho já, takže takže nemůžu odpovědět na případné otázky.

#!/usr/bin/perl


$operace= @ARGV[0];
$od     = @ARGV[1];
$do     = @ARGV[2];
$okolik = @ARGV[3];
$ifile  = @ARGV[4];
$ofile  = @ARGV[5];

#debug
#print "$operace $od $do $okolik $ifile $ofile\n";

open(IFP,"<$ifile");
open(OFP,">$ofile");
while ( $line = <IFP> ) {
        if ( $line =~ /{(\d+)}{(\d+)}(.*)/ )
        {
                if ( $1 == $od || $delej )
                {
                        $delej = true;
                        if ($operace eq "+" )
                        {
                                $tmp = $1 + $okolik;
                                $tmp2 = $2 + $okolik;
                        }
                        if ($operace eq "-")
                        {
                                $tmp = $1 - $okolik;
                                $tmp2 = $2 - $okolik;
                        }
                        print OFP "{$tmp}{$tmp2}$3\n";
                } else {
                        print OFP "$line";
                }
        
        }
}


close(IFP);
close(OFP);

[metf]

Pro sub formát jsem si kdysi taky napsal jednoduchý, ale funkční skript tak jestli se vám bude hodit, jinak sourceforge to jistí:

#!/usr/bin/perl
# posuv titulku o n framu - pokud chcete posun v sec. tak potreba vynásobit FPS 
# pouziti: posun infile +/-frames > outfile
# napr: posun shrek_bad.sub 500 > shrek_ok.sub

open(DATA,$ARGV[0]) or die "Nemohu otevrit soubor $ARGV[0]\n";
while ($radek= <DATA>) {
$radek =~ s/\{(\d*?)\}/sprintf("{%d}",$1-$ARGV[1])/ge;
print $radek; }