Attachment 157709 Details for Bug 245155 – son2xml perl version

son2xml perl version

son2xml (text/plain), 1.45 KB, created by Otto J. Makela on 2007-06-24 12:58:14 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Otto J. Makela

Created: 2007-06-24 12:58:14 UTC

Size: 1.45 KB

patch

obsolete

>#!/usr/bin/perl
># Shamelessly cribbed from son2xml.py -- 2007-04-29 om@iki.fi
># Added optipng conversion, since current spumux doesn't support bmp
>
>my $line=0;
>my $x1=0;
>my $y1=0;
>my $png=0;
>
>sub convert($) {
>    (my $hr, my $mm, my $ss, my $ff)=split(/:/,shift,4);
>    return sprintf("%s:%s:%s.%02d",$hr,$mm,$ss,int($ff)*99 / 24);
>}
>
>if($ARGV[0] eq '-p') {
>    $png++;
>    shift;
>}
>
>while(<>) {
>    chomp;
>    (my $cmd,my $rest)=split(/\s+/,$_,2);
>    if($cmd eq 'Display_Area') {
>	($x1,$y1,undef)=split(/\s+/,substr($rest,1,-1),3);
>    } elsif($cmd =~ /^\d+$/) {
>	unless($line++) { print "<subpictures>\n  <stream>\n"; }
>	(my $start,my $end,my $filename)=split(/\s+/,$rest,3);
>
>	if( $png and $filename =~ m/\.bmp$/i ) {
>	    (my $filename2=$filename) =~ s/\.bmp/\.png/;
>	    system("optipng -q $filename");
>	    if(-r $filename2) {
>		unlink($filename);
>		$filename=$filename2;
>	    }
>	}
>
>	print
>	    '    <spu start="',convert($start),'" end="',convert($end),
>	    '" transparent="000060" image="',$filename,
>	    '" xoffset="',$x1,'" yoffset="',$y1,'">',
>	    "\n    </spu>\n";
>    }
>}
>
>if($line) { print "  </stream>\n</subpictures>\n"; }
>
># After this:
>#   spumux subs.xml < orig.vob > subbed.vob
>#   dvdauthor -o image subbed.vob -a en -s fi -p yle.rgb
>#   dvdauthor -o image -T
>
># Multiple subtitle muxing:
># mplex -V -f 8 -o /dev/stdout Tintin_et_Moi.m2v Tintin_et_Moi.mp2 | spumux -m dvd -s 0 Tintin_et_Moi.xml | spumux -m dvd -s 1 Tintin_et_Moi\[1\].xml > Tintin_et_Moi-dvd.mpg

Actions: View

Attachments on bug 245155: 157709