--- amv.pl	2007/07/20 16:55:33	13
+++ amv.pl	2007/07/21 11:18:15	16
@@ -15,13 +15,21 @@
 use Data::Dump qw/dump/;
 use Carp qw/confess/;
 use File::Path;
+use Getopt::Long;
 
 my $dump = 0;
 my $debug = 0;
+my $dump_dir = '/tmp/dump/';
+
+GetOptions(
+	"dump!"			=> \$dump,
+	"debug!"		=> \$debug,
+	"dump-dir=s"	=> \$dump_dir,
+);
 
 my $path = shift @ARGV || die "usage: $0 movie.amv\n";
 
-my $dump_dir = '/tmp/dump/';
+
 rmtree $dump_dir if -e $dump_dir;
 mkpath $dump_dir || die "can't create $dump_dir: $!";
 
@@ -150,6 +158,9 @@
 	confess "no SOI marker in data" if substr($data,0,2) ne "\xFF\xD8";
 	$data = substr($data,2);
 
+	my $w = $d->{amvh}->{width} || die "no width?";
+	my $h = $d->{amvh}->{height} || confess "no height?";
+
 	my $header = 
 		"\xFF\xD8".	# Start of Image (SOI) marker
 #------------------------------------------------------------------
@@ -167,7 +178,7 @@
 	pack("ncnncc9",
 		17,			# len
 		8,			# sample precision in bits
-		120,160,	# X,Y size
+		$h,$w,		# X,Y size
 		3,			# number of components
 		1,0x21,0,	# Component ID, H+V sampling factors, Quantization table number
 		2,0x11,1,
@@ -323,7 +334,7 @@
 	);
 #------------------------------------------------------------------
 
-	my $header =
+	$header =
 	# SOI
 	"\xFF\xD8".
 	# JFIF
@@ -355,16 +366,22 @@
 	# Define huffman table (section B.2.4.1)
 	"\xFF\xC4".	# Marker
 	"\x00\x1F".	# Length (31 bytes)
-	"\x00".		# DC, table 0
-	"\x00\x01\x05\x01\x01\x01\x01\x01\x01\x00\x00\x00".
-	"\x00\x00\x00\x00\x00\x01\x02\x03\x04\x05\x06\x07".
-	"\x08\x09\x0A\x0B".
+	"\x00".		# DC luminance, table 0
+	"\x00\x01\x05\x01\x01\x01\x01\x01\x01\x00\x00\x00\x00\x00\x00\x00".
+	"\x00\x01\x02\x03\x04\x05\x06\x07\x08\x09\x0A\x0B".
+	# Define huffman table (section B.2.4.1)
+	"\xFF\xC4".	# Marker
+	"\x00\x1F".	# Length (31 bytes)
+	"\x01".		# DC chrominance, table 1
+	"\x00\x03\x01\x01\x01\x01\x01\x01\x01\x01\x01\x00".
+	"\x00\x00\x00\x00".
+	"\x00\x01\x02\x03\x04\x05\x06\x07\x08\x09\x0A\x0B".
 	# Define huffman table (section B.2.4.1)
 	"\xFF\xC4".	# Marker
 	"\x00\xB5".	# Length (181 bytes)
-	"\x10".		# AC, table 0
-	"\x00\x02\x01\x03\x03\x02\x04\x03\x05\x05\x04\x04".
-	"\x00\x00\x01\x7D\x01\x02\x03\x00\x04\x11\x05\x12".
+	"\x10".		# AC luminance, table 0
+	"\x00\x02\x01\x03\x03\x02\x04\x03\x05\x05\x04\x04\x00\x00\x01\x7D".
+	"\x01\x02\x03\x00\x04\x11\x05\x12".
 	"\x21\x31\x41\x06\x13\x51\x61\x07\x22\x71\x14\x32".
 	"\x81\x91\xA1\x08\x23\x42\xB1\xC1\x15\x52\xD1\xF0".
 	"\x24\x33\x62\x72\x82\x09\x0A\x16\x17\x18\x19\x1A".
@@ -378,19 +395,13 @@
 	"\xC6\xC7\xC8\xC9\xCA\xD2\xD3\xD4\xD5\xD6\xD7\xD8".
 	"\xD9\xDA\xE1\xE2\xE3\xE4\xE5\xE6\xE7\xE8\xE9\xEA".
 	"\xF1\xF2\xF3\xF4\xF5\xF6\xF7\xF8\xF9\xFA".
-	# Define huffman table (section B.2.4.1)
-	"\xFF\xC4".	#	/* Marker */
-	"\x00\x1F".	#	/* Length (31 bytes) */
-	"\x01".		#/* DC". table 1 */
-	"\x00\x03\x01\x01\x01\x01\x01\x01\x01\x01\x01\x00".
-	"\x00\x00\x00\x00\x00\x01\x02\x03\x04\x05\x06\x07".
-	"\x08\x09\x0A\x0B".
 	#/* Define huffman table (section B.2.4.1) */
-	"\xFF\xC4".	#	/* Marker */
-	"\x00\xB5".	#	/* Length (181 bytes) */
-	"\x11".		#/* AC". table 1 */
+	"\xFF\xC4".	# Marker
+	"\x00\xB5".	# Length (181 bytes)
+	"\x11".		# AC chrominance, table 1
 	"\x00\x02\x01\x02\x04\x04\x03\x04\x07\x05\x04\x04".
-	"\x00\x01\x02\x77\x00\x01\x02\x03\x11\x04\x05\x21".
+	"\x00\x01\x02\x77".
+	"\x00\x01\x02\x03\x11\x04\x05\x21".
 	"\x31\x06\x12\x41\x51\x07\x61\x71\x13\x22\x32\x81".
 	"\x08\x14\x42\x91\xA1\xB1\xC1\x09\x23\x33\x52\xF0".
 	"\x15\x62\x72\xD1\x0A\x16\x24\x34\xE1\x25\xF1\x17".
@@ -407,7 +418,7 @@
 	# start of frame
 	"\xff\xc0".
 	"\x00\x11\x08".
-	pack("nn", 120, 160).
+	pack("nn", $h, $w).
 	"\x03\x01\x21\x00\x02\x11\x01\x03\x11\x01".
 	#
 	"\xff\xda".