/[amv]/amv.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /amv.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 29 by dpavlin, Sun Aug 19 19:23:03 2007 UTC revision 30 by dpavlin, Fri Sep 14 19:35:32 2007 UTC
# Line 483  sub audio_frame { Line 483  sub audio_frame {
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    

Legend:
Removed from v.29  
changed lines
  Added in v.30

  ViewVC Help
Powered by ViewVC 1.1.26