tools/dvd2concat: use option keyword

subfile,,start,X,end,Y,,: is ugly and will be gone some day.

Nicolas George committed 5 years ago

Commit 25212851 parent 6d82d891 file · +4 −2Browse files

Unified · Split

tools/dvd2concat+4−2

@@ -117,10 +117,12 @@ for my $cell (@{$track->{cell}}) { · 116 unmodified lines
117	117	my $file = @files == 1 ? $files[0] : "concat:" . join("\|", @files);
118	118	my $start = $off << 11;
119	119	my $end = ($off + $size) << 11;
120		− $file = "subfile,,start,${start},end,${end},,:$file";
121	120
122	121	my $dur = int(1000 * $cell->{length});
123		− $concat .= sprintf "\nfile '%s'\nduration %02d:%02d:%02d.%03d\n", $file,
	122	+ $concat .= "\nfile 'subfile:$file'\n";
	123	+ $concat .= "option start $start\n";
	124	+ $concat .= "option end $end\n";
	125	+ $concat .= sprintf "duration %02d:%02d:%02d.%03d\n",
124	126	int($dur / 3600000), int($dur / 60000) % 60, int($dur / 1000) % 60,
125	127	$dur % 1000;
126	128	}