/[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 3 by dpavlin, Thu Jul 19 20:17:37 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
39    my $o = 0;
40    
41    # shared data hash
42    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;
         my $o = 0;  
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;
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;
70                  } else {                  } else {
71                            $o += length($ascii);
72                          last;                          last;
73                  }                  }
                 $o += 16;  
74          }          }
75    
76            $o = $old_o if $old_o;
77  }  }
78    
79  sub x {  sub x {
# Line 45  sub x { Line 87  sub x {
87    
88          hex_dump( $bytes );          hex_dump( $bytes );
89    
90            if ( $bytes eq 'AMV_END_' ) {
91                    warn "> end of file marker AMV_END_\n";
92                    $d->{eof}++;
93                    return;
94            }
95    
96          if ( $format ) {          if ( $format ) {
97                  my @data = unpack($format, $bytes);                  my @data = unpack($format, $bytes);
98                  dump(@data);                  warn "## unpacked = ",dump(@data),"\n" if $debug;
99                  return @data;                  return @data;
100          } else {          } else {
101                  return $bytes;                  return $bytes;
# Line 57  sub x { Line 105  sub x {
105  sub next_part {  sub next_part {
106          my ( $expected_part, $expected_len, $skip ) = @_;          my ( $expected_part, $expected_len, $skip ) = @_;
107          my ( $part, $len ) = x(8,'A4V');          my ( $part, $len ) = x(8,'A4V');
108            return unless $len;
109          confess "not $expected_part but $part" if $expected_part ne $part;          confess "not $expected_part but $part" if $expected_part ne $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 {
 die "not RIFF but $riff" if $riff ne 'RIFF';  
 die "not AMV but $amv" if $amv ne 'AMV ';  
119    
120  my $d;  # 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  while ( 1 ) {          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}) ) {
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    
450                  my $len = next_part( 'amvh', hex(38) );                  my $len = next_part( 'amvh', hex(38) );
           
                 print ">> $name $len\n";  
451    
                 my (  
                         $ms_per_frame,  
                         $width,  
                         $height,  
                         $fps,  
                         $ss,  
                         $mm,  
                         $hh,  
                 ) =  
452                  my @names = ( qw/ms_per_frame width height fps ss mm hh/ );                  my @names = ( qw/ms_per_frame width height fps ss mm hh/ );
453                  my $h;                  my $h;
454                  map {                  map {
# Line 101  while ( 1 ) { Line 458  while ( 1 ) {
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 112  while ( 1 ) { Line 469  while ( 1 ) {
469                  next_part( 'strh', 0, 1 );                  next_part( 'strh', 0, 1 );
470                  next_part( 'strf', 0, 1 );                  next_part( 'strf', 0, 1 );
471    
472            } elsif ( $name eq 'movi' ) {
473    
474                    while (1) {
475                            my $frame = $d->{movi}++;
476                    
477                            my $len = next_part( '00dc' );
478                            last unless $len;
479                            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                            $len = next_part( '01wb', 0, 1 );
483                            printf "<< %s 01wb - frame %d audio %d 0x%x bytes\n", $name, $frame, $len, $len;
484                    };
485    
486          } else {          } else {
487                  die "unknown $list $name";                  die "unknown $list $name";
488          }          }
Legend:
Removed from v.3  
changed lines
  Added in v.16
  ViewVC Help
Powered by ViewVC 1.1.26