source: gsdl/trunk/perllib/cpan/Image/ExifTool/MNG.pm@ 16842

Last change on this file since 16842 was 16842, checked in by davidb, 16 years ago

ExifTool added to cpan area to support metadata extraction from files such as JPEG. Primarily targetted as Image files (hence the Image folder name decided upon by the ExifTool author) it also can handle video such as flash and audio such as Wav
File size: 16.2 KB
Line 
1#------------------------------------------------------------------------------
2# File: MNG.pm
3#
4# Description: MNG and JNG meta information tags
5#
6# Revisions: 06/23/2005 - P. Harvey Created
7#
8# References: 1) http://www.libpng.org/pub/mng/
9#------------------------------------------------------------------------------
10
11package Image::ExifTool::MNG;
12
13use strict;
14use vars qw($VERSION);
15use Image::ExifTool qw(:DataAccess :Utils);
16
17$VERSION = '1.00';
18
19# MNG chunks
20%Image::ExifTool::MNG::Main = (
21 GROUPS => { 2 => 'Image' },
22 NOTES => q{
23 This table contains definitions for tags found in MNG and JNG images. MNG
24 is a superset of PNG and JNG, so a MNG image may contain any of these tags
25 as well as any PNG tags. Conversely, only some of these tags are valid for
26 JNG images.
27 },
28 BACK => {
29 Name => 'Background',
30 SubDirectory => { TagTable => 'Image::ExifTool::MNG::Background' },
31 },
32 BASI => {
33 Name => 'BasisObject',
34 SubDirectory => { TagTable => 'Image::ExifTool::MNG::BasisObject' },
35 },
36 CLIP => {
37 Name => 'ClipObjects',
38 SubDirectory => { TagTable => 'Image::ExifTool::MNG::ClipObjects' },
39 },
40 CLON => {
41 Name => 'CloneObject',
42 SubDirectory => { TagTable => 'Image::ExifTool::MNG::CloneObject' },
43 },
44 DBYK => {
45 Name => 'DropByKeyword',
46 Binary => 1,
47 },
48 DEFI => {
49 Name => 'DefineObject',
50 SubDirectory => { TagTable => 'Image::ExifTool::MNG::DefineObject' },
51 },
52 DHDR => {
53 Name => 'DeltaPNGHeader',
54 SubDirectory => { TagTable => 'Image::ExifTool::MNG::DeltaPNGHeader' },
55 },
56 DISC => {
57 Name => 'DiscardObjects',
58 ValueConv => 'join(" ",unpack("n*",$val))',
59 },
60 DROP => {
61 Name => 'DropChunks',
62 ValueConv => 'join(" ",$val=~/..../g)',
63 },
64# ENDL
65 eXPi => {
66 Name => 'ExportImage',
67 SubDirectory => { TagTable => 'Image::ExifTool::MNG::ExportImage' },
68 },
69 fPRI => {
70 Name => 'FramePriority',
71 SubDirectory => { TagTable => 'Image::ExifTool::MNG::FramePriority' },
72 },
73 FRAM => {
74 Name => 'Frame',
75 Binary => 1,
76 },
77# IJNG
78# IPNG
79# JDAA (JNG)
80# JDAT (JNG)
81 JHDR => { # (JNG)
82 Name => 'JNGHeader',
83 SubDirectory => { TagTable => 'Image::ExifTool::MNG::JNGHeader' },
84 },
85# JSEP (JNG)
86 LOOP => {
87 Name => 'Loop',
88 SubDirectory => { TagTable => 'Image::ExifTool::MNG::Loop' },
89 },
90 MAGN => {
91 Name => 'MagnifyObject',
92 SubDirectory => { TagTable => 'Image::ExifTool::MNG::MagnifyObject' },
93 },
94# MEND
95 MHDR => {
96 Name => 'MNGHeader',
97 SubDirectory => { TagTable => 'Image::ExifTool::MNG::MNGHeader' },
98 },
99 MOVE => {
100 Name => 'MoveObjects',
101 SubDirectory => { TagTable => 'Image::ExifTool::MNG::MoveObjects' },
102 },
103 nEED => {
104 Name => 'ResourcesNeeded',
105 Binary => 1,
106 },
107 ORDR => {
108 Name => 'OrderingRestrictions',
109 Binary => 1,
110 },
111 PAST => {
112 Name => 'PasteImage',
113 SubDirectory => { TagTable => 'Image::ExifTool::MNG::PasteImage' },
114 },
115 pHYg => {
116 Name => 'GlobalPixelSize',
117 SubDirectory => { TagTable => 'Image::ExifTool::PNG::PhysicalPixel' },
118 },
119 PPLT => {
120 Name => 'PartialPalette',
121 Binary => 1,
122 },
123 PROM => {
124 Name => 'PromoteParent',
125 SubDirectory => { TagTable => 'Image::ExifTool::MNG::PromoteParent' },
126 },
127 SAVE => {
128 Name => 'SaveObjects',
129 Binary => 1,
130 },
131 SEEK => {
132 Name => 'SeekPoint',
133 ValueConv => '$val=~s/\0.*//s; $val',
134 },
135 SHOW => {
136 Name => 'ShowObjects',
137 SubDirectory => { TagTable => 'Image::ExifTool::MNG::ShowObjects' },
138 },
139 TERM => {
140 Name => 'TerminationAction',
141 SubDirectory => { TagTable => 'Image::ExifTool::MNG::TerminationAction' },
142 },
143);
144
145# MNG MHDR chunk
146%Image::ExifTool::MNG::MNGHeader = (
147 PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
148 GROUPS => { 2 => 'Image' },
149 FORMAT => 'int32u',
150 0 => 'ImageWidth',
151 1 => 'ImageHeight',
152 2 => 'TicksPerSecond',
153 3 => 'NominalLayerCount',
154 4 => 'NominalFrameCount',
155 5 => 'NominalPlayTime',
156 6 => {
157 Name => 'SimplicityProfile',
158 PrintConv => 'sprintf("0x%.8x", $val)',
159 },
160);
161
162# MNG BASI chunk
163%Image::ExifTool::MNG::BasisObject = (
164 PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
165 GROUPS => { 2 => 'Image' },
166 0 => {
167 Name => 'ImageWidth',
168 Format => 'int32u',
169 },
170 4 => {
171 Name => 'ImageHeight',
172 Format => 'int32u',
173 },
174 8 => 'BitDepth',
175 9 => {
176 Name => 'ColorType',
177 RawConv => '$Image::ExifTool::PNG::colorType = $val',
178 PrintConv => {
179 0 => 'Grayscale',
180 2 => 'RGB',
181 3 => 'Palette',
182 4 => 'Grayscale with Alpha',
183 6 => 'RGB with Alpha',
184 },
185 },
186 10 => {
187 Name => 'Compression',
188 PrintConv => { 0 => 'Deflate/Inflate' },
189 },
190 11 => {
191 Name => 'Filter',
192 PrintConv => { 0 => 'Adaptive' },
193 },
194 12 => {
195 Name => 'Interlace',
196 PrintConv => { 0 => 'Noninterlaced', 1 => 'Adam7 Interlace' },
197 },
198 13 => {
199 Name => 'RedSample',
200 Format => 'int32u',
201 },
202 17 => {
203 Name => 'GreenSample',
204 Format => 'int32u',
205 },
206 21 => {
207 Name => 'BlueSample',
208 Format => 'int32u',
209 },
210 25 => {
211 Name => 'AlphaSample',
212 Format => 'int32u',
213 },
214 26 => 'Viewable',
215);
216
217# MNG LOOP chunk
218%Image::ExifTool::MNG::Loop = (
219 PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
220 GROUPS => { 2 => 'Image' },
221 0 => 'NestLevel',
222 1 => {
223 Name => 'IterationCount',
224 Format => 'int32u',
225 },
226 5 => {
227 Name => 'TerminationCondition',
228 PrintConv => {
229 0 => 'Deterministic, not cacheable',
230 1 => 'Decoder discretion, not cacheable',
231 2 => 'User discretion, not cacheable',
232 3 => 'External signal, not cacheable',
233 4 => 'Deterministic, cacheable',
234 5 => 'Decoder discretion, cacheable',
235 6 => 'User discretion, cacheable',
236 7 => 'External signal, cacheable',
237 },
238 },
239 6 => {
240 Name => 'IterationMinMax',
241 Format => 'int32u[2]',
242 },
243 14 => {
244 Name => 'SignalNumber',
245 Format => 'int32u',
246 },
247);
248
249# MNG DEFI chunk
250%Image::ExifTool::MNG::DefineObject = (
251 PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
252 GROUPS => { 2 => 'Image' },
253 0 => {
254 Name => 'ObjectID',
255 Format => 'int16u',
256 },
257 2 => 'DoNotShow',
258 3 => 'ConcreteFlag',
259 4 => {
260 Name => 'XYLocation',
261 Format => 'int32u[2]',
262 },
263 12 => {
264 Name => 'ClippingBoundary',
265 Format => 'int32u[4]',
266 },
267);
268
269# MNG CLON chunk
270%Image::ExifTool::MNG::CloneObject = (
271 PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
272 GROUPS => { 2 => 'Image' },
273 0 => {
274 Name => 'SourceID',
275 Format => 'int16u',
276 },
277 2 => {
278 Name => 'CloneID',
279 Format => 'int16u',
280 },
281 4 => {
282 Name => 'CloneType',
283 PrintConv => { 0 => 'Full', 1 => 'Parital', 2 => 'Renumber object' },
284 },
285 5 => 'DoNotShow',
286 6 => 'ConcreteFlag',
287 7 => {
288 Name => 'LocalDeltaType',
289 PrintConv => { 0 => 'Absolute', 1 => 'Relative' },
290 },
291 8 => {
292 Name => 'DeltaXY',
293 Format => 'int32u[2]',
294 },
295);
296
297# MNG PAST chunk
298%Image::ExifTool::MNG::PasteImage = (
299 PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
300 GROUPS => { 2 => 'Image' },
301 0 => {
302 Name => 'DestinationID',
303 Format => 'int16u',
304 },
305 2 => {
306 Name => 'TargetDeltaType',
307 PrintConv => { 0 => 'Absolute', 1 => 'Relative' },
308 },
309 3 => {
310 Name => 'TargetXY',
311 Format => 'int32u[2]',
312 },
313 11 => {
314 Name => 'SourceID',
315 Format => 'int16u',
316 },
317 13 => {
318 Name => 'CompositionMode',
319 PrintConv => { 0 => 'Over', 1 => 'Replace', 2 => 'Under' },
320 },
321 14 => {
322 Name => 'Orientation',
323 PrintConv => {
324 0 => 'Same as source',
325 2 => 'Flipped left-right, then up-down',
326 4 => 'Flipped left-right',
327 6 => 'Flipped up-down',
328 8 => 'Tiled',
329 },
330 },
331 15 => {
332 Name => 'OffsetOrigin',
333 PrintConv => { 0 => 'Desination Origin', 1 => 'Target Origin' },
334 },
335 16 => {
336 Name => 'OffsetXY',
337 Format => 'int32u[2]',
338 },
339 24 => {
340 Name => 'BoundaryOrigin',
341 PrintConv => { 0 => 'Desination Origin', 1 => 'Target Origin' },
342 },
343 25 => {
344 Name => 'PastClippingBoundary',
345 Format => 'int32u[4]',
346 },
347);
348
349my %magMethod = (
350 0 => 'No Magnification',
351 1 => 'Pixel Replication',
352 2 => 'Linear Interpolation',
353 3 => 'Closest Pixel',
354 4 => 'Color Linear Interpolation and Alpha Closest Pixel',
355 5 => 'Color Closest Pixel and Alpha Linear Interpolation',
356);
357
358# MNG MAGN chunk
359%Image::ExifTool::MNG::MagnifyObject = (
360 PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
361 GROUPS => { 2 => 'Image' },
362 0 => {
363 Name => 'FirstObjectID',
364 Format => 'int16u',
365 },
366 2 => {
367 Name => 'LastObjectID',
368 Format => 'int16u',
369 },
370 4 => {
371 Name => 'XMethod',
372 PrintConv => \%magMethod,
373 },
374 5 => {
375 Name => 'XMag',
376 Format => 'int16u',
377 },
378 7 => {
379 Name => 'YMag',
380 Format => 'int16u',
381 },
382 9 => {
383 Name => 'LeftMag',
384 Format => 'int16u',
385 },
386 11 => {
387 Name => 'RightMag',
388 Format => 'int16u',
389 },
390 13 => {
391 Name => 'TopMag',
392 Format => 'int16u',
393 },
394 15 => {
395 Name => 'BottomMag',
396 Format => 'int16u',
397 },
398 17 => {
399 Name => 'YMethod',
400 PrintConv => \%magMethod,
401 },
402);
403
404# MNG TERM chunk
405%Image::ExifTool::MNG::TerminationAction = (
406 PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
407 GROUPS => { 2 => 'Image' },
408 0 => {
409 Name => 'TerminationAction',
410 PrintConv => {
411 0 => 'Show Last Frame',
412 1 => 'Display Nothing',
413 2 => 'Show First Frame',
414 3 => 'Repeat Sequence',
415 },
416 },
417 1 => {
418 Name => 'IterationEndAction',
419 PrintConv => {
420 0 => 'Show Last Frame',
421 1 => 'Display Nothing',
422 2 => 'Show First Frame',
423 },
424 },
425 2 => {
426 Name => 'Delay',
427 Format => 'int32u',
428 },
429 6 => {
430 Name => 'IterationMax',
431 Format => 'int32u',
432 },
433);
434
435# MNG BACK chunk
436%Image::ExifTool::MNG::Background = (
437 PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
438 GROUPS => { 2 => 'Image' },
439 0 => {
440 Name => 'BackgroundColor',
441 Format => 'int16u[3]',
442 },
443 6 => {
444 Name => 'MandatoryBackground',
445 PrintConv => {
446 0 => 'Color and Image Advisory',
447 1 => 'Color Mandatory, Image Advisory',
448 2 => 'Color Advisory, Image Mandatory',
449 3 => 'Color and Image Mandatory',
450 },
451 },
452 7 => {
453 Name => 'BackgroundImageID',
454 Format => 'int16u',
455 },
456 9 => {
457 Name => 'BackgroundTiling',
458 PrintConv => { 0 => 'No', 1 => 'Yes' },
459 },
460);
461
462# MNG MOVE chunk
463%Image::ExifTool::MNG::MoveObjects = (
464 PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
465 GROUPS => { 2 => 'Image' },
466 0 => {
467 Name => 'FirstObject',
468 Format => 'int16u',
469 },
470 2 => {
471 Name => 'LastObject',
472 Format => 'int16u',
473 },
474 4 => {
475 Name => 'DeltaType',
476 PrintConv => { 0 => 'Absolute', 1 => 'Relative' },
477 },
478 5 => {
479 Name => 'DeltaXY',
480 Format => 'int32u[2]',
481 },
482);
483
484# MNG CLIP chunk
485%Image::ExifTool::MNG::ClipObjects = (
486 PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
487 GROUPS => { 2 => 'Image' },
488 0 => {
489 Name => 'FirstObject',
490 Format => 'int16u',
491 },
492 2 => {
493 Name => 'LastObject',
494 Format => 'int16u',
495 },
496 4 => {
497 Name => 'DeltaType',
498 PrintConv => { 0 => 'Absolute', 1 => 'Relative' },
499 },
500 5 => {
501 Name => 'ClipBoundary',
502 Format => 'int32u[4]',
503 },
504);
505
506# MNG SHOW chunk
507%Image::ExifTool::MNG::ShowObjects = (
508 PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
509 GROUPS => { 2 => 'Image' },
510 0 => {
511 Name => 'FirstObject',
512 Format => 'int16u',
513 },
514 2 => {
515 Name => 'LastObject',
516 Format => 'int16u',
517 },
518 4 => 'ShowMode',
519);
520
521# MNG eXPI chunk
522%Image::ExifTool::MNG::ExportImage = (
523 PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
524 GROUPS => { 2 => 'Image' },
525 0 => {
526 Name => 'SnapshotID',
527 Format => 'int16u',
528 },
529 2 => {
530 Name => 'SnapshotName',
531 Format => 'string',
532 },
533);
534
535# MNG fPRI chunk
536%Image::ExifTool::MNG::FramePriority = (
537 PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
538 GROUPS => { 2 => 'Image' },
539 0 => {
540 Name => 'DeltaType',
541 PrintConv => { 0 => 'Absolute', 1 => 'Relative' },
542 },
543 2 => 'Priority',
544);
545
546# MNG DHDR chunk
547%Image::ExifTool::MNG::DeltaPNGHeader = (
548 PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
549 GROUPS => { 2 => 'Image' },
550 0 => {
551 Name => 'ObjectID',
552 Format => 'int16u',
553 },
554 2 => {
555 Name => 'ImageType',
556 PrintConv => {
557 0 => 'Unspecified',
558 1 => 'PNG',
559 2 => 'JNG',
560 },
561 },
562 3 => {
563 Name => 'DeltaType',
564 PrintConv => {
565 0 => 'Full Replacement',
566 1 => 'Pixel Addition',
567 2 => 'Alpha Addition',
568 3 => 'Color Addition',
569 4 => 'Pixel Replacement',
570 5 => 'Alpha Replacement',
571 6 => 'Color Replacement',
572 7 => 'No Change',
573 },
574 },
575 4 => {
576 Name => 'BlockSize',
577 Format => 'int32u[2]',
578 },
579 12 => {
580 Name => 'BlockLocation',
581 Format => 'int32u[2]',
582 },
583);
584
585# MNG PROM chunk
586%Image::ExifTool::MNG::PromoteParent = (
587 PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
588 GROUPS => { 2 => 'Image' },
589 0 => 'NewColorType',
590 1 => 'NewBitDepth',
591 2 => {
592 Name => 'FillMethod',
593 PrintConv => { 0 => 'Bit Replication', 1 => 'Zero Fill' },
594 },
595);
596
597# JNG JHDR chunk
598%Image::ExifTool::MNG::JNGHeader = (
599 PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
600 GROUPS => { 2 => 'Image' },
601 0 => {
602 Name => 'ImageWidth',
603 Format => 'int32u',
604 },
605 4 => {
606 Name => 'ImageHeight',
607 Format => 'int32u',
608 },
609 8 => {
610 Name => 'ColorType',
611 PrintConv => {
612 8 => 'Gray',
613 10 => 'Color',
614 12 => 'Gray Alpha',
615 14 => 'Color Alpha',
616 },
617 },
618 9 => 'BitDepth',
619 10 => {
620 Name => 'Compression',
621 PrintConv => { 8 => 'Huffman-coded baseline JPEG' },
622 },
623 11 => {
624 Name => 'Interlace',
625 PrintConv => { 0 => 'Sequential', 8 => 'Progressive' },
626 },
627 12 => 'AlphaBitDepth',
628 13 => {
629 Name => 'AlphaCompression',
630 PrintConv => {
631 0 => 'MNG Grayscale IDAT',
632 8 => 'JNG 8-bit Grayscale JDAA',
633 },
634 },
635 14 => {
636 Name => 'AlphaFilter',
637 PrintConv => { 0 => 'Adaptive MNG (N/A for JPEG)' },
638 },
639 15 => {
640 Name => 'AlphaInterlace',
641 PrintConv => { 0 => 'Noninterlaced' },
642 },
643);
644
6451; # end
646
647__END__
648
649=head1 NAME
650
651Image::ExifTool::MNG - MNG and JNG meta information tags
652
653=head1 SYNOPSIS
654
655This module is used by Image::ExifTool
656
657=head1 DESCRIPTION
658
659This module contains definitions required by Image::ExifTool to read MNG
660(Multi-image Network Graphics) and JNG (JPEG Network Graphics) images.
661
662=head1 AUTHOR
663
664Copyright 2003-2007, Phil Harvey (phil at owl.phy.queensu.ca)
665
666This library is free software; you can redistribute it and/or modify it
667under the same terms as Perl itself.
668
669=head1 REFERENCES
670
671=over 4
672
673=item L<http://www.libpng.org/pub/mng/>
674
675=back
676
677=head1 SEE ALSO
678
679L<Image::ExifTool::TagNames/MNG Tags>,
680L<Image::ExifTool::TagNames/PNG Tags>,
681L<Image::ExifTool(3pm)|Image::ExifTool>
682
683=cut
684
Note: See TracBrowser for help on using the repository browser.