exiftool_vendored 9.78.0 → 9.99.0

data/bin/Image-ExifTool-9.78/lib/Image/ExifTool/Reconyx.pm

@@ -1,190 +0,0 @@
-#------------------------------------------------------------------------------
-# File:         Reconyx.pm
-#
-# Description:  Reconyx maker notes tags
-#
-# Revisions:    2011-01-11 - P. Harvey Created
-#
-# References:   1) RCNX_MN10.pdf (courtesy of Reconyx Inc.)
-#------------------------------------------------------------------------------
-
-package Image::ExifTool::Reconyx;
-
-use strict;
-use vars qw($VERSION);
-
-$VERSION = '1.04';
-
-# maker notes for Reconyx Hyperfire cameras (ref PH)
-%Image::ExifTool::Reconyx::Main = (
-    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
-    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
-    WRITE_PROC => \&Image::ExifTool::WriteBinaryData,
-    CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
-    TAG_PREFIX => 'Reconyx',
-    FORMAT => 'int16u',
-    WRITABLE => 1,
-    FIRST_ENTRY => 0,
-    NOTES => q{
-        The following tags are extracted from the maker notes of Reconyx Hyperfire
-        cameras such as the HC500, HC600 and PC900.
-    },
-    0x00 => { #1
-        Name => 'MakerNoteVersion',
-        PrintConv => 'sprintf("0x%.4x", $val)',
-        Writable => 0, # (we use this for identification, 0xf101 --> rev 1.0)
-        PrintConvInv => 'hex $val',
-    },
-    0x01 => { #1
-        Name => 'FirmwareVersion',
-        Format => 'int16u[3]',
-        PrintConv => '$val=~tr/ /./; $val',
-        Writable => 0, # (we use this for identification, 0x0003 --> ver 2 or 3)
-    },
-    0x04 => { #1
-        Name => 'FirmwareDate',
-        Format => 'int16u[2]',
-        ValueConv => q{
-            my @v = split(' ',$val);
-            sprintf('%.4x:%.2x:%.2x', $v[0], $v[1]>>8, $v[1]&0xff);
-        },
-        ValueConvInv => q{
-            my @v = split(':', $val);
-            hex($v[0]) . ' ' . hex($v[1] . $v[2]);
-        },
-    },
-    0x06 => {
-        Name => 'TriggerMode',
-        Format => 'string[2]',
-        PrintConv => {
-            C => 'CodeLoc Not Entered', #1
-            E => 'External Sensor', #1
-            M => 'Motion Detection',
-            T => 'Time Lapse',
-        },
-    },
-    0x07 => {
-        Name => 'Sequence',
-        Format => 'int16u[2]',
-        PrintConv => '$val =~ s/ / of /; $val',
-        PrintConvInv => 'join(" ", $val=~/\d+/g)',
-    },
-    0x09 => { #1
-        Name => 'EventNumber',
-        Format => 'int16u[2]',
-        ValueConv => 'my @v=split(" ",$val); ($v[0]<<16) + $v[1]',
-        ValueConvInv => '($val>>16) . " " . ($val&0xffff)',
-    },
-    0x0b => {
-        Name => 'DateTimeOriginal',
-        Description => 'Date/Time Original',
-        Format => 'int16u[6]',
-        Groups => { 2 => 'Time' },
-        Priority => 0, # (not as reliable as EXIF)
-        Shift => 'Time',
-        ValueConv => q{
-            my @a = split ' ', $val;
-            # have seen these values written big-endian when everything else is little-endian
-            if ($a[0] & 0xff00 and not $a[0] & 0xff) {
-                $_ = ($_ >> 8) | (($_ & 0xff) << 8) foreach @a;
-            }
-            sprintf('%.4d:%.2d:%.2d %.2d:%.2d:%.2d', @a[5,3,4,2,1,0]);
-        },
-        ValueConvInv => q{
-            my @a = ($val =~ /\d+/g);
-            return undef unless @a >= 6;
-            join ' ', @a[5,4,3,1,2,0];
-        },
-        PrintConv => '$self->ConvertDateTime($val)',
-        PrintConvInv => '$self->InverseDateTime($val)',
-    },
-    0x12 => {
-        Name => 'MoonPhase',
-        Groups => { 2 => 'Time' },
-        PrintConv => {
-            0 => 'New',
-            1 => 'New Crescent',
-            2 => 'First Quarter',
-            3 => 'Waxing Gibbous',
-            4 => 'Full',
-            5 => 'Waning Gibbous',
-            6 => 'Last Quarter',
-            7 => 'Old Crescent',
-        },
-    },
-    0x13 => {
-        Name => 'AmbientTemperatureFahrenheit',
-        Format => 'int16s',
-        PrintConv => '"$val F"',
-        PrintConvInv => '$val=~/(-?\d+)/ ? $1 : $val',
-    },
-    0x14 => {
-        Name => 'AmbientTemperature',
-        Format => 'int16s',
-        PrintConv => '"$val C"',
-        PrintConvInv => '$val=~/(-?\d+)/ ? $1 : $val',
-    },
-    0x15 => {
-        Name => 'SerialNumber',
-        Format => 'undef[30]',
-        RawConv => '$_ = $self->Decode($val, "UCS2"); s/\0.*//; $_',
-        RawConvInv => q{
-            $_ = $self->Encode($val, "UCS2");
-            $_ = substr($_, 0, 30) if length($_) > 30;
-            return $_;
-        },
-    },
-    0x24 => 'Contrast', #1
-    0x25 => 'Brightness', #1
-    0x26 => 'Sharpness', #1
-    0x27 => 'Saturation', #1
-    0x28 => {
-        Name => 'InfraredIlluminator',
-        PrintConv => {
-            0 => 'Off',
-            1 => 'On',
-        },
-    },
-    0x29 => 'MotionSensitivity', #1
-    0x2a => { #1
-        Name => 'BatteryVoltage',
-        ValueConv => '$val / 1000',
-        ValueConvInv => '$val * 1000',
-        PrintConv => '"$val V"',
-        PrintConvInv => '$val=~s/ ?V$//; $val',
-    },
-    0x2b => {
-        Name => 'UserLabel',
-        Format => 'string[22]', #1 (but manual says 16-char limit)
-    },
-);
-
-
-__END__
-
-=head1 NAME
-
-Image::ExifTool::Reconyx - Reconyx maker notes tags
-
-=head1 SYNOPSIS
-
-This module is loaded automatically by Image::ExifTool when required.
-
-=head1 DESCRIPTION
-
-This module contains definitions required by Image::ExifTool to interpret
-maker notes in Reconyx cameras.
-
-=head1 AUTHOR
-
-Copyright 2003-2014, 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/Reconyx Tags>,
-L<Image::ExifTool(3pm)|Image::ExifTool>
-
-=cut

data/bin/Image-ExifTool-9.78/lib/Image/ExifTool/Ricoh.pm

@@ -1,1114 +0,0 @@
-#------------------------------------------------------------------------------
-# File:         Ricoh.pm
-#
-# Description:  Ricoh EXIF maker notes tags
-#
-# Revisions:    03/28/2005 - P. Harvey Created
-#
-# References:   1) http://www.ozhiker.com/electronics/pjmt/jpeg_info/ricoh_mn.html
-#               2) http://homepage3.nifty.com/kamisaka/makernote/makernote_ricoh.htm
-#               3) Tim Gray private communication (GR)
-#               4) https://github.com/atotto/ricoh-theta-tools/
-#------------------------------------------------------------------------------
-
-package Image::ExifTool::Ricoh;
-
-use strict;
-use vars qw($VERSION);
-use Image::ExifTool qw(:DataAccess :Utils);
-use Image::ExifTool::Exif;
-
-$VERSION = '1.28';
-
-sub ProcessRicohText($$$);
-sub ProcessRicohRMETA($$$);
-
-# lens types for Ricoh GXR
-my %ricohLensIDs = (
-    Notes => q{
-        Lens units available for the GXR, used by the Ricoh Composite LensID tag.  Note
-        that unlike lenses for all other makes of cameras, the focal lengths in these
-        model names have already been scaled to include the 35mm crop factor.
-    },
-    # (the exact lens model names used by Ricoh, except for a change in case)
-    'RL1' => 'GR Lens A12 50mm F2.5 Macro',
-    'RL2' => 'Ricoh Lens S10 24-70mm F2.5-4.4 VC',
-    'RL3' => 'Ricoh Lens P10 28-300mm F3.5-5.6 VC',
-    'RL5' => 'GR Lens A12 28mm F2.5',
-    'RL8' => 'Mount A12',
-    'RL6' => 'Ricoh Lens A16 24-85mm F3.5-5.5',
-);
-
-%Image::ExifTool::Ricoh::Main = (
-    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
-    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
-    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
-    WRITABLE => 1,
-    0x0001 => { Name => 'MakerNoteType',   Writable => 'string' },
-    0x0002 => { #PH
-        Name => 'FirmwareVersion',
-        Writable => 'string',
-        # eg. "Rev0113" is firmware version 1.13
-        PrintConv => '$val=~/^Rev(\d+)$/ ? sprintf("%.2f",$1/100) : $val',
-        PrintConvInv => '$val=~/^(\d+)\.(\d+)$/ ? sprintf("Rev%.2d%.2d",$1,$2) : $val',
-    },
-    0x0005 => [ #PH
-        {
-            Condition => '$$valPt =~ /^[-\w ]+$/',
-            Name => 'SerialNumber', # (verified for GXR)
-            Writable => 'undef',
-            Count => 16,
-            Notes => q{
-                the serial number stamped on the camera begins with 2 model-specific letters
-                followed by the last 8 digits of this value.  For the GXR, this is the
-                serial number of the lens unit
-            },
-            PrintConv => '$val=~s/^(.*)(.{8})$/($1)$2/; $val',
-            PrintConvInv => '$val=~tr/()//d; $val',
-        },{
-            Name => 'InternalSerialNumber',
-            Writable => 'undef',
-            Count => 16,
-            ValueConv => 'unpack("H*", $val)',
-            ValueConvInv => 'pack("H*", $val)',
-        },
-    ],
-    0x0e00 => {
-        Name => 'PrintIM',
-        Writable => 0,
-        Description => 'Print Image Matching',
-        SubDirectory => { TagTable => 'Image::ExifTool::PrintIM::Main' },
-    },
-    0x1000 => { #3
-        Name => 'RecordingFormat',
-        Writable => 'int16u',
-        PrintConv => {
-            2 => 'JPEG',
-            3 => 'DNG',
-        },
-    },            
-    0x1001 => [{
-        Name => 'ImageInfo',
-        Condition => '$format ne "int16u"',
-        SubDirectory => { TagTable => 'Image::ExifTool::Ricoh::ImageInfo' },
-    },{ #3
-        Name => 'ExposureProgram',
-        Writable => 'int16u',
-        Notes => 'GR',
-        PrintConv => {
-            1 => 'Auto',
-            2 => 'Program AE',
-            3 => 'Aperture-priority AE',
-            4 => 'Shutter speed priority AE',
-            5 => 'Shutter/aperture priority AE', # TAv
-            6 => 'Manual',
-            7 => 'Movie', #PH
-        },
-    }],
-    0x1002 => { #3
-        Name => 'DriveMode',
-        Condition => '$format eq "int16u"',
-        Notes => 'valid only for some models',
-        Writable => 'int16u',
-        PrintConv => {
-            0 => 'Single-frame',
-            1 => 'Continuous',
-            8 => 'AF-priority Continuous',
-        },
-    },            
-    0x1003 => [{
-        Name => 'Sharpness',
-        Condition => '$format ne "int16u"',
-        Writable => 'int32u',
-        PrintConv => {
-            0 => 'Sharp',
-            1 => 'Normal',
-            2 => 'Soft',
-        },
-    },{ #3
-        Name => 'WhiteBalance',
-        Writable => 'int16u',
-        Notes => 'GR',
-        PrintConv => {
-            0 => 'Auto',
-            1 => 'Multi-P Auto',
-            2 => 'Daylight',
-            3 => 'Cloudy',
-            4 => 'Incandescent 1',
-            5 => 'Incandescent 2',
-            6 => 'Daylight Fluorescent',
-            7 => 'Neutral White Fluorescent',
-            8 => 'Cool White Fluorescent',
-            9 => 'Warm White Fluorescent',
-            10 => 'Manual',
-            11 => 'Kelvin',
-        },
-    }],
-    0x1004 => { #3
-        Name => 'WhiteBalanceFineTune',
-        Condition => '$format eq "int16u"',
-        Format => 'int16s',
-        Writable => 'int16u',
-        Notes => q{
-            2 numbers: amount of adjustment towards Amber and Green.  Not valid for all
-            models
-        },
-    },
-    # 0x1005 int16u - 5
-    0x1006 => { #3
-        Name => 'FocusMode',
-        Writable => 'int16u',
-        PrintConv => {
-            1 => 'Manual',
-            2 => 'Multi AF',
-            3 => 'Spot AF',
-            4 => 'Snap',
-            5 => 'Infinity',
-            7 => 'Face Detect', #PH
-            8 => 'Subject Tracking',
-            9 => 'Pinpoint AF',
-            10 => 'Movie', #PH
-        },
-    },
-    0x1007 => { #3
-        Name => 'AutoBracketing',
-        Writable => 'int16u',
-        PrintConv => {
-            0 => 'Off',
-            9 => 'AE',
-            11 => 'WB',
-            16 => 'DR', # (dynamic range)
-            17 => 'Contrast',
-            18 => 'WB2', # (selects two different WB presets besides normal)
-            19 => 'Effect',
-        },
-    },
-    0x1009 => { #3
-        Name => 'MacroMode',
-        Writable => 'int16u',
-        PrintConv => { 0 => 'Off', 1 => 'On' },
-    },
-    0x100a => { #3
-        Name => 'FlashMode',
-        Writable => 'int16u',
-        PrintConv => {
-            0 => 'Off',
-            1 => 'Auto, Fired',
-            2 => 'On',
-            3 => 'Auto, Fired, Red-eye reduction',
-            4 => 'Slow Sync',
-            5 => 'Manual',
-            6 => 'On, Red-eye reduction',
-            7 => 'Synchro, Red-eye reduction',
-            8 => 'Auto, Did not fire',
-        },
-    },
-    0x100b => { #3
-        Name => 'FlashExposureComp',
-        Writable => 'rational64s',
-        PrintConv => '$val ? sprintf("%+.1f",$val) : $val',
-        PrintConvInv => '$val',
-    },
-    0x100c => { #3
-        Name => 'ManualFlashOutput',
-        Writable => 'rational64s',
-        PrintConv => {
-               0 => 'Full',
-             -24 => '1/1.4',
-             -48 => '1/2',
-             -72 => '1/2.8',
-             -96 => '1/4',
-            -120 => '1/5.6',
-            -144 => '1/8',
-            -168 => '1/11',
-            -192 => '1/16',
-            -216 => '1/22',
-            -240 => '1/32',
-            -288 => '1/64',
-        },
-    },
-    0x100d => { #3
-        Name => 'FullPressSnap',
-        Writable => 'int16u',
-        PrintConv => { 0 => 'Off', 1 => 'On' },
-    },
-    0x100e => { #3
-        Name => 'DynamicRangeExpansion',
-        Writable => 'int16u',
-        PrintConv => {
-            0 => 'Off',
-            3 => 'Weak',
-            4 => 'Medium',
-            5 => 'Strong',
-        },
-    },
-    0x100f => { #3
-        Name => 'NoiseReduction',
-        Writable => 'int16u',
-        PrintConv => {
-            0 => 'Off',
-            1 => 'Weak',
-            2 => 'Medium',
-            3 => 'Strong',
-        },
-    },
-    0x1010 => { #3
-        Name => 'ImageEffects',
-        Writable => 'int16u',
-        PrintConv => {
-            0 => 'Standard',
-            1 => 'Vivid',
-            3 => 'Black & White',
-            5 => 'B&W Toning Effect',
-            6 => 'Setting 1',
-            7 => 'Setting 2',
-            9 => 'High-contrast B&W',
-            10 => 'Cross Process',
-            11 => 'Positive Film',
-            12 => 'Bleach Bypass',
-            13 => 'Retro',
-            15 => 'Miniature',
-            17 => 'High Key',
-        },
-    },
-    0x1011 => { #3
-        Name => 'Vignetting',
-        Writable => 'int16u',
-        PrintConv => {
-            0 => 'Off',
-            1 => 'Low',
-            2 => 'Medium',
-            3 => 'High',
-        },
-    },
-    0x1012 => { #PH
-        Name => 'Contrast',
-        Writable => 'int32u',
-        Format => 'int32s', #3 (high-contrast B&W also has -1 and -2 settings)
-        PrintConv => {
-            OTHER => sub { shift },
-            2147483647 => 'MAX', #3 (high-contrast B&W effect MAX setting)
-        },
-    },
-    0x1013 => { Name => 'Saturation', Writable => 'int32u' }, #PH
-    0x1014 => { Name => 'Sharpness',  Writable => 'int32u' }, #3
-    0x1015 => { #3
-        Name => 'ToningEffect',
-        Writable => 'int16u',
-        PrintConv => {
-            0 => 'Off',
-            1 => 'Sepia',
-            2 => 'Red',
-            3 => 'Green',
-            4 => 'Blue',
-            5 => 'Purple',
-            6 => 'B&W',
-            7 => 'Color',
-        },
-    },
-    0x1016 => { #3
-        Name => 'HueAdjust',
-        Writable => 'int16u',
-        PrintConv => {
-            0 => 'Off',
-            1 => 'Basic',
-            2 => 'Magenta',
-            3 => 'Yellow',
-            4 => 'Normal',
-            5 => 'Warm',
-            6 => 'Cool',
-        },
-    },
-    0x1017 => { #3
-        Name => 'WideAdapter',
-        Writable => 'int16u',
-        PrintConv => {
-            0 => 'Not Attached',
-            2 => 'Attached', # (21mm)
-        },
-    },
-    0x1018 => { #3
-        Name => 'CropMode35mm',
-        Writable => 'int16u',
-        PrintConv => { 0 => 'Off', 1 => 'On' },
-    },
-    0x1019 => { #3
-        Name => 'NDFilter',
-        Writable => 'int16u',
-        PrintConv => { 0 => 'Off', 1 => 'On' },
-    },
-    0x101a => { Name => 'WBBracketShotNumber', Writable => 'int16u' }, #3
-    # 0x1100 - related to DR correction (ref 3)
-    0x1307 => { Name => 'ColorTempKelvin',     Writable => 'int32u' }, #3
-    0x1308 => { Name => 'ColorTemperature',    Writable => 'int32u' }, #3
-    0x1500 => { #3
-        Name => 'FocalLength',
-        Writable => 'rational64u',
-        PrintConv => 'sprintf("%.1f mm",$val)',
-        PrintConvInv => '$val=~s/\s*mm$//;$val',
-    },
-    0x1200 => { #3
-        Name => 'AFStatus',
-        Writable => 'int16u',
-        PrintConv => {
-            0 => 'Out of Focus',
-            1 => 'In Focus',
-        },
-    },
-    # 0x1201-0x1204 - related to focus points (ref 3)
-    0x1201 => { #PH (NC)
-        Name => 'AFAreaXPosition1',
-        Writable => 'int32u',
-        Notes => 'manual AF area position in a 1280x864 image',
-    },
-    0x1202 => { Name => 'AFAreaYPosition1', Writable => 'int32u' }, #PH (NC)
-    0x1203 => { #PH (NC)
-        Name => 'AFAreaXPosition',
-        Writable => 'int32u',
-        Notes => 'manual AF area position in the full image',
-        # (coordinates change to correspond with smaller image
-        #  when recording reduced-size JPEG)
-    },
-    0x1204 => { Name => 'AFAreaYPosition', Writable => 'int32u' }, #PH (NC)
-    0x1205 => { #3
-        Name => 'AFAreaMode',
-        Writable => 'int16u',
-        PrintConv => {
-            0 => 'Auto',
-            2 => 'Manual',
-        },
-    },
-    0x1601 => { Name => 'SensorWidth',  Writable => 'int32u' }, #3
-    0x1602 => { Name => 'SensorHeight', Writable => 'int32u' }, #3
-    0x1603 => { Name => 'CroppedImageWidth',  Writable => 'int32u' }, #3
-    0x1604 => { Name => 'CroppedImageHeight', Writable => 'int32u' }, #3
-    # 0x1700 - Composite? (0=normal image, 1=interval composite, 2=multi-exposure composite) (ref 3)
-    # 0x1703 - 0=normal, 1=final composite (ref 3)
-    # 0x1704 - 0=normal, 2=final composite (ref 3)
-    0x2001 => [
-        {
-            Name => 'RicohSubdir',
-            Condition => q{
-                $self->{Model} !~ /^Caplio RR1\b/ and
-                ($format ne 'int32u' or $count != 1)
-            },
-            SubDirectory => {
-                Validate => '$val =~ /^\[Ricoh Camera Info\]/',
-                TagTable => 'Image::ExifTool::Ricoh::Subdir',
-                Start => '$valuePtr + 20',
-                ByteOrder => 'BigEndian',
-            },
-        },
-        {
-            Name => 'RicohSubdirIFD',
-            # the CX6 and GR Digital 4 write an int32u pointer in AVI videos -- doh!
-            Condition => '$self->{Model} !~ /^Caplio RR1\b/',
-            Flags => 'SubIFD',
-            SubDirectory => {
-                TagTable => 'Image::ExifTool::Ricoh::Subdir',
-                Start => '$val + 20', # (skip over "[Ricoh Camera Info]\0" header)
-                ByteOrder => 'BigEndian',
-            },
-        },
-        {
-            Name => 'RicohRR1Subdir',
-            SubDirectory => {
-                Validate => '$val =~ /^\[Ricoh Camera Info\]/',
-                TagTable => 'Image::ExifTool::Ricoh::Subdir',
-                Start => '$valuePtr + 20',
-                ByteOrder => 'BigEndian',
-                # the Caplio RR1 uses a different base address -- doh!
-                Base => '$start-20',
-            },
-        },
-    ],
-    0x4001 => {
-        Name => 'ThetaSubdir',
-        Groups => { 1 => 'MakerNotes' },    # SubIFD needs group 1 set
-        Flags => 'SubIFD',
-        SubDirectory => {
-            TagTable => 'Image::ExifTool::Ricoh::ThetaSubdir',
-            Start => '$val',
-        },
-    },
-);
-
-# Ricoh type 2 maker notes (ref PH)
-# (similar to Kodak::Type11 and GE::Main)
-%Image::ExifTool::Ricoh::Type2 = (
-    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
-    NOTES => q{
-        Tags written by models such as the Ricoh HZ15 and the Pentax XG-1.  These
-        are not writable due to numerous formatting errors as written by these
-        cameras.
-    },
-    # 0x104 - int32u: 1
-    # 0x200 - int32u[3]: 0 0 0
-    # 0x202 - int16u: 0 (GE Macro?)
-    # 0x203 - int16u: 0,3 (Kodak PictureEffect?)
-    # 0x204 - rational64u: 0/10
-    # 0x206 - float[6]: (not really float because size should be 2 bytes)
-    # 0x207 - string[4]: zeros (GE/Kodak Model?)
-    0x300 => {
-        # brutal.  There are lots of errors in the XG-1 maker notes.  For the XG-1,
-        # 0x300 has a value of "XG-1Pentax".  The "XG-1" part is likely an improperly
-        # stored 0x207 RicohModel, resulting in an erroneous 4-byte offset for this tag
-        Name => 'RicohMake',
-        Writable => 'undef',
-        ValueConv => '$val =~ s/ *$//; $val',
-    },
-    # 0x306 - int16u: 1
-    # 0x500 - int16u: 0
-    # 0x501 - int16u: 0
-    # 0x502 - int16u: 0
-    # 0x9c9c - int8u[6]: ?
-    # 0xadad - int8u[20480]: ?
-);
-
-# Ricoh image info (ref 2)
-%Image::ExifTool::Ricoh::ImageInfo = (
-    GROUPS => { 0 => 'MakerNotes', 2 => 'Image' },
-    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
-    WRITE_PROC => \&Image::ExifTool::WriteBinaryData,
-    CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
-    WRITABLE => 1,
-    PRIORITY => 0,
-    FORMAT => 'int8u',
-    FIRST_ENTRY => 0,
-    IS_OFFSET => [ 28 ],   # tag 28 is 'IsOffset'
-    0 => {
-        Name => 'RicohImageWidth',
-        Format => 'int16u',
-    },
-    2 => {
-        Name => 'RicohImageHeight',
-        Format => 'int16u',
-    },
-    6 => {
-        Name => 'RicohDate',
-        Groups => { 2 => 'Time' },
-        Format => 'int8u[7]',
-        # (what an insane way to encode the date)
-        ValueConv => q{
-            sprintf("%.2x%.2x:%.2x:%.2x %.2x:%.2x:%.2x",
-                    split(' ', $val));
-        },
-        ValueConvInv => q{
-            my @vals = ($val =~ /(\d{1,2})/g);
-            push @vals, 0 if @vals < 7;
-            join(' ', map(hex, @vals));
-        },
-    },
-    28 => {
-        Name => 'PreviewImageStart',
-        Format => 'int16u', # ha!  (only the lower 16 bits, even if > 0xffff)
-        Flags => 'IsOffset',
-        OffsetPair => 30,   # associated byte count tagID
-        DataTag => 'PreviewImage',
-        Protected => 2,
-        # prevent preview from being written to MakerNotes of DNG images
-        RawConvInv => q{
-            return $val if $$self{FILE_TYPE} eq "JPEG";
-            warn "\n"; # suppress warning
-            return undef;
-        },
-    },
-    30 => {
-        Name => 'PreviewImageLength',
-        Format => 'int16u',
-        OffsetPair => 28,   # point to associated offset
-        DataTag => 'PreviewImage',
-        Protected => 2,
-        RawConvInv => q{
-            return $val if $$self{FILE_TYPE} eq "JPEG";
-            warn "\n"; # suppress warning
-            return undef;
-        },
-    },
-    32 => {
-        Name => 'FlashMode',
-        PrintConv => {
-            0 => 'Off',
-            1 => 'Auto', #PH
-            2 => 'On',
-        },
-    },
-    33 => {
-        Name => 'Macro',
-        PrintConv => { 0 => 'Off', 1 => 'On' },
-    },
-    34 => {
-        Name => 'Sharpness',
-        PrintConv => {
-            0 => 'Sharp',
-            1 => 'Normal',
-            2 => 'Soft',
-        },
-    },
-    38 => {
-        Name => 'WhiteBalance',
-        PrintConv => {
-            0 => 'Auto',
-            1 => 'Daylight',
-            2 => 'Cloudy',
-            3 => 'Tungsten',
-            4 => 'Fluorescent',
-            5 => 'Manual', #PH (GXR)
-            7 => 'Detail',
-            9 => 'Multi-pattern Auto', #PH (GXR)
-        },
-    },
-    39 => {
-        Name => 'ISOSetting',
-        PrintConv => {
-            0 => 'Auto',
-            1 => 64,
-            2 => 100,
-            4 => 200,
-            6 => 400,
-            7 => 800,
-            8 => 1600,
-            9 => 'Auto', #PH (? CX3)
-            10 => 3200, #PH (A16)
-            11 => '100 (Low)', #PH (A16)
-        },
-    },
-    40 => {
-        Name => 'Saturation',
-        PrintConv => {
-            0 => 'High',
-            1 => 'Normal',
-            2 => 'Low',
-            3 => 'B&W',
-            6 => 'Toning Effect', #PH (GXR Sepia,Red,Green,Blue,Purple)
-            9 => 'Vivid', #PH (GXR)
-            10 => 'Natural', #PH (GXR)
-        },
-    },
-);
-
-# Ricoh subdirectory tags (ref PH)
-# NOTE: this subdir is currently not writable because the offsets would require
-# special code to handle the funny start location and base offset
-%Image::ExifTool::Ricoh::Subdir = (
-    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
-    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
-    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
-    # the significance of the following 2 dates is not known.  They are usually
-    # within a month of each other, but I have seen differences of nearly a year.
-    # Sometimes the first is more recent, and sometimes the second.
-    0x0004 => { # (NC)
-        Name => 'ManufactureDate1',
-        Groups => { 2 => 'Time' },
-        Writable => 'string',
-        Count => 20,
-    },
-    0x0005 => { # (NC)
-        Name => 'ManufactureDate2',
-        Groups => { 2 => 'Time' },
-        Writable => 'string',
-        Count => 20,
-    },
-    # 0x000c - int32u[2] 1st number is a counter (file number? shutter count?) - PH
-    # 0x0014 - int8u[338] - could contain some data related to face detection? - PH
-    # 0x0015 - int8u[2]: related to noise reduction?
-    0x001a => { #PH
-        Name => 'FaceInfo',
-        SubDirectory => { TagTable => 'Image::ExifTool::Ricoh::FaceInfo' },
-    },
-    0x0029 => {
-        Name => 'FirmwareInfo',
-        SubDirectory => { TagTable => 'Image::ExifTool::Ricoh::FirmwareInfo' },
-    },
-    0x002a => {
-        Name => 'NoiseReduction',
-        # this is the applied value if NR is set to "Auto"
-        Writable => 'int32u',
-        PrintConv => {
-            0 => 'Off',
-            1 => 'Weak',
-            2 => 'Strong',
-            3 => 'Max',
-        },
-    },
-    0x002c => { # (GXR)
-        Name => 'SerialInfo',
-        SubDirectory => { TagTable => 'Image::ExifTool::Ricoh::SerialInfo' },
-    }
-    # 0x000E ProductionNumber? (ref 2) [no. zero for most models - PH]
-);
-
-
-# Ricoh Theta subdirectory tags - Contains orientation information (ref 4)
-%Image::ExifTool::Ricoh::ThetaSubdir = (
-    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
-    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
-    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
-    # 0x0001 => Unknown
-    # 0x0002 => Unknown
-    0x0003 => {
-        Name => 'Accelerometer',
-        Writable => 'rational64s',
-        Count => 2,
-    },
-    0x0004 => {
-        Name => 'Compass',
-        Writable => 'rational64u',
-    },
-    # 0x0005 => Unknown
-    # 0x0101 => Unknown - ISO Speed?
-    # 0x0102 => Unknown - F Number?
-    # 0x0103 => Unknown - Exposure?
-    # 0x0104 => Unknown - Serial Number?
-    # 0x0105 => Unknown - Serial Number?
-);
-
-# face detection information (ref PH, CX4)
-%Image::ExifTool::Ricoh::FaceInfo = (
-    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
-    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
-    WRITE_PROC => \&Image::ExifTool::WriteBinaryData,
-    CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
-    WRITABLE => 1,
-    FIRST_ENTRY => 0,
-    DATAMEMBER => [ 181 ],
-    0xb5 => { # (should be int16u at 0xb4?)
-        Name => 'FacesDetected',
-        DataMember => 'FacesDetected',
-        RawConv => '$$self{FacesDetected} = $val',
-    },
-    0xb6 => {
-        Name => 'FaceDetectFrameSize',
-        Format => 'int16u[2]',
-    },
-    0xbc => {
-        Name => 'Face1Position',
-        Condition => '$$self{FacesDetected} >= 1',
-        Format => 'int16u[4]',
-        Notes => q{
-            left, top, width and height of detected face in coordinates of
-            FaceDetectFrameSize with increasing Y downwards
-        },
-    },
-    0xc8 => {
-        Name => 'Face2Position',
-        Condition => '$$self{FacesDetected} >= 2',
-        Format => 'int16u[4]',
-    },
-    0xd4 => {
-        Name => 'Face3Position',
-        Condition => '$$self{FacesDetected} >= 3',
-        Format => 'int16u[4]',
-    },
-    0xe0 => {
-        Name => 'Face4Position',
-        Condition => '$$self{FacesDetected} >= 4',
-        Format => 'int16u[4]',
-    },
-    0xec => {
-        Name => 'Face5Position',
-        Condition => '$$self{FacesDetected} >= 5',
-        Format => 'int16u[4]',
-    },
-    0xf8 => {
-        Name => 'Face6Position',
-        Condition => '$$self{FacesDetected} >= 6',
-        Format => 'int16u[4]',
-    },
-    0x104 => {
-        Name => 'Face7Position',
-        Condition => '$$self{FacesDetected} >= 7',
-        Format => 'int16u[4]',
-    },
-    0x110 => {
-        Name => 'Face8Position',
-        Condition => '$$self{FacesDetected} >= 8',
-        Format => 'int16u[4]',
-    },
-);
-
-# firmware version information (ref PH)
-%Image::ExifTool::Ricoh::FirmwareInfo = (
-    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
-    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
-    WRITE_PROC => \&Image::ExifTool::WriteBinaryData,
-    CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
-    WRITABLE => 1,
-    0x00 => {
-        Name => 'FirmwareRevision',
-        Format => 'string[12]',
-    },
-    0x0c => {
-        Name => 'FirmwareRevision2',
-        Format => 'string[12]',
-    },
-);
-
-# serial/version number information written by GXR (ref PH)
-%Image::ExifTool::Ricoh::SerialInfo = (
-    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
-    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
-    WRITE_PROC => \&Image::ExifTool::WriteBinaryData,
-    CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
-    WRITABLE => 1,
-    NOTES => 'This information is found in images from the GXR.',
-    0 => {
-        Name => 'BodyFirmware', #(NC)
-        Format => 'string[16]',
-        # observed: "RS1 :V00560000" --> FirmwareVersion "Rev0056"
-        #           "RS1 :V01020200" --> FirmwareVersion "Rev0102"
-    },
-    16 => {
-        Name => 'BodySerialNumber',
-        Format => 'string[16]',
-        # observed: "SID:00100056" --> "WD00100056" on plate
-    },
-    32 => {
-        Name => 'LensFirmware', #(NC)
-        Format => 'string[16]',
-        # observed: "RL1 :V00560000", "RL1 :V01020200" - A12 50mm F2.5 Macro
-        #           "RL2 :V00560000", "RL2 :V01020300" - S10 24-70mm F2.5-4.4 VC
-        # --> used in a Composite tag to determine LensType
-    },
-    48 => {
-        Name => 'LensSerialNumber',
-        Format => 'string[16]',
-        # observed: (S10) "LID:00010024" --> "WF00010024" on plate
-        #           (A12) "LID:00010054" --> "WE00010029" on plate??
-    },
-);
-
-# Ricoh text-type maker notes (PH)
-%Image::ExifTool::Ricoh::Text = (
-    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
-    PROCESS_PROC => \&ProcessRicohText,
-    NOTES => q{
-        Some Ricoh DC and RDC models use a text-based format for their maker notes
-        instead of the IFD format used by the Caplio models.  Below is a list of known
-        tags in this information.
-    },
-    Rev => {
-        Name => 'FirmwareVersion',
-        PrintConv => '$val=~/^\d+$/ ? sprintf("%.2f",$val/100) : $val',
-        PrintConvInv => '$val=~/^(\d+)\.(\d+)$/ ? sprintf("%.2d%.2d",$1,$2) : $val',
-    },
-    Rv => {
-        Name => 'FirmwareVersion',
-        PrintConv => '$val=~/^\d+$/ ? sprintf("%.2f",$val/100) : $val',
-        PrintConvInv => '$val=~/^(\d+)\.(\d+)$/ ? sprintf("%.2d%.2d",$1,$2) : $val',
-    },
-    Rg => 'RedGain',
-    Gg => 'GreenGain',
-    Bg => 'BlueGain',
-);
-
-%Image::ExifTool::Ricoh::RMETA = (
-    GROUPS => { 0 => 'APP5', 1 => 'RMETA', 2 => 'Image' },
-    PROCESS_PROC => \&Image::ExifTool::Ricoh::ProcessRicohRMETA,
-    NOTES => q{
-        The Ricoh Caplio Pro G3 has the ability to add custom fields to the APP5
-        "RMETA" segment of JPEG images.  While only a few observed tags have been
-        defined below, ExifTool will extract any information found here.
-    },
-    'Sign type' => { Name => 'SignType', PrintConv => {
-        1 => 'Directional',
-        2 => 'Warning',
-        3 => 'Information',
-    } },
-    Location => { PrintConv => {
-        1 => 'Verge',
-        2 => 'Gantry',
-        3 => 'Central reservation',
-        4 => 'Roundabout',
-    } },
-    Lit => { PrintConv => {
-        1 => 'Yes',
-        2 => 'No',
-    } },
-    Condition => { PrintConv => {
-        1 => 'Good',
-        2 => 'Fair',
-        3 => 'Poor',
-        4 => 'Damaged',
-    } },
-    Azimuth => { PrintConv => {
-        1 => 'N',
-        2 => 'NNE',
-        3 => 'NE',
-        4 => 'ENE',
-        5 => 'E',
-        6 => 'ESE',
-        7 => 'SE',
-        8 => 'SSE',
-        9 => 'S',
-        10 => 'SSW',
-        11 => 'SW',
-        12 => 'WSW',
-        13 => 'W',
-        14 => 'WNW',
-        15 => 'NW',
-        16 => 'NNW',
-    } },
-    _audio => {
-        Name => 'SoundFile',
-        Notes => 'audio data recorded in JPEG images by the G700SE',
-    },
-);
-
-# information stored in Ricoh AVI images (ref PH)
-%Image::ExifTool::Ricoh::AVI = (
-    GROUPS => { 0 => 'MakerNotes', 2 => 'Video' },
-    ucmt => {
-        Name => 'Comment',
-        # Ricoh writes a "Unicode" header even when text is ASCII (spaces anyway)
-        ValueConv => '$_=$val; s/^(Unicode\0|ASCII\0\0\0)//; tr/\0//d; s/\s+$//; $_',
-    },
-    mnrt => {
-        Name => 'MakerNoteRicoh',
-        SubDirectory => {
-            TagTable => 'Image::ExifTool::Ricoh::Main',
-            Start => '$valuePtr + 8',
-            ByteOrder => 'BigEndian',
-            Base => '8',
-        },
-    },
-    rdc2 => {
-        Name => 'RicohRDC2',
-        Unknown => 1,
-        ValueConv => 'unpack("H*",$val)',
-        # have seen values like 0a000444 and 00000000 - PH
-    },
-    thum => {
-        Name => 'ThumbnailImage',
-        Binary => 1,
-    },
-);
-
-# Ricoh composite tags
-%Image::ExifTool::Ricoh::Composite = (
-    GROUPS => { 2 => 'Camera' },
-    LensID => {
-        SeparateTable => 'Ricoh LensID',
-        Require => 'Ricoh:LensFirmware',
-        RawConv => '$val[0] ? $val[0] : undef',
-        ValueConv => '$val=~s/\s*:.*//; $val',
-        PrintConv => \%ricohLensIDs,
-    },
-    RicohPitch => {
-        Require => 'Ricoh:Accelerometer',
-        ValueConv => 'my @v = split(" ",$val); $v[1]',
-    },
-    RicohRoll => {
-        Require => 'Ricoh:Accelerometer',
-        ValueConv => 'my @v = split(" ",$val); $v[0] <= 180 ? $v[0] : $v[0] - 360',
-    },
-);
-
-# add our composite tags
-Image::ExifTool::AddCompositeTags('Image::ExifTool::Ricoh');
-
-
-#------------------------------------------------------------------------------
-# Process Ricoh text-based maker notes
-# Inputs: 0) ExifTool object reference
-#         1) Reference to directory information hash
-#         2) Pointer to tag table for this directory
-# Returns: 1 on success, otherwise returns 0 and sets a Warning
-sub ProcessRicohText($$$)
-{
-    my ($et, $dirInfo, $tagTablePtr) = @_;
-    my $dataPt = $$dirInfo{DataPt};
-    my $dataLen = $$dirInfo{DataLen};
-    my $dirStart = $$dirInfo{DirStart} || 0;
-    my $dirLen = $$dirInfo{DirLen} || $dataLen - $dirStart;
-    my $verbose = $et->Options('Verbose');
-
-    my $data = substr($$dataPt, $dirStart, $dirLen);
-    return 1 if $data =~ /^\0/;     # blank Ricoh maker notes
-    # validate text maker notes
-    unless ($data =~ /^(Rev|Rv)/) {
-        $et->Warn('Bad Ricoh maker notes');
-        return 0;
-    }
-    while ($data =~ m/([A-Z][a-z]{1,2})([0-9A-F]+);/sg) {
-        my $tag = $1;
-        my $val = $2;
-        my $tagInfo = $et->GetTagInfo($tagTablePtr, $tag);
-        if ($verbose) {
-            $et->VerboseInfo($tag, $tagInfo,
-                Table  => $tagTablePtr,
-                Value  => $val,
-            );
-        }
-        unless ($tagInfo) {
-            next unless $$et{OPTIONS}{Unknown};
-            $tagInfo = {
-                Name => "Ricoh_Text_$tag",
-                Unknown => 1,
-                PrintConv => 'length($val) > 60 ? substr($val,0,55) . "[...]" : $val',
-            };
-            # add tag information to table
-            AddTagToTable($tagTablePtr, $tag, $tagInfo);
-        }
-        $et->FoundTag($tagInfo, $val);
-    }
-    return 1;
-}
-
-#------------------------------------------------------------------------------
-# Process Ricoh APP5 RMETA information
-# Inputs: 0) ExifTool ref, 1) dirInfo ref, 2) tag table ref
-# Returns: 1 on success, otherwise returns 0 and sets a Warning
-sub ProcessRicohRMETA($$$)
-{
-    my ($et, $dirInfo, $tagTablePtr) = @_;
-    my $dataPt = $$dirInfo{DataPt};
-    my $dirStart = $$dirInfo{DirStart};
-    my $dataLen = length($$dataPt);
-    my $dirLen = $dataLen - $dirStart;
-    my $verbose = $et->Options('Verbose');
-
-    $et->VerboseDir('Ricoh RMETA') if $verbose;
-    $dirLen > 6 or $et->Warn('Truncated Ricoh RMETA data', 1), return 0;
-    my $byteOrder = substr($$dataPt, $dirStart, 2);
-    SetByteOrder($byteOrder) or $et->Warn('Bad Ricoh RMETA data', 1), return 0;
-    my $rmetaNum = Get16u($dataPt, $dirStart+4);
-    if ($rmetaNum != 0) {
-        # not sure how to recognize audio, so do it by checking for "RIFF" header
-        # and assume all subsequent RMETA segments are part of the audio data
-        # (but it looks like the int16u at $dirStart+6 is the next block number
-        # if the data is continued, or 0 for the last block)
-        $dirLen < 14 and $et->Warn('Short Ricoh RMETA block', 1), return 0;
-        my $audioLen = Get16u($dataPt, $dirStart+12);
-        $audioLen + 14 > $dirLen and $et->Warn('Truncated Ricoh RMETA audio data', 1), return 0;
-        my $buff = substr($$dataPt, $dirStart + 14, $audioLen);
-        if ($audioLen >= 4 and substr($buff, 0, 4) eq 'RIFF') {
-            $et->HandleTag($tagTablePtr, '_audio', \$buff);
-        } elsif ($$et{VALUE}{SoundFile}) {
-            ${$$et{VALUE}{SoundFile}} .= $buff;
-        } else {
-            $et->Warn('Unknown Ricoh RMETA type', 1);
-            return 0;
-        }
-        return 1;
-    }
-    # standard RMETA tag directory
-    my (@tags, @vals, @nums, $valPos);
-    my $pos = $dirStart + 6;
-    while ($pos <= $dataLen - 4) {
-        my $type = Get16u($dataPt, $pos);
-        my $size = Get16u($dataPt, $pos + 2);
-        last unless $size;
-        $pos += 4;
-        $size -= 2;
-        if ($size < 0 or $pos + $size > $dataLen) {
-            $et->Warn('Corrupted Ricoh RMETA data', 1);
-            last;
-        }
-        if ($type eq 1) {
-            # save the tag names
-            my $tags = substr($$dataPt, $pos, $size);
-            $tags =~ s/\0+$//;  # remove trailing nulls
-            @tags = split /\0/, $tags;
-        } elsif ($type eq 2) {
-            # save the ASCII tag values
-            my $vals = substr($$dataPt, $pos, $size);
-            $vals =~ s/\0+$//;
-            @vals = split /\0/, $vals;
-            $valPos = $pos; # save position of first ASCII value
-        } elsif ($type eq 3) {
-            # save the numerical tag values
-            my $nums = substr($$dataPt, $pos, $size);
-            @nums = unpack($byteOrder eq 'MM' ? 'n*' : 'v*', $nums);
-        } elsif ($type eq 0) {
-            $pos += 2;  # why 2 extra bytes?
-        }
-        $pos += $size;
-    }
-    if (@tags or @vals) {
-        if (@tags < @vals) {
-            my ($nt, $nv) = (scalar(@tags), scalar(@vals));
-            $et->Warn("Fewer tags ($nt) than values ($nv) in Ricoh RMETA", 1);
-        }
-        # find next tag in null-delimited list
-        # unpack numerical values from block of int16u values
-        my ($tag, $name, $val);
-        foreach $tag (@tags) {
-            $val = shift @vals;
-            $val = '' unless defined $val;
-            ($name = $tag) =~ s/\b([a-z])/\U$1/gs;  # make capitalize all words
-            $name =~ s/ (\w)/\U$1/g;                # remove special characters
-            $name = 'RMETA_Unknown' unless length($name);
-            my $num = shift @nums;
-            my $tagInfo = $et->GetTagInfo($tagTablePtr, $tag);
-            if ($tagInfo) {
-                # make sure print conversion is defined
-                $$tagInfo{PrintConv} = { } unless ref $$tagInfo{PrintConv} eq 'HASH';
-            } else {
-                # create tagInfo hash
-                $tagInfo = { Name => $name, PrintConv => { } };
-                AddTagToTable($tagTablePtr, $tag, $tagInfo);
-            }
-            # use string value directly if no numerical value
-            $num = $val unless defined $num;
-            # add conversion for this value (replacing any existing entry)
-            $tagInfo->{PrintConv}->{$num} = length $val ? $val : $num;
-            if ($verbose) {
-                $et->VerboseInfo($tag, $tagInfo,
-                    Table   => $tagTablePtr,
-                    Value   => $num,
-                    DataPt  => $dataPt,
-                    DataPos => $$dirInfo{DataPos},
-                    Start   => $valPos,
-                    Size    => length($val),
-                );
-            }
-            $et->FoundTag($tagInfo, $num);
-            $valPos += length($val) + 1;
-        }
-    }
-    return 1;
-}
-
-1;  # end
-
-__END__
-
-=head1 NAME
-
-Image::ExifTool::Ricoh - Ricoh EXIF maker notes tags
-
-=head1 SYNOPSIS
-
-This module is loaded automatically by Image::ExifTool when required.
-
-=head1 DESCRIPTION
-
-This module contains definitions required by Image::ExifTool to
-interpret Ricoh maker notes EXIF meta information.
-
-=head1 AUTHOR
-
-Copyright 2003-2014, 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.ozhiker.com/electronics/pjmt/jpeg_info/ricoh_mn.html>
-
-=back
-
-=head1 ACKNOWLEDGEMENTS
-
-Thanks to Tim Gray for his help decoding a number of tags for the Ricoh GR.
-
-=head1 SEE ALSO
-
-L<Image::ExifTool::TagNames/Ricoh Tags>,
-L<Image::ExifTool(3pm)|Image::ExifTool>
-
-=cut