/[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 4 by dpavlin, Thu Jul 19 20:49:06 2007 UTC revision 16 by dpavlin, Sat Jul 21 11:18:15 2007 UTC
# Line 3  Line 3 
3  # amv.pl  # amv.pl
4  #  #
5  # 07/19/07 19:21:39 CEST Dobrica Pavlinusic <dpavlin@rot13.org>  # 07/19/07 19:21:39 CEST Dobrica Pavlinusic <dpavlin@rot13.org>
6    #
7    # Various useful links used to produce this:
8    # http://www.moviecodec.com/topics/15431p1.html
9    # http://en.wikipedia.org/wiki/RIFF_(File_format)
10    # http://www.obrador.com/essentialjpeg/HeaderInfo.htm
11    # http://lists.helixcommunity.org/pipermail/datatype-dev/2005-January/001886.html
12    
13  use strict;  use strict;
14    
15  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
16  use Carp qw/confess/;  use Carp qw/confess/;
17    use File::Path;
18    use Getopt::Long;
19    
20    my $dump = 0;
21    my $debug = 0;
22    my $dump_dir = '/tmp/dump/';
23    
24    GetOptions(
25            "dump!"                 => \$dump,
26            "debug!"                => \$debug,
27            "dump-dir=s"    => \$dump_dir,
28    );
29    
30  my $path = shift @ARGV || die "usage: $0 movie.amv\n";  my $path = shift @ARGV || die "usage: $0 movie.amv\n";
31    
32    
33    rmtree $dump_dir if -e $dump_dir;
34    mkpath $dump_dir || die "can't create $dump_dir: $!";
35    
36  open(my $fh, '<', $path) || die "can't open $path: $!";  open(my $fh, '<', $path) || die "can't open $path: $!";
37    
38  # offset in file  # offset in file
# Line 20  my $o = 0; Line 42  my $o = 0;
42  my $d;  my $d;
43    
44  sub hex_dump {  sub hex_dump {
45          my $bytes = shift || return;          return unless $dump;
46    
47            my ( $bytes, $offset ) = @_;
48            return unless $bytes;
49    
50            my $old_o;
51            if (defined($offset)) {
52                    $old_o = $o;
53                    $o = $offset;
54            }
55    
56          my $ascii = $bytes;          my $ascii = $bytes;
57          $ascii =~ s/\W/./gs;          $ascii =~ s/\W/./gs;
58          my $hex = unpack('h*', $bytes);          my $hex = uc( unpack('h*', $bytes) );
59          $hex =~ s/(..)/$1 /g;          $hex =~ s/(..)/$1 /g;
60          # calculate number of characters for offset          # calculate number of characters for offset
61          #my $d = length( sprintf("%x",length($bytes)) );          #my $d = length( sprintf("%x",length($bytes)) );
62          my $d = 4;          my $d = 4;
63            my $prefix = '#.';
64          while ( $hex =~ s/^((?:\w\w\s){1,16})// ) {          while ( $hex =~ s/^((?:\w\w\s){1,16})// ) {
65                  printf "## %0${d}x | %-48s| %s\n", $o, $1, substr( $ascii, 0, 16 );                  printf "$prefix %0${d}x | %-48s| %s\n", $o, $1, substr( $ascii, 0, 16 );
66                    $prefix = '##';
67                  if ( length($ascii) >= 16 ) {                  if ( length($ascii) >= 16 ) {
68                          $ascii = substr( $ascii, 16 );                          $ascii = substr( $ascii, 16 );
69                          $o += 16;                          $o += 16;
# Line 39  sub hex_dump { Line 72  sub hex_dump {
72                          last;                          last;
73                  }                  }
74          }          }
75    
76            $o = $old_o if $old_o;
77  }  }
78    
79  sub x {  sub x {
# Line 53  sub x { Line 88  sub x {
88          hex_dump( $bytes );          hex_dump( $bytes );
89    
90          if ( $bytes eq 'AMV_END_' ) {          if ( $bytes eq 'AMV_END_' ) {
91                  warn "## end of file marker AMV_END_\n";                  warn "> end of file marker AMV_END_\n";
92                  $d->{eof}++;                  $d->{eof}++;
93                  return;                  return;
94          }          }
95    
96          if ( $format ) {          if ( $format ) {
97                  my @data = unpack($format, $bytes);                  my @data = unpack($format, $bytes);
98                  warn "## unpacked = ",dump(@data),"\n";                  warn "## unpacked = ",dump(@data),"\n" if $debug;
99                  return @data;                  return @data;
100          } else {          } else {
101                  return $bytes;                  return $bytes;
# Line 75  sub next_part { Line 110  sub next_part {
110          if ( $expected_len ) {          if ( $expected_len ) {
111                  confess "expected $expected_len bytes for $part got $len" if $len != $expected_len;                  confess "expected $expected_len bytes for $part got $len" if $len != $expected_len;
112          }          }
113          printf ">>> %s | %d 0x%x bytes\n", $part, $len, $len;          printf "<< %s - %d 0x%x bytes\n", $part, $len, $len;
114          x($len) if $skip;          x($len) if $skip;
115          return $len;          return $len;
116  }  }
117    
118  my ( $riff, $amv ) = x(12, 'Z8Z4');  sub huffman {
119  die "not RIFF but $riff" if $riff ne 'RIFF';  
120  die "not AMV but $amv" if $amv ne 'AMV ';  # JPEG DHT Segment for YCrCb omitted from MJPG data
121    return
122    "\xFF\xC4\x01\xA2" .
123    "\x00\x00\x01\x05\x01\x01\x01\x01\x01\x01\x00\x00\x00\x00\x00" .
124    "\x00\x00\x00\x01\x02\x03\x04\x05\x06\x07\x08\x09\x0A\x0B\x01" .
125    "\x00\x03\x01\x01\x01\x01\x01\x01\x01\x01\x01\x00\x00\x00\x00" .
126    "\x00\x00\x01\x02\x03\x04\x05\x06\x07\x08\x09\x0A\x0B\x10\x00" .
127    "\x02\x01\x03\x03\x02\x04\x03\x05\x05\x04\x04\x00\x00\x01\x7D" .
128    "\x01\x02\x03\x00\x04\x11\x05\x12\x21\x31\x41\x06\x13\x51\x61" .
129    "\x07\x22\x71\x14\x32\x81\x91\xA1\x08\x23\x42\xB1\xC1\x15\x52" .
130    "\xD1\xF0\x24\x33\x62\x72\x82\x09\x0A\x16\x17\x18\x19\x1A\x25" .
131    "\x26\x27\x28\x29\x2A\x34\x35\x36\x37\x38\x39\x3A\x43\x44\x45" .
132    "\x46\x47\x48\x49\x4A\x53\x54\x55\x56\x57\x58\x59\x5A\x63\x64" .
133    "\x65\x66\x67\x68\x69\x6A\x73\x74\x75\x76\x77\x78\x79\x7A\x83" .
134    "\x84\x85\x86\x87\x88\x89\x8A\x92\x93\x94\x95\x96\x97\x98\x99" .
135    "\x9A\xA2\xA3\xA4\xA5\xA6\xA7\xA8\xA9\xAA\xB2\xB3\xB4\xB5\xB6" .
136    "\xB7\xB8\xB9\xBA\xC2\xC3\xC4\xC5\xC6\xC7\xC8\xC9\xCA\xD2\xD3" .
137    "\xD4\xD5\xD6\xD7\xD8\xD9\xDA\xE1\xE2\xE3\xE4\xE5\xE6\xE7\xE8" .
138    "\xE9\xEA\xF1\xF2\xF3\xF4\xF5\xF6\xF7\xF8\xF9\xFA\x11\x00\x02" .
139    "\x01\x02\x04\x04\x03\x04\x07\x05\x04\x04\x00\x01\x02\x77\x00" .
140    "\x01\x02\x03\x11\x04\x05\x21\x31\x06\x12\x41\x51\x07\x61\x71" .
141    "\x13\x22\x32\x81\x08\x14\x42\x91\xA1\xB1\xC1\x09\x23\x33\x52" .
142    "\xF0\x15\x62\x72\xD1\x0A\x16\x24\x34\xE1\x25\xF1\x17\x18\x19" .
143    "\x1A\x26\x27\x28\x29\x2A\x35\x36\x37\x38\x39\x3A\x43\x44\x45" .
144    "\x46\x47\x48\x49\x4A\x53\x54\x55\x56\x57\x58\x59\x5A\x63\x64" .
145    "\x65\x66\x67\x68\x69\x6A\x73\x74\x75\x76\x77\x78\x79\x7A\x82" .
146    "\x83\x84\x85\x86\x87\x88\x89\x8A\x92\x93\x94\x95\x96\x97\x98" .
147    "\x99\x9A\xA2\xA3\xA4\xA5\xA6\xA7\xA8\xA9\xAA\xB2\xB3\xB4\xB5" .
148    "\xB6\xB7\xB8\xB9\xBA\xC2\xC3\xC4\xC5\xC6\xC7\xC8\xC9\xCA\xD2" .
149    "\xD3\xD4\xD5\xD6\xD7\xD8\xD9\xDA\xE2\xE3\xE4\xE5\xE6\xE7\xE8" .
150    "\xE9\xEA\xF2\xF3\xF4\xF5\xF6\xF7\xF8\xF9\xFA";
151    
152    }
153    
154    sub mkjpg {
155            my ($path,$data) = @_;
156            open(my $fh, '>', $path) || die "can't create $path: $!";
157    
158            confess "no SOI marker in data" if substr($data,0,2) ne "\xFF\xD8";
159            $data = substr($data,2);
160    
161            my $w = $d->{amvh}->{width} || die "no width?";
162            my $h = $d->{amvh}->{height} || confess "no height?";
163    
164            my $header =
165                    "\xFF\xD8".     # Start of Image (SOI) marker
166    #------------------------------------------------------------------
167                    "\xFF\xE0".     # JFIF marker
168            pack("nZ5CCCnnCC",
169                    16,                     # length
170                    'JFIF',         # identifier
171                    1,1,            # version
172                    0,                      # units (none)
173                    1,1,            # X,Y density
174                    0,0,            # X,Y thumbnail
175            ).
176    #------------------------------------------------------------------
177            "\xFF\xC0".     # Start of frame
178            pack("ncnncc9",
179                    17,                     # len
180                    8,                      # sample precision in bits
181                    $h,$w,          # X,Y size
182                    3,                      # number of components
183                    1,0x21,0,       # Component ID, H+V sampling factors, Quantization table number
184                    2,0x11,1,
185                    3,0x11,1,
186            ).
187    #------------------------------------------------------------------
188            "\xFF\xDB".             # Define Quantization table marker
189            "\x00\x84".             # len
190            "\x00".                 # 8 bit values, (byte) table 0
191            "\x10\x0B\x0C\x0E\x0C".
192            "\x0A\x10\x0E\x0D\x0E".
193            "\x12\x11\x10\x13\x18".
194            "\x28\x1A\x18\x16\x16".
195            "\x18\x31\x23\x25\x1D".
196            "\x28\x3A\x33\x3D\x3C".
197            "\x39\x33\x38\x37\x40".
198            "\x48\x5C\x4E\x40\x44".
199            "\x57\x45\x37\x38\x50".
200            "\x6D\x51\x57\x5F\x62".
201            "\x67\x68\x67\x3E\x4D".
202            "\x71\x79\x70\x64\x78".
203            "\x5C\x65\x67\x63".
204            "\x01".         # 8 bit values, (byte) table 1
205            "\x11\x12\x12\x18\x15".
206            "\x18\x2F\x1A\x1A\x2F".
207            "\x63\x42\x38\x42\x63".
208            "\x63\x63\x63\x63\x63".
209            "\x63\x63\x63\x63\x63".
210            "\x63\x63\x63\x63\x63".
211            "\x63\x63\x63\x63\x63".
212            "\x63\x63\x63\x63\x63".
213            "\x63\x63\x63\x63\x63".
214            "\x63\x63\x63\x63\x63".
215            "\x63\x63\x63\x63\x63".
216            "\x63\x63\x63\x63\x63".
217            "\x63\x63\x63\x63".
218    #------------------------------------------------------------------
219    #       huffman("\x00").        # 0 DC
220    #       huffman("\x01").        # 1 DC
221    #       huffman("\x10").        # 0 AC
222    #       huffman("\x11").        # 1 AC
223    #------------------------------------------------------------------
224            # Define huffman table (section B.2.4.1)
225            "\xFF\xC4".             # Marker
226            "\x00\x1F".             # Length (31 bytes)
227            "\x00".                 # DC, (byte) table 0
228            "\x00\x01\x05\x01\x01".
229            "\x01\x01\x01\x01\x00".
230            "\x00\x00\x00\x00\x00".
231            "\x00\x00\x01\x02\x03".
232            "\x04\x05\x06\x07\x08".
233            "\x09\x0A\x0B".
234            # Define huffman table (section B.2.4.1)
235            "\xFF\xC4".             # Marker
236            "\x00\xB5".             # Length (181 bytes)
237            "\x10".                 # AC, (byte) table 0
238            "\x00\x02\x01\x03\x03".
239            "\x02\x04\x03\x05\x05".
240            "\x04\x04\x00\x00\x01".
241            "\x7D\x01\x02\x03\x00".
242            "\x04\x11\x05\x12\x21".
243            "\x31\x41\x06\x13\x51".
244            "\x61\x07\x22\x71\x14".
245            "\x32\x81\x91\xA1\x08".
246            "\x23\x42\xB1\xC1\x15".
247            "\x52\xD1\xF0\x24\x33".
248            "\x62\x72\x82\x09\x0A".
249            "\x16\x17\x18\x19\x1A".
250            "\x25\x26\x27\x28\x29".
251            "\x2A\x34\x35\x36\x37".
252            "\x38\x39\x3A\x43\x44".
253            "\x45\x46\x47\x48\x49".
254            "\x4A\x53\x54\x55\x56".
255            "\x57\x58\x59\x5A\x63".
256            "\x64\x65\x66\x67\x68".
257            "\x69\x6A\x73\x74\x75".
258            "\x76\x77\x78\x79\x7A".
259            "\x83\x84\x85\x86\x87".
260            "\x88\x89\x8A\x92\x93".
261            "\x94\x95\x96\x97\x98".
262            "\x99\x9A\xA2\xA3\xA4".
263            "\xA5\xA6\xA7\xA8\xA9".
264            "\xAA\xB2\xB3\xB4\xB5".
265            "\xB6\xB7\xB8\xB9\xBA".
266            "\xC2\xC3\xC4\xC5\xC6".
267            "\xC7\xC8\xC9\xCA\xD2".
268            "\xD3\xD4\xD5\xD6\xD7".
269            "\xD8\xD9\xDA\xE1\xE2".
270            "\xE3\xE4\xE5\xE6\xE7".
271            "\xE8\xE9\xEA\xF1\xF2".
272            "\xF3\xF4\xF5\xF6\xF7".
273            "\xF8\xF9\xFA".
274            # Define huffman table (section B.2.4.1)
275            "\xFF\xC4".             # Marker
276            "\x00\x1F".             # Length (31 bytes)
277            "\x01".                 # DC, (byte) table 1
278            "\x00\x03\x01\x01\x01".
279            "\x01\x01\x01\x01\x01".
280            "\x01\x00\x00\x00\x00".
281            "\x00\x00\x01\x02\x03".
282            "\x04\x05\x06\x07\x08".
283            "\x09\x0A\x0B".
284            # Define huffman table (section B.2.4.1)
285            "\xFF\xC4".             # Marker
286            "\x00\xB5".             # Length (181 bytes)
287            "\x11".                 # AC, (byte) table 1
288            "\x00\x02\x01\x02\x04".
289            "\x04\x03\x04\x07\x05".
290            "\x04\x04\x00\x01\x02".
291            "\x77\x00\x01\x02\x03".
292            "\x11\x04\x05\x21\x31".
293            "\x06\x12\x41\x51\x07".
294            "\x61\x71\x13\x22\x32".
295            "\x81\x08\x14\x42\x91".
296            "\xA1\xB1\xC1\x09\x23".
297            "\x33\x52\xF0\x15\x62".
298            "\x72\xD1\x0A\x16\x24".
299            "\x34\xE1\x25\xF1\x17".
300            "\x18\x19\x1A\x26\x27".
301            "\x28\x29\x2A\x35\x36".
302            "\x37\x38\x39\x3A\x43".
303            "\x44\x45\x46\x47\x48".
304            "\x49\x4A\x53\x54\x55".
305            "\x56\x57\x58\x59\x5A".
306            "\x63\x64\x65\x66\x67".
307            "\x68\x69\x6A\x73\x74".
308            "\x75\x76\x77\x78\x79".
309            "\x7A\x82\x83\x84\x85".
310            "\x86\x87\x88\x89\x8A".
311            "\x92\x93\x94\x95\x96".
312            "\x97\x98\x99\x9A\xA2".
313            "\xA3\xA4\xA5\xA6\xA7".
314            "\xA8\xA9\xAA\xB2\xB3".
315            "\xB4\xB5\xB6\xB7\xB8".
316            "\xB9\xBA\xC2\xC3\xC4".
317            "\xC5\xC6\xC7\xC8\xC9".
318            "\xCA\xD2\xD3\xD4\xD5".
319            "\xD6\xD7\xD8\xD9\xDA".
320            "\xE2\xE3\xE4\xE5\xE6".
321            "\xE7\xE8\xE9\xEA\xF2".
322            "\xF3\xF4\xF5\xF6\xF7".
323            "\xF8\xF9\xFA".
324    #------------------------------------------------------------------
325                    "\xFF\xDA".     # Start of Scan marker
326            pack("nC11",
327                    12,                     # length
328                    3,                      # number of components
329                    1,0x00,         # Scan 1: use DC/AC huff tables 0/0
330                    2,0x11,         # Scan 2: use DC/AC huff tables 1/1
331                    3,0x11,         # Scan 3: use DC/AC huff tables 1/1
332                    0,0x3f,         # Ss, Se
333                    0,                      # Ah, Ai (not used)
334            );
335    #------------------------------------------------------------------
336    
337            $header =
338            # SOI
339            "\xFF\xD8".
340            # JFIF
341            "\xFF\xE0".
342            "\x00\x0e\x41\x56\x49\x31\x00\x00\x00\x00\x00\x00\x00\x00".
343            "\xff\xDD\x00\x04\x00\x00".
344            # quantization table
345            "\xFF\xDB".
346            "\x00\x43\x00\x21\x16\x18".
347            "\x1D\x18\x14\x21\x1D\x1B\x1D\x25".
348            "\x23\x21\x27\x31\x53\x36\x31\x2D".
349            "\x2D\x31\x65\x48\x4c\x3c\x53\x78".
350            "\x6a\x7e\x7c\x76\x6a\x74\x72\x85".
351            "\x95\xbf\xa2\x85\x8d\xb4\x8f\x72".
352            "\x74\xa6\xe2\xa8\xb4\xc5\xcb\xd6".
353            "\xd8\xd6\x80\xa0\xeb\xfb\xe8\xd0".
354            "\xf9\xbf\xd2\xd6\xcd".
355            # quantization table
356            "\xff\xdb".
357            "\x00\x43\x01\x23\x25\x25\x31\x2b\x31".
358            "\x61\x36\x36\x61\xcd\x89\x74\x89".
359            "\xcd\xcd\xcd\xcd\xcd\xcd\xcd\xcd".
360            "\xcd\xcd\xcd\xcd\xcd\xcd\xcd\xcd".
361            "\xcd\xcd\xcd\xcd\xcd\xcd\xcd\xcd".
362            "\xcd\xcd\xcd\xcd\xcd\xcd\xcd\xcd".
363            "\xcd\xcd\xcd\xcd\xcd\xcd\xcd\xcd".
364            "\xcd\xcd\xcd\xcd\xcd\xcd\xcd\xcd".
365            "\xcd\xcd".
366            # Define huffman table (section B.2.4.1)
367            "\xFF\xC4".     # Marker
368            "\x00\x1F".     # Length (31 bytes)
369            "\x00".         # DC luminance, table 0
370            "\x00\x01\x05\x01\x01\x01\x01\x01\x01\x00\x00\x00\x00\x00\x00\x00".
371            "\x00\x01\x02\x03\x04\x05\x06\x07\x08\x09\x0A\x0B".
372            # Define huffman table (section B.2.4.1)
373            "\xFF\xC4".     # Marker
374            "\x00\x1F".     # Length (31 bytes)
375            "\x01".         # DC chrominance, table 1
376            "\x00\x03\x01\x01\x01\x01\x01\x01\x01\x01\x01\x00".
377            "\x00\x00\x00\x00".
378            "\x00\x01\x02\x03\x04\x05\x06\x07\x08\x09\x0A\x0B".
379            # Define huffman table (section B.2.4.1)
380            "\xFF\xC4".     # Marker
381            "\x00\xB5".     # Length (181 bytes)
382            "\x10".         # AC luminance, table 0
383            "\x00\x02\x01\x03\x03\x02\x04\x03\x05\x05\x04\x04\x00\x00\x01\x7D".
384            "\x01\x02\x03\x00\x04\x11\x05\x12".
385            "\x21\x31\x41\x06\x13\x51\x61\x07\x22\x71\x14\x32".
386            "\x81\x91\xA1\x08\x23\x42\xB1\xC1\x15\x52\xD1\xF0".
387            "\x24\x33\x62\x72\x82\x09\x0A\x16\x17\x18\x19\x1A".
388            "\x25\x26\x27\x28\x29\x2A\x34\x35\x36\x37\x38\x39".
389            "\x3A\x43\x44\x45\x46\x47\x48\x49\x4A\x53\x54\x55".
390            "\x56\x57\x58\x59\x5A\x63\x64\x65\x66\x67\x68\x69".
391            "\x6A\x73\x74\x75\x76\x77\x78\x79\x7A\x83\x84\x85".
392            "\x86\x87\x88\x89\x8A\x92\x93\x94\x95\x96\x97\x98".
393            "\x99\x9A\xA2\xA3\xA4\xA5\xA6\xA7\xA8\xA9\xAA\xB2".
394            "\xB3\xB4\xB5\xB6\xB7\xB8\xB9\xBA\xC2\xC3\xC4\xC5".
395            "\xC6\xC7\xC8\xC9\xCA\xD2\xD3\xD4\xD5\xD6\xD7\xD8".
396            "\xD9\xDA\xE1\xE2\xE3\xE4\xE5\xE6\xE7\xE8\xE9\xEA".
397            "\xF1\xF2\xF3\xF4\xF5\xF6\xF7\xF8\xF9\xFA".
398            #/* Define huffman table (section B.2.4.1) */
399            "\xFF\xC4".     # Marker
400            "\x00\xB5".     # Length (181 bytes)
401            "\x11".         # AC chrominance, table 1
402            "\x00\x02\x01\x02\x04\x04\x03\x04\x07\x05\x04\x04".
403            "\x00\x01\x02\x77".
404            "\x00\x01\x02\x03\x11\x04\x05\x21".
405            "\x31\x06\x12\x41\x51\x07\x61\x71\x13\x22\x32\x81".
406            "\x08\x14\x42\x91\xA1\xB1\xC1\x09\x23\x33\x52\xF0".
407            "\x15\x62\x72\xD1\x0A\x16\x24\x34\xE1\x25\xF1\x17".
408            "\x18\x19\x1A\x26\x27\x28\x29\x2A\x35\x36\x37\x38".
409            "\x39\x3A\x43\x44\x45\x46\x47\x48\x49\x4A\x53\x54".
410            "\x55\x56\x57\x58\x59\x5A\x63\x64\x65\x66\x67\x68".
411            "\x69\x6A\x73\x74\x75\x76\x77\x78\x79\x7A\x82\x83".
412            "\x84\x85\x86\x87\x88\x89\x8A\x92\x93\x94\x95\x96".
413            "\x97\x98\x99\x9A\xA2\xA3\xA4\xA5\xA6\xA7\xA8\xA9".
414            "\xAA\xB2\xB3\xB4\xB5\xB6\xB7\xB8\xB9\xBA\xC2\xC3".
415            "\xC4\xC5\xC6\xC7\xC8\xC9\xCA\xD2\xD3\xD4\xD5\xD6".
416            "\xD7\xD8\xD9\xDA\xE2\xE3\xE4\xE5\xE6\xE7\xE8\xE9".
417            "\xEA\xF2\xF3\xF4\xF5\xF6\xF7\xF8\xF9\xFA".
418            # start of frame
419            "\xff\xc0".
420            "\x00\x11\x08".
421            pack("nn", $h, $w).
422            "\x03\x01\x21\x00\x02\x11\x01\x03\x11\x01".
423            #
424            "\xff\xda".
425            "\x00\x0c\x03\x01\x00\x02\x11\x03\x11".
426            "\x00\x3f\x00";
427    
428            if ( $dump ) {
429                    warn "## created JPEG header...\n";
430                    hex_dump( $header, 0 );
431            }
432    
433            print $fh $header || die "can't write header into $path: $!";
434            print $fh $data || die "can't write frame into $path: $!";
435            close $fh || die "can't close $path: $!";
436            print ">> created $path ", -s $path, " bytes\n";
437    }
438    
439    my ( $riff, $amv ) = x(12, 'Z4x4Z4');
440    die "$path not RIFF but $riff" if $riff ne 'RIFF';
441    die "$path not AMV but $amv" if $amv ne 'AMV ';
442    
443  while ( ! defined($d->{eof}) ) {  while ( ! defined($d->{eof}) ) {
444          my ( $list, $name ) = x(12,'A4x4A4');          my ( $list, $name ) = x(12,'A4x4A4');
445          die "not LIST but $list" if $list ne 'LIST';          die "not LIST but $list" if $list ne 'LIST';
446          print "> $list .. $name\n";          print "< $list * $name\n";
447    
448          if ( $name eq 'hdrl' ) {          if ( $name eq 'hdrl' ) {
449    
# Line 102  while ( ! defined($d->{eof}) ) { Line 458  while ( ! defined($d->{eof}) ) {
458                  } x($len, 'Vx28VVVx8CCv');                  } x($len, 'Vx28VVVx8CCv');
459    
460                  printf "## %s %d*%d %s fps (%d ms/frame) %02d:%02d:%02d\n",                  printf "## %s %d*%d %s fps (%d ms/frame) %02d:%02d:%02d\n",
461                          $h->{path},                          $path,
462                          $h->{width}, $h->{height}, $h->{fps}, $h->{ms_per_frame},                          $h->{width}, $h->{height}, $h->{fps}, $h->{ms_per_frame},
463                          $h->{hh}, $h->{mm}, $h->{ss};                          $h->{hh}, $h->{mm}, $h->{ss};
464    
# Line 118  while ( ! defined($d->{eof}) ) { Line 474  while ( ! defined($d->{eof}) ) {
474                  while (1) {                  while (1) {
475                          my $frame = $d->{movi}++;                          my $frame = $d->{movi}++;
476                                    
477                          my $len = next_part( '00dc', 0, 1 );                          my $len = next_part( '00dc' );
478                          last unless $len;                          last unless $len;
479                          printf ">> %s 00dc - frame %d jpeg %d 0x%x bytes\n", $name, $frame, $len, $len;                          printf "<< %s 00dc - frame %d jpeg %d 0x%x bytes\n", $name, $frame, $len, $len;
480                            mkjpg( sprintf("$dump_dir/%03d.jpg", $frame ), x($len) );
481    
482                          my $len = next_part( '01wb', 0, 1 );                          $len = next_part( '01wb', 0, 1 );
483                          printf ">> %s 01wb - frame %d audio %d 0x%x bytes\n", $name, $frame, $len, $len;                          printf "<< %s 01wb - frame %d audio %d 0x%x bytes\n", $name, $frame, $len, $len;
484                  };                  };
485    
486          } else {          } else {
Legend:
Removed from v.4  
changed lines
  Added in v.16
  ViewVC Help
Powered by ViewVC 1.1.26