--- amv.pl	2007/07/21 11:05:43	15
+++ amv.pl	2007/07/21 11:18:15	16
@@ -158,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
 #------------------------------------------------------------------
@@ -175,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,
@@ -331,7 +334,7 @@
 	);
 #------------------------------------------------------------------
 
-	my $header =
+	$header =
 	# SOI
 	"\xFF\xD8".
 	# JFIF
@@ -415,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".