tools/dvd2concat: use option keyword

subfile,,start,X,end,Y,,: is ugly and will be gone some day.
This commit is contained in:
Nicolas George 2021-07-28 12:45:34 +02:00
parent 6d82d894ee
commit 252128561e
1 changed files with 4 additions and 2 deletions

View File

@ -117,10 +117,12 @@ for my $cell (@{$track->{cell}}) {
my $file = @files == 1 ? $files[0] : "concat:" . join("|", @files); my $file = @files == 1 ? $files[0] : "concat:" . join("|", @files);
my $start = $off << 11; my $start = $off << 11;
my $end = ($off + $size) << 11; my $end = ($off + $size) << 11;
$file = "subfile,,start,${start},end,${end},,:$file";
my $dur = int(1000 * $cell->{length}); my $dur = int(1000 * $cell->{length});
$concat .= sprintf "\nfile '%s'\nduration %02d:%02d:%02d.%03d\n", $file, $concat .= "\nfile 'subfile:$file'\n";
$concat .= "option start $start\n";
$concat .= "option end $end\n";
$concat .= sprintf "duration %02d:%02d:%02d.%03d\n",
int($dur / 3600000), int($dur / 60000) % 60, int($dur / 1000) % 60, int($dur / 3600000), int($dur / 60000) % 60, int($dur / 1000) % 60,
$dur % 1000; $dur % 1000;
} }