exiftool_vendored 9.45.0 → 9.46.0

data/bin/Image-ExifTool-9.45/lib/Image/ExifTool/SonyIDC.pm

@@ -1,330 +0,0 @@
-#------------------------------------------------------------------------------
-# File:         SonyIDC.pm
-#
-# Description:  Read/write Sony IDC information
-#
-# Revisions:    2010/01/05 - P. Harvey Created
-#------------------------------------------------------------------------------
-
-package Image::ExifTool::SonyIDC;
-
-use strict;
-use vars qw($VERSION);
-use Image::ExifTool qw(:DataAccess :Utils);
-
-$VERSION = '1.03';
-
-# Sony IDC tags (ref PH)
-%Image::ExifTool::SonyIDC::Main = (
-    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
-    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
-    GROUPS => { 0 => 'MakerNotes', 2 => 'Image' },
-    NOTES => 'Tags written by the Sony Image Data Converter utility in ARW images.',
-    SET_GROUP1 => 1,
-    0x201 => {
-        Name => 'IDCPreviewStart',
-        IsOffset => 1,
-        OffsetPair => 0x202,
-        DataTag => 'IDCPreview',
-        Writable => 'int32u',
-        Protected => 2,
-    },
-    0x202 => {
-        Name => 'IDCPreviewLength',
-        OffsetPair => 0x201,
-        DataTag => 'IDCPreview',
-        Writable => 'int32u',
-        Protected => 2,
-    },
-    0x8000 => {
-        Name => 'IDCCreativeStyle',
-        Writable => 'int32u',
-        PrintConvColumns => 2,
-        PrintConv => {
-            1 => 'Camera Setting',
-            2 => 'Standard',
-            3 => 'Real',
-            4 => 'Vivid',
-            5 => 'Adobe RGB',
-            6 => 'A100 Standard', # shows up as '-' in IDC menu
-            7 => 'Neutral',
-            8 => 'Portrait',
-            9 => 'Landscape',
-            10 => 'Clear',
-            11 => 'Deep',
-            12 => 'Light',
-            13 => 'Sunset',
-            14 => 'Night View',
-            15 => 'Autumn Leaves',
-            16 => 'B&W',
-            17 => 'Sepia',
-        },
-    },
-    0x8001 => {
-        Name => 'CreativeStyleWasChanged',
-        Writable => 'int32u',
-        Notes => 'set if the creative style was ever changed',
-        #        (even if it was changed back again later)
-        PrintConv => { 0 => 'No', 1 => 'Yes' },
-    },
-    0x8002 => {
-        Name => 'PresetWhiteBalance',
-        Writable => 'int32u',
-        PrintConv => {
-            1 => 'Camera Setting',
-            2 => 'Color Temperature',
-            3 => 'Specify Gray Point',
-            4 => 'Daylight',
-            5 => 'Cloudy',
-            6 => 'Shade',
-            7 => 'Cool White Fluorescent',
-            8 => 'Day Light Fluorescent',
-            9 => 'Day White Fluorescent',
-            10 => 'Warm White Fluorescent',
-            11 => 'Tungsten',
-            12 => 'Flash',
-            13 => 'Auto',
-        },
-    },
-    0x8013 => { Name => 'ColorTemperatureAdj',  Writable => 'int16u' },
-    0x8014 => { Name => 'PresetWhiteBalanceAdj',Writable => 'int32s' },
-    0x8015 => { Name => 'ColorCorrection',      Writable => 'int32s' },
-    0x8016 => { Name => 'SaturationAdj',        Writable => 'int32s' },
-    0x8017 => { Name => 'ContrastAdj',          Writable => 'int32s' },
-    0x8018 => { Name => 'BrightnessAdj',        Writable => 'int32s' },
-    0x8019 => { Name => 'HueAdj',               Writable => 'int32s' },
-    0x801a => { Name => 'SharpnessAdj',         Writable => 'int32s' },
-    0x801b => { Name => 'SharpnessOvershoot',   Writable => 'int32s' },
-    0x801c => { Name => 'SharpnessUndershoot',  Writable => 'int32s' },
-    0x801d => { Name => 'SharpnessThreshold',   Writable => 'int32s' },
-    0x801e => {
-        Name => 'NoiseReductionMode',
-        Writable => 'int16u',
-        PrintConv => {
-            0 => 'Off',
-            1 => 'On',
-        },
-    },
-    0x8021 => {
-        Name => 'GrayPoint',
-        Writable => 'int16u',
-        Count => 4,
-    },
-    0x8022 => {
-        Name => 'D-RangeOptimizerMode',
-        Writable => 'int16u',
-        PrintConv => {
-            0 => 'Off',
-            1 => 'Auto',
-            2 => 'Manual',
-        },
-    },
-    0x8023 => { Name => 'D-RangeOptimizerValue',    Writable => 'int32s' },
-    0x8024 => { Name => 'D-RangeOptimizerHighlight',Writable => 'int32s' },
-    0x8026 => {
-        Name => 'HighlightColorDistortReduct',
-        Writable => 'int16u',
-        PrintConv => {
-            0 => 'Standard',
-            1 => 'Advanced',
-        },
-    },
-    0x8027 => {
-        Name => 'NoiseReductionValue',
-        Writable => 'int32s',
-        ValueConv => '($val + 100) / 2',
-        ValueConvInv => '$val * 2 - 100',
-    },
-    0x8028 => {
-        Name => 'EdgeNoiseReduction',
-        Writable => 'int32s',
-        ValueConv => '($val + 100) / 2',
-        ValueConvInv => '$val * 2 - 100',
-    },
-    0x8029 => {
-        Name => 'ColorNoiseReduction',
-        Writable => 'int32s',
-        ValueConv => '($val + 100) / 2',
-        ValueConvInv => '$val * 2 - 100',
-    },
-    0x802d => { Name => 'D-RangeOptimizerShadow',       Writable => 'int32s' },
-    0x8030 => { Name => 'PeripheralIllumCentralRadius', Writable => 'int32s' },
-    0x8031 => { Name => 'PeripheralIllumCentralValue',  Writable => 'int32s' },
-    0x8032 => { Name => 'PeripheralIllumPeriphValue',   Writable => 'int32s' },
-    0x9000 => {
-        Name => 'ToneCurveBrightnessX',
-        Writable => 'int16u',
-        Count => -1,
-    },
-    0x9001 => {
-        Name => 'ToneCurveRedX',
-        Writable => 'int16u',
-        Count => -1,
-    },
-    0x9002 => {
-        Name => 'ToneCurveGreenX',
-        Writable => 'int16u',
-        Count => -1,
-    },
-    0x9003 => {
-        Name => 'ToneCurveBlueX',
-        Writable => 'int16u',
-        Count => -1,
-    },
-    0x9004 => {
-        Name => 'ToneCurveBrightnessY',
-        Writable => 'int16u',
-        Count => -1,
-    },
-    0x9005 => {
-        Name => 'ToneCurveRedY',
-        Writable => 'int16u',
-        Count => -1,
-    },
-    0x9006 => {
-        Name => 'ToneCurveGreenY',
-        Writable => 'int16u',
-        Count => -1,
-    },
-    0x9007 => {
-        Name => 'ToneCurveBlueY',
-        Writable => 'int16u',
-        Count => -1,
-    },
-    0xd000 => { Name => 'CurrentVersion',   Writable => 'int32u' },
-    0xd001 => {
-        Name => 'VersionIFD',
-        Groups => { 1 => 'Version0' },
-        Flags => 'SubIFD',
-        Notes => 'there is one VersionIFD for each entry in the "Version Stack"',
-        SubDirectory => {
-            DirName => 'Version0',
-            TagTable => 'Image::ExifTool::SonyIDC::Main',
-            Start => '$val',
-            Base => '$start',
-            MaxSubdirs => 20,   # (IDC v3.0 writes max. 10)
-            RelativeBase => 1,  # needed to write SubIFD with relative offsets
-        },
-    },
-    0xd100 => {
-        Name => 'VersionCreateDate',
-        Writable => 'string',
-        Groups => { 2 => 'Time' },
-        Notes => 'date/time when this entry was created in the "Version Stack"',
-        Shift => 'Time',
-        PrintConv => '$self->ConvertDateTime($val)',
-        PrintConvInv => '$self->InverseDateTime($val,0)',
-    },
-    0xd101 => {
-        Name => 'VersionModifyDate',
-        Writable => 'string',
-        Groups => { 2 => 'Time' },
-        Shift => 'Time',
-        PrintConv => '$self->ConvertDateTime($val)',
-        PrintConvInv => '$self->InverseDateTime($val,0)',
-    },
-);
-
-# extract IDC preview images as composite tags
-%Image::ExifTool::SonyIDC::Composite = (
-    GROUPS => { 2 => 'Image' },
-    IDCPreviewImage => {
-        Require => {
-            0 => 'IDCPreviewStart',
-            1 => 'IDCPreviewLength',
-        },
-        # extract all preview images (not just one)
-        RawConv => q{
-            require Image::ExifTool::SonyIDC;
-            Image::ExifTool::SonyIDC::ExtractPreviews($self);
-        },
-    },
-);
-
-# add our composite tags
-Image::ExifTool::AddCompositeTags('Image::ExifTool::SonyIDC');
-
-# set "Permanent" flag for all tags
-{
-    my $key;
-    foreach $key (TagTableKeys(\%Image::ExifTool::SonyIDC::Main)) {
-        $Image::ExifTool::SonyIDC::Main{$key}{Permanent} = 1;
-    }
-}
-
-#------------------------------------------------------------------------------
-# Extract all IDC preview images
-# Inputs: 0) ExifTool object ref
-# Returns: data for "IDCPreviewImage" tag (which I have never seen),
-#          or undef if there was no preview in the SonyIDC IFD
-sub ExtractPreviews($)
-{
-    my $et = shift;
-    my $i = 1;
-    my $xtra = ' (1)';
-    my $preview;
-    # loop through all available IDC preview images in the order they were found
-    for (;;) {
-        my $key = "IDCPreviewStart$xtra";
-        unless (defined $$et{VALUE}{$key}) {
-            last unless $xtra;
-            $xtra = ''; # do the last tag extracted last
-            next;
-        }
-        # run through IDC preview images in the same order they were extracted
-        my $off = $et->GetValue($key) or last;
-        my $len = $et->GetValue("IDCPreviewLength$xtra") or last;
-        # get stack version from number in group 1 name
-        my $grp1 = $et->GetGroup($key, 1);
-        if ($grp1 =~ /(\d+)$/) {
-            my $tag = "IDCPreviewImage$1";
-            unless ($Image::ExifTool::Extra{$tag}) {
-                AddTagToTable(\%Image::ExifTool::Extra, $tag, {
-                    Name => $tag,
-                    Groups => { 0 => 'Composite', 1 => 'Composite', 2 => 'Image'},
-                });
-            }
-            my $val = Image::ExifTool::Exif::ExtractImage($et, $off, $len, $tag);
-            $et->FoundTag($tag, $val);
-        } else {
-            $preview = Image::ExifTool::Exif::ExtractImage($et, $off, $len, 'IDCPreviewImage');
-        }
-        # step to next set of tags unless we are done
-        last unless $xtra;
-        ++$i;
-        $xtra = " ($i)";
-    }
-    return $preview;
-}
-
-1;  # end
-
-__END__
-
-=head1 NAME
-
-Image::ExifTool::SonyIDC - Read/write Sony IDC information
-
-=head1 SYNOPSIS
-
-This module is used by Image::ExifTool
-
-=head1 DESCRIPTION
-
-This module contains definitions required by Image::ExifTool to read and
-write Sony Image Data Converter version 3.0 metadata in ARW images.
-
-=head1 AUTHOR
-
-Copyright 2003-2013, 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 SEE ALSO
-
-L<Image::ExifTool::TagNames/SonyIDC Tags>,
-L<Image::ExifTool(3pm)|Image::ExifTool>
-
-=cut
-

data/bin/Image-ExifTool-9.45/lib/Image/ExifTool/Stim.pm

@@ -1,196 +0,0 @@
-#------------------------------------------------------------------------------
-# File:         Stim.pm
-#
-# Description:  Definitions for Stereo Still Image tags
-#
-# Revisions:    06/12/2009 - P. Harvey Created
-#
-# References:   1) http://www.cipa.jp/english/hyoujunka/kikaku/pdf/DC-006_E.pdf
-#------------------------------------------------------------------------------
-
-package Image::ExifTool::Stim;
-
-use strict;
-use vars qw($VERSION);
-
-$VERSION = '1.00';
-
-# Tags found in Stim APP3 segment in JPEG images
-%Image::ExifTool::Stim::Main = (
-    GROUPS => { 0 => 'Stim', 1 => 'Stim', 2 => 'Image'},
-    NOTES => q{
-        These tags are part of the CIPA Stereo Still Image specification, and are
-        found in the APP3 "Stim" segment of JPEG images.  See
-        L<http://www.cipa.jp/english/hyoujunka/kikaku/pdf/DC-006_E.pdf> for the
-        official specification.
-    },
-    0 => 'StimVersion',
-    1 => {
-        Name => 'ApplicationData',
-        Binary => 1,
-    },
-    2 => {
-        Name => 'ImageArrangement',
-        PrintConv => {
-            0 => 'Parallel View Alignment',
-            1 => 'Cross View Alignment',
-        },
-    },
-    3 => {
-        Name => 'ImageRotation',
-        PrintConv => {
-            1 => 'None',
-        },
-    },
-    4 => 'ScalingFactor',
-    5 => 'CropXSize',
-    6 => 'CropYSize',
-    7 => {
-        Name => 'CropX',
-        SubDirectory => {
-            TagTable => 'Image::ExifTool::Stim::CropX',
-        },
-    },
-    8 => {
-        Name => 'CropY',
-        SubDirectory => {
-            TagTable => 'Image::ExifTool::Stim::CropY',
-        },
-    },
-    9 => {
-        Name => 'ViewType',
-        PrintConv => {
-            0 => 'No Pop-up Effect',
-            1 => 'Pop-up Effect',
-        },
-    },
-    10 => {
-        Name => 'RepresentativeImage',
-        PrintConv => {
-            0 => 'Left Viewpoint',
-            1 => 'Right Viewpoint',
-        },
-    },
-    11 => {
-        Name => 'ConvergenceBaseImage',
-        PrintConv => {
-            0 => 'Left Viewpoint',
-            1 => 'Right Viewpoint',
-            255 => 'Equivalent for Both Viewpoints',
-        },
-    },
-    12 => {
-        Name => 'AssumedDisplaySize',
-        PrintConv => '"$val mm"',
-    },
-    13 => {
-        Name => 'AssumedDistanceView',
-        PrintConv => '"$val mm"',
-    },
-    14 => 'RepresentativeDisparityNear',
-    15 => 'RepresentativeDisparityFar',
-    16 => {
-        Name => 'InitialDisplayEffect',
-        PrintConv => {
-            0 => 'Off',
-            1 => 'On',
-        },
-    },
-    17 => {
-        Name => 'ConvergenceDistance',
-        PrintConv => '$val ? "$val mm" : "inf"',
-    },
-    18 => {
-        Name => 'CameraArrangementInterval',
-        PrintConv => '"$val mm"',
-    },
-    19 => 'ShootingCount',
-);
-
-# crop offset X tags
-%Image::ExifTool::Stim::CropX = (
-    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
-    GROUPS => { 0 => 'Stim', 1 => 'Stim', 2 => 'Image'},
-    0 => {
-        Name => 'CropXCommonOffset',
-        Format => 'int16u',
-        PrintConv => {
-            0 => 'Common Offset Setting',
-            1 => 'Individual Offset Setting',
-        },
-    },
-    2 => 'CropXViewpointNumber',
-    3 => {
-        Name => 'CropXOffset',
-        Format => 'int32s',
-    },
-    7 => 'CropXViewpointNumber2',
-    8 => {
-        Name => 'CropXOffset2',
-        Format => 'int32s',
-    },
-);
-
-# crop offset Y tags
-%Image::ExifTool::Stim::CropY = (
-    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
-    GROUPS => { 0 => 'Stim', 1 => 'Stim', 2 => 'Image'},
-    0 => {
-        Name => 'CropYCommonOffset',
-        Format => 'int16u',
-        PrintConv => {
-            0 => 'Common Offset Setting',
-            1 => 'Individual Offset Setting',
-        },
-    },
-    2 => 'CropYViewpointNumber',
-    3 => {
-        Name => 'CropYOffset',
-        Format => 'int32s',
-    },
-    7 => 'CropYViewpointNumber2',
-    8 => {
-        Name => 'CropYOffset2',
-        Format => 'int32s',
-    },
-);
-
-1;  # end
-
-__END__
-
-=head1 NAME
-
-Image::ExifTool::Stim - Definitions for Stereo Still Image tags
-
-=head1 SYNOPSIS
-
-This module is used by Image::ExifTool
-
-=head1 DESCRIPTION
-
-This module contains tag definitions for Stereo Still Image format (Stim)
-information.
-
-=head1 AUTHOR
-
-Copyright 2003-2013, 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.cipa.jp/english/hyoujunka/kikaku/pdf/DC-006_E.pdf>
-
-=back
-
-=head1 SEE ALSO
-
-L<Image::ExifTool::TagNames/Stim Tags>,
-L<Image::ExifTool(3pm)|Image::ExifTool>
-
-=cut
-