483 |
$pred_val = $origin; |
$pred_val = $origin; |
484 |
$step_idx = $index; |
$step_idx = $index; |
485 |
|
|
486 |
|
my $size = 0; |
487 |
|
|
488 |
foreach my $b ( map { ord($_) } split(//, substr($data,8)) ) { |
foreach my $b ( map { ord($_) } split(//, substr($data,8)) ) { |
489 |
print $au_fh pack 'n', adpcm_decode_sample( $b >> 4 ); |
print $au_fh pack 'n', adpcm_decode_sample( $b >> 4 ); |
490 |
print $au_fh pack 'n', adpcm_decode_sample( $b & 15 ); |
print $au_fh pack 'n', adpcm_decode_sample( $b & 15 ); |
491 |
|
$size += 2; |
492 |
} |
} |
493 |
|
|
494 |
|
warn "length isn't corrent $bytes != $size" if $bytes != $size; |
495 |
} |
} |
496 |
|
|
497 |
|
|