432 |
$size += 2; |
$size += 2; |
433 |
} |
} |
434 |
|
|
435 |
warn "length isn't corrent $bytes != $size" if $bytes != $size; |
warn "length isn't corrent $bytes != $size" if $debug && $bytes != $size; |
436 |
} |
} |
437 |
|
|
438 |
# |
# |
536 |
} |
} |
537 |
} |
} |
538 |
|
|
539 |
|
if ( $fps == 12 ) { |
540 |
|
warn "fixup $au_path for $fps fps -- 16000 Hz\n"; |
541 |
|
seek($au_fh, 16, 0); # sample rate offset |
542 |
|
print $au_fh pack 'N', 16000; |
543 |
|
} |
544 |
|
|
545 |
my $cmd = "ffmpeg -r $fps -i $dump_dir/%04d.jpg -i $au_path -y $dump_avi"; |
my $cmd = "ffmpeg -r $fps -i $dump_dir/%04d.jpg -i $au_path -y $dump_avi"; |
546 |
system($cmd) == 0 || die "can't convert frames to avi using $cmd: $!"; |
system($cmd) == 0 || die "can't convert frames to avi using $cmd: $!"; |
547 |
|
|