my $length = 100;
my $fps = 5;
+if ( my $original = shift @ARGV ) {
+ my $len_ms = `oggLength $original`;
+ $length = int( ( $len_ms + 500 ) / 1000 );
+ warn "$original\t$length s\n";
+}
+
rmtree "/tmp/blank";
mkdir "/tmp/blank";
my $path = sprintf $frame_fmt, $pos;
$im->Write( filename => $path );
# warn "# $hh $mm $ss $path ", -s $path, $/ if $t % $fps == 0;
- print STDERR '.' if $pos % $fps == 0;
+ print STDERR $pos % 60 * $fps == 0 ? '*' : '.' if $pos % $fps == 0;
}
print STDERR "\n";