--- amv.pl	2007/07/21 15:03:30	19
+++ amv.pl	2007/08/18 11:21:40	27
@@ -9,6 +9,8 @@
 # http://en.wikipedia.org/wiki/RIFF_(File_format)
 # http://www.obrador.com/essentialjpeg/HeaderInfo.htm
 # http://lists.helixcommunity.org/pipermail/datatype-dev/2005-January/001886.html
+# http://mpgedit.org/mpgedit/mpeg_format/mpeghdr.htm
+# http://wiki.multimedia.cx/index.php?title=IMA_ADPCM
 
 use strict;
 
@@ -17,21 +19,34 @@
 use File::Path;
 use Getopt::Long;
 
-my $dump = 0;
+my $dump_amv = 0;
+my $dump_video = 0;
+my $dump_jpeg = 0;
+my $dump_audio = 0;
 my $debug = 0;
+my $verbose = 0;
 my $dump_dir = '/tmp/dump/';
+my $dump_avi = "dump.avi";
 my $no_jpeg_header = 0;
 my $jpeg_q = 100;
+my $jpegtran;
 
 GetOptions(
-	"dump!"			=> \$dump,
+	"dump-amv!"		=> \$dump_amv,
+	"dump-video!"	=> \$dump_video,
+	"dump-jpeg!"	=> \$dump_jpeg,
+	"dump-audio!"	=> \$dump_audio,
 	"debug!"		=> \$debug,
 	"dump-dir=s"	=> \$dump_dir,
 	"no-jpeg-headers!" => \$no_jpeg_header,
+	"jpegtran=s"	=> \$jpegtran,
+	"verbose!"		=> \$verbose,
 );
 
 my $path = shift @ARGV || die "usage: $0 movie.amv\n";
 
+# by default, flip frames
+#$jpegtran = '-flip vertical' unless defined($jpegtran);
 
 rmtree $dump_dir if -e $dump_dir;
 mkpath $dump_dir || die "can't create $dump_dir: $!";
@@ -45,8 +60,6 @@
 my $d;
 
 sub hex_dump {
-	return unless $dump;
-
 	my ( $bytes, $offset ) = @_;
 	return unless $bytes;
 
@@ -88,10 +101,13 @@
 	my $r_len = length($bytes);
 	confess "read $r_len bytes, expected $len" if $len != $r_len;
 
-	hex_dump( $bytes );
+	if ( $dump_amv ) {
+		print "## raw $len bytes\n";
+		hex_dump( $bytes );
+	}
 
 	if ( $bytes eq 'AMV_END_' ) {
-		print "> end of file marker AMV_END_\n" if $dump;
+		print "> end of file marker AMV_END_\n" if $dump_video;
 		$d->{eof}++;
 		return;
 	}
@@ -113,7 +129,7 @@
 	if ( $expected_len ) {
 		confess "expected $expected_len bytes for $part got $len" if $len != $expected_len;
 	}
-	printf "<< %s - %d 0x%x bytes\n", $part, $len, $len;
+	printf "## next_part %s - %d 0x%x bytes\n", $part, $len, $len if $debug;
 	x($len) if $skip;
 	return $len;
 }
@@ -131,7 +147,7 @@
 		$out .= chr($t);
 	}
 
-	if ( $dump ) {
+	if ( $dump_video ) {
 		print "## quantization table original\n";
 		hex_dump( $in );
 		print "## quantization table for $jpeg_q %\n";
@@ -141,6 +157,69 @@
 	return $out;
 }
 
+sub mp3_frame {
+	my $frame = join('',
+		# Frame sync (all bits set)
+		1 x 11 .
+		# MPEG Audio version ID
+		# 00 - MPEG Version 2.5 (unofficial)
+		# 01 - reserved
+		# 10 - MPEG Version 2 (ISO/IEC 13818-3)
+		# 11 - MPEG Version 1 (ISO/IEC 11172-3)
+		1,0,
+		# Layer description
+		# 00 - reserved
+		# 01 - Layer III
+		# 10 - Layer II
+		# 11 - Layer I
+		0,1,
+		# Protection bit
+		# 0 - Protected by CRC (16bit crc follows header)
+		# 1 - Not protected
+		0,
+		# Bitrate index
+		0,0,0,0,
+		# Sampling rate frequency index (22050)
+		0,0,
+		# Padding bit
+		# 0 - frame is not padded
+		# 1 - frame is padded with one extra slot
+		0,
+		# Private bit
+		0,
+		# Channel Mode
+		# 00 - Stereo
+		# 01 - Joint stereo (Stereo)
+		# 10 - Dual channel (2 mono channels)
+		# 11 - Single channel (Mono)
+		1,1,
+		# Mode extension (Only if Joint stereo)
+		0,0,
+		# Copyright
+		0,
+		# Original
+		0,
+		# Emphasis
+		# 00 - none
+		# 01 - 50/15 ms
+		# 10 - reserved
+		# 11 - CCIT J.17
+		0,0,
+	);
+
+	die "frame must have 32 bits, not ", length($frame), " for $frame" if length($frame) != 32;
+
+	my $bits = pack("b32", $frame);
+
+	die "packed bits must be 4 bytes, not $bits" if length($bits) != 4;
+
+	my $t = $frame;
+	$t =~ s/(.{8})/$1 /g;
+	warn "## mp3 frame frame = $t\n";
+
+	return $bits;
+}
+
 my @subframes;
 my $frame_nr = 1;
 
@@ -156,14 +235,10 @@
 
 	if ( $#subframes < ( $join_subframes - 1 ) ) {
 		push @subframes, $data;
-		print "## saved $frame_nr/", $#subframes + 1, " subframe of ", length($data), " bytes\n";
+		print "## saved $frame_nr/", $#subframes + 1, " subframe of ", length($data), " bytes\n" if $debug;
 		return;
 	}
 
-	my $path = sprintf("$dump_dir/%04d.jpg", $frame_nr++ );
-
-	open(my $fh, '>', $path) || die "can't create $path: $!";
-
 	my $w = $d->{amvh}->{width} || die "no width?";
 	my $h = $d->{amvh}->{height} || confess "no height?";
 
@@ -286,7 +361,7 @@
 		0,			# Ah, Ai (not used)
 	);
 
-	if ( $dump ) {
+	if ( $dump_jpeg ) {
 		print "## created JPEG header...\n";
 		hex_dump( $header, 0 );
 	}
@@ -294,23 +369,70 @@
 	my $frame = join('', @subframes ) . $data;
 	@subframes = ();
 
+	my $path = sprintf("$dump_dir/%04d.jpg", $frame_nr );
+
+	my $fh;
+	if ( $jpegtran ) {
+		open($fh, '|-', "jpegtran $jpegtran > $path") || die "can't create $path: $!";
+	} else {
+		open($fh, '>', $path) || die "can't create $path: $!";
+	}
+
 	if ( ! $no_jpeg_header ) {
-		print $fh $header, $frame, "\xFF\xD9" || die "can't write jpeg $path: $!";
+		print $fh $header . $frame . "\xFF\xD9" || die "can't write jpeg $path: $!";
 	} else {
 		print $fh $frame || die "can't write raw jpeg $path: $!";
 	}
 	close $fh || die "can't close $path: $!";
-	print ">> created $frame_nr ", $no_jpeg_header ? 'raw' : '', " jpeg $path ", -s $path, " bytes\n";
+	print ">> created $frame_nr ", $no_jpeg_header ? 'raw' : '', " jpeg $path ", -s $path, " bytes\n" if $verbose;
 }
 
 my ( $riff, $amv ) = x(12, 'Z4x4Z4');
 die "$path not RIFF but $riff" if $riff ne 'RIFF';
 die "$path not AMV but $amv" if $amv ne 'AMV ';
 
+my $apath = "$dump_dir/audio.wav";
+open(my $audio_fh, '>', $apath) || die "can't open audio file $apath: $!";
+
+print $audio_fh pack 'a4Va4a4VvvVVv4', (
+	# header 'RIFF', size
+	'RIFF',-1,
+	# type: 'WAVE'
+	'WAVE',
+	'fmt ',0x14,
+	# format: DVI (IMA) ADPCM Wave Type
+	0x11,
+	# channels
+	1,
+	# samples/sec
+	22050,
+	# avg. bytes/sec (for esimation)
+	11567,
+	# block align (size of block)
+	0x800,
+	# bits per sample (mono data)
+	4,
+	# cbSize (ADPCM with 7 soefficient pairs)
+	2,
+	# nSamplesPerBlock
+	# (((nBlockAlign - (7 * nChannels)) * 8) / (wBitsPerSample * nChannels)) + 2
+	0x0ff9,
+);
+
+print $audio_fh pack 'a4VVa4V', (
+	# time length of the data in samples
+	'fact',4,
+	220500,
+	#
+	'data',-1,
+);
+
+my $riff_header_len = tell($audio_fh);
+
 while ( ! defined($d->{eof}) ) {
 	my ( $list, $name ) = x(12,'A4x4A4');
 	die "not LIST but $list" if $list ne 'LIST';
-	print "< $list * $name\n";
+	print "< $list * $name\n" if $verbose;
 
 	if ( $name eq 'hdrl' ) {
 
@@ -343,14 +465,49 @@
 		
 			my $len = next_part( '00dc' );
 			last unless $len;
-			printf "<< %s 00dc - frame %d jpeg %d 0x%x bytes\n", $name, $frame, $len, $len;
+			printf "<< %s 00dc - part %d jpeg %d 0x%x bytes\n", $name, $frame, $len, $len if $verbose;
 			mkjpg( x($len) );
 
-			$len = next_part( '01wb', 0, 1 );
-			printf "<< %s 01wb - frame %d audio %d 0x%x bytes\n", $name, $frame, $len, $len;
+			$len = next_part( '01wb' );
+			printf "<< %s 01wb - part %d audio %d 0x%x bytes\n", $name, $frame, $len, $len if $verbose;
+
+			my $audio_frame = x( $len );
+
+			if ( $dump_audio ) {
+				printf "#### dumping audio frame %d 0x%x bytes\n", length($audio_frame), length($audio_frame);
+				hex_dump( $audio_frame );
+			}
+
+			# remove 8 bytes of something
+			$audio_frame = substr( $audio_frame, 8 );
+
+			if ( length($audio_frame) % 2 == 0 ) {
+				print "#### even sized frame!";
+#				$audio_frame = substr( $audio_frame, 0, -1 );
+			}
+
+#			print $audio_fh mp3_frame;
+			print $audio_fh $audio_frame || die "can't write audio frame in $apath: $!";
+
+			$frame_nr++;
 		};
 
 	} else {
 		die "unknown $list $name";
 	}
 }
+
+my $cmd = "ffmpeg -i $dump_dir/%04d.jpg -r 16 -y $dump_avi";
+system($cmd) == 0 || die "can't convert frames to avi using $cmd: $!";
+
+my $size = tell($audio_fh);
+warn "## wav file size: $size\n";
+
+seek( $audio_fh, 4, 0 );
+print $audio_fh pack("V", $size - 8);
+seek( $audio_fh, $riff_header_len - 4, 0 );
+print $audio_fh pack("V", $size - $riff_header_len);
+
+close($audio_fh) || die "can't close audio file $apath: $!";
+
+print ">>>> created $frame_nr frames $dump_avi ", -s $dump_avi, " and $apath ", -s $apath, "\n";