exiftool_vendored 10.31.0 → 10.40.0

data/bin/Image-ExifTool-10.40/lib/Image/ExifTool/Ogg.pm

@@ -0,0 +1,240 @@
+#------------------------------------------------------------------------------
+# File:         Ogg.pm
+#
+# Description:  Read Ogg meta information
+#
+# Revisions:    2011/07/13 - P. Harvey Created (split from Vorbis.pm)
+#               2016/07/14 - PH Added Ogg Opus support
+#
+# References:   1) http://www.xiph.org/vorbis/doc/
+#               2) http://flac.sourceforge.net/ogg_mapping.html
+#               3) http://www.theora.org/doc/Theora.pdf
+#------------------------------------------------------------------------------
+
+package Image::ExifTool::Ogg;
+
+use strict;
+use vars qw($VERSION);
+use Image::ExifTool qw(:DataAccess :Utils);
+
+$VERSION = '1.02';
+
+my $MAX_PACKETS = 2;    # maximum packets to scan from each stream at start of file
+
+# Information types recognizedi in Ogg files
+%Image::ExifTool::Ogg::Main = (
+    NOTES => q{
+        ExifTool extracts the following types of information from Ogg files.  See
+        L<http://www.xiph.org/vorbis/doc/> for the Ogg specification.
+    },
+    # (these are for documentation purposes only, and aren't used by the code below)
+    vorbis => { SubDirectory => { TagTable => 'Image::ExifTool::Vorbis::Main' } },
+    theora => { SubDirectory => { TagTable => 'Image::ExifTool::Theora::Main' } },
+    Opus   => { SubDirectory => { TagTable => 'Image::ExifTool::Opus::Main' } },
+    FLAC   => { SubDirectory => { TagTable => 'Image::ExifTool::FLAC::Main' } },
+    ID3    => { SubDirectory => { TagTable => 'Image::ExifTool::ID3::Main' } },
+);
+
+#------------------------------------------------------------------------------
+# Process Ogg packet
+# Inputs: 0) ExifTool object ref, 1) data ref
+# Returns: 1 on success
+sub ProcessPacket($$)
+{
+    my ($et, $dataPt) = @_;
+    my $rtnVal = 0;
+    if ($$dataPt =~ /^(.)(vorbis|theora)/s or $$dataPt =~ /^(OpusHead|OpusTags)/) {
+        my ($tag, $type, $pos) = $2 ? (ord($1), ucfirst($2), 7) : ($1, 'Opus', 8);
+        # this is an OGV file if it contains Theora video
+        $et->OverrideFileType('OGV') if $type eq 'Theora' and $$et{FILE_TYPE} eq 'OGG';
+        $et->OverrideFileType('OPUS') if $type eq 'Opus' and $$et{FILE_TYPE} eq 'OGG';
+        my $tagTablePtr = GetTagTable("Image::ExifTool::${type}::Main");
+        my $tagInfo = $et->GetTagInfo($tagTablePtr, $tag);
+        return 0 unless $tagInfo and $$tagInfo{SubDirectory};
+        my $subdir = $$tagInfo{SubDirectory};
+        my %dirInfo = (
+            DataPt   => $dataPt,
+            DirName  => $$tagInfo{Name},
+            DirStart => $pos,
+        );
+        my $table = GetTagTable($$subdir{TagTable});
+        # set group1 so Theoris comments can be distinguised from Vorbis comments
+        $$et{SET_GROUP1} = $type if $type eq 'Theora';
+        SetByteOrder($$subdir{ByteOrder}) if $$subdir{ByteOrder};
+        $rtnVal = $et->ProcessDirectory(\%dirInfo, $table);
+        SetByteOrder('II');
+        delete $$et{SET_GROUP1};
+    }
+    return $rtnVal;
+}
+
+#------------------------------------------------------------------------------
+# Extract information from an Ogg file
+# Inputs: 0) ExifTool object reference, 1) dirInfo reference
+# Returns: 1 on success, 0 if this wasn't a valid Ogg file
+sub ProcessOGG($$)
+{
+    my ($et, $dirInfo) = @_;
+
+    # must first check for leading/trailing ID3 information
+    unless ($$et{DoneID3}) {
+        require Image::ExifTool::ID3;
+        Image::ExifTool::ID3::ProcessID3($et, $dirInfo) and return 1;
+    }
+    my $raf = $$dirInfo{RAF};
+    my $verbose = $et->Options('Verbose');
+    my $out = $et->Options('TextOut');
+    my ($success, $page, $packets, $streams, $stream) = (0,0,0,0,'');
+    my ($buff, $flag, %val, $numFlac, %streamPage);
+
+    for (;;) {
+        # must read ahead to next page to see if it is a continuation
+        # (this code would be a lot simpler if the continuation flag
+        #  was on the leading instead of the trailing page!)
+        if ($raf and $raf->Read($buff, 28) == 28) {
+            # validate magic number
+            unless ($buff =~ /^OggS/) {
+                $success and $et->Warn('Lost synchronization');
+                last;
+            }
+            unless ($success) {
+                # set file type and initialize on first page
+                $success = 1;
+                $et->SetFileType();
+                SetByteOrder('II');
+            }
+            $flag = Get8u(\$buff, 5);       # page flag
+            $stream = Get32u(\$buff, 14);   # stream serial number
+            if ($flag & 0x02) {
+                ++$streams;                 # count start-of-stream pages
+                $streamPage{$stream} = $page = 0;
+            } else {
+                $page = $streamPage{$stream};
+            }
+            ++$packets unless $flag & 0x01; # keep track of packet count
+        } else {
+            # all done unless we have to process our last packet
+            last unless %val;
+            ($stream) = sort keys %val;     # take a stream
+            $flag = 0;                      # no continuation
+            undef $raf;                     # flag for done reading
+        }
+
+        if (defined $numFlac) {
+            # stop to process FLAC headers if we hit the end of file
+            last unless $raf;
+            --$numFlac; # one less header packet to read
+        } else {
+            # can finally process previous packet from this stream
+            # unless this is a continuation page
+            if (defined $val{$stream} and not $flag & 0x01) {
+                ProcessPacket($et, \$val{$stream});
+                delete $val{$stream};
+                # only read the first $MAX_PACKETS packets from each stream
+                if ($packets > $MAX_PACKETS * $streams or not defined $raf) {
+                    last unless %val;   # all done (success!)
+                }
+            }
+            # stop processing Ogg if we have scanned enough packets
+            last if $packets > $MAX_PACKETS * $streams and not %val;
+        }
+
+        # continue processing the current page
+        my $pageNum = Get32u(\$buff, 18);   # page sequence number
+        my $nseg = Get8u(\$buff, 26);       # number of segments
+        # calculate total data length
+        my $dataLen = Get8u(\$buff, 27);
+        if ($nseg) {
+            $raf->Read($buff, $nseg-1) == $nseg-1 or last;
+            my @segs = unpack('C*', $buff);
+            # could check that all these (but the last) are 255...
+            foreach (@segs) { $dataLen += $_ }
+        }
+        if (defined $page) {
+            if ($page == $pageNum) {
+                $streamPage{$stream} = ++$page;
+            } else {
+                $et->Warn('Missing page(s) in Ogg file');
+                undef $page;
+                delete $streamPage{$stream};
+            }
+        }
+        # read page data
+        $raf->Read($buff, $dataLen) == $dataLen or last;
+        if ($verbose > 1) {
+            printf $out "Page %d, stream 0x%x, flag 0x%x (%d bytes)\n",
+                   $pageNum, $stream, $flag, $dataLen;
+            $et->VerboseDump(\$buff, DataPos => $raf->Tell() - $dataLen);
+        }
+        if (defined $val{$stream}) {
+            $val{$stream} .= $buff;     # add this continuation page
+        } elsif (not $flag & 0x01) {    # ignore remaining pages of a continued packet
+            # ignore the first page of any packet we aren't parsing
+            if ($buff =~ /^(.(vorbis|theora)|Opus(Head|Tags))/s) {
+                $val{$stream} = $buff;      # save this page
+            } elsif ($buff =~ /^\x7fFLAC..(..)/s) {
+                $numFlac = unpack('n',$1);
+                $val{$stream} = substr($buff, 9);
+            }
+        }
+        if (defined $numFlac) {
+            # stop to process FLAC headers if we have them all
+            last if $numFlac <= 0;
+        } elsif (defined $val{$stream} and $flag & 0x04) {
+            # process Ogg packet now if end-of-stream bit is set
+            ProcessPacket($et, \$val{$stream});
+            delete $val{$stream};
+        }
+    }
+    if (defined $numFlac and defined $val{$stream}) {
+        # process FLAC headers as if it was a complete FLAC file
+        require Image::ExifTool::FLAC;
+        my %dirInfo = ( RAF => new File::RandomAccess(\$val{$stream}) );
+        Image::ExifTool::FLAC::ProcessFLAC($et, \%dirInfo);
+    }
+    return $success;
+}
+
+1;  # end
+
+__END__
+
+=head1 NAME
+
+Image::ExifTool::Ogg - Read Ogg meta information
+
+=head1 SYNOPSIS
+
+This module is used by Image::ExifTool
+
+=head1 DESCRIPTION
+
+This module contains definitions required by Image::ExifTool to extract meta
+information from Ogg bitstream container files.
+
+=head1 AUTHOR
+
+Copyright 2003-2017, 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.xiph.org/vorbis/doc/>
+
+=item L<http://flac.sourceforge.net/ogg_mapping.html>
+
+=item L<http://www.theora.org/doc/Theora.pdf>
+
+=back
+
+=head1 SEE ALSO
+
+L<Image::ExifTool::TagNames/Ogg Tags>,
+L<Image::ExifTool(3pm)|Image::ExifTool>
+
+=cut
+

data/bin/Image-ExifTool-10.40/lib/Image/ExifTool/Olympus.pm

@@ -0,0 +1,3998 @@
+#------------------------------------------------------------------------------
+# File:         Olympus.pm
+#
+# Description:  Olympus/Epson EXIF maker notes tags
+#
+# Revisions:    12/09/2003 - P. Harvey Created
+#               11/11/2004 - P. Harvey Added Epson support
+#
+# References:   1) http://park2.wakwak.com/~tsuruzoh/Computer/Digicams/exif-e.html
+#               2) http://www.cybercom.net/~dcoffin/dcraw/
+#               3) http://www.ozhiker.com/electronics/pjmt/jpeg_info/olympus_mn.html
+#               4) Markku H�nninen private communication (tests with E-1)
+#               5) R�mi Guyomarch from http://forums.dpreview.com/forums/read.asp?forum=1022&message=12790396
+#               6) Frank Ledwon private communication (tests with E/C-series cameras)
+#               7) Michael Meissner private communication
+#               8) Shingo Noguchi, PhotoXP (http://www.daifukuya.com/photoxp/)
+#               9) Mark Dapoz private communication
+#              10) Lilo Huang private communication (E-330)
+#              11) http://olypedia.de/Olympus_Makernotes (May 30, 2013)
+#              12) Ioannis Panagiotopoulos private communication (E-510)
+#              13) Chris Shaw private communication (E-3)
+#              14) Viktor Lushnikov private communication (E-400)
+#              15) Yrjo Rauste private communication (E-30)
+#              16) Godfrey DiGiorgi private communcation (E-P1) + http://forums.dpreview.com/forums/read.asp?message=33187567
+#              17) Martin Hibers private communication
+#              18) Tomasz Kawecki private communication
+#              19) Brad Grier private communication
+#              22) Herbert Kauer private communication
+#              23) Daniel Pollock private communication (PEN-F)
+#              IB) Iliah Borg private communication (LibRaw)
+#              NJ) Niels Kristian Bech Jensen private communication
+#------------------------------------------------------------------------------
+
+package Image::ExifTool::Olympus;
+
+use strict;
+use vars qw($VERSION);
+use Image::ExifTool qw(:DataAccess :Utils);
+use Image::ExifTool::Exif;
+use Image::ExifTool::APP12;
+
+$VERSION = '2.47';
+
+sub PrintLensInfo($$$);
+
+my %offOn = ( 0 => 'Off', 1 => 'On' );
+
+# lookup for Olympus LensType values
+# (as of ExifTool 9.15, this was the complete list of chipped lenses at www.four-thirds.org)
+my %olympusLensTypes = (
+    Notes => q{
+        The numerical values below are given in hexadecimal.  (Prior to ExifTool
+        9.15 these were in decimal.)
+    },
+    '0 00 00' => 'None',
+    # Olympus lenses (also Kenko Tokina)
+    '0 01 00' => 'Olympus Zuiko Digital ED 50mm F2.0 Macro',
+    '0 01 01' => 'Olympus Zuiko Digital 40-150mm F3.5-4.5', #8
+    '0 01 10' => 'Olympus M.Zuiko Digital ED 14-42mm F3.5-5.6', #PH (E-P1 pre-production)
+    '0 02 00' => 'Olympus Zuiko Digital ED 150mm F2.0',
+    '0 02 10' => 'Olympus M.Zuiko Digital 17mm F2.8 Pancake', #PH (E-P1 pre-production)
+    '0 03 00' => 'Olympus Zuiko Digital ED 300mm F2.8',
+    '0 03 10' => 'Olympus M.Zuiko Digital ED 14-150mm F4.0-5.6 [II]', #11 (The second version of this lens seems to have the same lens ID number as the first version #NJ)
+    '0 04 10' => 'Olympus M.Zuiko Digital ED 9-18mm F4.0-5.6', #11
+    '0 05 00' => 'Olympus Zuiko Digital 14-54mm F2.8-3.5',
+    '0 05 01' => 'Olympus Zuiko Digital Pro ED 90-250mm F2.8', #9
+    '0 05 10' => 'Olympus M.Zuiko Digital ED 14-42mm F3.5-5.6 L', #11 (E-PL1)
+    '0 06 00' => 'Olympus Zuiko Digital ED 50-200mm F2.8-3.5',
+    '0 06 01' => 'Olympus Zuiko Digital ED 8mm F3.5 Fisheye', #9
+    '0 06 10' => 'Olympus M.Zuiko Digital ED 40-150mm F4.0-5.6', #PH
+    '0 07 00' => 'Olympus Zuiko Digital 11-22mm F2.8-3.5',
+    '0 07 01' => 'Olympus Zuiko Digital 18-180mm F3.5-6.3', #6
+    '0 07 10' => 'Olympus M.Zuiko Digital ED 12mm F2.0', #PH
+    '0 08 01' => 'Olympus Zuiko Digital 70-300mm F4.0-5.6', #7 (seen as release 1 - PH)
+    '0 08 10' => 'Olympus M.Zuiko Digital ED 75-300mm F4.8-6.7', #PH
+    '0 09 10' => 'Olympus M.Zuiko Digital 14-42mm F3.5-5.6 II', #PH (E-PL2)
+    '0 10 01' => 'Kenko Tokina Reflex 300mm F6.3 MF Macro', #NJ
+    '0 10 10' => 'Olympus M.Zuiko Digital ED 12-50mm F3.5-6.3 EZ', #PH
+    '0 11 10' => 'Olympus M.Zuiko Digital 45mm F1.8', #17
+    '0 12 10' => 'Olympus M.Zuiko Digital ED 60mm F2.8 Macro', #NJ
+    '0 13 10' => 'Olympus M.Zuiko Digital 14-42mm F3.5-5.6 II R', #PH/NJ
+    '0 14 10' => 'Olympus M.Zuiko Digital ED 40-150mm F4.0-5.6 R', #19
+  # '0 14 10.1' => 'Olympus M.Zuiko Digital ED 14-150mm F4.0-5.6 II', #11 (questionable & unconfirmed -- all samples I can find are '0 3 10' - PH)
+    '0 15 00' => 'Olympus Zuiko Digital ED 7-14mm F4.0',
+    '0 15 10' => 'Olympus M.Zuiko Digital ED 75mm F1.8', #PH
+    '0 16 10' => 'Olympus M.Zuiko Digital 17mm F1.8', #NJ
+    '0 17 00' => 'Olympus Zuiko Digital Pro ED 35-100mm F2.0', #7
+    '0 18 00' => 'Olympus Zuiko Digital 14-45mm F3.5-5.6',
+    '0 18 10' => 'Olympus M.Zuiko Digital ED 75-300mm F4.8-6.7 II', #NJ
+    '0 19 10' => 'Olympus M.Zuiko Digital ED 12-40mm F2.8 Pro', #PH
+    '0 20 00' => 'Olympus Zuiko Digital 35mm F3.5 Macro', #9
+    '0 20 10' => 'Olympus M.Zuiko Digital ED 40-150mm F2.8 Pro', #NJ
+    '0 21 10' => 'Olympus M.Zuiko Digital ED 14-42mm F3.5-5.6 EZ', #NJ
+    '0 22 00' => 'Olympus Zuiko Digital 17.5-45mm F3.5-5.6', #9
+    '0 22 10' => 'Olympus M.Zuiko Digital 25mm F1.8', #NJ
+    '0 23 00' => 'Olympus Zuiko Digital ED 14-42mm F3.5-5.6', #PH
+    '0 23 10' => 'Olympus M.Zuiko Digital ED 7-14mm F2.8 Pro', #NJ
+    '0 24 00' => 'Olympus Zuiko Digital ED 40-150mm F4.0-5.6', #PH
+    '0 24 10' => 'Olympus M.Zuiko Digital ED 300mm F4.0 IS Pro', #NJ
+    '0 25 10' => 'Olympus M.Zuiko Digital ED 8mm F1.8 Fisheye Pro', #NJ
+    '0 26 10' => 'Olympus M.Zuiko Digital ED 12-100mm F4.0 IS Pro', #IB/NJ
+    '0 27 10' => 'Olympus M.Zuiko Digital ED 30mm F3.5 Macro', #IB/NJ
+    '0 28 10' => 'Olympus M.Zuiko Digital ED 25mm F1.2 Pro', #IB/NJ
+    '0 30 00' => 'Olympus Zuiko Digital ED 50-200mm F2.8-3.5 SWD', #7
+    '0 31 00' => 'Olympus Zuiko Digital ED 12-60mm F2.8-4.0 SWD', #7
+    '0 32 00' => 'Olympus Zuiko Digital ED 14-35mm F2.0 SWD', #PH
+    '0 33 00' => 'Olympus Zuiko Digital 25mm F2.8', #PH
+    '0 34 00' => 'Olympus Zuiko Digital ED 9-18mm F4.0-5.6', #7
+    '0 35 00' => 'Olympus Zuiko Digital 14-54mm F2.8-3.5 II', #PH
+    # Sigma lenses
+    '1 01 00' => 'Sigma 18-50mm F3.5-5.6 DC', #8
+    '1 01 10' => 'Sigma 30mm F2.8 EX DN', #NJ
+    '1 02 00' => 'Sigma 55-200mm F4.0-5.6 DC',
+    '1 02 10' => 'Sigma 19mm F2.8 EX DN', #NJ
+    '1 03 00' => 'Sigma 18-125mm F3.5-5.6 DC',
+    '1 03 10' => 'Sigma 30mm F2.8 DN | A', #NJ
+    '1 04 00' => 'Sigma 18-125mm F3.5-5.6 DC', #7
+    '1 04 10' => 'Sigma 19mm F2.8 DN | A', #NJ
+    '1 05 00' => 'Sigma 30mm F1.4 EX DC HSM', #10
+    '1 05 10' => 'Sigma 60mm F2.8 DN | A', #NJ
+    '1 06 00' => 'Sigma APO 50-500mm F4.0-6.3 EX DG HSM', #6
+    '1 06 10' => 'Sigma 30mm F1.4 DC DN | C', #NJ
+    '1 07 00' => 'Sigma Macro 105mm F2.8 EX DG', #PH
+    '1 08 00' => 'Sigma APO Macro 150mm F2.8 EX DG HSM', #PH
+    '1 09 00' => 'Sigma 18-50mm F2.8 EX DC Macro', #NJ
+    '1 10 00' => 'Sigma 24mm F1.8 EX DG Aspherical Macro', #PH
+    '1 11 00' => 'Sigma APO 135-400mm F4.5-5.6 DG', #11
+    '1 12 00' => 'Sigma APO 300-800mm F5.6 EX DG HSM', #11
+    '1 13 00' => 'Sigma 30mm F1.4 EX DC HSM', #11
+    '1 14 00' => 'Sigma APO 50-500mm F4.0-6.3 EX DG HSM', #11
+    '1 15 00' => 'Sigma 10-20mm F4.0-5.6 EX DC HSM', #11
+    '1 16 00' => 'Sigma APO 70-200mm F2.8 II EX DG Macro HSM', #11
+    '1 17 00' => 'Sigma 50mm F1.4 EX DG HSM', #11
+    # Panasonic/Leica lenses
+    '2 01 00' => 'Leica D Vario Elmarit 14-50mm F2.8-3.5 Asph.', #11
+    '2 01 10' => 'Lumix G Vario 14-45mm F3.5-5.6 Asph. Mega OIS', #16
+    '2 02 00' => 'Leica D Summilux 25mm F1.4 Asph.', #11
+    '2 02 10' => 'Lumix G Vario 45-200mm F4.0-5.6 Mega OIS', #16
+    '2 03 00' => 'Leica D Vario Elmar 14-50mm F3.8-5.6 Asph. Mega OIS', #11
+    '2 03 01' => 'Leica D Vario Elmar 14-50mm F3.8-5.6 Asph.', #14 (L10 kit)
+    '2 03 10' => 'Lumix G Vario HD 14-140mm F4.0-5.8 Asph. Mega OIS', #16
+    '2 04 00' => 'Leica D Vario Elmar 14-150mm F3.5-5.6', #13
+    '2 04 10' => 'Lumix G Vario 7-14mm F4.0 Asph.', #PH (E-P1 pre-production)
+    '2 05 10' => 'Lumix G 20mm F1.7 Asph.', #16
+    '2 06 10' => 'Leica DG Macro-Elmarit 45mm F2.8 Asph. Mega OIS', #PH
+    '2 07 10' => 'Lumix G Vario 14-42mm F3.5-5.6 Asph. Mega OIS', #NJ
+    '2 08 10' => 'Lumix G Fisheye 8mm F3.5', #PH
+    '2 09 10' => 'Lumix G Vario 100-300mm F4.0-5.6 Mega OIS', #11
+    '2 10 10' => 'Lumix G 14mm F2.5 Asph.', #17
+    '2 11 10' => 'Lumix G 12.5mm F12 3D', #NJ (H-FT012)
+    '2 12 10' => 'Leica DG Summilux 25mm F1.4 Asph.', #NJ
+    '2 13 10' => 'Lumix G X Vario PZ 45-175mm F4.0-5.6 Asph. Power OIS', #NJ
+    '2 14 10' => 'Lumix G X Vario PZ 14-42mm F3.5-5.6 Asph. Power OIS', #NJ
+    '2 15 10' => 'Lumix G X Vario 12-35mm F2.8 Asph. Power OIS', #PH
+    '2 16 10' => 'Lumix G Vario 45-150mm F4.0-5.6 Asph. Mega OIS', #NJ
+    '2 17 10' => 'Lumix G X Vario 35-100mm F2.8 Power OIS', #PH
+    '2 18 10' => 'Lumix G Vario 14-42mm F3.5-5.6 II Asph. Mega OIS', #NJ
+    '2 19 10' => 'Lumix G Vario 14-140mm F3.5-5.6 Asph. Power OIS', #NJ
+    '2 20 10' => 'Lumix G Vario 12-32mm F3.5-5.6 Asph. Mega OIS', #NJ
+    '2 21 10' => 'Leica DG Nocticron 42.5mm F1.2 Asph. Power OIS', #NJ
+    '2 22 10' => 'Leica DG Summilux 15mm F1.7 Asph.', #NJ
+    '2 23 10' => 'Lumix G Vario 35-100mm F4.0-5.6 Asph. Mega OIS', #NJ
+    '2 24 10' => 'Lumix G Macro 30mm F2.8 Asph. Mega OIS', #NJ
+    '2 25 10' => 'Lumix G 42.5mm F1.7 Asph. Power OIS', #NJ
+    '2 26 10' => 'Lumix G 25mm F1.7 Asph.', #NJ
+    '2 27 10' => 'Leica DG Vario-Elmar 100-400mm F4.0-6.3 Asph. Power OIS', #NJ
+    '2 28 10' => 'Lumix G Vario 12-60mm F3.5-5.6 Asph. Power OIS', #NJ
+    '3 01 00' => 'Leica D Vario Elmarit 14-50mm F2.8-3.5 Asph.', #11
+    '3 02 00' => 'Leica D Summilux 25mm F1.4 Asph.', #11
+    # Tamron lenses
+    '5 01 10' => 'Tamron 14-150mm F3.5-5.8 Di III', #NJ (model C001)
+);
+
+# lookup for Olympus camera types (ref PH)
+my %olympusCameraTypes = (
+    Notes => q{
+        These values are currently decoded only for Olympus models.  Models with
+        Olympus-style maker notes from other brands such as Acer, BenQ, Hitachi, HP,
+        Premier, Konica-Minolta, Maginon, Ricoh, Rollei, SeaLife, Sony, Supra,
+        Vivitar are not listed.
+    },
+    D4028 => 'X-2,C-50Z',
+    D4029 => 'E-20,E-20N,E-20P',
+    D4034 => 'C720UZ',
+    D4040 => 'E-1',
+    D4041 => 'E-300',
+    D4083 => 'C2Z,D520Z,C220Z',
+    D4106 => 'u20D,S400D,u400D',
+    D4120 => 'X-1',
+    D4122 => 'u10D,S300D,u300D',
+    D4125 => 'AZ-1',
+    D4141 => 'C150,D390',
+    D4193 => 'C-5000Z',
+    D4194 => 'X-3,C-60Z',
+    D4199 => 'u30D,S410D,u410D',
+    D4205 => 'X450,D535Z,C370Z',
+    D4210 => 'C160,D395',
+    D4211 => 'C725UZ',
+    D4213 => 'FerrariMODEL2003',
+    D4216 => 'u15D',
+    D4217 => 'u25D',
+    D4220 => 'u-miniD,Stylus V',
+    D4221 => 'u40D,S500,uD500',
+    D4231 => 'FerrariMODEL2004',
+    D4240 => 'X500,D590Z,C470Z',
+    D4244 => 'uD800,S800',
+    D4256 => 'u720SW,S720SW',
+    D4261 => 'X600,D630,FE5500',
+    D4262 => 'uD600,S600',
+    D4301 => 'u810/S810', # (yes, "/".  Olympus is not consistent in the notation)
+    D4302 => 'u710,S710',
+    D4303 => 'u700,S700',
+    D4304 => 'FE100,X710',
+    D4305 => 'FE110,X705',
+    D4310 => 'FE-130,X-720',
+    D4311 => 'FE-140,X-725',
+    D4312 => 'FE150,X730',
+    D4313 => 'FE160,X735',
+    D4314 => 'u740,S740',
+    D4315 => 'u750,S750',
+    D4316 => 'u730/S730',
+    D4317 => 'FE115,X715',
+    D4321 => 'SP550UZ',
+    D4322 => 'SP510UZ',
+    D4324 => 'FE170,X760',
+    D4326 => 'FE200',
+    D4327 => 'FE190/X750', # (also SX876)
+    D4328 => 'u760,S760',
+    D4330 => 'FE180/X745', # (also SX875)
+    D4331 => 'u1000/S1000',
+    D4332 => 'u770SW,S770SW',
+    D4333 => 'FE240/X795',
+    D4334 => 'FE210,X775',
+    D4336 => 'FE230/X790',
+    D4337 => 'FE220,X785',
+    D4338 => 'u725SW,S725SW',
+    D4339 => 'FE250/X800',
+    D4341 => 'u780,S780',
+    D4343 => 'u790SW,S790SW',
+    D4344 => 'u1020,S1020',
+    D4346 => 'FE15,X10',
+    D4348 => 'FE280,X820,C520',
+    D4349 => 'FE300,X830',
+    D4350 => 'u820,S820',
+    D4351 => 'u1200,S1200',
+    D4352 => 'FE270,X815,C510',
+    D4353 => 'u795SW,S795SW',
+    D4354 => 'u1030SW,S1030SW',
+    D4355 => 'SP560UZ',
+    D4356 => 'u1010,S1010',
+    D4357 => 'u830,S830',
+    D4359 => 'u840,S840',
+    D4360 => 'FE350WIDE,X865',
+    D4361 => 'u850SW,S850SW',
+    D4362 => 'FE340,X855,C560',
+    D4363 => 'FE320,X835,C540',
+    D4364 => 'SP570UZ',
+    D4366 => 'FE330,X845,C550',
+    D4368 => 'FE310,X840,C530',
+    D4370 => 'u1050SW,S1050SW',
+    D4371 => 'u1060,S1060',
+    D4372 => 'FE370,X880,C575',
+    D4374 => 'SP565UZ',
+    D4377 => 'u1040,S1040',
+    D4378 => 'FE360,X875,C570',
+    D4379 => 'FE20,X15,C25',
+    D4380 => 'uT6000,ST6000',
+    D4381 => 'uT8000,ST8000',
+    D4382 => 'u9000,S9000',
+    D4384 => 'SP590UZ',
+    D4385 => 'FE3010,X895',
+    D4386 => 'FE3000,X890',
+    D4387 => 'FE35,X30',
+    D4388 => 'u550WP,S550WP',
+    D4390 => 'FE5000,X905',
+    D4391 => 'u5000',
+    D4392 => 'u7000,S7000',
+    D4396 => 'FE5010,X915',
+    D4397 => 'FE25,X20',
+    D4398 => 'FE45,X40',
+    D4401 => 'XZ-1',
+    D4402 => 'uT6010,ST6010',
+    D4406 => 'u7010,S7010 / u7020,S7020',
+    D4407 => 'FE4010,X930',
+    D4408 => 'X560WP',
+    D4409 => 'FE26,X21',
+    D4410 => 'FE4000,X920,X925',
+    D4411 => 'FE46,X41,X42',
+    D4412 => 'FE5020,X935',
+    D4413 => 'uTough-3000',
+    D4414 => 'StylusTough-6020',
+    D4415 => 'StylusTough-8010',
+    D4417 => 'u5010,S5010',
+    D4418 => 'u7040,S7040',
+    D4419 => 'u9010,S9010',
+    D4423 => 'FE4040',
+    D4424 => 'FE47,X43',
+    D4426 => 'FE4030,X950',
+    D4428 => 'FE5030,X965,X960',
+    D4430 => 'u7030,S7030',
+    D4432 => 'SP600UZ',
+    D4434 => 'SP800UZ',
+    D4439 => 'FE4020,X940',
+    D4442 => 'FE5035',
+    D4448 => 'FE4050,X970',
+    D4450 => 'FE5050,X985',
+    D4454 => 'u-7050',
+    D4464 => 'T10,X27',
+    D4470 => 'FE5040,X980',
+    D4472 => 'TG-310',
+    D4474 => 'TG-610',
+    D4476 => 'TG-810',
+    D4478 => 'VG145,VG140,D715',
+    D4479 => 'VG130,D710',
+    D4480 => 'VG120,D705',
+    D4482 => 'VR310,D720',
+    D4484 => 'VR320,D725',
+    D4486 => 'VR330,D730',
+    D4488 => 'VG110,D700',
+    D4490 => 'SP-610UZ',
+    D4492 => 'SZ-10',
+    D4494 => 'SZ-20',
+    D4496 => 'SZ-30MR',
+    D4498 => 'SP-810UZ',
+    D4500 => 'SZ-11',
+    D4504 => 'TG-615',
+    D4508 => 'TG-620',
+    D4510 => 'TG-820',
+    D4512 => 'TG-1',
+    D4516 => 'SH-21',
+    D4519 => 'SZ-14',
+    D4520 => 'SZ-31MR',
+    D4521 => 'SH-25MR',
+    D4523 => 'SP-720UZ',
+    D4529 => 'VG170',
+    D4531 => 'XZ-2',
+    D4535 => 'SP-620UZ',
+    D4536 => 'TG-320',
+    D4537 => 'VR340,D750',
+    D4538 => 'VG160,X990,D745',
+    D4541 => 'SZ-12',
+    D4545 => 'VH410',
+    D4546 => 'XZ-10', #IB
+    D4547 => 'TG-2',
+    D4548 => 'TG-830',
+    D4549 => 'TG-630',
+    D4550 => 'SH-50',
+    D4553 => 'SZ-16,DZ-105',
+    D4562 => 'SP-820UZ',
+    D4566 => 'SZ-15',
+    D4572 => 'STYLUS1',
+    D4574 => 'TG-3',
+    D4575 => 'TG-850',
+    D4579 => 'SP-100EE',
+    D4580 => 'SH-60',
+    D4581 => 'SH-1',
+    D4582 => 'TG-835',
+    D4585 => 'SH-2 / SH-3',
+    D4586 => 'TG-4',
+    D4587 => 'TG-860',
+    D4591 => 'TG-870',
+    D4809 => 'C2500L',
+    D4842 => 'E-10',
+    D4856 => 'C-1',
+    D4857 => 'C-1Z,D-150Z',
+    DCHC => 'D500L',
+    DCHT => 'D600L / D620L',
+    K0055 => 'AIR-A01',
+    S0003 => 'E-330',
+    S0004 => 'E-500',
+    S0009 => 'E-400',
+    S0010 => 'E-510',
+    S0011 => 'E-3',
+    S0013 => 'E-410',
+    S0016 => 'E-420',
+    S0017 => 'E-30',
+    S0018 => 'E-520',
+    S0019 => 'E-P1',
+    S0023 => 'E-620',
+    S0026 => 'E-P2',
+    S0027 => 'E-PL1',
+    S0029 => 'E-450',
+    S0030 => 'E-600',
+    S0032 => 'E-P3',
+    S0033 => 'E-5',
+    S0034 => 'E-PL2',
+    S0036 => 'E-M5',
+    S0038 => 'E-PL3',
+    S0039 => 'E-PM1',
+    S0040 => 'E-PL1s',
+    S0042 => 'E-PL5',
+    S0043 => 'E-PM2',
+    S0044 => 'E-P5',
+    S0045 => 'E-PL6',
+    S0046 => 'E-PL7', #IB
+    S0047 => 'E-M1',
+    S0051 => 'E-M10',
+    S0052 => 'E-M5MarkII', #IB
+    S0059 => 'E-M10MarkII',
+    S0061 => 'PEN-F', #forum7005
+    S0065 => 'E-PL8',
+    S0067 => 'E-M1MarkII',
+    SR45 => 'D220',
+    SR55 => 'D320L',
+    SR83 => 'D340L',
+    SR85 => 'C830L,D340R',
+    SR852 => 'C860L,D360L',
+    SR872 => 'C900Z,D400Z',
+    SR874 => 'C960Z,D460Z',
+    SR951 => 'C2000Z',
+    SR952 => 'C21',
+    SR953 => 'C21T.commu',
+    SR954 => 'C2020Z',
+    SR955 => 'C990Z,D490Z',
+    SR956 => 'C211Z',
+    SR959 => 'C990ZS,D490Z',
+    SR95A => 'C2100UZ',
+    SR971 => 'C100,D370',
+    SR973 => 'C2,D230',
+    SX151 => 'E100RS',
+    SX351 => 'C3000Z / C3030Z',
+    SX354 => 'C3040Z',
+    SX355 => 'C2040Z',
+    SX357 => 'C700UZ',
+    SX358 => 'C200Z,D510Z',
+    SX374 => 'C3100Z,C3020Z',
+    SX552 => 'C4040Z',
+    SX553 => 'C40Z,D40Z',
+    SX556 => 'C730UZ',
+    SX558 => 'C5050Z',
+    SX571 => 'C120,D380',
+    SX574 => 'C300Z,D550Z',
+    SX575 => 'C4100Z,C4000Z',
+    SX751 => 'X200,D560Z,C350Z',
+    SX752 => 'X300,D565Z,C450Z',
+    SX753 => 'C750UZ',
+    SX754 => 'C740UZ',
+    SX755 => 'C755UZ',
+    SX756 => 'C5060WZ',
+    SX757 => 'C8080WZ',
+    SX758 => 'X350,D575Z,C360Z',
+    SX759 => 'X400,D580Z,C460Z',
+    SX75A => 'AZ-2ZOOM',
+    SX75B => 'D595Z,C500Z',
+    SX75C => 'X550,D545Z,C480Z',
+    SX75D => 'IR-300',
+    SX75F => 'C55Z,C5500Z',
+    SX75G => 'C170,D425',
+    SX75J => 'C180,D435',
+    SX771 => 'C760UZ',
+    SX772 => 'C770UZ',
+    SX773 => 'C745UZ',
+    SX774 => 'X250,D560Z,C350Z',
+    SX775 => 'X100,D540Z,C310Z',
+    SX776 => 'C460ZdelSol',
+    SX777 => 'C765UZ',
+    SX77A => 'D555Z,C315Z',
+    SX851 => 'C7070WZ',
+    SX852 => 'C70Z,C7000Z',
+    SX853 => 'SP500UZ',
+    SX854 => 'SP310',
+    SX855 => 'SP350',
+    SX873 => 'SP320',
+    SX875 => 'FE180/X745', # (also D4330)
+    SX876 => 'FE190/X750', # (also D4327)
+#   other brands
+#    4MP9Q3 => 'Camera 4MP-9Q3'
+#    4MP9T2 => 'BenQ DC C420 / Camera 4MP-9T2'
+#    5MP9Q3 => 'Camera 5MP-9Q3',
+#    5MP9X9 => 'Camera 5MP-9X9',
+#   '5MP-9T'=> 'Camera 5MP-9T3',
+#   '5MP-9Y'=> 'Camera 5MP-9Y2',
+#   '6MP-9U'=> 'Camera 6MP-9U9',
+#    7MP9Q3 => 'Camera 7MP-9Q3',
+#   '8MP-9U'=> 'Camera 8MP-9U4',
+#    CE5330 => 'Acer CE-5330',
+#   'CP-853'=> 'Acer CP-8531',
+#    CS5531 => 'Acer CS5531',
+#    DC500  => 'SeaLife DC500',
+#    DC7370 => 'Camera 7MP-9GA',
+#    DC7371 => 'Camera 7MP-9GM',
+#    DC7371 => 'Hitachi HDC-751E',
+#    DC7375 => 'Hitachi HDC-763E / Rollei RCP-7330X / Ricoh Caplio RR770 / Vivitar ViviCam 7330',
+#   'DC E63'=> 'BenQ DC E63+',
+#   'DC P86'=> 'BenQ DC P860',
+#    DS5340 => 'Maginon Performic S5 / Premier 5MP-9M7',
+#    DS5341 => 'BenQ E53+ / Supra TCM X50 / Maginon X50 / Premier 5MP-9P8',
+#    DS5346 => 'Premier 5MP-9Q2',
+#    E500   => 'Konica Minolta DiMAGE E500',
+#    MAGINO => 'Maginon X60',
+#    Mz60   => 'HP Photosmart Mz60',
+#    Q3DIGI => 'Camera 5MP-9Q3',
+#    SLIMLI => 'Supra Slimline X6',
+#    V8300s => 'Vivitar V8300s',
+);
+
+# ArtFilter, ArtFilterEffect and MagicFilter values (ref PH)
+my %filters = (
+    0 => 'Off',
+    1 => 'Soft Focus', # (XZ-1)
+    2 => 'Pop Art', # (SZ-10 magic filter 1,SZ-31MR,E-M5,E-PL3)
+    3 => 'Pale & Light Color',
+    4 => 'Light Tone',
+    5 => 'Pin Hole', # (SZ-10 magic filter 2,SZ-31MR,E-PL3)
+    6 => 'Grainy Film',
+    9 => 'Diorama',
+    10 => 'Cross Process',
+    12 => 'Fish Eye', # (SZ-10 magic filter 3)
+    13 => 'Drawing', # (SZ-10 magic filter 4)
+    14 => 'Gentle Sepia', # (E-5)
+    15 => 'Pale & Light Color II', #forum6269 ('Tender Light' ref 11)
+    16 => 'Pop Art II', #11 (E-PL3 "(dark)" - PH)
+    17 => 'Pin Hole II', #11 (E-PL3 "(color 2)" - PH)
+    18 => 'Pin Hole III', #11 (E-M5, E-PL3 "(color 3)" - PH)
+    19 => 'Grainy Film II', #11
+    20 => 'Dramatic Tone', # (XZ-1,SZ-31MR)
+    21 => 'Punk', # (SZ-10 magic filter 6)
+    22 => 'Soft Focus 2', # (SZ-10 magic filter 5)
+    23 => 'Sparkle', # (SZ-10 magic filter 7)
+    24 => 'Watercolor', # (SZ-10 magic filter 8)
+    25 => 'Key Line', # (E-M5)
+    26 => 'Key Line II', #forum6269
+    27 => 'Miniature', # (SZ-31MR)
+    28 => 'Reflection', # (TG-820,SZ-31MR)
+    29 => 'Fragmented', # (TG-820,SZ-31MR)
+    31 => 'Cross Process II', #forum6269
+    32 => 'Dramatic Tone II',  #forum6269 (Dramatic Tone B&W for E-M5)
+    33 => 'Watercolor I', # ('Watercolor I' for EM-1 ref forum6269, 'Watercolor II' for E-PM2 ref PH)
+    34 => 'Watercolor II', #forum6269
+    35 => 'Diorama II', #forum6269
+    36 => 'Vintage', #forum6269
+    37 => 'Vintage II', #forum6269
+    38 => 'Vintage III', #forum6269
+    39 => 'Partial Color', #forum6269
+    40 => 'Partial Color II', #forum6269
+    41 => 'Partial Color III', #forum6269
+);
+
+my %toneLevelType = (
+    0 => '0',
+    -31999 => 'Highlights',
+    -31998 => 'Shadows',
+    -31997 => 'Midtones',
+);
+
+# tag information for WAV "Index" tags
+my %indexInfo = (
+    Format => 'int32u',
+    RawConv => '$val == 0xffffffff ? undef : $val',
+    ValueConv => '$val / 1000',
+    PrintConv => 'ConvertDuration($val)',
+);
+
+# Olympus tags
+%Image::ExifTool::Olympus::Main = (
+    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
+    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
+    WRITABLE => 1,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+#
+# Tags 0x0000 through 0x0103 are the same as Konica/Minolta cameras (ref 3)
+# (removed 0x0101-0x0103 because they weren't supported by my samples - PH)
+#
+    0x0000 => {
+        Name => 'MakerNoteVersion',
+        Writable => 'undef',
+    },
+    0x0001 => {
+        Name => 'MinoltaCameraSettingsOld',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Minolta::CameraSettings',
+            ByteOrder => 'BigEndian',
+        },
+    },
+    0x0003 => {
+        Name => 'MinoltaCameraSettings',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Minolta::CameraSettings',
+            ByteOrder => 'BigEndian',
+        },
+    },
+    0x0040 => {
+        Name => 'CompressedImageSize',
+        Writable => 'int32u',
+    },
+    0x0081 => {
+        Name => 'PreviewImageData',
+        Binary => 1,
+        Writable => 0,
+    },
+    0x0088 => {
+        Name => 'PreviewImageStart',
+        Flags => 'IsOffset',
+        OffsetPair => 0x0089, # point to associated byte count
+        DataTag => 'PreviewImage',
+        Writable => 0,
+        Protected => 2,
+    },
+    0x0089 => {
+        Name => 'PreviewImageLength',
+        OffsetPair => 0x0088, # point to associated offset
+        DataTag => 'PreviewImage',
+        Writable => 0,
+        Protected => 2,
+    },
+    0x0100 => {
+        Name => 'ThumbnailImage',
+        Groups => { 2 => 'Preview' },
+        Writable => 'undef',
+        WriteCheck => '$self->CheckImage(\$val)',
+        Binary => 1,
+    },
+    0x0104 => { Name => 'BodyFirmwareVersion',    Writable => 'string' }, #11
+#
+# end Konica/Minolta tags
+#
+    0x0200 => {
+        Name => 'SpecialMode',
+        Notes => q{
+            3 numbers: 1. Shooting mode: 0=Normal, 2=Fast, 3=Panorama;
+            2. Sequence Number; 3. Panorama Direction: 1=Left-right,
+            2=Right-left, 3=Bottom-Top, 4=Top-Bottom
+        },
+        Writable => 'int32u',
+        Count => 3,
+        PrintConv => sub { #3
+            my $val = shift;
+            my @v = split ' ', $val;
+            return $val unless @v >= 3;
+            my @v0 = ('Normal','Unknown (1)','Fast','Panorama');
+            my @v2 = ('(none)','Left to Right','Right to Left','Bottom to Top','Top to Bottom');
+            $val = $v0[$v[0]] || "Unknown ($v[0])";
+            $val .= ", Sequence: $v[1]";
+            $val .= ', Panorama: ' . ($v2[$v[2]] || "Unknown ($v[2])");
+            return $val;
+        },
+    },
+    0x0201 => {
+        Name => 'Quality',
+        Writable => 'int16u',
+        Notes => q{
+            Quality values are decoded based on the CameraType tag. All types
+            represent SQ, HQ and SHQ as sequential integers, but in general
+            SX-type cameras start with a value of 0 for SQ while others start
+            with 1
+        },
+        # These values are different for different camera types
+        # (can't have Condition based on CameraType because it isn't known
+        #  when this tag is extracted)
+        PrintConv => sub {
+            my ($val, $self) = @_;
+            my %t1 = ( # all SX camera types except SX151
+                0 => 'SQ (Low)',
+                1 => 'HQ (Normal)',
+                2 => 'SHQ (Fine)',
+                6 => 'RAW', #PH - C5050WZ
+            );
+            my %t2 = ( # all other types (except D4322, ref 22)
+                1 => 'SQ (Low)',
+                2 => 'HQ (Normal)',
+                3 => 'SHQ (Fine)',
+                4 => 'RAW',
+                5 => 'Medium-Fine', #PH
+                6 => 'Small-Fine', #PH
+                33 => 'Uncompressed', #PH - C2100Z
+            );
+            my $conv = $self->{CameraType} =~ /^(SX(?!151\b)|D4322)/ ? \%t1 : \%t2;
+            return $$conv{$val} ? $$conv{$val} : "Unknown ($val)";
+        },
+        # (no PrintConvInv because we don't know CameraType at write time)
+    },
+    0x0202 => {
+        Name => 'Macro',
+        Writable => 'int16u',
+        PrintConv => {
+            0 => 'Off',
+            1 => 'On',
+            2 => 'Super Macro', #6
+        },
+    },
+    0x0203 => { #6
+        Name => 'BWMode',
+        Description => 'Black And White Mode',
+        Writable => 'int16u',
+        PrintConv => {
+            0 => 'Off',
+            1 => 'On',
+            6 => '(none)', #22
+        },
+    },
+    0x0204 => {
+        Name => 'DigitalZoom',
+        Writable => 'rational64u',
+        PrintConv => '$val=~/\./ or $val.=".0"; $val',
+        PrintConvInv => '$val',
+    },
+    0x0205 => { #6
+        Name => 'FocalPlaneDiagonal',
+        Writable => 'rational64u',
+        PrintConv => '"$val mm"',
+        PrintConvInv => '$val=~s/\s*mm$//;$val',
+    },
+    0x0206 => { Name => 'LensDistortionParams', Writable => 'int16s', Count => 6 }, #6
+    0x0207 => { #PH (was incorrectly FirmwareVersion, ref 1/3)
+        Name => 'CameraType',
+        Condition => '$$valPt ne "NORMAL"', # FE240, SP510, u730 and u1000 write this
+        Writable => 'string',
+        DataMember => 'CameraType',
+        RawConv => '$self->{CameraType} = $val',
+        SeparateTable => 'CameraType',
+        ValueConv => '$val =~ s/\s+$//; $val',  # ("SX151 " has trailing space)
+        ValueConvInv => '$val',
+        PrintConv => \%olympusCameraTypes,
+        Priority => 0,
+        # 'NORMAL' for some models: u730,SP510UZ,u1000,FE240
+    },
+    0x0208 => {
+        Name => 'TextInfo',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Olympus::TextInfo',
+        },
+    },
+    0x0209 => {
+        Name => 'CameraID',
+        Format => 'string', # this really should have been a string
+    },
+    0x020b => { Name => 'EpsonImageWidth',  Writable => 'int16u' }, #PH
+    0x020c => { Name => 'EpsonImageHeight', Writable => 'int16u' }, #PH
+    0x020d => { Name => 'EpsonSoftware',    Writable => 'string' }, #PH
+    0x0280 => { #PH
+        %Image::ExifTool::previewImageTagInfo,
+        Groups => { 2 => 'Preview' },
+        Notes => 'found in ERF and JPG images from some Epson models',
+        Format => 'undef',
+        Writable => 'int8u',
+    },
+    0x0300 => { Name => 'PreCaptureFrames', Writable => 'int16u' }, #6
+    0x0301 => { Name => 'WhiteBoard',       Writable => 'int16u' }, #11
+    0x0302 => { #6
+        Name => 'OneTouchWB',
+        Writable => 'int16u',
+        PrintConv => {
+            0 => 'Off',
+            1 => 'On',
+            2 => 'On (Preset)',
+        },
+    },
+    0x0303 => { Name => 'WhiteBalanceBracket',  Writable => 'int16u' }, #11
+    0x0304 => { Name => 'WhiteBalanceBias',     Writable => 'int16u' }, #11
+   # 0x0305 => 'PrintMatching', ? #11
+    0x0401 => { #IB
+        Name => 'BlackLevel',
+        Condition => '$format eq "int32u" and $count == 4',
+        Writable => 'int32u',
+        Count => 4,
+        Notes => 'found in Epson ERF images',
+    },
+    # 0x0402 - BitCodedAutoFocus (ref 11)
+    0x0403 => { #11
+        Name => 'SceneMode',
+        Writable => 'int16u',
+        PrintConvColumns => 2,
+        PrintConv => {
+            0 => 'Normal',
+            1 => 'Standard',
+            2 => 'Auto',
+            3 => 'Intelligent Auto', #PH (guess, u7040)
+            4 => 'Portrait',
+            5 => 'Landscape+Portrait',
+            6 => 'Landscape',
+            7 => 'Night Scene',
+            8 => 'Night+Portrait',
+            9 => 'Sport',
+            10 => 'Self Portrait',
+            11 => 'Indoor',
+            12 => 'Beach & Snow',
+            13 => 'Beach',
+            14 => 'Snow',
+            15 => 'Self Portrait+Self Timer',
+            16 => 'Sunset',
+            17 => 'Cuisine',
+            18 => 'Documents',
+            19 => 'Candle',
+            20 => 'Fireworks',
+            21 => 'Available Light',
+            22 => 'Vivid',
+            23 => 'Underwater Wide1',
+            24 => 'Underwater Macro',
+            25 => 'Museum',
+            26 => 'Behind Glass',
+            27 => 'Auction',
+            28 => 'Shoot & Select1',
+            29 => 'Shoot & Select2',
+            30 => 'Underwater Wide2',
+            31 => 'Digital Image Stabilization',
+            32 => 'Face Portrait',
+            33 => 'Pet',
+            34 => 'Smile Shot',
+            35 => 'Quick Shutter',
+            43 => 'Hand-held Starlight', #PH (SH-21)
+            100 => 'Panorama', #PH (SH-21)
+            101 => 'Magic Filter', #PH
+            103 => 'HDR', #PH (XZ-2)
+        },
+    },
+    0x0404 => { Name => 'SerialNumber', Writable => 'string' }, #PH (D595Z, C7070WZ)
+    0x0405 => { Name => 'Firmware',     Writable => 'string' }, #11
+    0x0e00 => { # (AFFieldCoord for models XZ-2 and XZ-10, ref 11)
+        Name => 'PrintIM',
+        Description => 'Print Image Matching',
+        Writable => 0,
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::PrintIM::Main',
+        },
+    },
+    0x0f00 => {
+        Name => 'DataDump',
+        Writable => 0,
+        Binary => 1,
+    },
+    0x0f01 => { #6
+        Name => 'DataDump2',
+        Writable => 0,
+        Binary => 1,
+    },
+    0x0f04 => {
+        Name => 'ZoomedPreviewStart',
+        # NOTE: this tag is currently not updated properly when the image is rewritten!
+        OffsetPair => 0xf05,
+        DataTag => 'ZoomedPreviewImage',
+        Writable => 'int32u',
+        Protected => 2,
+    },
+    0x0f05 => {
+        Name => 'ZoomedPreviewLength',
+        OffsetPair => 0xf04,
+        DataTag => 'ZoomedPreviewImage',
+        Writable => 'int32u',
+        Protected => 2,
+    },
+    0x0f06 => {
+        Name => 'ZoomedPreviewSize',
+        Writable => 'int16u',
+        Count => 2,
+    },
+    0x1000 => { #6
+        Name => 'ShutterSpeedValue',
+        Writable => 'rational64s',
+        Priority => 0,
+        ValueConv => 'abs($val)<100 ? 2**(-$val) : 0',
+        ValueConvInv => '$val>0 ? -log($val)/log(2) : -100',
+        PrintConv => 'Image::ExifTool::Exif::PrintExposureTime($val)',
+        PrintConvInv => 'Image::ExifTool::Exif::ConvertFraction($val)',
+    },
+    0x1001 => { #6
+        Name => 'ISOValue',
+        Writable => 'rational64s',
+        Priority => 0,
+        ValueConv => '100 * 2 ** ($val - 5)',
+        ValueConvInv => '$val>0 ? log($val/100)/log(2)+5 : 0',
+        PrintConv => 'int($val * 100 + 0.5) / 100',
+        PrintConvInv => '$val',
+    },
+    0x1002 => { #6
+        Name => 'ApertureValue',
+        Writable => 'rational64s',
+        Priority => 0,
+        ValueConv => '2 ** ($val / 2)',
+        ValueConvInv => '$val>0 ? 2*log($val)/log(2) : 0',
+        PrintConv => 'sprintf("%.1f",$val)',
+        PrintConvInv => '$val',
+    },
+    0x1003 => { #6
+        Name => 'BrightnessValue',
+        Writable => 'rational64s',
+        Priority => 0,
+    },
+    0x1004 => { #3
+        Name => 'FlashMode',
+        Writable => 'int16u',
+        PrintConv => {
+            2 => 'On', #PH
+            3 => 'Off', #PH
+        },
+    },
+    0x1005 => { #6
+        Name => 'FlashDevice',
+        Writable => 'int16u',
+        PrintConv => {
+            0 => 'None',
+            1 => 'Internal',
+            4 => 'External',
+            5 => 'Internal + External',
+        },
+    },
+    0x1006 => { #6
+        Name =>'ExposureCompensation',
+        Writable => 'rational64s',
+    },
+    0x1007 => { Name => 'SensorTemperature',Writable => 'int16s' }, #6 (E-10, E-20 and C2500L - numbers usually around 30-40)
+    0x1008 => { Name => 'LensTemperature',  Writable => 'int16s' }, #6
+    0x1009 => { Name => 'LightCondition',   Writable => 'int16u' }, #11
+    0x100a => { #11
+        Name => 'FocusRange',
+        Writable => 'int16u',
+        PrintConv => {
+            0 => 'Normal',
+            1 => 'Macro',
+        },
+    },
+    0x100b => { #6
+        Name => 'FocusMode',
+        Writable => 'int16u',
+        PrintConv => {
+            0 => 'Auto',
+            1 => 'Manual',
+        },
+    },
+    0x100c => { #6
+        Name => 'ManualFocusDistance',
+        Writable => 'rational64u',
+        PrintConv => '"$val mm"', #11
+        PrintConvInv => '$val=~s/\s*mm$//; $val',
+    },
+    0x100d => { Name => 'ZoomStepCount',    Writable => 'int16u' }, #6
+    0x100e => { Name => 'FocusStepCount',   Writable => 'int16u' }, #6
+    0x100f => { #6
+        Name => 'Sharpness',
+        Writable => 'int16u',
+        Priority => 0,
+        PrintConv => {
+            0 => 'Normal',
+            1 => 'Hard',
+            2 => 'Soft',
+        },
+    },
+    0x1010 => { Name => 'FlashChargeLevel', Writable => 'int16u' }, #6
+    0x1011 => { #3
+        Name => 'ColorMatrix',
+        Writable => 'int16u',
+        Format => 'int16s',
+        Count => 9,
+    },
+    0x1012 => { Name => 'BlackLevel',       Writable => 'int16u', Count => 4 }, #3
+    0x1013 => { #11
+        Name => 'ColorTemperatureBG',
+        Writable => 'int16u',
+        Unknown => 1, # (doesn't look like a temperature)
+    },
+    0x1014 => { #11
+        Name => 'ColorTemperatureRG',
+        Writable => 'int16u',
+        Unknown => 1, # (doesn't look like a temperature)
+    },
+    0x1015 => { #6
+        Name => 'WBMode',
+        Writable => 'int16u',
+        Count => 2,
+        PrintConvColumns => 2,
+        PrintConv => {
+            '1'   => 'Auto',
+            '1 0' => 'Auto',
+            '1 2' => 'Auto (2)',
+            '1 4' => 'Auto (4)',
+            '2 2' => '3000 Kelvin',
+            '2 3' => '3700 Kelvin',
+            '2 4' => '4000 Kelvin',
+            '2 5' => '4500 Kelvin',
+            '2 6' => '5500 Kelvin',
+            '2 7' => '6500 Kelvin',
+            '2 8' => '7500 Kelvin',
+            '3 0' => 'One-touch',
+        },
+    },
+    0x1017 => { #2
+        Name => 'RedBalance',
+        Writable => 'int16u',
+        Count => 2,
+        ValueConv => '$val=~s/ .*//; $val / 256',
+        ValueConvInv => '$val*=256;"$val 64"',
+    },
+    0x1018 => { #2
+        Name => 'BlueBalance',
+        Writable => 'int16u',
+        Count => 2,
+        ValueConv => '$val=~s/ .*//; $val / 256',
+        ValueConvInv => '$val*=256;"$val 64"',
+    },
+    0x1019 => { Name => 'ColorMatrixNumber',    Writable => 'int16u' }, #11
+    # 0x101a is same as CameraID ("OLYMPUS DIGITAL CAMERA") for C2500L - PH
+    0x101a => { Name => 'SerialNumber',         Writable => 'string' }, #3
+    0x101b => { #11
+        Name => 'ExternalFlashAE1_0',
+        Writable => 'int32u',
+        Unknown => 1, # (what are these?)
+    },
+    0x101c => { Name => 'ExternalFlashAE2_0',   Writable => 'int32u', Unknown => 1 }, #11
+    0x101d => { Name => 'InternalFlashAE1_0',   Writable => 'int32u', Unknown => 1 }, #11
+    0x101e => { Name => 'InternalFlashAE2_0',   Writable => 'int32u', Unknown => 1 }, #11
+    0x101f => { Name => 'ExternalFlashAE1',     Writable => 'int32u', Unknown => 1 }, #11
+    0x1020 => { Name => 'ExternalFlashAE2',     Writable => 'int32u', Unknown => 1 }, #11
+    0x1021 => { Name => 'InternalFlashAE1',     Writable => 'int32u', Unknown => 1 }, #11
+    0x1022 => { Name => 'InternalFlashAE2',     Writable => 'int32u', Unknown => 1 }, #11
+    0x1023 => { Name => 'FlashExposureComp',    Writable => 'rational64s' }, #6
+    0x1024 => { Name => 'InternalFlashTable',   Writable => 'int16u' }, #11
+    0x1025 => { Name => 'ExternalFlashGValue',  Writable => 'rational64s' }, #11
+    0x1026 => { #6
+        Name => 'ExternalFlashBounce',
+        Writable => 'int16u',
+        PrintConv => {
+            0 => 'No',
+            1 => 'Yes',
+        },
+    },
+    0x1027 => { Name => 'ExternalFlashZoom',    Writable => 'int16u' }, #6
+    0x1028 => { Name => 'ExternalFlashMode',    Writable => 'int16u' }, #6
+    0x1029 => { #3
+        Name => 'Contrast',
+        Writable => 'int16u',
+        PrintConv => { #PH (works with E1)
+            0 => 'High',
+            1 => 'Normal',
+            2 => 'Low',
+        },
+    },
+    0x102a => { Name => 'SharpnessFactor',      Writable => 'int16u' }, #3
+    0x102b => { Name => 'ColorControl',         Writable => 'int16u', Count => 6 }, #3
+    0x102c => { Name => 'ValidBits',            Writable => 'int16u', Count => 2 }, #3
+    0x102d => { Name => 'CoringFilter',         Writable => 'int16u' }, #3
+    0x102e => { Name => 'OlympusImageWidth',    Writable => 'int32u' }, #PH
+    0x102f => { Name => 'OlympusImageHeight',   Writable => 'int32u' }, #PH
+    0x1030 => { Name => 'SceneDetect',          Writable => 'int16u' }, #11
+    0x1031 => { #11
+        Name => 'SceneArea',
+        Writable => 'int32u',
+        Count => 8,
+        Unknown => 1, # (numbers don't make much sense?)
+    },
+    # 0x1032 HAFFINAL? #11
+    0x1033 => { #11
+        Name => 'SceneDetectData',
+        Writable => 'int32u',
+        Count => 720,
+        Binary => 1,
+        Unknown => 1, # (but what does it mean?)
+    },
+    0x1034 => { Name => 'CompressionRatio',    Writable => 'rational64u' }, #3
+    0x1035 => { #6
+        Name => 'PreviewImageValid',
+        Writable => 'int32u',
+        PrintConv => { 0 => 'No', 1 => 'Yes' },
+    },
+    0x1036 => { #6
+        Name => 'PreviewImageStart',
+        Flags => 'IsOffset',
+        OffsetPair => 0x1037, # point to associated byte count
+        DataTag => 'PreviewImage',
+        Writable => 'int32u',
+        WriteGroup => 'MakerNotes',
+        Protected => 2,
+    },
+    0x1037 => { #6
+        # (may contain data from multiple previews - PH, FE320)
+        Name => 'PreviewImageLength',
+        OffsetPair => 0x1036, # point to associated offset
+        DataTag => 'PreviewImage',
+        Writable => 'int32u',
+        WriteGroup => 'MakerNotes',
+        Protected => 2,
+    },
+    0x1038 => { Name => 'AFResult',             Writable => 'int16u' }, #11
+    0x1039 => { #6
+        Name => 'CCDScanMode',
+        Writable => 'int16u',
+        PrintConv => {
+            0 => 'Interlaced',
+            1 => 'Progressive',
+        },
+    },
+    0x103a => { #6
+        Name => 'NoiseReduction',
+        Writable => 'int16u',
+        PrintConv => \%offOn,
+    },
+    0x103b => { Name => 'FocusStepInfinity',    Writable => 'int16u' }, #6
+    0x103c => { Name => 'FocusStepNear',        Writable => 'int16u' }, #6
+    0x103d => { Name => 'LightValueCenter',     Writable => 'rational64s' }, #11
+    0x103e => { Name => 'LightValuePeriphery',  Writable => 'rational64s' }, #11
+    0x103f => { #11
+        Name => 'FieldCount',
+        Writable => 'int16u',
+        Unknown => 1, # (but what does it mean?)
+    },
+#
+# Olympus really screwed up the format of the following subdirectories (for the
+# E-1 and E-300 anyway). Not only is the subdirectory value data not included in
+# the size, but also the count is 2 bytes short for the subdirectory itself
+# (presumably the Olympus programmers forgot about the 2-byte entry count at the
+# start of the subdirectory).  This mess is straightened out and these subdirs
+# are written properly when ExifTool rewrites the file.  Note that this problem
+# has been fixed by Olympus in the new-style IFD maker notes since a standard
+# SubIFD offset value is used.  As written by the camera, the old style
+# directories have format 'undef' or 'string', and the new style has format
+# 'ifd'.  However, some older versions of exiftool may have rewritten the new
+# style as 'int32u', so handle both cases. - PH
+#
+    0x2010 => [ #PH
+        {
+            Name => 'Equipment',
+            Condition => '$format ne "ifd" and $format ne "int32u"',
+            NestedHtmlDump => 2, # (so HtmlDump doesn't show these as double-referenced)
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::Equipment',
+                ByteOrder => 'Unknown',
+            },
+        },
+        {
+            Name => 'EquipmentIFD',
+            Groups => { 1 => 'MakerNotes' },    # SubIFD needs group 1 set
+            Flags => 'SubIFD',
+            FixFormat => 'ifd',
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::Equipment',
+                Start => '$val',
+            },
+        },
+    ],
+    0x2020 => [ #PH
+        {
+            Name => 'CameraSettings',
+            Condition => '$format ne "ifd" and $format ne "int32u"',
+            NestedHtmlDump => 2,
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::CameraSettings',
+                ByteOrder => 'Unknown',
+            },
+        },
+        {
+            Name => 'CameraSettingsIFD',
+            Groups => { 1 => 'MakerNotes' },
+            Flags => 'SubIFD',
+            FixFormat => 'ifd',
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::CameraSettings',
+                Start => '$val',
+            },
+        },
+    ],
+    0x2030 => [ #PH
+        {
+            Name => 'RawDevelopment',
+            Condition => '$format ne "ifd" and $format ne "int32u"',
+            NestedHtmlDump => 2,
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::RawDevelopment',
+                ByteOrder => 'Unknown',
+            },
+        },
+        {
+            Name => 'RawDevelopmentIFD',
+            Groups => { 1 => 'MakerNotes' },
+            Flags => 'SubIFD',
+            FixFormat => 'ifd',
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::RawDevelopment',
+                Start => '$val',
+            },
+        },
+    ],
+    0x2031 => [ #11
+        {
+            Name => 'RawDev2',
+            Condition => '$format ne "ifd" and $format ne "int32u"',
+            NestedHtmlDump => 2,
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::RawDevelopment2',
+                ByteOrder => 'Unknown',
+            },
+        },
+        {
+            Name => 'RawDev2IFD',
+            Groups => { 1 => 'MakerNotes' },
+            Flags => 'SubIFD',
+            FixFormat => 'ifd',
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::RawDevelopment2',
+                Start => '$val',
+            },
+        },
+    ],
+    0x2040 => [ #PH
+        {
+            Name => 'ImageProcessing',
+            Condition => '$format ne "ifd" and $format ne "int32u"',
+            NestedHtmlDump => 2,
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::ImageProcessing',
+                ByteOrder => 'Unknown',
+            },
+        },
+        {
+            Name => 'ImageProcessingIFD',
+            Groups => { 1 => 'MakerNotes' },
+            Flags => 'SubIFD',
+            FixFormat => 'ifd',
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::ImageProcessing',
+                Start => '$val',
+            },
+        },
+    ],
+    0x2050 => [ #PH
+        {
+            Name => 'FocusInfo',
+            Condition => '$format ne "ifd" and $format ne "int32u" and not $$self{OlympusCAMER}',
+            NestedHtmlDump => 2,
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::FocusInfo',
+                ByteOrder => 'Unknown',
+            },
+        },
+        {
+            Name => 'FocusInfoIFD',
+            Condition => 'not $$self{OlympusCAMER}',
+            Groups => { 1 => 'MakerNotes' },
+            Flags => 'SubIFD',
+            FixFormat => 'ifd',
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::FocusInfo',
+                Start => '$val',
+            },
+        },
+        {
+            # ASCII-based camera parameters if makernotes starts with "CAMER\0"
+            # (or for Sony models starting with "SONY PI\0" or "PREMI\0")
+            Name => 'CameraParameters',
+            Writable => 'undef',
+            Binary => 1,
+        },
+    ],
+    0x2100 => [
+        { #11
+            Name => 'Olympus2100',
+            Condition => '$format ne "ifd" and $format ne "int32u"',
+            NestedHtmlDump => 2,
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::FETags',
+                ByteOrder => 'Unknown',
+            },
+        },
+        { #PH
+            Name => 'Olympus2100IFD',
+            Groups => { 1 => 'MakerNotes' },
+            Flags => 'SubIFD',
+            FixFormat => 'ifd',
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::FETags',
+                ByteOrder => 'Unknown',
+                Start => '$val',
+            },
+        },
+    ],
+    0x2200 => [
+        { #11
+            Name => 'Olympus2200',
+            Condition => '$format ne "ifd" and $format ne "int32u"',
+            NestedHtmlDump => 2,
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::FETags',
+                ByteOrder => 'Unknown',
+            },
+        },
+        { #PH
+            Name => 'Olympus2200IFD',
+            Groups => { 1 => 'MakerNotes' },
+            Flags => 'SubIFD',
+            FixFormat => 'ifd',
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::FETags',
+                ByteOrder => 'Unknown',
+                Start => '$val',
+            },
+        },
+    ],
+    0x2300 => [
+        { #11
+            Name => 'Olympus2300',
+            Condition => '$format ne "ifd" and $format ne "int32u"',
+            NestedHtmlDump => 2,
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::FETags',
+                ByteOrder => 'Unknown',
+            },
+        },
+        { #PH
+            Name => 'Olympus2300IFD',
+            Groups => { 1 => 'MakerNotes' },
+            Flags => 'SubIFD',
+            FixFormat => 'ifd',
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::FETags',
+                ByteOrder => 'Unknown',
+                Start => '$val',
+            },
+        },
+    ],
+    0x2400 => [
+        { #11
+            Name => 'Olympus2400',
+            Condition => '$format ne "ifd" and $format ne "int32u"',
+            NestedHtmlDump => 2,
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::FETags',
+                ByteOrder => 'Unknown',
+            },
+        },
+        { #PH
+            Name => 'Olympus2400IFD',
+            Groups => { 1 => 'MakerNotes' },
+            Flags => 'SubIFD',
+            FixFormat => 'ifd',
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::FETags',
+                ByteOrder => 'Unknown',
+                Start => '$val',
+            },
+        },
+    ],
+    0x2500 => [
+        { #11
+            Name => 'Olympus2500',
+            Condition => '$format ne "ifd" and $format ne "int32u"',
+            NestedHtmlDump => 2,
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::FETags',
+                ByteOrder => 'Unknown',
+            },
+        },
+        { #PH
+            Name => 'Olympus2500IFD',
+            Groups => { 1 => 'MakerNotes' },
+            Flags => 'SubIFD',
+            FixFormat => 'ifd',
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::FETags',
+                ByteOrder => 'Unknown',
+                Start => '$val',
+            },
+        },
+    ],
+    0x2600 => [
+        { #11
+            Name => 'Olympus2600',
+            Condition => '$format ne "ifd" and $format ne "int32u"',
+            NestedHtmlDump => 2,
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::FETags',
+                ByteOrder => 'Unknown',
+            },
+        },
+        { #PH
+            Name => 'Olympus2600IFD',
+            Groups => { 1 => 'MakerNotes' },
+            Flags => 'SubIFD',
+            FixFormat => 'ifd',
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::FETags',
+                ByteOrder => 'Unknown',
+                Start => '$val',
+            },
+        },
+    ],
+    0x2700 => [
+        { #11
+            Name => 'Olympus2700',
+            Condition => '$format ne "ifd" and $format ne "int32u"',
+            NestedHtmlDump => 2,
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::FETags',
+                ByteOrder => 'Unknown',
+            },
+        },
+        { #PH
+            Name => 'Olympus2700IFD',
+            Groups => { 1 => 'MakerNotes' },
+            Flags => 'SubIFD',
+            FixFormat => 'ifd',
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::FETags',
+                ByteOrder => 'Unknown',
+                Start => '$val',
+            },
+        },
+    ],
+    0x2800 => [
+        { #11
+            Name => 'Olympus2800',
+            Condition => '$format ne "ifd" and $format ne "int32u"',
+            NestedHtmlDump => 2,
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::FETags',
+                ByteOrder => 'Unknown',
+            },
+        },
+        { #PH
+            Name => 'Olympus2800IFD',
+            Groups => { 1 => 'MakerNotes' },
+            Flags => 'SubIFD',
+            FixFormat => 'ifd',
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::FETags',
+                ByteOrder => 'Unknown',
+                Start => '$val',
+            },
+        },
+    ],
+    0x2900 => [
+        { #11
+            Name => 'Olympus2900',
+            Condition => '$format ne "ifd" and $format ne "int32u"',
+            NestedHtmlDump => 2,
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::FETags',
+                ByteOrder => 'Unknown',
+            },
+        },
+        { #PH
+            Name => 'Olympus2900IFD',
+            Groups => { 1 => 'MakerNotes' },
+            Flags => 'SubIFD',
+            FixFormat => 'ifd',
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::FETags',
+                ByteOrder => 'Unknown',
+                Start => '$val',
+            },
+        },
+    ],
+    0x3000 => [
+        { #6
+            Name => 'RawInfo',
+            Condition => '$format ne "ifd" and $format ne "int32u"',
+            NestedHtmlDump => 2,
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::RawInfo',
+                ByteOrder => 'Unknown',
+            },
+        },
+        { #PH
+            Name => 'RawInfoIFD',
+            Groups => { 1 => 'MakerNotes' },
+            Flags => 'SubIFD',
+            FixFormat => 'ifd',
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::RawInfo',
+                Start => '$val',
+            },
+        },
+    ],
+    0x4000 => [ #PH
+        {
+            Name => 'MainInfo',
+            Condition => '$format ne "ifd" and $format ne "int32u"',
+            NestedHtmlDump => 2,
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::Main',
+                ByteOrder => 'Unknown',
+            },
+        },
+        {
+            Name => 'MainInfoIFD',
+            Groups => { 1 => 'MakerNotes' },
+            Flags => 'SubIFD',
+            FixFormat => 'ifd',
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::Main',
+                Start => '$val',
+            },
+        },
+    ],
+    0x5000 => [ #PH
+        {
+            Name => 'UnknownInfo',
+            Condition => '$format ne "ifd" and $format ne "int32u"',
+            NestedHtmlDump => 2,
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::UnknownInfo',
+                ByteOrder => 'Unknown',
+            },
+        },
+        {
+            Name => 'UnknownInfoIFD',
+            Groups => { 1 => 'MakerNotes' },
+            Flags => 'SubIFD',
+            FixFormat => 'ifd',
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Olympus::UnknownInfo',
+                Start => '$val',
+            },
+        },
+    ],
+);
+
+# TextInfo tags
+%Image::ExifTool::Olympus::TextInfo = (
+    PROCESS_PROC => \&Image::ExifTool::APP12::ProcessAPP12,
+    NOTES => q{
+        This information is in text format (similar to APP12 information, but with
+        spaces instead of linefeeds).  Below are tags which have been observed, but
+        any information found here will be extracted, even if the tag is not listed.
+    },
+    GROUPS => { 0 => 'MakerNotes', 1 => 'Olympus', 2 => 'Image' },
+    Resolution => { },
+    Type => {
+        Name => 'CameraType',
+        Groups => { 2 => 'Camera' },
+        DataMember => 'CameraType',
+        RawConv => '$self->{CameraType} = $val',
+        SeparateTable => 'CameraType',
+        PrintConv => \%olympusCameraTypes,
+    },
+);
+
+# Olympus Equipment IFD
+%Image::ExifTool::Olympus::Equipment = (
+    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
+    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
+    WRITABLE => 1,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    0x000 => { #PH
+        Name => 'EquipmentVersion',
+        Writable => 'undef',
+        RawConv => '$val=~s/\0+$//; $val',  # (may be null terminated)
+        Count => 4,
+    },
+    0x100 => { #6
+        Name => 'CameraType2',
+        Writable => 'string',
+        Count => 6,
+        SeparateTable => 'CameraType',
+        PrintConv => \%olympusCameraTypes,
+    },
+    0x101 => { #PH
+        Name => 'SerialNumber',
+        Writable => 'string',
+        Count => 32,
+        PrintConv => '$val=~s/\s+$//;$val',
+        PrintConvInv => 'pack("A31",$val)', # pad with spaces to 31 chars
+    },
+    0x102 => { #6
+        Name => 'InternalSerialNumber',
+        Notes => '16 digits: 0-3=model, 4=year, 5-6=month, 8-12=unit number',
+        Writable => 'string',
+        Count => 32,
+    },
+    0x103 => { #6
+        Name => 'FocalPlaneDiagonal',
+        Writable => 'rational64u',
+        PrintConv => '"$val mm"',
+        PrintConvInv => '$val=~s/\s*mm$//;$val',
+    },
+    0x104 => { #6
+        Name => 'BodyFirmwareVersion',
+        Writable => 'int32u',
+        PrintConv => '$val=sprintf("%x",$val);$val=~s/(.{3})$/\.$1/;$val',
+        PrintConvInv => '$val=sprintf("%.3f",$val);$val=~s/\.//;hex($val)',
+    },
+    0x201 => { #6
+        Name => 'LensType',
+        Writable => 'int8u',
+        Count => 6,
+        Notes => q{
+            6 numbers: 0. Make, 1. Unknown, 2. Model, 3. Sub-model, 4-5. Unknown.  Only
+            the Make, Model and Sub-model are used to identify the lens type
+        },
+        SeparateTable => 'LensType',
+        # Have seen these values for the unknown numbers:
+        # 1: 0
+        # 4: 0, 2(Olympus lenses for which I have also seen 0 for this number)
+        # 5: 0, 16(new Lumix lenses)
+        ValueConv => 'my @a=split(" ",$val); sprintf("%x %.2x %.2x",@a[0,2,3])',
+        # set unknown values to zero when writing
+        ValueConvInv => 'my @a=split(" ",$val); hex($a[0])." 0 ".hex($a[1])." ".hex($a[2])." 0 0"',
+        PrintConv => \%olympusLensTypes,
+    },
+    # apparently the first 3 digits of the lens s/n give the type (ref 4):
+    # 010 = 50macro
+    # 040 = EC-14
+    # 050 = 14-54
+    # 060 = 50-200
+    # 080 = EX-25
+    # 101 = FL-50
+    # 272 = EC-20 #7
+    0x202 => { #PH
+        Name => 'LensSerialNumber',
+        Writable => 'string',
+        Count => 32,
+        PrintConv => '$val=~s/\s+$//;$val',
+        PrintConvInv => 'pack("A31",$val)', # pad with spaces to 31 chars
+    },
+    0x203 => { Name => 'LensModel',         Writable => 'string' }, #17
+    0x204 => { #6
+        Name => 'LensFirmwareVersion',
+        Writable => 'int32u',
+        PrintConv => '$val=sprintf("%x",$val);$val=~s/(.{3})$/\.$1/;$val',
+        PrintConvInv => '$val=sprintf("%.3f",$val);$val=~s/\.//;hex($val)',
+    },
+    0x205 => { #11
+        Name => 'MaxApertureAtMinFocal',
+        Writable => 'int16u',
+        ValueConv => '$val ? sqrt(2)**($val/256) : 0',
+        ValueConvInv => '$val>0 ? int(512*log($val)/log(2)+0.5) : 0',
+        PrintConv => 'sprintf("%.1f",$val)',
+        PrintConvInv => '$val',
+    },
+    0x206 => { #5
+        Name => 'MaxApertureAtMaxFocal',
+        Writable => 'int16u',
+        ValueConv => '$val ? sqrt(2)**($val/256) : 0',
+        ValueConvInv => '$val>0 ? int(512*log($val)/log(2)+0.5) : 0',
+        PrintConv => 'sprintf("%.1f",$val)',
+        PrintConvInv => '$val',
+    },
+    0x207 => { Name => 'MinFocalLength',    Writable => 'int16u' }, #PH
+    0x208 => { Name => 'MaxFocalLength',    Writable => 'int16u' }, #PH
+    0x20a => { #9
+        Name => 'MaxAperture', # (at current focal length)
+        Writable => 'int16u',
+        ValueConv => '$val ? sqrt(2)**($val/256) : 0',
+        ValueConvInv => '$val>0 ? int(512*log($val)/log(2)+0.5) : 0',
+        PrintConv => 'sprintf("%.1f",$val)',
+        PrintConvInv => '$val',
+    },
+    0x20b => { #11
+        Name => 'LensProperties',
+        Writable => 'int16u',
+        PrintConv => 'sprintf("0x%x",$val)',
+        PrintConvInv => '$val',
+    },
+    0x301 => { #6
+        Name => 'Extender',
+        Writable => 'int8u',
+        Count => 6,
+        Notes => q{
+            6 numbers: 0. Make, 1. Unknown, 2. Model, 3. Sub-model, 4-5. Unknown.  Only
+            the Make and Model are used to identify the extender
+        },
+        ValueConv => 'my @a=split(" ",$val); sprintf("%x %.2x",@a[0,2])',
+        ValueConvInv => 'my @a=split(" ",$val); hex($a[0])." 0 ".hex($a[1])." 0 0 0"',
+        PrintConv => {
+            '0 00' => 'None',
+            '0 04' => 'Olympus Zuiko Digital EC-14 1.4x Teleconverter',
+            '0 08' => 'Olympus EX-25 Extension Tube',
+            '0 10' => 'Olympus Zuiko Digital EC-20 2.0x Teleconverter', #7
+        },
+    },
+    0x302 => { Name => 'ExtenderSerialNumber',  Writable => 'string', Count => 32 }, #4
+    0x303 => { Name => 'ExtenderModel',         Writable => 'string' }, #9
+    0x304 => { #6
+        Name => 'ExtenderFirmwareVersion',
+        Writable => 'int32u',
+        PrintConv => '$val=sprintf("%x",$val);$val=~s/(.{3})$/\.$1/;$val',
+        PrintConvInv => '$val=sprintf("%.3f",$val);$val=~s/\.//;hex($val)',
+    },
+    0x403 => { #http://dev.exiv2.org/issues/870
+        Name => 'ConversionLens',
+        Writable => 'string',
+        # (observed values: '','TCON','FCON','WCON')
+    },
+    0x1000 => { #6
+        Name => 'FlashType',
+        Writable => 'int16u',
+        PrintConv => {
+            0 => 'None',
+            2 => 'Simple E-System',
+            3 => 'E-System',
+        },
+    },
+    0x1001 => { #6
+        Name => 'FlashModel',
+        Writable => 'int16u',
+        PrintConvColumns => 2,
+        PrintConv => {
+            0 => 'None',
+            1 => 'FL-20', # (or subtronic digital or Inon UW flash, ref 11)
+            2 => 'FL-50', # (or Metzblitz+SCA or Cullmann 34, ref 11)
+            3 => 'RF-11',
+            4 => 'TF-22',
+            5 => 'FL-36',
+            6 => 'FL-50R', #11 (or Metz mecablitz digital)
+            7 => 'FL-36R', #11
+            9 => 'FL-14', #11
+            11 => 'FL-600R', #11
+        },
+    },
+    0x1002 => { #6
+        Name => 'FlashFirmwareVersion',
+        Writable => 'int32u',
+        PrintConv => '$val=sprintf("%x",$val);$val=~s/(.{3})$/\.$1/;$val',
+        PrintConvInv => '$val=sprintf("%.3f",$val);$val=~s/\.//;hex($val)',
+    },
+    0x1003 => { Name => 'FlashSerialNumber', Writable => 'string', Count => 32 }, #4
+);
+
+# Olympus camera settings IFD
+%Image::ExifTool::Olympus::CameraSettings = (
+    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
+    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
+    WRITABLE => 1,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    0x000 => { #PH
+        Name => 'CameraSettingsVersion',
+        Writable => 'undef',
+        RawConv => '$val=~s/\0+$//; $val',  # (may be null terminated)
+        Count => 4,
+    },
+    0x100 => { #6
+        Name => 'PreviewImageValid',
+        Writable => 'int32u',
+        PrintConv => { 0 => 'No', 1 => 'Yes' },
+    },
+    0x101 => { #PH
+        Name => 'PreviewImageStart',
+        Flags => 'IsOffset',
+        OffsetPair => 0x102,
+        DataTag => 'PreviewImage',
+        Writable => 'int32u',
+        WriteGroup => 'MakerNotes',
+        Protected => 2,
+    },
+    0x102 => { #PH
+        Name => 'PreviewImageLength',
+        OffsetPair => 0x101,
+        DataTag => 'PreviewImage',
+        Writable => 'int32u',
+        WriteGroup => 'MakerNotes',
+        Protected => 2,
+    },
+    0x200 => { #4
+        Name => 'ExposureMode',
+        Writable => 'int16u',
+        PrintConv => {
+            1 => 'Manual',
+            2 => 'Program', #6
+            3 => 'Aperture-priority AE',
+            4 => 'Shutter speed priority AE',
+            5 => 'Program-shift', #6
+        }
+    },
+    0x201 => { #6
+        Name => 'AELock',
+        Writable => 'int16u',
+        PrintConv => \%offOn,
+    },
+    0x202 => { #PH/4
+        Name => 'MeteringMode',
+        Writable => 'int16u',
+        PrintConv => {
+            2 => 'Center-weighted average',
+            3 => 'Spot',
+            5 => 'ESP',
+            261 => 'Pattern+AF', #6
+            515 => 'Spot+Highlight control', #6
+            1027 => 'Spot+Shadow control', #6
+        },
+    },
+    0x203 => { Name => 'ExposureShift', Writable => 'rational64s' }, #11 (some models only)
+    0x204 => { #11 (XZ-1)
+        Name => 'NDFilter',
+        PrintConv => \%offOn,
+    },
+    0x300 => { #6
+        Name => 'MacroMode',
+        Writable => 'int16u',
+        PrintConv => {
+            0 => 'Off',
+            1 => 'On',
+            2 => 'Super Macro', #11
+        },
+    },
+    0x301 => { #6
+        Name => 'FocusMode',
+        Writable => 'int16u',
+        Count => -1,
+        Notes => '1 or 2 values',
+        PrintConv => [{
+            0 => 'Single AF',
+            1 => 'Sequential shooting AF',
+            2 => 'Continuous AF',
+            3 => 'Multi AF',
+            4 => 'Face detect', #11
+            10 => 'MF',
+        }, {
+            0 => '(none)',
+            BITMASK => { #11
+                0 => 'S-AF',
+                2 => 'C-AF',
+                4 => 'MF',
+                5 => 'Face detect',
+                6 => 'Imager AF',
+                7 => 'Live View Magnification Frame',
+                8 => 'AF sensor',
+            },
+        }],
+    },
+    0x302 => { #6
+        Name => 'FocusProcess',
+        Writable => 'int16u',
+        Count => -1,
+        Notes => '1 or 2 values',
+        PrintConv => [{
+            0 => 'AF Not Used',
+            1 => 'AF Used',
+        }],
+        # 2nd value written only by some models (u1050SW, u9000, uT6000, uT6010,
+        # uT8000, E-30, E-420, E-450, E-520, E-620, E-P1 and E-P2): - PH
+        # observed values when "AF Not Used": 0, 16
+        # observed values when "AF Used": 64, 96(face detect on), 256
+    },
+    0x303 => { #6
+        Name => 'AFSearch',
+        Writable => 'int16u',
+        PrintConv => {
+            0 => 'Not Ready',
+            1 => 'Ready',
+        },
+    },
+    0x304 => { #PH/4
+        Name => 'AFAreas',
+        Notes => 'coordinates range from 0 to 255',
+        Writable => 'int32u',
+        Count => 64,
+        PrintConv => 'Image::ExifTool::Olympus::PrintAFAreas($val)',
+    },
+    0x0305 => { #PH
+        Name => 'AFPointSelected',
+        Notes => 'coordinates expressed as a percent',
+        Writable => 'rational64s',
+        Count => 5,
+        ValueConv => '$val =~ s/\S* //; $val', # ignore first undefined value
+        ValueConvInv => '"undef $val"',
+        PrintConv => q{
+            return 'n/a' if $val =~ /undef/;
+            sprintf("(%d%%,%d%%) (%d%%,%d%%)", map {$_ * 100} split(" ",$val));
+        },
+        PrintConvInv => q{
+            return 'undef undef undef undef' if $val eq 'n/a';
+            my @nums = $val =~ /\d+(?:\.\d+)?/g;
+            return undef unless @nums == 4;
+            join ' ', map {$_ / 100} @nums;
+        },
+    },
+    0x306 => { #11
+        Name => 'AFFineTune',
+        Writable => 'int8u',
+        PrintConv => { 0 => 'Off', 1 => 'On' },
+    },
+    0x307 => { #15
+        Name => 'AFFineTuneAdj',
+        Format => 'int16s',
+        Count => 3, # not sure what the 3 values mean
+    },
+    0x400 => { #6
+        Name => 'FlashMode',
+        Writable => 'int16u',
+        PrintConv => {
+            0 => 'Off',
+            BITMASK => {
+                0 => 'On',
+                1 => 'Fill-in',
+                2 => 'Red-eye',
+                3 => 'Slow-sync',
+                4 => 'Forced On',
+                5 => '2nd Curtain',
+            },
+        },
+    },
+    0x401 => { Name => 'FlashExposureComp', Writable => 'rational64s' }, #6
+    # 0x402 - FlashMode? bit0=TTL, bit1=auto, bit2=SuperFP (ref 11)
+    0x403 => { #11
+        Name => 'FlashRemoteControl',
+        Writable => 'int16u',
+        PrintHex => 1,
+        PrintConvColumns => 2,
+        PrintConv => {
+            0 => 'Off',
+            0x01 => 'Channel 1, Low',
+            0x02 => 'Channel 2, Low',
+            0x03 => 'Channel 3, Low',
+            0x04 => 'Channel 4, Low',
+            0x09 => 'Channel 1, Mid',
+            0x0a => 'Channel 2, Mid',
+            0x0b => 'Channel 3, Mid',
+            0x0c => 'Channel 4, Mid',
+            0x11 => 'Channel 1, High',
+            0x12 => 'Channel 2, High',
+            0x13 => 'Channel 3, High',
+            0x14 => 'Channel 4, High',
+        },
+    },
+    0x404 => { #11
+        Name => 'FlashControlMode',
+        Writable => 'int16u',
+        Count => -1,
+        Notes => '3 or 4 values',
+        PrintConv => [{
+            0 => 'Off',
+            3 => 'TTL',
+            4 => 'Auto',
+            5 => 'Manual',
+        }],
+    },
+    0x405 => { #11
+        Name => 'FlashIntensity',
+        Writable => 'rational64s',
+        Count => -1,
+        Notes => '3 or 4 values',
+        PrintConv => {
+            OTHER => sub { shift },
+            'undef undef undef' => 'n/a',
+            'undef undef undef undef' => 'n/a (x4)',
+        },
+    },
+    0x406 => { #11
+        Name => 'ManualFlashStrength',
+        Writable => 'rational64s',
+        Count => -1,
+        Notes => '3 or 4 values',
+        PrintConv => {
+            OTHER => sub { shift },
+            'undef undef undef' => 'n/a',
+            'undef undef undef undef' => 'n/a (x4)',
+        },
+    },
+    0x500 => { #6
+        Name => 'WhiteBalance2',
+        Writable => 'int16u',
+        PrintConv => {
+            0 => 'Auto',
+            1 => 'Auto (Keep Warm Color Off)', #IB
+            16 => '7500K (Fine Weather with Shade)',
+            17 => '6000K (Cloudy)',
+            18 => '5300K (Fine Weather)',
+            20 => '3000K (Tungsten light)',
+            21 => '3600K (Tungsten light-like)',
+            22 => 'Auto Setup', #IB
+            23 => '5500K (Flash)', #IB
+            33 => '6600K (Daylight fluorescent)',
+            34 => '4500K (Neutral white fluorescent)',
+            35 => '4000K (Cool white fluorescent)',
+            36 => 'White Fluorescent', #IB
+            48 => '3600K (Tungsten light-like)',
+            67 => 'Underwater', #IB
+            256 => 'One Touch WB 1', #IB
+            257 => 'One Touch WB 2', #IB
+            258 => 'One Touch WB 3', #IB
+            259 => 'One Touch WB 4', #IB
+            512 => 'Custom WB 1', #IB
+            513 => 'Custom WB 2', #IB
+            514 => 'Custom WB 3', #IB
+            515 => 'Custom WB 4', #IB
+        },
+    },
+    0x501 => { #PH/4
+        Name => 'WhiteBalanceTemperature',
+        Writable => 'int16u',
+        PrintConv => '$val ? $val : "Auto"',
+        PrintConvInv => '$val=~/^\d+$/ ? $val : 0',
+    },
+    0x502 => {  #PH/4
+        Name => 'WhiteBalanceBracket',
+        Writable => 'int16s',
+    },
+    0x503 => { #PH/4/6
+        Name => 'CustomSaturation',
+        Writable => 'int16s',
+        Count => 3,
+        Notes => '3 numbers: 1. CS Value, 2. Min, 3. Max',
+        PrintConv => q{
+            my ($a,$b,$c)=split ' ',$val;
+            if ($self->{Model} =~ /^E-1\b/) {
+                $a-=$b; $c-=$b;
+                return "CS$a (min CS0, max CS$c)";
+            } else {
+                return "$a (min $b, max $c)";
+            }
+        },
+    },
+    0x504 => { #PH/4
+        Name => 'ModifiedSaturation',
+        Writable => 'int16u',
+        PrintConv => {
+            0 => 'Off',
+            1 => 'CM1 (Red Enhance)',
+            2 => 'CM2 (Green Enhance)',
+            3 => 'CM3 (Blue Enhance)',
+            4 => 'CM4 (Skin Tones)',
+        },
+    },
+    0x505 => { #PH/4
+        Name => 'ContrastSetting',
+        Writable => 'int16s',
+        Count => 3,
+        Notes => 'value, min, max',
+        PrintConv => 'my @v=split " ",$val; "$v[0] (min $v[1], max $v[2])"',
+        PrintConvInv => '$val=~tr/-0-9 //dc;$val',
+    },
+    0x506 => { #PH/4
+        Name => 'SharpnessSetting',
+        Writable => 'int16s',
+        Count => 3,
+        Notes => 'value, min, max',
+        PrintConv => 'my @v=split " ",$val; "$v[0] (min $v[1], max $v[2])"',
+        PrintConvInv => '$val=~tr/-0-9 //dc;$val',
+    },
+    0x507 => { #PH/4
+        Name => 'ColorSpace',
+        Writable => 'int16u',
+        PrintConv => { #6
+            0 => 'sRGB',
+            1 => 'Adobe RGB',
+            2 => 'Pro Photo RGB',
+        },
+    },
+    0x509 => { #6
+        Name => 'SceneMode',
+        Writable => 'int16u',
+        PrintConvColumns => 2,
+        PrintConv => {
+            0 => 'Standard',
+            6 => 'Auto', #6
+            7 => 'Sport',
+            8 => 'Portrait',
+            9 => 'Landscape+Portrait',
+            10 => 'Landscape',
+            11 => 'Night Scene',
+            12 => 'Self Portrait', #11
+            13 => 'Panorama', #6
+            14 => '2 in 1', #11
+            15 => 'Movie', #11
+            16 => 'Landscape+Portrait', #6
+            17 => 'Night+Portrait',
+            18 => 'Indoor', #11 (Party - PH)
+            19 => 'Fireworks',
+            20 => 'Sunset',
+            21 => 'Beauty Skin', #PH
+            22 => 'Macro',
+            23 => 'Super Macro', #11
+            24 => 'Food', #11
+            25 => 'Documents',
+            26 => 'Museum',
+            27 => 'Shoot & Select', #11
+            28 => 'Beach & Snow',
+            29 => 'Self Protrait+Timer', #11
+            30 => 'Candle',
+            31 => 'Available Light', #11
+            32 => 'Behind Glass', #11
+            33 => 'My Mode', #11
+            34 => 'Pet', #11
+            35 => 'Underwater Wide1', #6
+            36 => 'Underwater Macro', #6
+            37 => 'Shoot & Select1', #11
+            38 => 'Shoot & Select2', #11
+            39 => 'High Key',
+            40 => 'Digital Image Stabilization', #6
+            41 => 'Auction', #11
+            42 => 'Beach', #11
+            43 => 'Snow', #11
+            44 => 'Underwater Wide2', #6
+            45 => 'Low Key', #6
+            46 => 'Children', #6
+            47 => 'Vivid', #11
+            48 => 'Nature Macro', #6
+            49 => 'Underwater Snapshot', #11
+            50 => 'Shooting Guide', #11
+            54 => 'Face Portrait', #11
+            57 => 'Bulb', #11
+            59 => 'Smile Shot', #11
+            60 => 'Quick Shutter', #11
+            63 => 'Slow Shutter', #11
+            64 => 'Bird Watching', #11
+            65 => 'Multiple Exposure', #11
+            66 => 'e-Portrait', #11
+            67 => 'Soft Background Shot', #11
+            142 => 'Hand-held Starlight', #PH (SH-21)
+            154 => 'HDR', #PH (XZ-2)
+        },
+    },
+    0x50a => { #PH/4/6
+        Name => 'NoiseReduction',
+        Writable => 'int16u',
+        PrintConv => {
+            0 => '(none)',
+            BITMASK => {
+                0 => 'Noise Reduction',
+                1 => 'Noise Filter',
+                2 => 'Noise Filter (ISO Boost)',
+                3 => 'Auto', #11
+            },
+        },
+    },
+    0x50b => { #6
+        Name => 'DistortionCorrection',
+        Writable => 'int16u',
+        PrintConv => \%offOn,
+    },
+    0x50c => { #PH/4
+        Name => 'ShadingCompensation',
+        Writable => 'int16u',
+        PrintConv => \%offOn,
+    },
+    0x50d => { Name => 'CompressionFactor', Writable => 'rational64u' }, #PH/4
+    0x50f => { #6
+        Name => 'Gradation',
+        Writable => 'int16s',
+        Notes => '3 or 4 values',
+        Count => -1,
+        Relist => [ [0..2], 3 ], # join values 0-2 for PrintConv
+        PrintConv => [{
+           '0 0 0' => 'n/a', #PH (?)
+           '-1 -1 1' => 'Low Key',
+            '0 -1 1' => 'Normal',
+            '1 -1 1' => 'High Key',
+        },{
+            0 => 'User-Selected',
+            1 => 'Auto-Override',
+        }],
+    },
+    0x520 => { #6
+        Name => 'PictureMode',
+        Writable => 'int16u',
+        Notes => '1 or 2 values',
+        Count => -1,
+        PrintConv => [{
+            1 => 'Vivid',
+            2 => 'Natural',
+            3 => 'Muted',
+            4 => 'Portrait',
+            5 => 'i-Enhance', #11
+            6 => 'e-Portrait', #23
+            7 => 'Color Creator', #23
+            9 => 'Color Profile 1', #23
+            10 => 'Color Profile 2', #23
+            11 => 'Color Profile 3', #23
+            12 => 'Monochrome Profile 1', #23
+            13 => 'Monochrome Profile 2', #23
+            14 => 'Monochrome Profile 3', #23
+            256 => 'Monotone',
+            512 => 'Sepia',
+        }],
+    },
+    0x521 => { #6
+        Name => 'PictureModeSaturation',
+        Writable => 'int16s',
+        Count => 3,
+        Notes => 'value, min, max',
+        PrintConv => 'my @v=split " ",$val; "$v[0] (min $v[1], max $v[2])"',
+        PrintConvInv => '$val=~tr/-0-9 //dc;$val',
+    },
+    0x522 => { #6
+        Name => 'PictureModeHue',
+        Writable => 'int16s',
+        Unknown => 1, # (needs verification)
+    },
+    0x523 => { #6
+        Name => 'PictureModeContrast',
+        Writable => 'int16s',
+        Count => 3,
+        Notes => 'value, min, max',
+        PrintConv => 'my @v=split " ",$val; "$v[0] (min $v[1], max $v[2])"',
+        PrintConvInv => '$val=~tr/-0-9 //dc;$val',
+    },
+    0x524 => { #6
+        Name => 'PictureModeSharpness',
+        # verified as the Sharpness setting in the Picture Mode menu for the E-410
+        Writable => 'int16s',
+        Count => 3,
+        Notes => 'value, min, max',
+        PrintConv => 'my @v=split " ",$val; "$v[0] (min $v[1], max $v[2])"',
+        PrintConvInv => '$val=~tr/-0-9 //dc;$val',
+    },
+    0x525 => { #6
+        Name => 'PictureModeBWFilter',
+        Writable => 'int16s',
+        PrintConvColumns => 2,
+        PrintConv => {
+            0 => 'n/a',
+            1 => 'Neutral',
+            2 => 'Yellow',
+            3 => 'Orange',
+            4 => 'Red',
+            5 => 'Green',
+        },
+    },
+    0x526 => { #6
+        Name => 'PictureModeTone',
+        Writable => 'int16s',
+        PrintConvColumns => 2,
+        PrintConv => {
+            0 => 'n/a',
+            1 => 'Neutral',
+            2 => 'Sepia',
+            3 => 'Blue',
+            4 => 'Purple',
+            5 => 'Green',
+        },
+    },
+    0x527 => { #12
+        Name => 'NoiseFilter',
+        Writable => 'int16s',
+        Count => 3,
+        PrintConv => {
+           '0 0 0' => 'n/a', #PH (?)
+           '-2 -2 1' => 'Off',
+           '-1 -2 1' => 'Low',
+           '0 -2 1' => 'Standard',
+           '1 -2 1' => 'High',
+        },
+    },
+    0x529 => { #PH
+        Name => 'ArtFilter',
+        Writable => 'int16u',
+        Count => 4,
+        PrintConvColumns => 2,
+        PrintConv => [ \%filters ],
+    },
+    0x52c => { #PH
+        Name => 'MagicFilter',
+        Writable => 'int16u',
+        Count => 4, # (2nd number is 0, 1280 or 1792, 3rd/4th are 0)
+        # (1792 observed for E-5 Gentle Sepia and XZ-1 Dramatic Tone)
+        PrintConvColumns => 2,
+        PrintConv => [ \%filters ],
+    },
+    0x52d => { #11
+        Name => 'PictureModeEffect',
+        Writable => 'int16s',
+        Count => 3,
+        PrintConv => {
+           '0 0 0' => 'n/a', #PH (?)
+           '-1 -1 1' => 'Low',
+           '0 -1 1' => 'Standard',
+           '1 -1 1' => 'High',
+        },
+    },
+    0x52e => { #11/PH
+        Name => 'ToneLevel',
+        PrintConv => [
+            \%toneLevelType,
+            undef, # (highlights value)
+            undef, # (highlights min)
+            undef, # (highlights max)
+            \%toneLevelType,
+            undef, # (shadows value)
+            undef, # (shadows min)
+            undef, # (shadows max)
+            \%toneLevelType,
+            undef, # (midtones value)
+            undef, # (midtones min)
+            undef, # (midtones max)
+            \%toneLevelType,
+            undef,
+            undef,
+            undef,
+            \%toneLevelType,
+            undef,
+            undef,
+            undef,
+            \%toneLevelType,
+            undef,
+            undef,
+            undef,
+            \%toneLevelType,
+            undef,
+            undef,
+            undef,
+        ]
+    },
+    0x52f => { #PH
+        Name => 'ArtFilterEffect',
+        Writable => 'int16u',
+        Count => 20,
+        PrintHex => 1,
+        PrintConvColumns => 2,
+        PrintConv => [
+            \%filters,
+            undef,
+            undef,
+            '"Partial Color $val"', #23
+            {   # there are 5 available art filter effects for the E-PL3...
+                0x0000 => 'No Effect',
+                0x8010 => 'Star Light',
+                0x8020 => 'Pin Hole',
+                0x8030 => 'Frame',
+                0x8040 => 'Soft Focus',
+                0x8050 => 'White Edge',
+                0x8060 => 'B&W', # (NC - E-PL2 with "Grainy Film" filter)
+                0x8080 => 'Blur Top and Bottom', #23
+                0x8081 => 'Blur Left and Right', #23
+                # (E-PL2 also has "Pict. Tone" effect)
+            },
+            undef,
+            { #23
+                0 => 'No Color Filter',
+                1 => 'Yellow Color Filter',
+                2 => 'Orange Color Filter',
+                3 => 'Red Color Filter',
+                4 => 'Green Color Filter',
+            },
+        ],
+    },
+    0x532 => { #23
+        Name => 'ColorCreatorEffect',
+        Writable => 'int16s',
+        Count => 6,
+        PrintConv => [
+            '"Color $val"',
+            undef, # (Color min)
+            undef, # (Color max)
+            '"Strength $val"',
+            undef, # (Strength min)
+            undef, # (Strength max)
+        ],
+    },
+    0x537 => { #23
+        Name => 'MonochromeProfileSettings',
+        Writable => 'int16s',
+        Count => 6,
+        PrintConv => [
+            {
+                0 => 'No Filter',
+                1 => 'Yellow Filter',
+                2 => 'Orange Filter',
+                3 => 'Red Filter',
+                4 => 'Magenta Filter',
+                5 => 'Blue Filter',
+                6 => 'Cyan Filter',
+                7 => 'Green Filter',
+                8 => 'Yellow-green Filter',
+            },
+            undef, # (Filter number min)
+            undef, # (Filter number max)
+            '"Strength $val"',
+            undef, # (Strength min)
+            undef, # (Strength max)
+        ],
+    },
+    0x538 => { #23
+        Name => 'FilmGrainEffect',
+        Writable => 'int16s',
+        PrintConv => {
+            0 => 'Off',
+            1 => 'Low',
+            2 => 'Medium',
+            3 => 'High',
+        },
+    },
+    0x539 => { #23
+        Name => 'ColorProfileSettings',
+        Writable => 'int16s',
+        Count => 14,
+        PrintConv => [
+            '"Min $val"',
+            '"Max $val"',
+            '"Yellow $val"',
+            '"Orange $val"',
+            '"Orange-red $val"',
+            '"Red $val"',
+            '"Magenta $val"',
+            '"Violet $val"',
+            '"Blue $val"',
+            '"Blue-cyan $val"',
+            '"Cyan $val"',
+            '"Green-cyan $val"',
+            '"Green $val"',
+            '"Yellow-green $val"',
+        ],
+    },
+    0x53a => { #23
+        Name => 'MonochromeVignetting',
+        Writable => 'int16s',
+        Notes => '-5 to +5: positive is white vignetting, negative is black vignetting',
+    },
+    0x53b => { #23
+        Name => 'MonochromeColor',
+        Writable => 'int16s',
+        PrintConv => {
+            0 => '(none)',
+            1 => 'Normal',
+            2 => 'Sepia',
+            3 => 'Blue',
+            4 => 'Purple',
+            5 => 'Green',
+        },
+    },
+    0x600 => { #PH/4
+        Name => 'DriveMode',
+        Writable => 'int16u',
+        Count => -1,
+        Notes => '2 or 3 numbers: 1. Mode, 2. Shot number, 3. Mode bits',
+        PrintConv => q{
+            my ($a,$b,$c) = split ' ',$val;
+            return 'Single Shot' unless $a;
+            if ($a == 5 and defined $c) {
+                $a = DecodeBits($c, { #6
+                    0 => 'AE',
+                    1 => 'WB',
+                    2 => 'FL',
+                    3 => 'MF',
+                    6 => 'Focus', #PH
+                }) . ' Bracketing';
+                $a =~ s/, /+/g;
+            } else {
+                my %a = (
+                    1 => 'Continuous Shooting',
+                    2 => 'Exposure Bracketing',
+                    3 => 'White Balance Bracketing',
+                    4 => 'Exposure+WB Bracketing', #6
+                );
+                $a = $a{$a} || "Unknown ($a)";
+            }
+            return "$a, Shot $b";
+        },
+    },
+    0x601 => { #6
+        Name => 'PanoramaMode',
+        Writable => 'int16u',
+        Notes => '2 numbers: 1. Mode, 2. Shot number',
+        PrintConv => q{
+            my ($a,$b) = split ' ',$val;
+            return 'Off' unless $a;
+            my %a = (
+                1 => 'Left to Right',
+                2 => 'Right to Left',
+                3 => 'Bottom to Top',
+                4 => 'Top to Bottom',
+            );
+            return ($a{$a} || "Unknown ($a)") . ', Shot ' . $b;
+        },
+    },
+    0x603 => { #PH/4
+        Name => 'ImageQuality2',
+        Writable => 'int16u',
+        PrintConv => {
+            1 => 'SQ',
+            2 => 'HQ',
+            3 => 'SHQ',
+            4 => 'RAW',
+            5 => 'SQ (5)', # (E-500)
+        },
+    },
+    0x604 => { #PH
+        Name => 'ImageStabilization',
+        Writable => 'int32u',
+        DataMember => 'ImageStabilization',
+        RawConv => '$$self{ImageStabilization} = $val',
+        PrintConv => {
+            0 => 'Off',
+            1 => 'On, Mode 1',
+            2 => 'On, Mode 2',
+            3 => 'On, Mode 3',
+            4 => 'On, Mode 4', # (NC, E-P5)
+        },
+    },
+    0x804 => { #PH (E-M1 with firmware update)
+        Name => 'StackedImage',
+        Writable => 'int32u',
+        Count => 2,
+        PrintConv => {
+            '0 0' => 'No',
+            #'8 8' - seen this for the E-M1mkII
+            '9 8' => 'Focus-stacked (8 images)',
+        },
+    },
+    0x900 => { #11
+        Name => 'ManometerPressure',
+        Writable => 'int16u',
+        ValueConv => '$val / 10',
+        ValueConvInv => '$val * 10',
+        PrintConv => '"$val kPa"',
+        PrintConvInv => '$val=~s/ ?kPa//i; $val',
+    },
+    0x901 => { #PH (u770SW)
+        # 2 numbers: 1st looks like meters above sea level, 2nd is usually 3x the 1st (feet?)
+        Name => 'ManometerReading',
+        Writable => 'int32s',
+        Count => 2,
+        ValueConv => 'my @a=split(" ",$val); $_ /= 10 foreach @a; "@a"',
+        ValueConvInv => 'my @a=split(" ",$val); $_ *= 10 foreach @a; "@a"',
+        PrintConv => '$val=~s/(\S+) (\S+)/$1 m, $2 ft/; $val',
+        PrintConvInv => '$val=~s/ ?(m|ft)//gi; $val',
+    },
+    0x902 => { #11
+        Name => 'ExtendedWBDetect',
+        Writable => 'int16u',
+        PrintConv => \%offOn,
+    },
+    0x903 => { #11
+        Name => 'RollAngle',
+        Notes => 'converted to degrees of clockwise camera rotation',
+        Writable => 'int16s',
+        Count => 2, # (second value is 0 if level gauge is off)
+        # negate to express as clockwise rotation
+        ValueConv => '$val=~s/ 1$// ? -$val/10 : "n/a"',
+        ValueConvInv => 'IsFloat($val) ? sprintf("%.0f 1",-$val*10) : "0 0"',
+    },
+    0x904 => { #11
+        Name => 'PitchAngle',
+        Notes => 'converted to degrees of upward camera tilt',
+        Writable => 'int16s',
+        Count => 2, # (second value is 0 if level gauge is off)
+        ValueConv => '$val =~ s/ 1$// ? $val / 10 : "n/a"',
+        ValueConvInv => 'IsFloat($val) ? sprintf("%.0f 1",$val*10) : "0 0"',
+    },
+    0x908 => { #PH (NC, E-M1)
+        Name => 'DateTimeUTC',
+        Writable => 'string',
+        Groups => { 2 => 'Time' },
+        Shift => 'Time',
+        PrintConv => '$self->ConvertDateTime($val)',
+        PrintConvInv => '$self->InverseDateTime($val,undef,1)',
+    },
+);
+
+# Olympus RAW processing IFD (ref 6)
+%Image::ExifTool::Olympus::RawDevelopment = (
+    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
+    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
+    WRITABLE => 1,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    0x000 => { #PH
+        Name => 'RawDevVersion',
+        Writable => 'undef',
+        RawConv => '$val=~s/\0+$//; $val',  # (may be null terminated)
+        Count => 4,
+    },
+    0x100 => { Name => 'RawDevExposureBiasValue',   Writable => 'rational64s' },
+    0x101 => { Name => 'RawDevWhiteBalanceValue',   Writable => 'int16u' },
+    0x102 => { Name => 'RawDevWBFineAdjustment',    Writable => 'int16s' },
+    0x103 => { Name => 'RawDevGrayPoint',           Writable => 'int16u', Count => 3 },
+    0x104 => { Name => 'RawDevSaturationEmphasis',  Writable => 'int16s', Count => 3 },
+    0x105 => { Name => 'RawDevMemoryColorEmphasis', Writable => 'int16u' },
+    0x106 => { Name => 'RawDevContrastValue',       Writable => 'int16s', Count => 3 },
+    0x107 => { Name => 'RawDevSharpnessValue',      Writable => 'int16s', Count => 3 },
+    0x108 => {
+        Name => 'RawDevColorSpace',
+        Writable => 'int16u',
+        PrintConv => { #11
+            0 => 'sRGB',
+            1 => 'Adobe RGB',
+            2 => 'Pro Photo RGB',
+        },
+    },
+    0x109 => {
+        Name => 'RawDevEngine',
+        Writable => 'int16u',
+        PrintConv => { #11
+            0 => 'High Speed',
+            1 => 'High Function',
+            2 => 'Advanced High Speed',
+            3 => 'Advanced High Function',
+        },
+    },
+    0x10a => {
+        Name => 'RawDevNoiseReduction',
+        Writable => 'int16u',
+        PrintConv => { #11
+            0 => '(none)',
+            BITMASK => {
+                0 => 'Noise Reduction',
+                1 => 'Noise Filter',
+                2 => 'Noise Filter (ISO Boost)',
+            },
+        },
+    },
+    0x10b => {
+        Name => 'RawDevEditStatus',
+        Writable => 'int16u',
+        PrintConv => { #11
+            0 => 'Original',
+            1 => 'Edited (Landscape)',
+            6 => 'Edited (Portrait)',
+            8 => 'Edited (Portrait)',
+        },
+    },
+    0x10c => {
+        Name => 'RawDevSettings',
+        Writable => 'int16u',
+        PrintConv => { #11
+            0 => '(none)',
+            BITMASK => {
+                0 => 'WB Color Temp',
+                1 => 'WB Gray Point',
+                2 => 'Saturation',
+                3 => 'Contrast',
+                4 => 'Sharpness',
+                5 => 'Color Space',
+                6 => 'High Function',
+                7 => 'Noise Reduction',
+            },
+        },
+    },
+);
+
+# Olympus RAW processing B IFD (ref 11)
+%Image::ExifTool::Olympus::RawDevelopment2 = (
+    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
+    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
+    WRITABLE => 1,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    0x000 => {
+        Name => 'RawDevVersion',
+        Writable => 'undef',
+        RawConv => '$val=~s/\0+$//; $val',  # (may be null terminated)
+        Count => 4,
+    },
+    0x100 => { Name => 'RawDevExposureBiasValue',   Writable => 'rational64s' },
+    0x101 => {
+        Name => 'RawDevWhiteBalance',
+        Writable => 'int16u',
+        PrintConv => {
+            1 => 'Color Temperature',
+            2 => 'Gray Point',
+        },
+    },
+    0x102 => { Name => 'RawDevWhiteBalanceValue',   Writable => 'int16u' },
+    0x103 => { Name => 'RawDevWBFineAdjustment',    Writable => 'int16s' },
+    0x104 => { Name => 'RawDevGrayPoint',           Writable => 'int16u', Count => 3 },
+    0x105 => { Name => 'RawDevContrastValue',       Writable => 'int16s', Count => 3 },
+    0x106 => { Name => 'RawDevSharpnessValue',      Writable => 'int16s', Count => 3 },
+    0x107 => { Name => 'RawDevSaturationEmphasis',  Writable => 'int16s', Count => 3 },
+    0x108 => { Name => 'RawDevMemoryColorEmphasis', Writable => 'int16u' },
+    0x109 => {
+        Name => 'RawDevColorSpace',
+        Writable => 'int16u',
+        PrintConv => {
+            0 => 'sRGB',
+            1 => 'Adobe RGB',
+            2 => 'Pro Photo RGB',
+        },
+    },
+    0x10a => {
+        Name => 'RawDevNoiseReduction',
+        Writable => 'int16u',
+        PrintConv => {
+            0 => '(none)',
+            BITMASK => {
+                0 => 'Noise Reduction',
+                1 => 'Noise Filter',
+                2 => 'Noise Filter (ISO Boost)',
+            },
+        },
+    },
+    0x10b => {
+        Name => 'RawDevEngine',
+        Writable => 'int16u',
+        PrintConv => {
+            0 => 'High Speed',
+            1 => 'High Function',
+        },
+    },
+    0x10c => {
+        Name => 'RawDevPictureMode',
+        Writable => 'int16u',
+        PrintConv => {
+            1 => 'Vivid',
+            2 => 'Natural',
+            3 => 'Muted',
+            256 => 'Monotone',
+            512 => 'Sepia',
+        },
+    },
+    0x10d => { Name => 'RawDevPMSaturation',    Writable => 'int16s', Count => 3 },
+    0x10e => { Name => 'RawDevPMContrast',      Writable => 'int16s', Count => 3 },
+    0x10f => { Name => 'RawDevPMSharpness',     Writable => 'int16s', Count => 3 },
+    0x110 => {
+        Name => 'RawDevPM_BWFilter',
+        Writable => 'int16u',
+        PrintConv => {
+            1 => 'Neutral',
+            2 => 'Yellow',
+            3 => 'Orange',
+            4 => 'Red',
+            5 => 'Green',
+        },
+    },
+    0x111 => {
+        Name => 'RawDevPMPictureTone',
+        Writable => 'int16u',
+        PrintConv => {
+            1 => 'Neutral',
+            2 => 'Sepia',
+            3 => 'Blue',
+            4 => 'Purple',
+            5 => 'Green',
+        },
+    },
+    0x112 => { Name => 'RawDevGradation',       Writable => 'int16s', Count => 3 },
+    0x113 => { Name => 'RawDevSaturation3',     Writable => 'int16s', Count => 3 }, #(NC Count)
+    0x119 => { Name => 'RawDevAutoGradation',   Writable => 'int16u', PrintConv => \%offOn },
+    0x120 => { Name => 'RawDevPMNoiseFilter',   Writable => 'int16u' }, #(NC format)
+    0x121 => { #PH (E-P5)
+        Name => 'RawDevArtFilter',
+        Writable => 'int16u',
+        Count => 4,
+        PrintConvColumns => 2,
+        PrintConv => [ \%filters ],
+    },
+);
+
+# Olympus Image processing IFD
+%Image::ExifTool::Olympus::ImageProcessing = (
+    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
+    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
+    WRITABLE => 1,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    0x000 => { #PH
+        Name => 'ImageProcessingVersion',
+        Writable => 'undef',
+        RawConv => '$val=~s/\0+$//; $val',  # (may be null terminated)
+        Count => 4,
+    },
+    0x100 => { Name => 'WB_RBLevels',       Writable => 'int16u', Count => 2 }, #6
+    # 0x101 - in-camera AutoWB unless it is all 0's or all 256's (ref IB)
+    0x102 => { Name => 'WB_RBLevels3000K',  Writable => 'int16u', Count => 2 }, #11
+    0x103 => { Name => 'WB_RBLevels3300K',  Writable => 'int16u', Count => 2 }, #11
+    0x104 => { Name => 'WB_RBLevels3600K',  Writable => 'int16u', Count => 2 }, #11
+    0x105 => { Name => 'WB_RBLevels3900K',  Writable => 'int16u', Count => 2 }, #11
+    0x106 => { Name => 'WB_RBLevels4000K',  Writable => 'int16u', Count => 2 }, #11
+    0x107 => { Name => 'WB_RBLevels4300K',  Writable => 'int16u', Count => 2 }, #11
+    0x108 => { Name => 'WB_RBLevels4500K',  Writable => 'int16u', Count => 2 }, #11
+    0x109 => { Name => 'WB_RBLevels4800K',  Writable => 'int16u', Count => 2 }, #11
+    0x10a => { Name => 'WB_RBLevels5300K',  Writable => 'int16u', Count => 2 }, #11
+    0x10b => { Name => 'WB_RBLevels6000K',  Writable => 'int16u', Count => 2 }, #11
+    0x10c => { Name => 'WB_RBLevels6600K',  Writable => 'int16u', Count => 2 }, #11
+    0x10d => { Name => 'WB_RBLevels7500K',  Writable => 'int16u', Count => 2 }, #11
+    0x10e => { Name => 'WB_RBLevelsCWB1',   Writable => 'int16u', Count => 2 }, #11
+    0x10f => { Name => 'WB_RBLevelsCWB2',   Writable => 'int16u', Count => 2 }, #11
+    0x110 => { Name => 'WB_RBLevelsCWB3',   Writable => 'int16u', Count => 2 }, #11
+    0x111 => { Name => 'WB_RBLevelsCWB4',   Writable => 'int16u', Count => 2 }, #11
+    0x113 => { Name => 'WB_GLevel3000K',    Writable => 'int16u' }, #11
+    0x114 => { Name => 'WB_GLevel3300K',    Writable => 'int16u' }, #11
+    0x115 => { Name => 'WB_GLevel3600K',    Writable => 'int16u' }, #11
+    0x116 => { Name => 'WB_GLevel3900K',    Writable => 'int16u' }, #11
+    0x117 => { Name => 'WB_GLevel4000K',    Writable => 'int16u' }, #11
+    0x118 => { Name => 'WB_GLevel4300K',    Writable => 'int16u' }, #11
+    0x119 => { Name => 'WB_GLevel4500K',    Writable => 'int16u' }, #11
+    0x11a => { Name => 'WB_GLevel4800K',    Writable => 'int16u' }, #11
+    0x11b => { Name => 'WB_GLevel5300K',    Writable => 'int16u' }, #11
+    0x11c => { Name => 'WB_GLevel6000K',    Writable => 'int16u' }, #11
+    0x11d => { Name => 'WB_GLevel6600K',    Writable => 'int16u' }, #11
+    0x11e => { Name => 'WB_GLevel7500K',    Writable => 'int16u' }, #11
+    0x11f => { Name => 'WB_GLevel',         Writable => 'int16u' }, #11
+    # 0x121 = WB preset for flash (about 6000K) (ref IB)
+    # 0x125 = WB preset for underwater (ref IB)
+    0x200 => { #6
+        Name => 'ColorMatrix',
+        Writable => 'int16u',
+        Format => 'int16s',
+        Count => 9,
+    },
+    # color matrices (ref 11):
+    # 0x0201-0x020d are sRGB color matrices
+    # 0x020e-0x021a are Adobe RGB color matrices
+    # 0x021b-0x0227 are ProPhoto RGB color matrices
+    # 0x0228 and 0x0229 are ColorMatrix for E-330
+    # 0x0250-0x0252 are sRGB color matrices
+    # 0x0253-0x0255 are Adobe RGB color matrices
+    # 0x0256-0x0258 are ProPhoto RGB color matrices
+    0x300 => { Name => 'Enhancer',          Writable => 'int16u' }, #11
+    0x301 => { Name => 'EnhancerValues',    Writable => 'int16u', Count => 7 }, #11
+    0x310 => { Name => 'CoringFilter',      Writable => 'int16u' }, #11
+    0x311 => { Name => 'CoringValues',      Writable => 'int16u', Count => 7 }, #11
+    0x600 => { Name => 'BlackLevel2',       Writable => 'int16u', Count => 4 }, #11
+    0x610 => { Name => 'GainBase',          Writable => 'int16u' }, #11
+    0x611 => { Name => 'ValidBits',         Writable => 'int16u', Count => 2 }, #4/6
+    0x612 => { Name => 'CropLeft',          Writable => 'int16u', Count => 2 }, #11
+    0x613 => { Name => 'CropTop',           Writable => 'int16u', Count => 2 }, #11
+    0x614 => { Name => 'CropWidth',         Writable => 'int32u' }, #PH/11
+    0x615 => { Name => 'CropHeight',        Writable => 'int32u' }, #PH/11
+    0x635 => { #PH (data starts with "CMIO\x01\0")
+        Name => 'UnknownBlock1',
+        Writable => 'undef',
+        Notes => 'large unknown data block in ORF images but not JPG images',
+        # 'Drop' because too large for APP1 in JPEG images
+        Flags => [ 'Unknown', 'Binary', 'Drop' ],
+    },
+    0x636 => { #PH (data starts with "CMIO\x01\0")
+        Name => 'UnknownBlock2',
+        Writable => 'undef',
+        Notes => 'large unknown data block in ORF images but not JPG images',
+        # 'Drop' because too large for APP1 in JPEG images
+        Flags => [ 'Unknown', 'Binary', 'Drop' ],
+    },
+    # 0x800 LensDistortionParams, float[9] (ref 11)
+    # 0x801 LensShadingParams, int16u[16] (ref 11)
+    0x0805 => { #IB
+        Name => 'SensorCalibration',
+        Notes => '2 numbers: 1. recommended maximum, 2. calibration midpoint',
+        Writable => 'int16s',
+        Count => 2,
+    },
+    # 0x1010-0x1012 are the processing options used in camera or in
+    # Olympus software, which 0x050a-0x050c are in-camera only (ref 6)
+    0x1010 => { #PH/4
+        Name => 'NoiseReduction2',
+        Writable => 'int16u',
+        PrintConv => {
+            0 => '(none)',
+            BITMASK => {
+                0 => 'Noise Reduction',
+                1 => 'Noise Filter',
+                2 => 'Noise Filter (ISO Boost)',
+            },
+        },
+    },
+    0x1011 => { #6
+        Name => 'DistortionCorrection2',
+        Writable => 'int16u',
+        PrintConv => \%offOn,
+    },
+    0x1012 => { #PH/4
+        Name => 'ShadingCompensation2',
+        Writable => 'int16u',
+        PrintConv => \%offOn,
+    },
+    0x101c => { #11
+        Name => 'MultipleExposureMode',
+        Writable => 'int16u',
+        Count => 2,
+        PrintConv => [{
+            0 => 'Off',
+            2 => 'On (2 frames)',
+            3 => 'On (3 frames)',
+        }],
+    },
+    0x1103 => { #PH
+        Name => 'UnknownBlock3',
+        Writable => 'undef',
+        Notes => 'large unknown data block in ORF images but not JPG images',
+        # 'Drop' because too large for APP1 in JPEG images
+        Flags => [ 'Unknown', 'Binary', 'Drop' ],
+    },
+    0x1104 => { #PH (overlaps data for 0x1103 in E-M5 ORF images)
+        Name => 'UnknownBlock4',
+        Writable => 'undef',
+        Notes => 'large unknown data block in ORF images but not JPG images',
+        # 'Drop' because too large for APP1 in JPEG images
+        Flags => [ 'Unknown', 'Binary', 'Drop' ],
+    },
+    0x1112 => { #11
+        Name => 'AspectRatio',
+        Writable => 'int8u',
+        Count => 2,
+        PrintConv => {
+            # '0 0' - have seen this with a 16:9 XZ-1 image - PH
+            '1 1' => '4:3',
+            '1 4' => '1:1', #PH (E-P5 Storyboard effect, does this indicate 4:3 converted to 6:6?)
+            '2 1' => '3:2 (RAW)', #forum6285
+            '2 2' => '3:2',
+            '3 1' => '16:9 (RAW)', #forum6285
+            '3 3' => '16:9',
+            '4 1' => '1:1 (RAW)', #forum6285
+            '4 4' => '6:6',
+            '5 5' => '5:4',
+            '6 6' => '7:6',
+            '7 7' => '6:5',
+            '8 8' => '7:5',
+            '9 1' => '3:4 (RAW)', #forum6285
+            '9 9' => '3:4',
+        },
+    },
+    0x1113 => { Name => 'AspectFrame',  Writable => 'int16u', Count => 4 }, #11
+    0x1200 => { #11/PH
+        Name => 'FacesDetected',
+        Writable => 'int32u',
+        Count => -1,
+        Notes => '2 or 3 values',
+    },
+    0x1201 => { #11/PH
+        Name => 'FaceDetectArea',
+        Writable => 'int16s',
+        Count => -1, # (varies with model)
+        Binary => 1, # (too long)
+        Notes => q{
+            for models with 2 values in FacesDetected this gives X/Y coordinates in the
+            FaceDetectFrame for all 4 corners of the face rectangle.  For models with 3
+            values in FacesDetected this gives X/Y coordinates, size and rotation angle
+            of the face detect square
+        },
+    },
+    0x1202 => { Name => 'MaxFaces',     Writable => 'int32u', Count => 3 }, #PH
+    0x1203 => { #PH
+        Name => 'FaceDetectFrameSize',
+        Writable => 'int16u',
+        Count => 6,
+        Notes => 'width/height of the full face detect frame',
+    },
+    0x1207 => { #PH
+        Name => 'FaceDetectFrameCrop',
+        Writable => 'int16s',
+        Count => 12,
+        Notes => 'X/Y offset and width/height of the cropped face detect frame',
+    },
+    0x1306 => { #PH (NC, E-M1)
+        Name => 'CameraTemperature',
+        Writable => 'int16u',
+        Format => 'int16s', #(NC)
+        ValueConv => '$val ? $val : undef', # zero for some models (how to differentiate from 0 C?)
+        Notes => 'this seems to be in degrees C only for some models',
+    },
+    0x1900 => { #23
+        Name => 'KeystoneCompensation',
+        Writable => 'int8u',
+        Count => 2,
+        PrintConv => {
+            '0 0' => 'Off',
+            '0 1' => 'On',
+        },
+    },
+    0x1901 => { #23
+        Name => 'KeystoneDirection',
+        Writable => 'int8u',
+        Count => 2,
+        PrintConv => {
+            0 => 'Vertical',
+            1 => 'Horizontal',
+        },
+    },
+    # 0x1905 - focal length (PH, E-M1)
+    0x1906 => { #23
+        Name => 'KeystoneValue',
+        Writable => 'int16s',
+        Count => 3,
+        # (use in conjunction with KeystoneDirection, -ve is Top or Right, +ve is Bottom or Left)
+        Notes => '3 numbers: 1. Keystone Value, 2. Min, 3. Max',
+    },
+);
+
+# Olympus Focus Info IFD
+%Image::ExifTool::Olympus::FocusInfo = (
+    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
+    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
+    WRITABLE => 1,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    0x000 => { #PH
+        Name => 'FocusInfoVersion',
+        Writable => 'undef',
+        RawConv => '$val=~s/\0+$//; $val',  # (may be null terminated)
+        Count => 4,
+    },
+    0x209 => { #PH/4
+        Name => 'AutoFocus',
+        Writable => 'int16u',
+        PrintConv => \%offOn,
+        Unknown => 1, #6
+    },
+    0x210 => { Name => 'SceneDetect',       Writable => 'int16u' }, #11
+    0x211 => { #11
+        Name => 'SceneArea',
+        Writable => 'int32u',
+        Count => 8,
+        Unknown => 1, # (numbers don't make much sense?)
+    },
+    0x212 => { #11
+        Name => 'SceneDetectData',
+        Writable => 'int32u',
+        Count => 720,
+        Binary => 1,
+        Unknown => 1, # (but what does it mean?)
+    },
+    # 0x214 - int16u: normally 0, but 1 for E-M1 focus-bracketing, and have seen 1 and 256 at other times
+    0x300 => { Name => 'ZoomStepCount',     Writable => 'int16u' }, #6
+    0x301 => { Name => 'FocusStepCount',    Writable => 'int16u' }, #11
+    0x303 => { Name => 'FocusStepInfinity', Writable => 'int16u' }, #11
+    0x304 => { Name => 'FocusStepNear',     Writable => 'int16u' }, #11
+    0x305 => { #4
+        Name => 'FocusDistance',
+        Writable => 'rational64u',
+        # this rational value looks like it is in mm when the denominator is
+        # 1 (E-1), and cm when denominator is 10 (E-300), so if we ignore the
+        # denominator we are consistently in mm - PH
+        Format => 'int32u',
+        Count => 2,
+        ValueConv => q{
+            my ($a,$b) = split ' ',$val;
+            return 0 if $a == 0xffffffff;
+            return $a / 1000;
+        },
+        ValueConvInv => q{
+            return '4294967295 1' unless $val;
+            $val = int($val * 1000 + 0.5);
+            return "$val 1";
+        },
+        PrintConv => '$val ? "$val m" : "inf"',
+        PrintConvInv => '$val eq "inf" ? 0 : $val=~s/\s*m$//, $val',
+    },
+    0x308 => [ # NEED A BETTER WAY TO DETERMINE WHICH MODELS USE WHICH ENCODING!
+        {
+            Name => 'AFPoint',
+            Condition => '$$self{Model} =~ /E-(3|5|30)\b/',
+            Writable => 'int16u',
+            PrintHex => 1,
+            # decoded by ref 6
+            Notes => q{
+                for the E-3, E-5 and E-30 the value is separated into 2 parts: low 5 bits
+                give AF point, upper bits give AF target selection mode
+            },
+            ValueConv => '($val & 0x1f) . " " . ($val & 0xffe0)',
+            ValueConvInv => 'my @v=split(" ",$val); @v == 2 ? $v[0] + $v[1] : $val',
+            PrintConvColumns => 2,
+            PrintConv => [
+                {
+                    0x00 => '(none)',
+                    0x01 => 'Top-left (horizontal)',
+                    0x02 => 'Top-center (horizontal)',
+                    0x03 => 'Top-right (horizontal)',
+                    0x04 => 'Left (horizontal)',
+                    0x05 => 'Mid-left (horizontal)',
+                    0x06 => 'Center (horizontal)',
+                    0x07 => 'Mid-right (horizontal)',
+                    0x08 => 'Right (horizontal)',
+                    0x09 => 'Bottom-left (horizontal)',
+                    0x0a => 'Bottom-center (horizontal)',
+                    0x0b => 'Bottom-right (horizontal)',
+                    0x0c => 'Top-left (vertical)',
+                    0x0d => 'Top-center (vertical)',
+                    0x0e => 'Top-right (vertical)',
+                    0x0f => 'Left (vertical)',
+                    0x10 => 'Mid-left (vertical)',
+                    0x11 => 'Center (vertical)',
+                    0x12 => 'Mid-right (vertical)',
+                    0x13 => 'Right (vertical)',
+                    0x14 => 'Bottom-left (vertical)',
+                    0x15 => 'Bottom-center (vertical)',
+                    0x16 => 'Bottom-right (vertical)',
+                    0x1f => 'n/a', #PH (NC, E-3)
+                },
+                {
+                    0x00 => 'Single Target',
+                    0x40 => 'All Target',
+                    0x80 => 'Dynamic Single Target',
+                    0xe0 => 'n/a', #PH (NC, E-3)
+                }
+            ],
+        },{ #PH (models with 7-point AF)
+            Name => 'AFPoint',
+            Condition => '$$self{Model} =~ /E-(520|600|620)\b/',
+            Notes => 'models with 7-point AF',
+            Writable => 'int16u',
+            PrintHex => 1,
+            ValueConv => '($val & 0x1f) . " " . ($val & 0xffe0)',
+            ValueConvInv => 'my @v=split(" ",$val); @v == 2 ? $v[0] + $v[1] : $val',
+            PrintConv => [
+                {
+                    0x00 => '(none)',
+                    0x01 => 'Center',
+                    # need to fill this in...
+                },
+                {
+                    0x00 => 'Single Target',
+                    0x40 => 'All Target', # (guess)
+                },
+            ]
+        },{ #11
+            Name => 'AFPoint',
+            Writable => 'int16u',
+            Notes => 'other models',
+            RawConv => '($val or $$self{Model} ne "E-P1") ? $val : undef',
+            PrintConv => {
+                # (E-P1 always writes 0, maybe other models do too - PH)
+                0 => 'Left (or n/a)',
+                1 => 'Center (horizontal)', #6 (E-510)
+                2 => 'Right',
+                3 => 'Center (vertical)', #6 (E-510)
+                255 => 'None',
+            },
+        }
+    ],
+    # 0x31a Continuous AF parameters?
+    0x328 => { #PH
+        Name => 'AFInfo',
+        SubDirectory => { TagTable => 'Image::ExifTool::Olympus::AFInfo' },
+    },
+    # 0x1200-0x1209 Flash information:
+    0x1201 => { #6
+        Name => 'ExternalFlash',
+        Writable => 'int16u',
+        Count => 2,
+        PrintConv => {
+            '0 0' => 'Off',
+            '1 0' => 'On',
+        },
+    },
+    0x1203 => { #11
+        Name => 'ExternalFlashGuideNumber',
+        Writable => 'rational64s',
+        Unknown => 1, # (needs verification)
+    },
+    0x1204 => { #11(reversed)/7
+        Name => 'ExternalFlashBounce',
+        Writable => 'int16u',
+        PrintConv => {
+            0 => 'Bounce or Off',
+            1 => 'Direct',
+        },
+    },
+    0x1205 => { Name => 'ExternalFlashZoom', Writable => 'rational64u' }, #11 (ref converts to mm using table)
+    0x1208 => { #6
+        Name => 'InternalFlash',
+        Writable => 'int16u',
+        Count => -1,
+        PrintConv => {
+            '0'   => 'Off',
+            '1'   => 'On',
+            '0 0' => 'Off',
+            '1 0' => 'On',
+        },
+    },
+    0x1209 => { #6
+        Name => 'ManualFlash',
+        Writable => 'int16u',
+        Count => 2,
+        Notes => '2 numbers: 1. 0=Off, 1=On, 2. Flash strength',
+        PrintConv => q{
+            my ($a,$b) = split ' ',$val;
+            return 'Off' unless $a;
+            $b = ($b == 1) ? 'Full' : "1/$b";
+            return "On ($b strength)";
+        },
+    },
+    0x120a => { #PH
+        Name => 'MacroLED',
+        Writable => 'int16u',
+        PrintConv => \%offOn,
+    },
+    0x1500 => [{ #6
+        Name => 'SensorTemperature',
+        # (Stylus 1 stores values like "34 0 0")
+        Condition => '$$self{Model} =~ /E-(1|M5)\b/ || $count != 1',
+        Writable => 'int16s',
+        PrintConv => '$val=~s/ 0 0$//; "$val C"',
+        PrintConvInv => '$val=~s/ ?C$//; $val',
+    },{
+        Name => 'SensorTemperature',
+        Writable => 'int16s',
+        RawConv => '($val and $val ne "-32768") ? $val : undef', # ignore 0 and -32768
+        # ValueConv => '-2*(($val/135)**2)+55', #11
+        ValueConv => '84 - 3 * $val / 26', #http://u88.n24.queensu.ca/exiftool/forum/index.php/topic,5423.0.html
+        ValueConvInv => 'int((84 - $val) * 26 / 3 + 0.5)',
+        PrintConv => 'sprintf("%.1f C",$val)',
+        PrintConvInv => '$val=~s/ ?C$//; $val',
+        # data from test shots by Eric Sibert:
+        #    E-510           E-620
+        # Raw  Ambient    Raw  Ambient
+        # ---  -------    ---  -------
+        # 534    22.7     518    22.7
+        # 550    20.6     531    19.3
+        # 552    20.8     533    17.9
+        # 558    19.3     582    17.2
+        # 564    19.1     621    12.3
+        # 567    17.8     634     9.7
+        # 576    18.6     650     8.0
+        # 582    17.2     660     7.7
+        # 599    13.8     703     3.3
+        # 631    10.7     880   -20.6
+        # 642    12.4     880   -20.6
+        # 652     9.6     892   -24.4
+        # 692     5.2     892   -22.7
+        # 714     3.3
+        # 895   -19.8
+        # 895   -19.2
+        # 900   -21.7
+    }],
+    0x1600 => { # ref http://fourthirdsphoto.com/vbb/showpost.php?p=107607&postcount=15
+        Name => 'ImageStabilization',
+        # (the other value is more reliable, so ignore this totally if the other exists)
+        Condition => 'not defined $$self{ImageStabilization}',
+        Writable => 'undef',
+        # if the first 4 bytes are non-zero, then bit 0x01 of byte 44
+        # gives the stabilization mode
+        PrintConv => q{
+            $val =~ /^\0{4}/ ? 'Off' : 'On, ' .
+            (unpack('x44C',$val) & 0x01 ? 'Mode 1' : 'Mode 2')
+        },
+    },
+    # 0x102a same as Subdir4-0x300
+);
+
+# AF information (ref PH)
+%Image::ExifTool::Olympus::AFInfo = (
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    FIRST_ENTRY => 0,
+    # 0x2a - int8u:  ImagerAFMode?  0=Manual, 1=Auto
+    # 0x30 - int16u: AFAreaXPosition?
+    # 0x32 - int16u: AFAreaWidth? (202)
+    # 0x34 - int16u: AFAreaYPosition?
+    # 0x36 - int16u: AFAreaHeight? (50)
+    #  (AF area positions above give the top-left coordinates of the AF area in the
+    #   AF frame. Increasing Y is downwards, and the AF frame size is about 1280x256)
+);
+
+# Olympus raw information tags (ref 6)
+%Image::ExifTool::Olympus::RawInfo = (
+    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
+    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
+    NOTES => 'These tags are found only in ORF images of some models (eg. C8080WZ).',
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    0x000 => {
+        Name => 'RawInfoVersion',
+        Writable => 'undef',
+        RawConv => '$val=~s/\0+$//; $val',  # (may be null terminated)
+        Count => 4,
+    },
+    0x100 => { Name => 'WB_RBLevelsUsed',           Writable => 'int16u', Count => 2 },
+    0x110 => { Name => 'WB_RBLevelsAuto',           Writable => 'int16u', Count => 2 },
+    0x120 => { Name => 'WB_RBLevelsShade',          Writable => 'int16u', Count => 2 },
+    0x121 => { Name => 'WB_RBLevelsCloudy',         Writable => 'int16u', Count => 2 },
+    0x122 => { Name => 'WB_RBLevelsFineWeather',    Writable => 'int16u', Count => 2 },
+    0x123 => { Name => 'WB_RBLevelsTungsten',       Writable => 'int16u', Count => 2 },
+    0x124 => { Name => 'WB_RBLevelsEveningSunlight',Writable => 'int16u', Count => 2 },
+    0x130 => { Name => 'WB_RBLevelsDaylightFluor',  Writable => 'int16u', Count => 2 },
+    0x131 => { Name => 'WB_RBLevelsDayWhiteFluor',  Writable => 'int16u', Count => 2 },
+    0x132 => { Name => 'WB_RBLevelsCoolWhiteFluor', Writable => 'int16u', Count => 2 },
+    0x133 => { Name => 'WB_RBLevelsWhiteFluorescent',Writable => 'int16u', Count => 2 },
+    0x200 => {
+        Name => 'ColorMatrix2',
+        Format => 'int16s',
+        Writable => 'int16u',
+        Count => 9,
+    },
+    # 0x240 => 'ColorMatrixDefault', ?
+    # 0x250 => 'ColorMatrixSaturation', ?
+    # 0x251 => 'ColorMatrixHue', ?
+    # 0x252 => 'ColorMatrixContrast', ?
+    # 0x300 => sharpness-related
+    # 0x301 => list of sharpness-related values
+    0x310 => { Name => 'CoringFilter',      Writable => 'int16u' },
+    0x311 => { Name => 'CoringValues',      Writable => 'int16u', Count => 11 },
+    0x600 => { Name => 'BlackLevel2',       Writable => 'int16u', Count => 4 },
+    0x601 => {
+        Name => 'YCbCrCoefficients',
+        Notes => 'stored as int16u[6], but extracted as rational32u[3]',
+        Format => 'rational32u',
+    },
+    0x611 => { Name => 'ValidPixelDepth',   Writable => 'int16u', Count => 2 },
+    0x612 => { Name => 'CropLeft',          Writable => 'int16u' }, #11
+    0x613 => { Name => 'CropTop',           Writable => 'int16u' }, #11
+    0x614 => { Name => 'CropWidth',         Writable => 'int32u' },
+    0x615 => { Name => 'CropHeight',        Writable => 'int32u' },
+    0x1000 => {
+        Name => 'LightSource',
+        Writable => 'int16u',
+        PrintConv => {
+            0 => 'Unknown',
+            16 => 'Shade',
+            17 => 'Cloudy',
+            18 => 'Fine Weather',
+            20 => 'Tungsten (Incandescent)',
+            22 => 'Evening Sunlight',
+            33 => 'Daylight Fluorescent',
+            34 => 'Day White Fluorescent',
+            35 => 'Cool White Fluorescent',
+            36 => 'White Fluorescent',
+            256 => 'One Touch White Balance',
+            512 => 'Custom 1-4',
+        },
+    },
+    # the following 5 tags all have 3 values: val, min, max
+    0x1001 => { Name => 'WhiteBalanceComp',         Writable => 'int16s', Count => 3 },
+    0x1010 => { Name => 'SaturationSetting',        Writable => 'int16s', Count => 3 },
+    0x1011 => { Name => 'HueSetting',               Writable => 'int16s', Count => 3 },
+    0x1012 => { Name => 'ContrastSetting',          Writable => 'int16s', Count => 3 },
+    0x1013 => { Name => 'SharpnessSetting',         Writable => 'int16s', Count => 3 },
+    # settings written by Camedia Master 4.x
+    0x2000 => { Name => 'CMExposureCompensation',   Writable => 'rational64s' },
+    0x2001 => { Name => 'CMWhiteBalance',           Writable => 'int16u' },
+    0x2002 => { Name => 'CMWhiteBalanceComp',       Writable => 'int16s' },
+    0x2010 => { Name => 'CMWhiteBalanceGrayPoint',  Writable => 'int16u', Count => 3 },
+    0x2020 => { Name => 'CMSaturation',             Writable => 'int16s', Count => 3 },
+    0x2021 => { Name => 'CMHue',                    Writable => 'int16s', Count => 3 },
+    0x2022 => { Name => 'CMContrast',               Writable => 'int16s', Count => 3 },
+    0x2023 => { Name => 'CMSharpness',              Writable => 'int16s', Count => 3 },
+);
+
+# Olympus unknown information tags
+%Image::ExifTool::Olympus::UnknownInfo = (
+    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
+    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+);
+
+# Tags found only in some FE models
+%Image::ExifTool::Olympus::FETags = (
+    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
+    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    NOTES => q{
+        Some FE models write a large number of tags here, but most of this
+        information remains unknown.
+    },
+    0x0100 => {
+        Name => 'BodyFirmwareVersion',
+        Writable => 'string',
+    },
+);
+
+# tags in Olympus QuickTime videos (ref PH)
+# (similar information in Kodak,Minolta,Nikon,Olympus,Pentax and Sanyo videos)
+%Image::ExifTool::Olympus::MOV1 = (
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    FIRST_ENTRY => 0,
+    NOTES => q{
+        This information is found in MOV videos from Olympus models such as the
+        D540Z, D595Z, FE100, FE110, FE115, FE170 and FE200.
+    },
+    0x00 => {
+        Name => 'Make',
+        Format => 'string[24]',
+    },
+    0x18 => {
+        Name => 'Model',
+        Description => 'Camera Model Name',
+        Format => 'string[8]',
+        SeparateTable => 'CameraType',
+        PrintConv => \%olympusCameraTypes,
+    },
+    # (01 00 at offset 0x20)
+    0x26 => {
+        Name => 'ExposureUnknown',
+        Unknown => 1,
+        Format => 'int32u',
+        # this conversion doesn't work for all models (eg. gives "1/100000")
+        ValueConv => '$val ? 10 / $val : 0',
+        PrintConv => 'Image::ExifTool::Exif::PrintExposureTime($val)',
+    },
+    0x2a => {
+        Name => 'FNumber',
+        Format => 'rational64u',
+        PrintConv => 'sprintf("%.1f",$val)',
+    },
+    0x32 => { #(NC)
+        Name => 'ExposureCompensation',
+        Format => 'rational64s',
+        PrintConv => 'Image::ExifTool::Exif::PrintFraction($val)',
+    },
+  # 0x44 => WhiteBalance ?
+    0x48 => {
+        Name => 'FocalLength',
+        Format => 'rational64u',
+        PrintConv => 'sprintf("%.1f mm",$val)',
+    },
+  # 0xb1 => 'ISO', #(I don't think this works - PH)
+);
+
+# tags in Olympus QuickTime videos (ref PH)
+# (similar information in Kodak,Minolta,Nikon,Olympus,Pentax and Sanyo videos)
+%Image::ExifTool::Olympus::MOV2 = (
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    FIRST_ENTRY => 0,
+    NOTES => q{
+        This information is found in MOV videos from Olympus models such as the
+        FE120, FE140 and FE190.
+    },
+    0x00 => {
+        Name => 'Make',
+        Format => 'string[24]',
+    },
+    0x18 => {
+        Name => 'Model',
+        Description => 'Camera Model Name',
+        Format => 'string[24]',
+        Notes => 'the actual model name, no decoding necessary',
+    },
+    # (01 00 at offset 0x30)
+    0x36 => {
+        Name => 'ExposureTime',
+        Format => 'int32u',
+        ValueConv => '$val ? 10 / $val : 0',
+        PrintConv => 'Image::ExifTool::Exif::PrintExposureTime($val)',
+    },
+    0x3a => {
+        Name => 'FNumber',
+        Format => 'rational64u',
+        PrintConv => 'sprintf("%.1f",$val)',
+    },
+    0x42 => { #(NC)
+        Name => 'ExposureCompensation',
+        Format => 'rational64s',
+        PrintConv => 'Image::ExifTool::Exif::PrintFraction($val)',
+    },
+    0x58 => {
+        Name => 'FocalLength',
+        Format => 'rational64u',
+        PrintConv => 'sprintf("%.1f mm",$val)',
+    },
+    0xc1 => {
+        Name => 'ISO',
+        Format => 'int16u',
+    },
+);
+
+# tags in Olympus MP4 videos (ref PH)
+%Image::ExifTool::Olympus::MP4 = (
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    FIRST_ENTRY => 0,
+    NOTES => q{
+        This information is found in MP4 videos from Olympus models such as the
+        u7040 and u9010.
+    },
+    0x00 => {
+        Name => 'Make',
+        Format => 'string[24]',
+    },
+    0x18 => {
+        Name => 'Model',
+        Description => 'Camera Model Name',
+        Format => 'string[24]',
+        Notes => 'oddly different than CameraType values in JPEG images by the same camera',
+        PrintConv => {
+            SG472 => 'u7040,S7040',
+            SG473 => 'u9010,S9010',
+            SG475 => 'SP800UZ',
+            SG551 => 'SZ-30MR',
+            SG553 => 'SP-610UZ',
+            SG554 => 'SZ-10',
+            SG555 => 'SZ-20',
+            SG573 => 'SZ-14',
+            SG575 => 'SP-620UZ',
+        },
+    },
+    0x28 => {
+        Name => 'FNumber',
+        Format => 'rational64u',
+        PrintConv => 'sprintf("%.1f",$val)',
+    },
+    0x30 => { #(NC)
+        Name => 'ExposureCompensation',
+        Format => 'rational64s',
+        PrintConv => 'Image::ExifTool::Exif::PrintFraction($val)',
+    },
+    # 0x38 - int32u: 3
+    # 0x3c - int32u: 1
+    # 0x40 - int16u: 5
+    # 0x42 - int16u: 0,4,9
+    # 0x64 - int32u: 0,6000,12000
+    # 0x48 - int32u: 100 (ISO?)
+    0x68 => {
+        Name => 'MovableInfo',
+        Condition => '$$valPt =~ /^DIGI/',
+        SubDirectory => { TagTable => 'Image::ExifTool::Olympus::MovableInfo' },
+    },
+    0x72 => {
+        Name => 'MovableInfo',
+        Condition => '$$valPt =~ /^DIGI/',
+        SubDirectory => { TagTable => 'Image::ExifTool::Olympus::MovableInfo' },
+    },
+);
+
+# yet a different QuickTime TAGS format (PH, E-M5)
+%Image::ExifTool::Olympus::MOV3 = (
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    NOTES => 'QuickTime information found in the TAGS atom of MOV videos from the E-M5.',
+    OLYM => {
+        Name => 'OlympusAtom',
+        SubDirectory => { TagTable => 'Image::ExifTool::Olympus::OLYM2' },
+    },
+);
+
+# yet a different QuickTime OLYM atom format (PH, E-M5)
+%Image::ExifTool::Olympus::OLYM2 = (
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    prms => {
+        Name => 'MakerNotes',
+        SubDirectory => { TagTable => 'Image::ExifTool::Olympus::prms' },
+    },
+    thmb =>{
+        Name => 'ThumbInfo',
+        SubDirectory => { TagTable => 'Image::ExifTool::Olympus::thmb2' },
+    },
+    scrn =>{
+        Name => 'PreviewInfo',
+        SubDirectory => { TagTable => 'Image::ExifTool::Olympus::scrn2' },
+    },
+);
+
+# the "prms" atom in E-M5 MOV videos (PH, E-M5)
+%Image::ExifTool::Olympus::prms = (
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    FIRST_ENTRY => 0,
+    NOTES => q{
+        Information extracted from the "prms" atom in MOV videos from Olympus models
+        such as the OM E-M5.
+    },
+    0x12 => {
+        Name => 'Make',
+        Format => 'string[24]',
+    },
+    0x2c => {
+        Name => 'Model',
+        Description => 'Camera Model Name',
+        Format => 'string[24]',
+        SeparateTable => 'CameraType',
+        PrintConv => \%olympusCameraTypes,
+    },
+    0x83 => {
+        Name => 'DateTime1',
+        Format => 'string[24]',
+        Groups => { 2 => 'Time' },
+    },
+    0x9d => {
+        Name => 'DateTime2',
+        Format => 'string[24]',
+        Groups => { 2 => 'Time' },
+    },
+);
+
+# yet a different "thmb" atom format (PH, E-M5)
+%Image::ExifTool::Olympus::thmb2 = (
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    0 => {
+        Name => 'ThumbnailWidth',
+        Format => 'int16u',
+    },
+    2 => {
+        Name => 'ThumbnailHeight',
+        Format => 'int16u',
+    },
+    4 => {
+        Name => 'ThumbnailLength',
+        Format => 'int32u',
+    },
+    8 => {
+        Name => 'ThumbnailImage',
+        Groups => { 2 => 'Preview' },
+        Format => 'undef[$val{4}]',
+        Notes => '160x120 JPEG thumbnail image',
+        RawConv => '$self->ValidateImage(\$val,$tag)',
+    },
+);
+
+# yet a different "scrn" atom format (PH, E-M5)
+%Image::ExifTool::Olympus::scrn2 = (
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    # 0 => int16u: 1 - number of preview images?
+    2 => {
+        Name => 'OlympusPreview',
+        SubDirectory => { TagTable => 'Image::ExifTool::Olympus::scrn' },
+    },
+);
+
+# movable information found in MP4 videos
+%Image::ExifTool::Olympus::MovableInfo = (
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    FIRST_ENTRY => 0,
+    0x04 => { #(NC)
+        Name => 'ISO',
+        Format => 'int32u',
+    },
+    0x2c => {
+        Name => 'EncoderVersion',
+        Format => 'string[16]',
+    },
+    0x3c => {
+        Name => 'DecoderVersion',
+        Format => 'string[16]',
+    },
+    0x83 => {
+        Name => 'Thumbnail',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Olympus::Thumbnail',
+            Base => '$start', # (use a separate table because of this)
+        },
+    },
+);
+
+# thumbnail image information found in MP4 videos (similar in Olympus,Samsung,Sanyo) (ref PH)
+%Image::ExifTool::Olympus::Thumbnail = (
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    FIRST_ENTRY => 0,
+    FORMAT => 'int32u',
+    1 => 'ThumbnailWidth',
+    2 => 'ThumbnailHeight',
+    3 => 'ThumbnailLength',
+    4 => { Name => 'ThumbnailOffset', IsOffset => 1 },
+);
+
+# thumbnail information found in 'thmb' atom of MP4 videos from the TG-810 (ref PH)
+%Image::ExifTool::Olympus::thmb = (
+    NOTES => 'Information extracted from the "thmb" atom of Olympus MP4 videos.',
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    0 => {
+        Name => 'ThumbnailLength',
+        Format => 'int32u',
+    },
+    4 => {
+        Name => 'ThumbnailImage',
+        Groups => { 2 => 'Preview' },
+        Format => 'undef[$val{0}]',
+        Notes => '160x120 JPEG thumbnail image',
+        RawConv => '$self->ValidateImage(\$val,$tag)',
+    },
+);
+
+# thumbnail information found in 'scrn' atom of MP4 videos from the TG-810 (ref PH)
+%Image::ExifTool::Olympus::scrn = (
+    NOTES => 'Information extracted from the "scrn" atom of Olympus MP4 videos.',
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    0 => {
+        Name => 'PreviewImageLength',
+        Format => 'int32u',
+    },
+    4 => {
+        Name => 'PreviewImage',
+        Groups => { 2 => 'Preview' },
+        Format => 'undef[$val{0}]',
+        Notes => '640x480 JPEG preview image',
+        RawConv => '$self->ValidateImage(\$val,$tag)',
+    },
+);
+
+# information in OLYM atom of MP4 videos from the TG-810 (ref PH)
+%Image::ExifTool::Olympus::OLYM = (
+    NOTES => 'Tags found in the OLYM atom of MP4 videos from the TG-810.',
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    0x0e => {
+        Name => 'Make',
+        Format => 'string[26]',
+    },
+    0x28 => {
+        Name => 'Model',
+        Description => 'Camera Model Name',
+        Format => 'string[24]',
+        SeparateTable => 'CameraType',
+        PrintConv => \%olympusCameraTypes,
+    },
+    0x5a => {
+        Name => 'FNumber',
+        Format => 'rational64u',
+        PrintConv => 'sprintf("%.1f",$val)',
+    },
+    0x7f => {
+        Name => 'DateTimeOriginal', #(NC)
+        Format => 'string[24]',
+        Groups => { 2 => 'Time' },
+        PrintConv => '$self->ConvertDateTime($val)',
+    },
+    0x99 => {
+        Name => 'DateTime2',
+        Format => 'string[24]',
+        Groups => { 2 => 'Time' },
+    },
+    0x109 => {
+        Name => 'ThumbnailWidth',
+        Format => 'int16u',
+    },
+    0x10b => {
+        Name => 'ThumbnailHeight',
+        Format => 'int16u',
+    },
+);
+
+# tags in Olympus AVI videos (ref PH)
+# (very similar to Pentax::Junk2 tags)
+%Image::ExifTool::Olympus::AVI = (
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    FIRST_ENTRY => 0,
+    NOTES => 'This information is found in Olympus AVI videos.',
+    0x12 => {
+        Name => 'Make',
+        Format => 'string[24]',
+    },
+    0x2c => {
+        Name => 'Model',
+        Description => 'Camera Model Name',
+        Format => 'string[24]',
+        SeparateTable => 'CameraType',
+        PrintConv => \%olympusCameraTypes,
+    },
+    0x5e => {
+        Name => 'FNumber',
+        Format => 'rational64u',
+        PrintConv => 'sprintf("%.1f",$val)',
+    },
+    0x83 => {
+        Name => 'DateTime1',
+        Format => 'string[24]',
+        Groups => { 2 => 'Time' },
+    },
+    0x9d => {
+        Name => 'DateTime2',
+        Format => 'string[24]',
+        Groups => { 2 => 'Time' },
+    },
+    0x129 => {
+        Name => 'ThumbInfo',
+        SubDirectory => { TagTable => 'Image::ExifTool::Olympus::thmb2' },
+    },
+);
+
+# tags in WAV files from Olympus PCM linear recorders (ref 18)
+%Image::ExifTool::Olympus::WAV = (
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Audio' },
+    FIRST_ENTRY => 0,
+    NOTES => q{
+        This information is found in WAV files from Olympus PCM linear recorders
+        like the LS-5, LS-10, LS-11.
+    },
+    0x0c => {
+        Name => 'Model',
+        Description => 'Camera Model Name',
+        Format => 'string[16]',
+    },
+    0x1c => {
+        Name => 'FileNumber',
+        Format => 'int32u',
+        PrintConv => 'sprintf("%.4d", $val)',
+    },
+    0x26 => {
+        Name => 'DateTimeOriginal',
+        Description => 'Date/Time Original',
+        Groups => { 2 => 'Time' },
+        Format => 'undef[12]',
+        Notes => 'time at start of recording',
+        ValueConv => q{
+            return undef unless $val =~ /^(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$/;
+            my $y = $1 < 70 ? "20$1" : "19$1";
+            return "$y:$2:$3 $4:$5:$6";
+        },
+        PrintConv => '$self->ConvertDateTime($val)',
+    },
+    0x32 => {
+        Name => 'DateTimeEnd',
+        Groups => { 2 => 'Time' },
+        Format => 'undef[12]',
+        Notes => 'time at end of recording',
+        ValueConv => q{
+            return undef unless $val =~ /^(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$/;
+            my $y = $1 < 70 ? "20$1" : "19$1";
+            return "$y:$2:$3 $4:$5:$6";
+        },
+        PrintConv => '$self->ConvertDateTime($val)',
+    },
+    0x3e => {
+        Name => 'RecordingTime',
+        Format => 'undef[6]',
+        ValueConv => '$val =~ s/^(\d{2})(\d{2})/$1:$2:/; $val',
+    },
+    0x200 => {
+        Name => 'Duration',
+        Format => 'int32u',
+        ValueConv => '$val / 1000',
+        PrintConv => 'ConvertDuration($val)',
+    },
+    0x20a => { Name => 'Index01', %indexInfo },
+    0x214 => { Name => 'Index02', %indexInfo },
+    0x21e => { Name => 'Index03', %indexInfo },
+    0x228 => { Name => 'Index04', %indexInfo },
+    0x232 => { Name => 'Index05', %indexInfo },
+    0x23c => { Name => 'Index06', %indexInfo },
+    0x246 => { Name => 'Index07', %indexInfo },
+    0x250 => { Name => 'Index08', %indexInfo },
+    0x25a => { Name => 'Index09', %indexInfo },
+    0x264 => { Name => 'Index10', %indexInfo },
+    0x26e => { Name => 'Index11', %indexInfo },
+    0x278 => { Name => 'Index12', %indexInfo },
+    0x282 => { Name => 'Index13', %indexInfo },
+    0x28c => { Name => 'Index14', %indexInfo },
+    0x296 => { Name => 'Index15', %indexInfo },
+    0x2a0 => { Name => 'Index16', %indexInfo },
+);
+
+# DSS information written by Olympus voice recorders (ref PH)
+%Image::ExifTool::Olympus::DSS = (
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Audio' },
+    FIRST_ENTRY => 0,
+    NOTES => q{
+        Information extracted from DSS/DS2 files and the ID3 XOLY frame of MP3 files
+        written by some Olympus voice recorders.
+    },
+    # 0 - file format:
+    #   "\x02dss"(DSS file and XOLY frame in MP3 file)
+    #   "\x03ds2"(DS2 file)
+    #   "\x03mp3"(ID3 XOLY frame in MP3 file)
+    12 => { Name => 'Model', Format => 'string[16]' }, # (name truncated by some models)
+    38 => {
+        Name => 'StartTime',
+        Format => 'string[12]',
+        Groups => { 2 => 'Time' },
+        ValueConv => '$val =~ s/(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})/20$1:$2:$3 $4:$5:$6/; $val',
+        PrintConv => '$self->ConvertDateTime($val)',
+    },
+    50 => {
+        Name => 'EndTime',
+        Format => 'string[12]',
+        Groups => { 2 => 'Time' },
+        ValueConv => '$val =~ s/(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})/20$1:$2:$3 $4:$5:$6/; $val',
+        PrintConv => '$self->ConvertDateTime($val)',
+    },
+    62 => {
+        Name => 'Duration',
+        Format => 'string[6]',
+        ValueConv => '$val =~ /(\d{2})(\d{2})(\d{2})/ ? ($1 * 60 + $2) * 60 + $3 : undef',
+        PrintConv => 'ConvertDuration($val)',
+    },
+    798 => { # (ref http://search.cpan.org/~rgibson/Audio-DSS-0.02/)
+        Name => 'Comment',
+        Format => 'string[100]',
+    },
+);
+
+# Olympus composite tags
+%Image::ExifTool::Olympus::Composite = (
+    GROUPS => { 2 => 'Camera' },
+    ExtenderStatus => {
+        Notes => q{
+            Olympus cameras have the quirk that they may retain the extender settings
+            after the extender is removed until the camera is powered off.  This tag is
+            an attempt to represent the actual status of the extender.
+        },
+        Require => {
+            0 => 'Olympus:Extender',
+            1 => 'Olympus:LensType',
+            2 => 'MaxApertureValue',
+        },
+        ValueConv => 'Image::ExifTool::Olympus::ExtenderStatus($val[0],$prt[1],$val[2])',
+        PrintConv => {
+            0 => 'Not attached',
+            1 => 'Attached',
+            2 => 'Removed',
+        },
+    },
+    ZoomedPreviewImage => {
+        Groups => { 2 => 'Preview' },
+        Require => {
+            0 => 'ZoomedPreviewStart',
+            1 => 'ZoomedPreviewLength',
+        },
+        RawConv => q{
+            @grps = $self->GetGroup($$val{0});  # set groups from input tag
+            Image::ExifTool::Exif::ExtractImage($self,$val[0],$val[1],"ZoomedPreviewImage");
+        },
+    },
+);
+
+# add our composite tags
+Image::ExifTool::AddCompositeTags('Image::ExifTool::Olympus');
+
+
+#------------------------------------------------------------------------------
+# Determine if the extender (EX-25/EC-14) was really attached (ref 9)
+# Inputs: 0) Extender, 1) LensType string, 2) MaxApertureAtMaxFocal
+# Returns: 0=not attached, 1=attached, 2=could have been removed
+# Notes: Olympus has a bug in the in-camera firmware which results in the
+# extender information being cached and written into the EXIF data even after
+# the extender has been removed.  You must power cycle the camera to prevent it
+# from writing the cached extender information into the EXIF data.
+sub ExtenderStatus($$$)
+{
+    my ($extender, $lensType, $maxAperture) = @_;
+    my @info = split ' ', $extender;
+    # validate that extender identifier is reasonable
+    return 0 unless @info >= 2 and hex($info[1]);
+    # if it's not an EC-14 (id '0 04') then assume it was really attached
+    # (other extenders don't seem to affect the reported max aperture)
+    return 1 if "$info[0] $info[1]" ne '0 04';
+    # get the maximum aperture for this lens (in $1)
+    $lensType =~ / F(\d+(\.\d+)?)/ or return 1;
+    # If the maximum aperture at the maximum focal length is greater than the
+    # known max/max aperture of the lens, then the extender must be attached
+    return ($maxAperture - $1 > 0.2) ? 1 : 2;
+}
+
+#------------------------------------------------------------------------------
+# Print AF points
+# Inputs: 0) AF point data (string of integers)
+# Notes: I'm just guessing that the 2nd and 4th bytes are the Y coordinates,
+# and that more AF points will show up in the future (derived from E-1 images,
+# and the E-1 uses just one of 3 possible AF points, all centered in Y) - PH
+sub PrintAFAreas($)
+{
+    my $val = shift;
+    my @points = split ' ', $val;
+    my %afPointNames = (
+        0x36794285 => 'Left',
+        0x79798585 => 'Center',
+        0xBD79C985 => 'Right',
+    );
+    $val = '';
+    my $pt;
+    foreach $pt (@points) {
+        next unless $pt;
+        $val and $val .= ', ';
+        $afPointNames{$pt} and $val .= $afPointNames{$pt} . ' ';
+        my @coords = unpack('C4',pack('N',$pt));
+        $val .= "($coords[0],$coords[1])-($coords[2],$coords[3])";
+    }
+    $val or $val = 'none';
+    return $val;
+}
+
+#------------------------------------------------------------------------------
+# Extract information from a DSS/DS2 voice recorder audio file or ID3 XOLY frame
+# Inputs: 0) ExifTool object reference, 1) dirInfo reference
+# Returns: 1 on success
+sub ProcessDSS($$;$)
+{
+    my ($et, $dirInfo) = @_;
+
+    # allow this to be called with either RAF or DataPt
+    my $raf = $$dirInfo{RAF};
+    if ($raf) {
+        my $buff;
+        $raf->Read($buff, 898) > 68 or return 0;
+        $buff =~ /^(\x02dss|\x03ds2)/ or return 0;
+        $dirInfo = { DataPt => \$buff };
+        $et->SetFileType(uc substr $buff, 1, 3);
+    }
+    my $tagTablePtr = GetTagTable('Image::ExifTool::Olympus::DSS');
+    return $et->ProcessBinaryData($dirInfo, $tagTablePtr);
+}
+
+#------------------------------------------------------------------------------
+# Process ORF file
+# Inputs: 0) ExifTool object reference, 1) directory information reference
+# Returns: 1 if this looked like a valid ORF file, 0 otherwise
+sub ProcessORF($$)
+{
+    my ($et, $dirInfo) = @_;
+    return $et->ProcessTIFF($dirInfo);
+}
+
+1;  # end
+
+__END__
+
+=head1 NAME
+
+Image::ExifTool::Olympus - Olympus/Epson 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
+Olympus or Epson maker notes in EXIF information.
+
+=head1 AUTHOR
+
+Copyright 2003-2017, 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://park2.wakwak.com/~tsuruzoh/Computer/Digicams/exif-e.html>
+
+=item L<http://www.cybercom.net/~dcoffin/dcraw/>
+
+=item L<http://www.ozhiker.com/electronics/pjmt/jpeg_info/olympus_mn.html>
+
+=item L<http://olypedia.de/Olympus_Makernotes>
+
+=back
+
+=head1 ACKNOWLEDGEMENTS
+
+Thanks to Markku Hanninen, Remi Guyomarch, Frank Ledwon, Michael Meissner,
+Mark Dapoz, Ioannis Panagiotopoulos and Tomasz Kawecki for their help
+figuring out some Olympus tags, and Lilo Huang, Chris Shaw and Viktor
+Lushnikov for adding to the LensType list.
+
+=head1 SEE ALSO
+
+L<Image::ExifTool::TagNames/Olympus Tags>,
+L<Image::ExifTool(3pm)|Image::ExifTool>
+
+=cut