tikiwiki/packages/tiki-pkg-mediaalchemyst/phpexiftool/exiftool/lib/Image/ExifTool/MNG.pm
2023-11-20 20:52:04 +00:00

685 lines
16 KiB
Perl
Executable File

#------------------------------------------------------------------------------
# File: MNG.pm
#
# Description: MNG and JNG meta information tags
#
# Revisions: 06/23/2005 - P. Harvey Created
#
# References: 1) http://www.libpng.org/pub/mng/
#------------------------------------------------------------------------------
package Image::ExifTool::MNG;
use strict;
use vars qw($VERSION);
use Image::ExifTool qw(:DataAccess :Utils);
$VERSION = '1.00';
# MNG chunks
%Image::ExifTool::MNG::Main = (
GROUPS => { 2 => 'Image' },
NOTES => q{
This table contains definitions for tags found in MNG and JNG images. MNG
is a superset of PNG and JNG, so a MNG image may contain any of these tags
as well as any PNG tags. Conversely, only some of these tags are valid for
JNG images.
},
BACK => {
Name => 'Background',
SubDirectory => { TagTable => 'Image::ExifTool::MNG::Background' },
},
BASI => {
Name => 'BasisObject',
SubDirectory => { TagTable => 'Image::ExifTool::MNG::BasisObject' },
},
CLIP => {
Name => 'ClipObjects',
SubDirectory => { TagTable => 'Image::ExifTool::MNG::ClipObjects' },
},
CLON => {
Name => 'CloneObject',
SubDirectory => { TagTable => 'Image::ExifTool::MNG::CloneObject' },
},
DBYK => {
Name => 'DropByKeyword',
Binary => 1,
},
DEFI => {
Name => 'DefineObject',
SubDirectory => { TagTable => 'Image::ExifTool::MNG::DefineObject' },
},
DHDR => {
Name => 'DeltaPNGHeader',
SubDirectory => { TagTable => 'Image::ExifTool::MNG::DeltaPNGHeader' },
},
DISC => {
Name => 'DiscardObjects',
ValueConv => 'join(" ",unpack("n*",$val))',
},
DROP => {
Name => 'DropChunks',
ValueConv => 'join(" ",$val=~/..../g)',
},
# ENDL
eXPi => {
Name => 'ExportImage',
SubDirectory => { TagTable => 'Image::ExifTool::MNG::ExportImage' },
},
fPRI => {
Name => 'FramePriority',
SubDirectory => { TagTable => 'Image::ExifTool::MNG::FramePriority' },
},
FRAM => {
Name => 'Frame',
Binary => 1,
},
# IJNG
# IPNG
# JDAA (JNG)
# JDAT (JNG)
JHDR => { # (JNG)
Name => 'JNGHeader',
SubDirectory => { TagTable => 'Image::ExifTool::MNG::JNGHeader' },
},
# JSEP (JNG)
LOOP => {
Name => 'Loop',
SubDirectory => { TagTable => 'Image::ExifTool::MNG::Loop' },
},
MAGN => {
Name => 'MagnifyObject',
SubDirectory => { TagTable => 'Image::ExifTool::MNG::MagnifyObject' },
},
# MEND
MHDR => {
Name => 'MNGHeader',
SubDirectory => { TagTable => 'Image::ExifTool::MNG::MNGHeader' },
},
MOVE => {
Name => 'MoveObjects',
SubDirectory => { TagTable => 'Image::ExifTool::MNG::MoveObjects' },
},
nEED => {
Name => 'ResourcesNeeded',
Binary => 1,
},
ORDR => {
Name => 'OrderingRestrictions',
Binary => 1,
},
PAST => {
Name => 'PasteImage',
SubDirectory => { TagTable => 'Image::ExifTool::MNG::PasteImage' },
},
pHYg => {
Name => 'GlobalPixelSize',
SubDirectory => { TagTable => 'Image::ExifTool::PNG::PhysicalPixel' },
},
PPLT => {
Name => 'PartialPalette',
Binary => 1,
},
PROM => {
Name => 'PromoteParent',
SubDirectory => { TagTable => 'Image::ExifTool::MNG::PromoteParent' },
},
SAVE => {
Name => 'SaveObjects',
Binary => 1,
},
SEEK => {
Name => 'SeekPoint',
ValueConv => '$val=~s/\0.*//s; $val',
},
SHOW => {
Name => 'ShowObjects',
SubDirectory => { TagTable => 'Image::ExifTool::MNG::ShowObjects' },
},
TERM => {
Name => 'TerminationAction',
SubDirectory => { TagTable => 'Image::ExifTool::MNG::TerminationAction' },
},
);
# MNG MHDR chunk
%Image::ExifTool::MNG::MNGHeader = (
PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
GROUPS => { 2 => 'Image' },
FORMAT => 'int32u',
0 => 'ImageWidth',
1 => 'ImageHeight',
2 => 'TicksPerSecond',
3 => 'NominalLayerCount',
4 => 'NominalFrameCount',
5 => 'NominalPlayTime',
6 => {
Name => 'SimplicityProfile',
PrintConv => 'sprintf("0x%.8x", $val)',
},
);
# MNG BASI chunk
%Image::ExifTool::MNG::BasisObject = (
PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
GROUPS => { 2 => 'Image' },
0 => {
Name => 'ImageWidth',
Format => 'int32u',
},
4 => {
Name => 'ImageHeight',
Format => 'int32u',
},
8 => 'BitDepth',
9 => {
Name => 'ColorType',
RawConv => '$Image::ExifTool::PNG::colorType = $val',
PrintConv => {
0 => 'Grayscale',
2 => 'RGB',
3 => 'Palette',
4 => 'Grayscale with Alpha',
6 => 'RGB with Alpha',
},
},
10 => {
Name => 'Compression',
PrintConv => { 0 => 'Deflate/Inflate' },
},
11 => {
Name => 'Filter',
PrintConv => { 0 => 'Adaptive' },
},
12 => {
Name => 'Interlace',
PrintConv => { 0 => 'Noninterlaced', 1 => 'Adam7 Interlace' },
},
13 => {
Name => 'RedSample',
Format => 'int32u',
},
17 => {
Name => 'GreenSample',
Format => 'int32u',
},
21 => {
Name => 'BlueSample',
Format => 'int32u',
},
25 => {
Name => 'AlphaSample',
Format => 'int32u',
},
26 => 'Viewable',
);
# MNG LOOP chunk
%Image::ExifTool::MNG::Loop = (
PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
GROUPS => { 2 => 'Image' },
0 => 'NestLevel',
1 => {
Name => 'IterationCount',
Format => 'int32u',
},
5 => {
Name => 'TerminationCondition',
PrintConv => {
0 => 'Deterministic, not cacheable',
1 => 'Decoder discretion, not cacheable',
2 => 'User discretion, not cacheable',
3 => 'External signal, not cacheable',
4 => 'Deterministic, cacheable',
5 => 'Decoder discretion, cacheable',
6 => 'User discretion, cacheable',
7 => 'External signal, cacheable',
},
},
6 => {
Name => 'IterationMinMax',
Format => 'int32u[2]',
},
14 => {
Name => 'SignalNumber',
Format => 'int32u',
},
);
# MNG DEFI chunk
%Image::ExifTool::MNG::DefineObject = (
PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
GROUPS => { 2 => 'Image' },
0 => {
Name => 'ObjectID',
Format => 'int16u',
},
2 => 'DoNotShow',
3 => 'ConcreteFlag',
4 => {
Name => 'XYLocation',
Format => 'int32u[2]',
},
12 => {
Name => 'ClippingBoundary',
Format => 'int32u[4]',
},
);
# MNG CLON chunk
%Image::ExifTool::MNG::CloneObject = (
PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
GROUPS => { 2 => 'Image' },
0 => {
Name => 'SourceID',
Format => 'int16u',
},
2 => {
Name => 'CloneID',
Format => 'int16u',
},
4 => {
Name => 'CloneType',
PrintConv => { 0 => 'Full', 1 => 'Parital', 2 => 'Renumber object' },
},
5 => 'DoNotShow',
6 => 'ConcreteFlag',
7 => {
Name => 'LocalDeltaType',
PrintConv => { 0 => 'Absolute', 1 => 'Relative' },
},
8 => {
Name => 'DeltaXY',
Format => 'int32u[2]',
},
);
# MNG PAST chunk
%Image::ExifTool::MNG::PasteImage = (
PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
GROUPS => { 2 => 'Image' },
0 => {
Name => 'DestinationID',
Format => 'int16u',
},
2 => {
Name => 'TargetDeltaType',
PrintConv => { 0 => 'Absolute', 1 => 'Relative' },
},
3 => {
Name => 'TargetXY',
Format => 'int32u[2]',
},
11 => {
Name => 'SourceID',
Format => 'int16u',
},
13 => {
Name => 'CompositionMode',
PrintConv => { 0 => 'Over', 1 => 'Replace', 2 => 'Under' },
},
14 => {
Name => 'Orientation',
PrintConv => {
0 => 'Same as source',
2 => 'Flipped left-right, then up-down',
4 => 'Flipped left-right',
6 => 'Flipped up-down',
8 => 'Tiled',
},
},
15 => {
Name => 'OffsetOrigin',
PrintConv => { 0 => 'Desination Origin', 1 => 'Target Origin' },
},
16 => {
Name => 'OffsetXY',
Format => 'int32u[2]',
},
24 => {
Name => 'BoundaryOrigin',
PrintConv => { 0 => 'Desination Origin', 1 => 'Target Origin' },
},
25 => {
Name => 'PastClippingBoundary',
Format => 'int32u[4]',
},
);
my %magMethod = (
0 => 'No Magnification',
1 => 'Pixel Replication',
2 => 'Linear Interpolation',
3 => 'Closest Pixel',
4 => 'Color Linear Interpolation and Alpha Closest Pixel',
5 => 'Color Closest Pixel and Alpha Linear Interpolation',
);
# MNG MAGN chunk
%Image::ExifTool::MNG::MagnifyObject = (
PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
GROUPS => { 2 => 'Image' },
0 => {
Name => 'FirstObjectID',
Format => 'int16u',
},
2 => {
Name => 'LastObjectID',
Format => 'int16u',
},
4 => {
Name => 'XMethod',
PrintConv => \%magMethod,
},
5 => {
Name => 'XMag',
Format => 'int16u',
},
7 => {
Name => 'YMag',
Format => 'int16u',
},
9 => {
Name => 'LeftMag',
Format => 'int16u',
},
11 => {
Name => 'RightMag',
Format => 'int16u',
},
13 => {
Name => 'TopMag',
Format => 'int16u',
},
15 => {
Name => 'BottomMag',
Format => 'int16u',
},
17 => {
Name => 'YMethod',
PrintConv => \%magMethod,
},
);
# MNG TERM chunk
%Image::ExifTool::MNG::TerminationAction = (
PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
GROUPS => { 2 => 'Image' },
0 => {
Name => 'TerminationAction',
PrintConv => {
0 => 'Show Last Frame',
1 => 'Display Nothing',
2 => 'Show First Frame',
3 => 'Repeat Sequence',
},
},
1 => {
Name => 'IterationEndAction',
PrintConv => {
0 => 'Show Last Frame',
1 => 'Display Nothing',
2 => 'Show First Frame',
},
},
2 => {
Name => 'Delay',
Format => 'int32u',
},
6 => {
Name => 'IterationMax',
Format => 'int32u',
},
);
# MNG BACK chunk
%Image::ExifTool::MNG::Background = (
PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
GROUPS => { 2 => 'Image' },
0 => {
Name => 'BackgroundColor',
Format => 'int16u[3]',
},
6 => {
Name => 'MandatoryBackground',
PrintConv => {
0 => 'Color and Image Advisory',
1 => 'Color Mandatory, Image Advisory',
2 => 'Color Advisory, Image Mandatory',
3 => 'Color and Image Mandatory',
},
},
7 => {
Name => 'BackgroundImageID',
Format => 'int16u',
},
9 => {
Name => 'BackgroundTiling',
PrintConv => { 0 => 'No', 1 => 'Yes' },
},
);
# MNG MOVE chunk
%Image::ExifTool::MNG::MoveObjects = (
PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
GROUPS => { 2 => 'Image' },
0 => {
Name => 'FirstObject',
Format => 'int16u',
},
2 => {
Name => 'LastObject',
Format => 'int16u',
},
4 => {
Name => 'DeltaType',
PrintConv => { 0 => 'Absolute', 1 => 'Relative' },
},
5 => {
Name => 'DeltaXY',
Format => 'int32u[2]',
},
);
# MNG CLIP chunk
%Image::ExifTool::MNG::ClipObjects = (
PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
GROUPS => { 2 => 'Image' },
0 => {
Name => 'FirstObject',
Format => 'int16u',
},
2 => {
Name => 'LastObject',
Format => 'int16u',
},
4 => {
Name => 'DeltaType',
PrintConv => { 0 => 'Absolute', 1 => 'Relative' },
},
5 => {
Name => 'ClipBoundary',
Format => 'int32u[4]',
},
);
# MNG SHOW chunk
%Image::ExifTool::MNG::ShowObjects = (
PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
GROUPS => { 2 => 'Image' },
0 => {
Name => 'FirstObject',
Format => 'int16u',
},
2 => {
Name => 'LastObject',
Format => 'int16u',
},
4 => 'ShowMode',
);
# MNG eXPI chunk
%Image::ExifTool::MNG::ExportImage = (
PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
GROUPS => { 2 => 'Image' },
0 => {
Name => 'SnapshotID',
Format => 'int16u',
},
2 => {
Name => 'SnapshotName',
Format => 'string',
},
);
# MNG fPRI chunk
%Image::ExifTool::MNG::FramePriority = (
PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
GROUPS => { 2 => 'Image' },
0 => {
Name => 'DeltaType',
PrintConv => { 0 => 'Absolute', 1 => 'Relative' },
},
2 => 'Priority',
);
# MNG DHDR chunk
%Image::ExifTool::MNG::DeltaPNGHeader = (
PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
GROUPS => { 2 => 'Image' },
0 => {
Name => 'ObjectID',
Format => 'int16u',
},
2 => {
Name => 'ImageType',
PrintConv => {
0 => 'Unspecified',
1 => 'PNG',
2 => 'JNG',
},
},
3 => {
Name => 'DeltaType',
PrintConv => {
0 => 'Full Replacement',
1 => 'Pixel Addition',
2 => 'Alpha Addition',
3 => 'Color Addition',
4 => 'Pixel Replacement',
5 => 'Alpha Replacement',
6 => 'Color Replacement',
7 => 'No Change',
},
},
4 => {
Name => 'BlockSize',
Format => 'int32u[2]',
},
12 => {
Name => 'BlockLocation',
Format => 'int32u[2]',
},
);
# MNG PROM chunk
%Image::ExifTool::MNG::PromoteParent = (
PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
GROUPS => { 2 => 'Image' },
0 => 'NewColorType',
1 => 'NewBitDepth',
2 => {
Name => 'FillMethod',
PrintConv => { 0 => 'Bit Replication', 1 => 'Zero Fill' },
},
);
# JNG JHDR chunk
%Image::ExifTool::MNG::JNGHeader = (
PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
GROUPS => { 2 => 'Image' },
0 => {
Name => 'ImageWidth',
Format => 'int32u',
},
4 => {
Name => 'ImageHeight',
Format => 'int32u',
},
8 => {
Name => 'ColorType',
PrintConv => {
8 => 'Gray',
10 => 'Color',
12 => 'Gray Alpha',
14 => 'Color Alpha',
},
},
9 => 'BitDepth',
10 => {
Name => 'Compression',
PrintConv => { 8 => 'Huffman-coded baseline JPEG' },
},
11 => {
Name => 'Interlace',
PrintConv => { 0 => 'Sequential', 8 => 'Progressive' },
},
12 => 'AlphaBitDepth',
13 => {
Name => 'AlphaCompression',
PrintConv => {
0 => 'MNG Grayscale IDAT',
8 => 'JNG 8-bit Grayscale JDAA',
},
},
14 => {
Name => 'AlphaFilter',
PrintConv => { 0 => 'Adaptive MNG (N/A for JPEG)' },
},
15 => {
Name => 'AlphaInterlace',
PrintConv => { 0 => 'Noninterlaced' },
},
);
1; # end
__END__
=head1 NAME
Image::ExifTool::MNG - MNG and JNG meta information tags
=head1 SYNOPSIS
This module is used by Image::ExifTool
=head1 DESCRIPTION
This module contains definitions required by Image::ExifTool to read MNG
(Multi-image Network Graphics) and JNG (JPEG Network Graphics) images.
=head1 AUTHOR
Copyright 2003-2016, Phil Harvey (phil at owl.phy.queensu.ca)
This library is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
=head1 REFERENCES
=over 4
=item L<http://www.libpng.org/pub/mng/>
=back
=head1 SEE ALSO
L<Image::ExifTool::TagNames/MNG Tags>,
L<Image::ExifTool::TagNames/PNG Tags>,
L<Image::ExifTool(3pm)|Image::ExifTool>
=cut