subfile,,start,X,end,Y,,: is ugly and will be gone some day.
Unified · Split
| @@ -117,10 +117,12 @@ for my $cell (@{$track->{cell}}) { · 116 unmodified lines | |||
| 117 | my $file = @files == 1 ? $files[0] : "concat:" . join("|", @files); | 117 | my $file = @files == 1 ? $files[0] : "concat:" . join("|", @files); |
| 118 | my $start = $off << 11; | 118 | my $start = $off << 11; |
| 119 | my $end = ($off + $size) << 11; | 119 | my $end = ($off + $size) << 11; |
| 120 | $file = "subfile,,start,${start},end,${end},,:$file"; | ||
| 121 | 120 | ||
| 122 | my $dur = int(1000 * $cell->{length}); | 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 | int($dur / 3600000), int($dur / 60000) % 60, int($dur / 1000) % 60, | 126 | int($dur / 3600000), int($dur / 60000) % 60, int($dur / 1000) % 60, |
| 125 | $dur % 1000; | 127 | $dur % 1000; |
| 126 | } | 128 | } |