exiftool_vendored 10.31.0 → 10.40.0

data/bin/Image-ExifTool-10.31/lib/Image/ExifTool/Palm.pm

@@ -1,403 +0,0 @@
-#------------------------------------------------------------------------------
-# File:         Palm.pm
-#
-# Description:  Read Palm Database files
-#
-# Revisions:    2014/05/28 - P. Harvey Created
-#
-# References: 1) http://wiki.mobileread.com/wiki/PDB
-#             2) http://wiki.mobileread.com/wiki/MOBI
-#------------------------------------------------------------------------------
-
-package Image::ExifTool::Palm;
-
-use strict;
-use vars qw($VERSION);
-use Image::ExifTool qw(:DataAccess :Utils);
-
-$VERSION = '1.00';
-
-sub ProcessEXTH($$$);
-
-# type/creator ID's for Palm database files
-my %palmTypes = (
-    '.pdfADBE' => 'Adobe Reader',
-    'TEXtREAd' => 'PalmDOC',
-    'BVokBDIC' => 'BDicty',
-    'DB99DBOS' => 'DB (Database program)',
-    'PNRdPPrs' => 'eReader',
-    'DataPPrs' => 'eReader',
-    'vIMGView' => 'FireViewer (ImageViewer)',
-    'PmDBPmDB' => 'HanDBase',
-    'InfoINDB' => 'InfoView',
-    'ToGoToGo' => 'iSilo',
-    'SDocSilX' => 'iSilo 3',
-    'JbDbJBas' => 'JFile',
-    'JfDbJFil' => 'JFile Pro',
-    'DATALSdb' => 'LIST',
-    'Mdb1Mdb1' => 'MobileDB',
-    'BOOKMOBI' => 'Mobipocket',
-    'DataPlkr' => 'Plucker',
-    'DataSprd' => 'QuickSheet',
-    'SM01SMem' => 'SuperMemo',
-    'TEXtTlDc' => 'TealDoc',
-    'InfoTlIf' => 'TealInfo',
-    'DataTlMl' => 'TealMeal',
-    'DataTlPt' => 'TealPaint',
-    'dataTDBP' => 'ThinkDB',
-    'TdatTide' => 'Tides',
-    'ToRaTRPW' => 'TomeRaider',
-    'zTXTGPlm' => 'Weasel',
-    'BDOCWrdS' => 'WordSmith',
-);
-
-my %dateTimeInfo = (
-    # like QuickTime, the time zero should be Jan 1, 1904, but not all software writes this,
-    # so assume a time zero of Jan 1, 1970 if the date is before this
-    RawConv => q{
-        my $offset = (66 * 365 + 17) * 24 * 3600;
-        return $val - $offset if $val >= $offset;
-        return $val;
-    },
-    ValueConv => 'ConvertUnixTime($val, 1)', # (UTC written by "EPUB Converter", ref PH)
-    PrintConv => '$self->ConvertDateTime($val)',
-);
-
-# Palm Database header information
-%Image::ExifTool::Palm::Main = (
-    GROUPS => { 0 => 'Palm', 1 => 'Palm', 2 => 'Document' },
-    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
-    FORMAT => 'int32u',
-    NOTES => q{
-        Information extracted from Palm database files (PDB and PRC extensions),
-        Mobipocket electronic books (MOBI), and Amazon Kindle KF7 and KF8 books (AZW
-        and AZW3).
-    },
-    0 => { Name => 'DatabaseName', Format => 'string[32]' },
-    # 8 - int16u: file attributes (not very useful)
-    # 8.5 - int16u: version
-    9 => {
-        Name => 'CreateDate',
-        Groups => { 2 => 'Time' },
-        %dateTimeInfo,
-    },
-    10 => {
-        Name => 'ModifyDate',
-        Groups => { 2 => 'Time' },
-        %dateTimeInfo,
-    },
-    11 => {
-        Name => 'LastBackupDate',
-        Groups => { 2 => 'Time' },
-        %dateTimeInfo,
-    },
-    12 => 'ModificationNumber',
-    15 => {
-        Name => 'PalmFileType',
-        Format => 'undef[8]',
-        PrintConv => \%palmTypes,
-    },
-);
-
-
-# MOBI header tags
-%Image::ExifTool::Palm::MOBI = (
-    GROUPS => { 0 => 'Palm', 1 => 'MOBI', 2 => 'Document' },
-    NOTES => q{
-        Information extracted from the MOBI header of Mobipocket and Amazon Kindle
-        KF7 and KF8 files.
-    },
-    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
-    FORMAT => 'int32u',
-    0 => {
-        Name => 'Compression',
-        Format => 'int16u',
-        PrintConv => {
-            1 => 'None',
-            2 => 'PalmDOC',
-            17480 => 'HUFF/CDIC',
-        },
-    },
-    1  => {
-        Name => 'UncompressedTextLength',
-        PrintConv => \&Image::ExifTool::ConvertFileSize,
-    },
-    3 => {
-        Name => 'Encryption',
-        PrintConv => {
-            0 => 'None',
-            1 => 'Old Mobipocket',
-            2 => 'Mobipocket',
-        },
-    },
-    6 => {
-        Name => 'MobiType',
-        PrintConv => {
-            2 => 'Mobipocket Book',
-            3 => 'PalmDoc Book',
-            4 => 'Audio',
-            232 => 'mobipocket? generated by kindlegen1.2',
-            248 => 'KF8: generated by kindlegen2',
-            257 => 'News',
-            258 => 'News_Feed',
-            259 => 'News_Magazine',
-            513 => 'PICS',
-            514 => 'WORD',
-            515 => 'XLS',
-            516 => 'PPT',
-            517 => 'TEXT',
-            518 => 'HTML',
-        },
-    },
-    7 => {
-        Name => 'CodePage',
-        RawConv => '$$self{CodePage} = $val',
-        PrintConv => {
-            # just define commonly used code pages
-            # (a much more complete list may be found in FlashPix.pm)
-            1252 => 'Windows Latin 1 (Western European)',
-            65001 => 'Unicode (UTF-8)',
-        },
-    },
-    9 => 'MobiVersion',
-    21 => 'BookName',   # this is actually an offset, but replace it with the string later
-    26 => 'MinimumVersion',
-);
-
-# MOBI extended header tags
-%Image::ExifTool::Palm::EXTH = (
-    GROUPS => { 0 => 'Palm', 1 => 'MOBI', 2 => 'Document' },
-    FORMAT => 'string',
-    NOTES => 'Information extracted from the MOBI extended header.',
-    PROCESS_PROC => \&ProcessEXTH,
-    1 => 'DRMServerID',
-    2 => 'DRMCommerceID',
-    3 => 'DRM_E-BookBaseID',
-    100 => { Name => 'Author', Groups => { 2 => 'Author' } },
-    101 => 'Publisher',
-    102 => 'Imprint',
-    103 => 'Description',
-    104 => 'ISBN',
-    105 => { Name => 'Subject', List => 1 },
-    106 => {
-        Name => 'PublishDate',
-        Groups => { 2 => 'Time' },
-        ValueConv => q{
-            require Image::ExifTool::XMP;
-            Image::ExifTool::XMP::ConvertXMPDate($val, 1);
-        },
-        PrintConv => '$self->ConvertDateTime($val)',
-    },
-    107 => 'Review',
-    108 => 'Contributor',
-    109 => { Name => 'Rights', Groups => { 2 => 'Author' } },
-    110 => 'SubjectCode',
-    111 => 'BookType',
-    112 => 'Source',
-    113 => 'ASIN',
-    114 => 'BookVersion',
-    115 => { Name => 'SampleFlag',   Format => 'int32u' },
-    116 => { Name => 'StartReading', Format => 'int32u' },
-    117 => 'Adult',
-    118 => 'RetailPrice',
-    119 => 'RetailPriceCurrency',
-    # 121 => 'KF8BoundaryOffset',
-    125 => { Name => 'ResourceCount', Format => 'int32u' },
-    129 => 'KF8CoverURI',
-    200 => 'DictionaryShortName',
-    # 201 => { Name => 'CoverOffset', Format => 'int32u' },
-    # 202 => { Name => 'ThumbOffset', Format => 'int32u' },
-    # 203 => 'HasFakeCover',
-    204 => {
-        Name => 'CreatorSoftware',
-        Format => 'int32u',
-        PrintConv => {
-            1 => 'Mobigen',
-            2 => 'Mobipocket',
-            200 => 'Kindlegen (Windows)',
-            201 => 'Kindlegen (Linux)',
-            202 => 'Kindlegen (Mac)',
-        },
-    },
-    205 => { Name => 'CreatorMajorVersion', Format => 'int32u' },
-    206 => { Name => 'CreatorMinorVersion', Format => 'int32u' },
-    207 => { Name => 'CreatorBuildNumber',  Format => 'int32u' },
-    208 => 'Watermark',
-    209 => 'Tamper-proofKeys',
-    # 300 => 'FontSignature',
-    401 => { Name => 'ClippingLimit', Format => 'int8u' },
-    402 => 'PublisherLimit',
-    404 => {
-        Name => 'TextToSpeech',
-        Format => 'int8u',
-        PrintConv => { 0 => 'Enabled', 1 => 'Disabled' },
-    },
-    405 => { Name => 'RentalFlag', Format => 'int8u' }, #?
-    406 => 'RentalExpirationDate',
-    501 => { Name => 'CDEType',    Format => 'int32u' },
-    502 => 'LastUpdateTime',
-    503 => 'UpdatedTitle',
-    504 => 'ASIN2',
-    524 => 'Language',
-    525 => 'Alignment',
-    535 => 'CreatorBuildNumber2',
-);
-
-#------------------------------------------------------------------------------
-# Process the MOBI extended header
-# Inputs: 0) ExifTool ref, 1) dirInfo ref, 2) tag table ref
-# Returns: 1 (EXTH should have already been validated)
-sub ProcessEXTH($$$)
-{
-    my ($et, $dirInfo, $tagTablePtr) = @_;
-    my $dataPt = $$dirInfo{DataPt};
-    my $dataPos = $$dirInfo{DataPos};
-    my $enc = $$dirInfo{Encoding} || 'UTF8';
-    my $dirLen = length $$dataPt;
-    my ($index, $pos);
-
-    $et->VerboseDir('EXTH', $$dirInfo{NumEntries}, $dirLen);
-
-    # process the EXTH entries
-    for ($index=0, $pos=0; ; ++$index) {
-        last if $pos + 8 > $dirLen;
-        my $tag = Get32u($dataPt, $pos);
-        my $len = Get32u($dataPt, $pos + 4);
-        last if $len < 8 or $pos + $len > $dirLen;
-        my $key = $et->HandleTag($tagTablePtr, $tag, undef,
-            DataPt  => $dataPt,
-            DataPos => $dataPos,
-            Start   => $pos + 8,
-            Size    => $len - 8,
-            Index   => $index,
-        );
-        # recode text if necessary
-        $$et{VALUE}{$key} = $et->Decode($$et{VALUE}{$key}, $enc) if $key;
-        $pos += $len;
-    }
-    return 1;
-}
-
-#------------------------------------------------------------------------------
-# Extract information from a Palm DB file
-# Inputs: 0) ExifTool ref, 1) dirInfo reference
-# Returns: 1 if this was a recognized PDB file, 0 otherwise
-sub ProcessPDB($$)
-{
-    my ($et, $dirInfo) = @_;
-    my $raf = $$dirInfo{RAF};
-    my ($buff, $buf2, $size, $enc);
-    my $verbose = $et->Options('Verbose');
-
-    # verify this is a valid Palm DB file
-    return 0 unless $raf->Read($buff, 86) == 86;
-    my $type = $palmTypes{substr($buff, 60, 8)};
-    return 0 unless $type;
-#
-# Read and process the Palm DB file header
-#
-    $et->SetFileType($type eq 'Mobipocket' ? 'MOBI' : 'PDB');
-    SetByteOrder('MM');
-
-    my $tagTablePtr = GetTagTable('Image::ExifTool::Palm::Main');
-    $et->ProcessDirectory({ DataPt => \$buff }, $tagTablePtr);
-
-    return 1 unless $type eq 'Mobipocket' and Get16u(\$buff, 76);
-#
-# Read and process MOBI header (should be the first record)
-#
-    my $offset = Get32u(\$buff, 78);    # get offset to first record
-    unless ($raf->Seek($offset, 0) and $raf->Read($buff, 274) == 274) {
-        $et->Warn('Truncated MOBI header');
-        return 1;
-    }
-    unless (substr($buff, 16, 4) eq 'MOBI') {
-        $et->Warn('Invalid MOBI header');
-        return 1;
-    }
-    $tagTablePtr = GetTagTable('Image::ExifTool::Palm::MOBI');
-    $et->ProcessDirectory({ DataPt => \$buff }, $tagTablePtr);
-
-    # get text encoding
-    $enc = $Image::ExifTool::charsetName{"cp$$et{CodePage}"} if $$et{CodePage};
-    $enc = 'UTF8' unless $enc;
-
-    # extract the BookName string
-    my $off = Get32u(\$buff, 84);
-    my $len = Get32u(\$buff, 88);
-
-    $raf->Seek($offset+$off, 0) and $raf->Read($buf2, $len) == $len or $buf2 = '<err>';
-    $$et{VALUE}{BookName} = $et->Decode($buf2, $enc);
-#
-# Process the MOBI extended header if it exists
-#
-    # first, check the flag bit to see if the EXTH record should exist
-    my $flag = Get32u(\$buff, 128);
-    return 1 unless $flag & 0x40;   # check extended header flag
-
-    $len = Get32u(\$buff, 20) + 16; # MOBI header length (including PalmDOC header)
-
-    unless ($raf->Seek($offset+$len, 0) and $raf->Read($buf2, 12) == 12 and
-        substr($buf2,0,4) eq 'EXTH' and ($size = Get32u(\$buf2, 4)) > 12)
-    {
-        $et->Warn('Invalid MOBI extended header');
-        return 1;
-    }
-
-    # read and process the MOBI extended header
-    $size -= 12;
-    $raf->Read($buff, $size) == $size or $et->Warn('Truncated MOBI extended header'), return 1;
-    my %dirInfo = (
-        DataPt     => \$buff,
-        DataPos    => $offset + $len + 12,
-        NumEntries => Get32u(\$buf2, 8),
-        Encoding   => $enc,
-    );
-    $tagTablePtr = GetTagTable('Image::ExifTool::Palm::EXTH');
-    $et->ProcessDirectory(\%dirInfo, $tagTablePtr);
-
-    return 1;
-}
-
-1;  # end
-
-__END__
-
-=head1 NAME
-
-Image::ExifTool::Palm - Read Palm Database files
-
-=head1 SYNOPSIS
-
-This module is used by Image::ExifTool
-
-=head1 DESCRIPTION
-
-This module contains code to extract metadata from Palm database files (PDB
-and PRC extensions), Mobipocket electronic books (MOBI), and Amazon Kindle
-KF7 and KF8 books (AZW and AZW3).
-
-=head1 AUTHOR
-
-Copyright 2003-2016, Phil Harvey (phil at owl.phy.queensu.ca)
-
-This library is free software; you can redistribute it and/or modify it
-under the same terms as Perl itself.
-
-=head1 REFERENCES
-
-=over 4
-
-=item L<http://wiki.mobileread.com/wiki/PDB>
-
-=item L<http://wiki.mobileread.com/wiki/MOBI>
-
-=back
-
-=head1 SEE ALSO
-
-L<Image::ExifTool::TagNames/Palm Tags>,
-L<Image::ExifTool(3pm)|Image::ExifTool>
-
-=cut
-

data/bin/Image-ExifTool-10.31/lib/Image/ExifTool/Panasonic.pm

@@ -1,2374 +0,0 @@
-#------------------------------------------------------------------------------
-# File:         Panasonic.pm
-#
-# Description:  Panasonic/Leica maker notes tags
-#
-# Revisions:    11/10/2004 - P. Harvey Created
-#
-# References:   1) http://www.compton.nu/panasonic.html (based on FZ10)
-#               2) Derived from DMC-FZ3 samples from dpreview.com
-#               3) http://johnst.org/sw/exiftags/
-#               4) Tels (http://bloodgate.com/) private communication (tests with FZ5)
-#               7) http://homepage3.nifty.com/kamisaka/makernote/makernote_pana.htm (2007/10/02)
-#               8) Marcel Coenen private communication (DMC-FZ50)
-#               9) http://forums.dpreview.com/forums/read.asp?forum=1033&message=22756430
-#              10) http://bretteville.com/pdfs/M8Metadata_v2.pdf
-#              11) http://www.digital-leica.com/lens_codes/index.html
-#              12) Joerg - http://www.cpanforum.com/threads/11602 (LX3 firmware 2.0)
-#              13) Michael Byczkowski private communication (Leica M9)
-#              14) Carl Bretteville private communication (M9)
-#              15) Zdenek Mihula private communication (TZ8)
-#              16) Olaf Ulrich private communication
-#              17) http://u88.n24.queensu.ca/exiftool/forum/index.php/topic,4922.0.html
-#              18) Thomas Modes private communication (G6)
-#              19) http://u88.n24.queensu.ca/exiftool/forum/index.php/topic,5533.0.html
-#              JD) Jens Duttke private communication (TZ3,FZ30,FZ50)
-#------------------------------------------------------------------------------
-
-package Image::ExifTool::Panasonic;
-
-use strict;
-use vars qw($VERSION %leicaLensTypes);
-use Image::ExifTool qw(:DataAccess :Utils);
-use Image::ExifTool::Exif;
-
-$VERSION = '1.91';
-
-sub ProcessLeicaLEIC($$$);
-sub WhiteBalanceConv($;$$);
-
-# Leica lens types (ref 10)
-%leicaLensTypes = (
-    OTHER => sub {
-        my ($val, $inv, $conv) = @_;
-        return undef if $inv or not $val =~ s/ .*//;
-        return $$conv{$val};
-    },
-    Notes => q{
-        the LensType value is obtained by splitting the stored value into 2
-        integers:  The stored value divided by 4, and its lower 2 bits.  The second
-        number is used only if necessary to identify certain manually coded lenses
-        on the M9, or the focal length of some multi-focal lenses.
-    },
-    # All M9 codes (two numbers: first the LensID then the lower 2 bits)
-    # are ref PH with samples from ref 13.  From ref 10, the lower 2 bits of
-    # the LensType value give the frame selector position for most lenses,
-    # although for the 28-35-50mm (at least) it gives the focal length selection.
-    # The M9 also gives the focal length selection but for other lenses the
-    # lower 3 bits don't change with frame selector position except for the lens
-    # shows as uncoded for certain lenses and some incorrect positions of the
-    # frame selector.  The bits are zero for uncoded lenses when manually coding
-    # from the menu on the M9. - PH
-    # Frame selector bits (from ref 10, M8):
-    #   1 => '28/90mm frame lines engaged',
-    #   2 => '24/35mm frame lines engaged',
-    #   3 => '50/75mm frame lines engaged',
-    '0 0' => 'Uncoded lens',
-#
-# NOTE: MUST ADD ENTRY TO %frameSelectorBits below when a new lens is added!!!!
-#
-                                            # model number(s):
-    1 => 'Elmarit-M 21mm f/2.8',            # 11134
-    3 => 'Elmarit-M 28mm f/2.8 (III)',      # 11804
-    4 => 'Tele-Elmarit-M 90mm f/2.8 (II)',  # 11800
-    5 => 'Summilux-M 50mm f/1.4 (II)',      # 11868/11856/11114
-    6 => 'Summicron-M 35mm f/2 (IV)',       # 11310/11311
-    '6 0' => 'Summilux-M 35mm f/1.4',       # 11869/11870/11860
-    7 => 'Summicron-M 90mm f/2 (II)',       # 11136/11137
-    9 => 'Elmarit-M 135mm f/2.8 (I/II)',    # 11829
-    '9 0' => 'Apo-Telyt-M 135mm f/3.4',     # 11889
-    16 => 'Tri-Elmar-M 16-18-21mm f/4 ASPH.',# 11626
-    '16 1' => 'Tri-Elmar-M 16-18-21mm f/4 ASPH. (at 16mm)',
-    '16 2' => 'Tri-Elmar-M 16-18-21mm f/4 ASPH. (at 18mm)',
-    '16 3' => 'Tri-Elmar-M 16-18-21mm f/4 ASPH. (at 21mm)',
-    23 => 'Summicron-M 50mm f/2 (III)',     # 11817, version (I) in camera menu
-    24 => 'Elmarit-M 21mm f/2.8 ASPH.',     # 11135/11897
-    25 => 'Elmarit-M 24mm f/2.8 ASPH.',     # 11878/11898
-    26 => 'Summicron-M 28mm f/2 ASPH.',     # 11604
-    27 => 'Elmarit-M 28mm f/2.8 (IV)',      # 11809
-    28 => 'Elmarit-M 28mm f/2.8 ASPH.',     # 11606
-    29 => 'Summilux-M 35mm f/1.4 ASPH.',    # 11874/11883
-    '29 0' => 'Summilux-M 35mm f/1.4 ASPHERICAL', # 11873 (different from "ASPH." model!)
-    30 => 'Summicron-M 35mm f/2 ASPH.',     # 11879/11882
-    31 => 'Noctilux-M 50mm f/1',            # 11821/11822
-    '31 0' => 'Noctilux-M 50mm f/1.2',      # 11820
-    32 => 'Summilux-M 50mm f/1.4 ASPH.',    # 11891/11892
-    33 => 'Summicron-M 50mm f/2 (IV, V)',   # 11819/11825/11826/11816, version (II,III) in camera menu
-    34 => 'Elmar-M 50mm f/2.8',             # 11831/11823/11825
-    35 => 'Summilux-M 75mm f/1.4',          # 11814/11815/11810
-    36 => 'Apo-Summicron-M 75mm f/2 ASPH.', # 11637
-    37 => 'Apo-Summicron-M 90mm f/2 ASPH.', # 11884/11885
-    38 => 'Elmarit-M 90mm f/2.8',           # 11807/11808, version (II) in camera menu
-    39 => 'Macro-Elmar-M 90mm f/4',         # 11633/11634
-    '39 0' => 'Tele-Elmar-M 135mm f/4 (II)',# 11861
-    40 => 'Macro-Adapter M',                # 14409
-    '41 3' => 'Apo-Summicron-M 50mm f/2 Asph', #16
-    42 => 'Tri-Elmar-M 28-35-50mm f/4 ASPH.',# 11625
-    '42 1' => 'Tri-Elmar-M 28-35-50mm f/4 ASPH. (at 28mm)',
-    '42 2' => 'Tri-Elmar-M 28-35-50mm f/4 ASPH. (at 35mm)',
-    '42 3' => 'Tri-Elmar-M 28-35-50mm f/4 ASPH. (at 50mm)',
-    43 => 'Summarit-M 35mm f/2.5',          # ? (ref PH)
-    44 => 'Summarit-M 50mm f/2.5',          # ? (ref PH)
-    45 => 'Summarit-M 75mm f/2.5',          # ? (ref PH)
-    46 => 'Summarit-M 90mm f/2.5',          # ?
-    47 => 'Summilux-M 21mm f/1.4 ASPH.',    # ? (ref 11)
-    48 => 'Summilux-M 24mm f/1.4 ASPH.',    # ? (ref 11)
-    49 => 'Noctilux-M 50mm f/0.95 ASPH.',   # ? (ref 11)
-    50 => 'Elmar-M 24mm f/3.8 ASPH.',       # ? (ref 11)
-    51 => 'Super-Elmar-M 21mm f/3.4 Asph',  # ? (ref 16, frameSelectorBits=1)
-    '51 2' => 'Super-Elmar-M 14mm f/3.8 Asph', # ? (ref 16)
-    52 => 'Super-Elmar-M 18mm f/3.8 ASPH.', # ? (ref PH/11)
-    '53 2' => 'Apo-Telyt-M 135mm f/3.4', #16
-    '53 3' => 'Apo-Summicron-M 50mm f/2 (VI)', #LR
-);
-
-# M9 frame selector bits for each lens
-#  1 = towards lens    = 28/90mm or 21mm or Adapter (or Elmarit-M 135mm f/2.8)
-#  2 = away from lens  = 24/35mm (or 35/135mm on the M9)
-#  3 = middle position = 50/75mm or 18mm
-my %frameSelectorBits = (
-    1 => 1,
-    3 => 1,
-    4 => 1,
-    5 => 3,
-    6 => 2,
-    7 => 1,
-    9 => 1, # (because lens has special magnifier for the rangefinder)
-    16 => 1, # or 2 or 3
-    23 => 3,
-    24 => 1,
-    25 => 2,
-    26 => 1,
-    27 => 1,
-    28 => 1,
-    29 => 2,
-    30 => 2,
-    31 => 3,
-    32 => 3,
-    33 => 3,
-    34 => 3,
-    35 => 3,
-    36 => 3,
-    37 => 1,
-    38 => 1,
-    39 => 1,
-    40 => 1,
-    42 => 1, # or 2 or 3
-    43 => 2, # (NC)
-    44 => 3, # (NC)
-    45 => 3,
-    46 => 1, # (NC)
-    47 => 1, # (NC)
-    48 => 2, # (NC)
-    49 => 3, # (NC)
-    50 => 2, # (NC)
-    51 => 1, # or 2 (ref 16)
-    52 => 3,
-    53 => 2, #16
-);
-
-# conversions for ShootingMode and SceneMode
-my %shootingMode = (
-    1  => 'Normal',
-    2  => 'Portrait',
-    3  => 'Scenery',
-    4  => 'Sports',
-    5  => 'Night Portrait',
-    6  => 'Program',
-    7  => 'Aperture Priority',
-    8  => 'Shutter Priority',
-    9  => 'Macro',
-    10 => 'Spot', #7
-    11 => 'Manual',
-    12 => 'Movie Preview', #PH (LZ6)
-    13 => 'Panning',
-    14 => 'Simple', #PH (LZ6)
-    15 => 'Color Effects', #7
-    16 => 'Self Portrait', #PH (TZ5)
-    17 => 'Economy', #7
-    18 => 'Fireworks',
-    19 => 'Party',
-    20 => 'Snow',
-    21 => 'Night Scenery',
-    22 => 'Food', #7
-    23 => 'Baby', #JD
-    24 => 'Soft Skin', #PH (LZ6)
-    25 => 'Candlelight', #PH (LZ6)
-    26 => 'Starry Night', #PH (LZ6)
-    27 => 'High Sensitivity', #7 (LZ6)
-    28 => 'Panorama Assist', #7
-    29 => 'Underwater', #7
-    30 => 'Beach', #PH (LZ6)
-    31 => 'Aerial Photo', #PH (LZ6)
-    32 => 'Sunset', #PH (LZ6)
-    33 => 'Pet', #JD
-    34 => 'Intelligent ISO', #PH (LZ6)
-    35 => 'Clipboard', #7
-    36 => 'High Speed Continuous Shooting', #7
-    37 => 'Intelligent Auto', #7
-    39 => 'Multi-aspect', #PH (TZ5)
-    41 => 'Transform', #PH (FS7)
-    42 => 'Flash Burst', #PH (FZ28)
-    43 => 'Pin Hole', #PH (FZ28)
-    44 => 'Film Grain', #PH (FZ28)
-    45 => 'My Color', #PH (GF1)
-    46 => 'Photo Frame', #PH (FS7)
-    48 => 'Movie', #PH (GM1)
-    # 49 - seen for FS4 (snow?)
-    51 => 'HDR', #12
-    52 => 'Peripheral Defocus', #Horst Wandres
-    55 => 'Handheld Night Shot', #PH (FZ47)
-    57 => '3D', #PH (3D1)
-    59 => 'Creative Control', #PH (FZ47)
-    62 => 'Panorama', #17
-    63 => 'Glass Through', #17
-    64 => 'HDR', #17
-    66 => 'Digital Filter', #PH (GF5 "Impressive Art", "Cross Process", "Color Select", "Star")
-    67 => 'Clear Portrait', #18
-    68 => 'Silky Skin', #18
-    69 => 'Backlit Softness', #18
-    70 => 'Clear in Backlight', #18
-    71 => 'Relaxing Tone', #18
-    72 => "Sweet Child's Face", #18
-    73 => 'Distinct Scenery', #18
-    74 => 'Bright Blue Sky', #18
-    75 => 'Romantic Sunset Glow', #18
-    76 => 'Vivid Sunset Glow', #18
-    77 => 'Glistening Water', #18
-    78 => 'Clear Nightscape', #18
-    79 => 'Cool Night Sky', #18
-    80 => 'Warm Glowing Nightscape', #18
-    81 => 'Artistic Nightscape', #18
-    82 => 'Glittering Illuminations', #18
-    83 => 'Clear Night Portrait', #18
-    84 => 'Soft Image of a Flower', #18
-    85 => 'Appetizing Food', #18
-    86 => 'Cute Desert', #18
-    87 => 'Freeze Animal Motion', #18
-    88 => 'Clear Sports Shot', #18
-    89 => 'Monochrome', #18
-    90 => 'Creative Control', #18
-);
-
-%Image::ExifTool::Panasonic::Main = (
-    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
-    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
-    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
-    WRITABLE => 1,
-    0x01 => {
-        Name => 'ImageQuality',
-        Writable => 'int16u',
-        PrintConv => {
-            1 => 'TIFF', #PH (FZ20)
-            2 => 'High',
-            3 => 'Normal',
-            # 5 - seen this for 1920x1080, 30fps SZ7 video - PH
-            6 => 'Very High', #3 (Leica)
-            7 => 'Raw', #3 (Leica)
-            9 => 'Motion Picture', #PH (LZ6)
-            11 => 'Full HD Movie', #PH (V-LUX)
-            12 => '4k Movie', #PH (V-LUX)
-        },
-    },
-    0x02 => {
-        Name => 'FirmwareVersion',
-        Writable => 'undef',
-        Notes => q{
-            for some camera models such as the FZ30 this may be an internal production
-            reference number and not the actual firmware version
-        }, # (ref http://www.stevesforums.com/forums/view_topic.php?id=87764&forum_id=23&)
-        # (can be either binary or ascii -- add decimal points if binary)
-        ValueConv => '$val=~/[\0-\x2f]/ ? join(" ",unpack("C*",$val)) : $val',
-        ValueConvInv => q{
-            $val =~ /(\d+ ){3}\d+/ and $val = pack('C*',split(' ', $val));
-            length($val) == 4 or warn "Version must be 4 numbers\n";
-            return $val;
-        },
-        PrintConv => '$val=~tr/ /./; $val',
-        PrintConvInv => '$val=~tr/./ /; $val',
-    },
-    0x03 => {
-        Name => 'WhiteBalance',
-        Writable => 'int16u',
-        PrintConv => {
-            1 => 'Auto',
-            2 => 'Daylight',
-            3 => 'Cloudy',
-            4 => 'Incandescent', #PH
-            5 => 'Manual',
-            8 => 'Flash',
-            10 => 'Black & White', #3 (Leica)
-            11 => 'Manual', #PH (FZ8)
-            12 => 'Shade', #PH (FS7)
-            13 => 'Kelvin', #PeterK (NC)
-        },
-    },
-    0x07 => {
-        Name => 'FocusMode',
-        Writable => 'int16u',
-        PrintConv => {
-            1 => 'Auto',
-            2 => 'Manual',
-            4 => 'Auto, Focus button', #4
-            5 => 'Auto, Continuous', #4
-            6 => 'AF-S', #18 (also seen for GF1 - PH)
-            7 => 'AF-C', #18
-            8 => 'AF-F', #18 (auto-focus flexible)
-        },
-    },
-    0x0f => [
-        {
-            Name => 'AFAreaMode',
-            Condition => '$$self{Model} =~ /DMC-FZ10\b/', #JD
-            Writable => 'int8u',
-            Count => 2,
-            Notes => 'DMC-FZ10',
-            PrintConv => {
-                '0 1'   => 'Spot Mode On',
-                '0 16'  => 'Spot Mode Off',
-            },
-        },{
-            Name => 'AFAreaMode',
-            Writable => 'int8u',
-            Count => 2,
-            Notes => 'other models',
-            PrintConv => { #PH
-                '0 1'   => '9-area', # (FS7)
-                '0 16'  => '3-area (high speed)', # (FZ8)
-                '0 23'  => '23-area', #PH (FZ47,NC)
-                # '0 49' - seen for LX100, V-LUX (PH)
-                '1 0'   => 'Spot Focusing', # (FZ8)
-                '1 1'   => '5-area', # (FZ8)
-                '16'    => 'Normal?', # (only mode for DMC-LC20)
-                '16 0'  => '1-area', # (FZ8)
-                '16 16' => '1-area (high speed)', # (FZ8)
-                # '32 0' is Face Detect for FS7, and Face Detect or Focus Tracking
-                # for the DMC-FZ200 (ref 17), and Auto is DMC-L1 guess,
-                '32 0'  => 'Tracking',
-                '32 1'  => '3-area (left)?', # (DMC-L1 guess)
-                '32 2'  => '3-area (center)?', # (DMC-L1 guess)
-                '32 3'  => '3-area (right)?', # (DMC-L1 guess)
-                '64 0'  => 'Face Detect',
-                '128 0' => 'Spot Focusing 2', #18
-            },
-        },
-    ],
-    0x1a => {
-        Name => 'ImageStabilization',
-        Writable => 'int16u',
-        PrintConv => {
-            2 => 'On, Mode 1',
-            3 => 'Off',
-            4 => 'On, Mode 2',
-            5 => 'Panning', #18
-            # GF1 also has a "Mode 3" - PH
-            6 => 'On, Mode 3', #PH (GX7, sensor shift?)
-        },
-    },
-    0x1c => {
-        Name => 'MacroMode',
-        Writable => 'int16u',
-        PrintConv => {
-            1 => 'On',
-            2 => 'Off',
-            0x101 => 'Tele-Macro', #7
-            0x201 => 'Macro Zoom', #PH (FS7)
-        },
-    },
-    0x1f => {
-        Name => 'ShootingMode',
-        Writable => 'int16u',
-        PrintConvColumns => 2,
-        PrintConv => \%shootingMode,
-    },
-    0x20 => {
-        Name => 'Audio',
-        Writable => 'int16u',
-        PrintConv => {
-            1 => 'Yes',
-            2 => 'No',
-            3 => 'Stereo', #PH (NC)
-        },
-    },
-    0x21 => { #2
-        Name => 'DataDump',
-        Writable => 0,
-        Binary => 1,
-    },
-    # 0x22 - normally 0, but 2 for 'Simple' ShootingMode in LZ6 sample - PH
-    0x23 => {
-        Name => 'WhiteBalanceBias',
-        Format => 'int16s',
-        Writable => 'int16s',
-        ValueConv => '$val / 3',
-        ValueConvInv => '$val * 3',
-        PrintConv => 'Image::ExifTool::Exif::PrintFraction($val)',
-        PrintConvInv => 'Image::ExifTool::Exif::ConvertFraction($val)',
-    },
-    0x24 => {
-        Name => 'FlashBias',
-        Format => 'int16s',
-        Writable => 'int16s',
-        ValueConv => '$val / 3', #17 (older models may not have factor of 3? - PH)
-        ValueConvInv => '$val * 3',
-        PrintConv => 'Image::ExifTool::Exif::PrintFraction($val)',
-        PrintConvInv => 'Image::ExifTool::Exif::ConvertFraction($val)',
-    },
-    0x25 => { #PH
-        Name => 'InternalSerialNumber',
-        Writable => 'undef',
-        Count => 16,
-        Notes => q{
-            this number is unique, and contains the date of manufacture, but is not the
-            same as the number printed on the camera body
-        },
-        PrintConv => q{
-            return $val unless $val=~/^([A-Z]\d{2})(\d{2})(\d{2})(\d{2})(\d{4})/;
-            my $yr = $2 + ($2 < 70 ? 2000 : 1900);
-            return "($1) $yr:$3:$4 no. $5";
-        },
-        PrintConvInv => '$_=$val; tr/A-Z0-9//dc; s/(.{3})(19|20)/$1/; $_',
-    },
-    0x26 => { #PH
-        Name => 'PanasonicExifVersion',
-        Writable => 'undef',
-    },
-    # 0x27 - values: 0 (LZ6,FX10K)
-    0x28 => {
-        Name => 'ColorEffect',
-        Writable => 'int16u',
-        # FX30 manual: (ColorMode) natural, vivid, cool, warm, b/w, sepia
-        PrintConv => {
-            1 => 'Off',
-            2 => 'Warm',
-            3 => 'Cool',
-            4 => 'Black & White',
-            5 => 'Sepia',
-            6 => 'Happy', #PH (FX70) (yes, really. you wouldn't want sad colors now would you?)
-            8 => 'Vivid', #PH (SZ3)
-        },
-    },
-    0x29 => { #JD
-        Name => 'TimeSincePowerOn',
-        Writable => 'int32u',
-        Notes => q{
-            time in 1/100 s from when the camera was powered on to when the image is
-            written to memory card
-        },
-        ValueConv => '$val / 100',
-        ValueConvInv => '$val * 100',
-        PrintConv => sub { # convert to format "[DD days ]HH:MM:SS.ss"
-            my $val = shift;
-            my $str = '';
-            if ($val >= 24 * 3600) {
-                my $d = int($val / (24 * 3600));
-                $str .= "$d days ";
-                $val -= $d * 24 * 3600;
-            }
-            my $h = int($val / 3600);
-            $val -= $h * 3600;
-            my $m = int($val / 60);
-            $val -= $m * 60;
-            my $s = int($val);
-            my $f = 100 * ($val - int($val));
-            return sprintf("%s%.2d:%.2d:%.2d.%.2d",$str,$h,$m,$s,$f);
-        },
-        PrintConvInv => sub {
-            my $val = shift;
-            my @vals = ($val =~ /\d+(?:\.\d*)?/g);
-            my $sec = 0;
-            $sec += 24 * 3600 * shift(@vals) if @vals > 3;
-            $sec += 3600 * shift(@vals) if @vals > 2;
-            $sec += 60 * shift(@vals) if @vals > 1;
-            $sec += shift(@vals) if @vals;
-            return $sec;
-        },
-    },
-    0x2a => { #4
-        Name => 'BurstMode',
-        Writable => 'int16u',
-        Notes => 'decoding may be different for some models',
-        PrintConv => {
-            0 => 'Off',
-            1 => 'On', #PH (TZ5) [was "Low/High Quality" from ref 4]
-            2 => 'Auto Exposure Bracketing (AEB)', #17
-            4 => 'Unlimited', #PH (TZ5)
-            8 => 'White Balance Bracketing', #18
-            17 => 'On (with flash)', #forum5597
-        },
-    },
-    0x2b => { #4
-        Name => 'SequenceNumber',
-        Writable => 'int32u',
-    },
-    0x2c => [
-        {
-            Name => 'ContrastMode',
-            Condition => '$$self{Model} !~ /^DMC-(FX10|G1|L1|L10|LC80|GF\d+|G2|TZ10|ZS7)$/',
-            Flags => 'PrintHex',
-            Writable => 'int16u',
-            Notes => q{
-                this decoding seems to work for some models such as the LC1, LX2, FZ7, FZ8,
-                FZ18 and FZ50, but may not be correct for other models such as the FX10, G1, L1,
-                L10 and LC80
-            },
-            PrintConv => {
-                0x00 => 'Normal',
-                0x01 => 'Low',
-                0x02 => 'High',
-                # 0x03 - observed with LZ6 and TZ5 in Fireworks mode
-                #        and GX7 in Fantasy/Retro/OldDays/HighKey - PH
-                # 0x04 - observed in MP4 movie with GM1 (EXIF and 0x39 Contrast "Normal") - PH
-                # 0x05 - observed with FX01, FX40 and FP8 (EXIF contrast "Normal") - PH
-                0x06 => 'Medium Low', #PH (FZ18)
-                0x07 => 'Medium High', #PH (FZ18)
-                # 0x08 - GX7 in DynamicMonochrome mode
-                0x0d => 'High Dynamic', #PH (FZ47 in ?)
-                # 0x13 - seen for LX100 (PH)
-                # DMC-LC1 values:
-                0x100 => 'Low',
-                0x110 => 'Normal',
-                0x120 => 'High',
-            }
-        },{
-            Name => 'ContrastMode',
-            Condition => '$$self{Model} =~ /^DMC-(GF\d+|G2)$/',
-            Notes => 'these values are used by the G2, GF1, GF2, GF3, GF5 and GF6',
-            Writable => 'int16u',
-            PrintConv => { # (decoded for GF1 unless otherwise noted)
-                0 => '-2',
-                1 => '-1',
-                2 => 'Normal',
-                3 => '+1',
-                4 => '+2',
-                # Note: Other Contrast tags will be "Normal" in any of these modes:
-                5 => 'Normal 2', # 5 - seen for Portrait (FX80) and Normal (GF6)
-                7 => 'Nature (Color Film)', # (GF1,G2; GF3 "Miniature")
-                9 => 'Expressive', #(GF3)
-                12 => 'Smooth (Color Film) or Pure (My Color)', #(GF1,G2 "Smooth Color")
-                17 => 'Dynamic (B&W Film)', #(GF1,G2)
-                22 => 'Smooth (B&W Film)', #(GF1,G2)
-                25 => 'High Dynamic', #(GF5)
-                26 => 'Retro', #(GF5)
-                27 => 'Dynamic (Color Film)', #(GF1,G2) (GF3 "High Key")
-                28 => 'Low Key', #(GF5)
-                29 => 'Toy Effect', #(GF5)
-                32 => 'Vibrant (Color Film) or Expressive (My Color)', # (GF1; G2 "Vibrant"; GF2,GF5 "Expressive")
-                33 => 'Elegant (My Color)',
-                37 => 'Nostalgic (Color Film)', # (GF1,G2; GF5 "Sepia")
-                41 => 'Dynamic Art (My Color)', # (GF5 "High Key")
-                42 => 'Retro (My Color)',
-                45 => 'Cinema', #(GF2)
-                47 => 'Dynamic Mono', #(GF5)
-                50 => 'Impressive Art', #(GF5)
-                51 => 'Cross Process', #(GF5)
-                100 => 'High Dynamic 2', #Exiv2 (G6)
-                101 => 'Retro 2', #Exiv2 (G6)
-                102 => 'High Key 2', #Exiv2 (G6)
-                103 => 'Low Key 2', #Exiv2 (G6)
-                104 => 'Toy Effect 2', #Exiv2 (G6)
-                107 => 'Expressive 2', #(GF6)
-                112 => 'Sepia', #Exiv2 (G6)
-                117 => 'Miniature', #Exiv2 (G6)
-                122 => 'Dynamic Monochrome', #(GF6)
-                127 => 'Old Days', #Exiv2 (G6)
-                132 => 'Dynamic Monochrome 2', #Exiv2 (G6)
-                135 => 'Impressive Art 2', #Exiv2 (G6)
-                136 => 'Cross Process 2', #Exiv2 (G6)
-                137 => 'Toy Pop', #Exiv2 (G6)
-                138 => 'Fantasy', #Exiv2 (G6)
-                256 => 'Normal 3', #Exiv2 (G6)
-                272 => 'Standard', #Exiv2 (G6)
-                288 => 'High', #Exiv2 (G6)
-                # more new modes for GF6:
-                # ? => 'Old Days',
-                # ? => 'Toy Pop',
-                # ? => 'Bleach Bypass',
-                # ? => 'Fantasy',
-                # ? => 'Star Filter',
-                # ? => 'One Point Color',
-                # ? => 'Sunshine',
-            },
-        },{
-            Name => 'ContrastMode',
-            Condition => '$$self{Model} =~ /^DMC-(TZ10|ZS7)$/',
-            Notes => 'these values are used by the TZ10 and ZS7',
-            Writable => 'int16u',
-            PrintConv => {
-                0 => 'Normal',
-                1 => '-2',
-                2 => '+2',
-                5 => '-1',
-                6 => '+1',
-            },
-        },{
-            Name => 'ContrastMode',
-            Writable => 'int16u',
-        },
-    ],
-    0x2d => {
-        Name => 'NoiseReduction',
-        Writable => 'int16u',
-        PrintConv => {
-            0 => 'Standard',
-            1 => 'Low (-1)',
-            2 => 'High (+1)',
-            3 => 'Lowest (-2)', #JD
-            4 => 'Highest (+2)', #JD
-            # 65531 - seen for LX100 "NR1" test shots at imaging-resource (PH)
-        },
-    },
-    0x2e => { #4
-        Name => 'SelfTimer',
-        Writable => 'int16u',
-        PrintConv => {
-            1 => 'Off',
-            2 => '10 s',
-            3 => '2 s',
-            4 => '10 s / 3 pictures', #17
-        },
-    },
-    # 0x2f - values: 1 (LZ6,FX10K)
-    0x30 => { #7
-        Name => 'Rotation',
-        Writable => 'int16u',
-        PrintConv => {
-            1 => 'Horizontal (normal)',
-            3 => 'Rotate 180', #PH
-            6 => 'Rotate 90 CW', #PH (ref 7 gives 270 CW)
-            8 => 'Rotate 270 CW', #PH (ref 7 gives 90 CW)
-        },
-    },
-    0x31 => { #PH (FS7)
-        Name => 'AFAssistLamp',
-        Writable => 'int16u',
-        PrintConv => {
-            1 => 'Fired',
-            2 => 'Enabled but Not Used',
-            3 => 'Disabled but Required',
-            4 => 'Disabled and Not Required',
-            # have seen a value of 5 - PH
-            # values possibly related to FOC-L? - JD
-        },
-    },
-    0x32 => { #7
-        Name => 'ColorMode',
-        Writable => 'int16u',
-        PrintConv => {
-            0 => 'Normal',
-            1 => 'Natural',
-            2 => 'Vivid',
-            # have seen 3 for GF2 - PH
-        },
-    },
-    0x33 => { #JD
-        Name => 'BabyAge',
-        Writable => 'string',
-        Notes => 'or pet age', #PH
-        PrintConv => '$val eq "9999:99:99 00:00:00" ? "(not set)" : $val',
-        PrintConvInv => '$val =~ /^\d/ ? $val : "9999:99:99 00:00:00"',
-    },
-    0x34 => { #7/PH
-        Name => 'OpticalZoomMode',
-        Writable => 'int16u',
-        PrintConv => {
-            1 => 'Standard',
-            2 => 'Extended',
-        },
-    },
-    0x35 => { #9
-        Name => 'ConversionLens',
-        Writable => 'int16u',
-        PrintConv => { #PH (unconfirmed)
-            1 => 'Off',
-            2 => 'Wide',
-            3 => 'Telephoto',
-            4 => 'Macro',
-        },
-    },
-    0x36 => { #8
-        Name => 'TravelDay',
-        Writable => 'int16u',
-        PrintConv => '$val == 65535 ? "n/a" : $val',
-        PrintConvInv => '$val =~ /(\d+)/ ? $1 : $val',
-    },
-    # 0x37 - values: 0,1,2 (LZ6, 0 for movie preview); 257 (FX10K); 0,256 (TZ5, 0 for movie preview)
-    # 0x38 - values: 0,1,2 (LZ6, same as 0x37); 1,2 (FX10K); 0,256 (TZ5, 0 for movie preview)
-    0x39 => { #7 (L1/L10)
-        Name => 'Contrast',
-        Format => 'int16s',
-        Writable => 'int16u',
-        %Image::ExifTool::Exif::printParameter,
-    },
-    0x3a => {
-        Name => 'WorldTimeLocation',
-        Writable => 'int16u',
-        PrintConv => {
-            1 => 'Home',
-            2 => 'Destination',
-        },
-    },
-    0x3b => { #PH (TZ5/FS7)
-        # (tags 0x3b, 0x3e, 0x8008 and 0x8009 have the same values in all my samples - PH)
-        Name => 'TextStamp',
-        Writable => 'int16u',
-        PrintConv => { 1 => 'Off', 2 => 'On' },
-    },
-    0x3c => { #PH
-        Name => 'ProgramISO', # (maybe should rename this ISOSetting?)
-        Writable => 'int16u',
-        PrintConv => {
-            OTHER => sub { shift },
-            65534 => 'Intelligent ISO', #PH (FS7)
-            65535 => 'n/a',
-        },
-    },
-    0x3d => { #PH
-        Name => 'AdvancedSceneType',
-        Writable => 'int16u',
-        Notes => 'used together with SceneMode to derive Composite AdvancedSceneMode',
-    },
-    0x3e => { #PH (TZ5/FS7)
-        # (tags 0x3b, 0x3e, 0x8008 and 0x8009 have the same values in all my samples - PH)
-        Name => 'TextStamp',
-        Writable => 'int16u',
-        PrintConv => { 1 => 'Off', 2 => 'On' },
-    },
-    0x3f => { #PH (TZ7)
-        Name => 'FacesDetected',
-        Writable => 'int16u',
-    },
-    0x40 => { #7 (L1/L10)
-        Name => 'Saturation',
-        Format => 'int16s',
-        Writable => 'int16u',
-        %Image::ExifTool::Exif::printParameter,
-    },
-    0x41 => { #7 (L1/L10)
-        Name => 'Sharpness',
-        Format => 'int16s',
-        Writable => 'int16u',
-        %Image::ExifTool::Exif::printParameter,
-    },
-    0x42 => { #7 (DMC-L1)
-        Name => 'FilmMode',
-        Writable => 'int16u',
-        PrintConv => {
-            0 => 'n/a', #PH (eg. FZ100 "Photo Frame" ShootingMode)
-            1 => 'Standard (color)',
-            2 => 'Dynamic (color)',
-            3 => 'Nature (color)',
-            4 => 'Smooth (color)',
-            5 => 'Standard (B&W)',
-            6 => 'Dynamic (B&W)',
-            7 => 'Smooth (B&W)',
-            # 8 => 'My Film 1'? (from owner manual)
-            # 9 => 'My Film 2'?
-            10 => 'Nostalgic', #(GH1)
-            11 => 'Vibrant', #(GH1)
-            # 12 => 'Multi Film'? (in the GH1 specs)
-        },
-    },
-    # 0x43 - int16u: 2,3
-    0x44 => {
-        Name => 'ColorTempKelvin',
-        Format => 'int16u',
-    },
-    0x45 => { #19
-        Name => 'BracketSettings',
-        Writable => 'int16u',
-        PrintConv => {
-            0 => 'No Bracket',
-            1 => '3 Images, Sequence 0/-/+',
-            2 => '3 Images, Sequence -/0/+',
-            3 => '5 Images, Sequence 0/-/+',
-            4 => '5 Images, Sequence -/0/+',
-            5 => '7 Images, Sequence 0/-/+',
-            6 => '7 Images, Sequence -/0/+',
-        },
-    },
-    0x46 => { #PH/JD
-        Name => 'WBShiftAB',
-        Format => 'int16s',
-        Writable => 'int16u',
-        Notes => 'positive is a shift toward blue',
-    },
-    0x47 => { #PH/JD
-        Name => 'WBShiftGM',
-        Format => 'int16s',
-        Writable => 'int16u',
-        Notes => 'positive is a shift toward green',
-    },
-    0x48 => { #17
-        Name => 'FlashCurtain',
-        Writable => 'int16u',
-        PrintConv => {
-            0 => 'n/a',
-            1 => '1st',
-            2 => '2nd',
-        },
-    },
-    0x49 => { #19
-        Name => 'LongExposureNoiseReduction',
-        Writable => 'int16u',
-        PrintConv => {
-            1 => 'Off',
-            2 => 'On'
-        }
-    },
-    # 0x4a - int16u: 0
-    0x4b => { #PH
-        Name => 'PanasonicImageWidth',
-        Writable => 'int32u',
-    },
-    0x4c => { #PH
-        Name => 'PanasonicImageHeight',
-        Writable => 'int32u',
-    },
-    0x4d => { #PH (FS7)
-        Name => 'AFPointPosition',
-        Writable => 'rational64u',
-        Count => 2,
-        Notes => 'X Y coordinates of primary AF area center, in the range 0.0 to 1.0',
-        PrintConv => q{
-            return 'none' if $val eq '16777216 16777216';
-            my @a = split ' ', $val;
-            sprintf("%.2g %.2g",@a);
-        },
-        PrintConvInv => '$val eq "none" ? "16777216 16777216" : $val',
-    },
-    0x4e => { #PH
-        Name => 'FaceDetInfo',
-        PrintConv => 'length $val',
-        SubDirectory => {
-            TagTable => 'Image::ExifTool::Panasonic::FaceDetInfo',
-        },
-    },
-    # 0x4f,0x50 - int16u: 0
-    0x51 => {
-        Name => 'LensType',
-        Writable => 'string',
-        ValueConv => '$val=~s/ +$//; $val', # trim trailing spaces
-        ValueConvInv => '$val',
-    },
-    0x52 => { #7 (DMC-L1)
-        Name => 'LensSerialNumber',
-        Writable => 'string',
-        ValueConv => '$val=~s/ +$//; $val', # trim trailing spaces
-        ValueConvInv => '$val',
-    },
-    0x53 => { #7 (DMC-L1)
-        Name => 'AccessoryType',
-        Writable => 'string',
-        ValueConv => '$val=~s/ +$//; $val', # trim trailing spaces
-        ValueConvInv => '$val',
-    },
-    0x54 => { #19
-        Name => 'AccessorySerialNumber',
-        Writable => 'string',
-        ValueConv => '$val=~s/ +$//; $val', # trim trailing spaces
-        ValueConvInv => '$val',
-    },
-    # 0x55 - int16u: 1
-    # 0x57 - int16u: 0
-    0x59 => { #PH (FS7)
-        Name => 'Transform',
-        Writable => 'undef',
-        Notes => 'decoded as two 16-bit signed integers',
-        Format => 'int16s',
-        Count => 2,
-        PrintConv => {
-            '-3 2' => 'Slim High',
-            '-1 1' => 'Slim Low',
-            '0 0' => 'Off',
-            '1 1' => 'Stretch Low',
-            '3 2' => 'Stretch High',
-        },
-    },
-    # 0x5a - int16u: 0,2
-    # 0x5b - int16u: 0
-    # 0x5c - int16u: 0,2
-    0x5d => { #PH (GF1, FZ35)
-        Name => 'IntelligentExposure',
-        Notes => 'not valid for some models', # (doesn't change in ZS7 and GH1 images)
-        Writable => 'int16u',
-        PrintConv => {
-            0 => 'Off',
-            1 => 'Low',
-            2 => 'Standard',
-            3 => 'High',
-        },
-    },
-    # 0x5e,0x5f - undef[4]
-    0x60 => { #18
-        Name => 'LensFirmwareVersion',
-        Writable => 'undef',
-        Format => 'int8u',
-        Count => 4,
-        PrintConv => '$val=~tr/ /./; $val',
-        PrintConvInv => '$val=~tr/./ /; $val',
-    },
-    0x61 => { #PH
-        Name => 'FaceRecInfo',
-        SubDirectory => {
-            TagTable => 'Image::ExifTool::Panasonic::FaceRecInfo',
-        },
-    },
-    0x62 => { #PH (FS7)
-        Name => 'FlashWarning',
-        Writable => 'int16u',
-        PrintConv => { 0 => 'No', 1 => 'Yes (flash required but disabled)' },
-    },
-    0x63 => { #PH
-        # not sure exactly what this means, but in my samples this is
-        # FacesRecognized bytes of 0x01, padded with 0x00 to a length of 4 - PH
-        Name => 'RecognizedFaceFlags',
-        Format => 'int8u',
-        Count => 4,
-        Writable => 'undef',
-        Unknown => 1,
-    },
-    0x65 => { #15
-        Name => 'Title',
-        Format => 'string',
-        Writable => 'undef', # (Count 64)
-    },
-    0x66 => { #15
-        Name => 'BabyName',
-        Notes => 'or pet name',
-        Format => 'string',
-        Writable => 'undef', # (Count 64)
-    },
-    0x67 => { #15
-        Name => 'Location',
-        Groups => { 2 => 'Location' },
-        Format => 'string',
-        Writable => 'undef', # (Count 64)
-    },
-    # 0x68 - int8u: 1
-    0x69 => { #PH (ZS7)
-        Name => 'Country', # (Country/Region)
-        Groups => { 2 => 'Location' },
-        Format => 'string',
-        Writable => 'undef', # (Count 72)
-    },
-    # 0x6a - int8u: 1
-    0x6b => { #PH (ZS7)
-        Name => 'State', # (State/Province/Count -- what is Count?)
-        Groups => { 2 => 'Location' },
-        Format => 'string',
-        Writable => 'undef', # (Count 72)
-    },
-    # 0x6c - int8u: 1
-    0x6d => { #PH (ZS7) (also see forum5997)
-        Name => 'City', # (City/Town)
-        Groups => { 2 => 'Location' },
-        Format => 'string',
-        Writable => 'undef', # (Count 72)
-        Notes => 'City/Town as stored by some models, or County/Township for others',
-    },
-    # 0x6e - int8u: 1
-    0x6f => { #PH (ZS7)
-        Name => 'Landmark', # (Landmark)
-        Groups => { 2 => 'Location' },
-        Format => 'string',
-        Writable => 'undef', # (Count 128)
-    },
-    0x70 => { #PH (ZS7)
-        Name => 'IntelligentResolution',
-        Writable => 'int8u',
-        PrintConv => {
-            0 => 'Off',
-            # Note: I think these values make sense for the GH2, but meanings
-            #       may be different for other models
-            1 => 'Low',
-            2 => 'Standard',
-            3 => 'High',
-            4 => 'Extended',
-        },
-    },
-    # 0x71 - undef[128] (maybe text stamp text?)
-    0x77 => { #18
-        Name => 'BurstSpeed',
-        Writable => 'int16u',
-        Notes => 'images per second',
-    },
-    # 0x72,0x73,0x74,0x75,0x77,0x78: 0
-    # 0x76: 0, (3 for G6 with HDR on, ref 18)
-    0x79 => { #PH (GH2)
-        Name => 'IntelligentD-Range',
-        Writable => 'int16u',
-        PrintConv => {
-            0 => 'Off',
-            1 => 'Low',
-            2 => 'Standard',
-            3 => 'High',
-        },
-    },
-    # 0x7a,0x7b: 0
-    0x7c => { #18
-        Name => 'ClearRetouch',
-        Writable => 'int16u',
-        PrintConv => { 0 => 'Off', 1 => 'On' },
-    },
-    0x80 => { #forum5997 (seen garbage here for SZ5 - PH)
-        Name => 'City2', # (City/Town/Village)
-        Groups => { 2 => 'Location' },
-        Format => 'string',
-        Writable => 'undef', # (Count 72)
-        Notes => 'City/Town/Village as stored by some models',
-    },
-    # 0x81 - undef[72]: "---"
-    # 0x82 - undef[72]: "---"
-    # 0x83 - undef[72]: "---"
-    # 0x84 - undef[72]: "---"
-    # 0x85 - undef[128]: "---"
-    0x86 => { #http://dev.exiv2.org/issues/825
-        Name => 'ManometerPressure',
-        Writable => 'int16u',
-        RawConv => '$val==65535 ? undef : $val',
-        ValueConv => '$val / 10',
-        ValueConvInv => '$val * 10',
-        PrintConv => 'sprintf("%.1f kPa",$val)',
-        PrintConvInv => '$val=~s/ ?kPa//i; $val',
-    },
-    0x89 => {
-        Name => 'PhotoStyle',
-        Writable => 'int16u',
-        PrintConv => {
-            0 => 'Auto',
-            1 => 'Standard or Custom',
-            2 => 'Vivid',
-            3 => 'Natural',
-            4 => 'Monochrome',
-            5 => 'Scenery',
-            6 => 'Portrait',
-        },
-    },
-    0x8a => { #18
-        Name => 'ShadingCompensation',
-        Writable => 'int16u',
-        PrintConv => {
-            0 => 'Off',
-            1 => 'On'
-        }
-    },
-    0x8c => {
-        Name => 'AccelerometerZ',
-        Writable => 'int16u',
-        Format => 'int16s',
-        Notes => 'positive is acceleration upwards',
-    },
-    0x8d => {
-        Name => 'AccelerometerX',
-        Writable => 'int16u',
-        Format => 'int16s',
-        Notes => 'positive is acceleration to the left',
-    },
-    0x8e => {
-        Name => 'AccelerometerY',
-        Writable => 'int16u',
-        Format => 'int16s',
-        Notes => 'positive is acceleration backwards',
-    },
-    0x8f => { #18
-        Name => 'CameraOrientation',
-        Writable => 'int8u',
-        PrintConv => {
-            0 => 'Normal',
-            1 => 'Rotate CW',
-            2 => 'Rotate 180',
-            3 => 'Rotate CCW',
-            4 => 'Tilt Upwards',
-            5 => 'Tilt Downwards'
-        }
-    },
-    0x90 => {
-        Name => 'RollAngle',
-        Writable => 'int16u',
-        Format => 'int16s',
-        Notes => 'converted to degrees of clockwise camera rotation',
-        ValueConv => '$val / 10',
-        ValueConvInv => '$val * 10',
-    },
-    0x91 => {
-        Name => 'PitchAngle',
-        Writable => 'int16u',
-        Format => 'int16s',
-        Notes => 'converted to degrees of upward camera tilt',
-        ValueConv => '-$val / 10',
-        ValueConvInv => '-$val * 10',
-    },
-    0x93 => { #18
-        Name => 'SweepPanoramaDirection',
-        Writable => 'int8u',
-        PrintConv => {
-            0 => 'Off',
-            1 => 'Left to Right',
-            2 => 'Right to Left',
-            3 => 'Top to Bottom',
-            4 => 'Bottom to Top'
-        }
-    },
-    0x94 => { #18
-        Name => 'SweepPanoramaFieldOfView',
-        Writable => 'int16u'
-    },
-    0x96 => { #18
-        Name => 'TimerRecording',
-        Writable => 'int8u',
-        PrintConv => {
-            0 => 'Off',
-            1 => 'Time Lapse',
-            2 => 'Stop-motion Animation',
-        },
-    },
-    0x9d => { #18
-        Name => 'InternalNDFilter',
-        Writable => 'rational64u'
-    },
-    0x9e => { #18
-        Name => 'HDR',
-        Writable => 'int16u',
-        PrintConv => {
-            0 => 'Off',
-            100 => '1 EV',
-            200 => '2 EV',
-            300 => '3 EV',
-            32868 => '1 EV (Auto)',
-            32968 => '2 EV (Auto)',
-            33068 => '3 EV (Auto)',
-        },
-    },
-    0x9f => { #18
-        Name => 'ShutterType',
-        Writable => 'int16u',
-        PrintConv => {
-            0 => 'Mechanical',
-            1 => 'Electronic',
-            2 => 'Hybrid', #PH (GM1, 1st curtain electronic, 2nd curtain mechanical)
-        },
-    },
-    0xa3 => { #18
-        Name => 'ClearRetouchValue',
-        Writable => 'rational64u',
-        # undef if ClearRetouch is off, 0 if it is on
-    },
-    0xab => { #18
-        Name => 'TouchAE',
-        Writable => 'int16u',
-        PrintConv => { 0 => 'Off', 1 => 'On' },
-    },
-    0x0e00 => {
-        Name => 'PrintIM',
-        Description => 'Print Image Matching',
-        Writable => 0,
-        SubDirectory => {
-            TagTable => 'Image::ExifTool::PrintIM::Main',
-        },
-    },
-    0x8000 => { #PH
-        Name => 'MakerNoteVersion',
-        Format => 'undef',
-    },
-    0x8001 => { #7/PH/JD
-        Name => 'SceneMode',
-        Writable => 'int16u',
-        PrintConvColumns => 2,
-        PrintConv => {
-            0  => 'Off',
-            %shootingMode,
-        },
-    },
-    # 0x8002 - values: 1,2 related to focus? (PH/JD)
-    #          1 for HDR modes, 2 for Portrait (ref 12)
-    # 0x8003 - values: 1,2 related to focus? (PH/JD)
-    0x8004 => { #PH/JD
-        Name => 'WBRedLevel',
-        Writable => 'int16u',
-    },
-    0x8005 => { #PH/JD
-        Name => 'WBGreenLevel',
-        Writable => 'int16u',
-    },
-    0x8006 => { #PH/JD
-        Name => 'WBBlueLevel',
-        Writable => 'int16u',
-    },
-    0x8007 => { #PH
-        Name => 'FlashFired',
-        Writable => 'int16u',
-        PrintConv => { 1 => 'No', 2 => 'Yes' },
-    },
-    0x8008 => { #PH (TZ5/FS7)
-        # (tags 0x3b, 0x3e, 0x8008 and 0x8009 have the same values in all my samples - PH)
-        Name => 'TextStamp',
-        Writable => 'int16u',
-        PrintConv => { 1 => 'Off', 2 => 'On' },
-    },
-    0x8009 => { #PH (TZ5/FS7)
-        # (tags 0x3b, 0x3e, 0x8008 and 0x8009 have the same values in all my samples - PH)
-        Name => 'TextStamp',
-        Writable => 'int16u',
-        PrintConv => { 1 => 'Off', 2 => 'On' },
-    },
-    0x8010 => { #PH
-        Name => 'BabyAge',
-        Writable => 'string',
-        Notes => 'or pet age',
-        PrintConv => '$val eq "9999:99:99 00:00:00" ? "(not set)" : $val',
-        PrintConvInv => '$val =~ /^\d/ ? $val : "9999:99:99 00:00:00"',
-    },
-    0x8012 => { #PH (FS7)
-        Name => 'Transform',
-        Writable => 'undef',
-        Notes => 'decoded as two 16-bit signed integers',
-        Format => 'int16s',
-        Count => 2,
-        PrintConv => {
-            '-3 2' => 'Slim High',
-            '-1 1' => 'Slim Low',
-            '0 0' => 'Off',
-            '1 1' => 'Stretch Low',
-            '3 2' => 'Stretch High',
-        },
-    },
-);
-
-# Leica type2 maker notes (ref 10)
-%Image::ExifTool::Panasonic::Leica2 = (
-    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
-    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
-    GROUPS => { 0 => 'MakerNotes', 1 => 'Leica', 2 => 'Camera' },
-    WRITABLE => 1,
-    NOTES => 'These tags are used by the Leica M8.',
-    0x300 => {
-        Name => 'Quality',
-        Writable => 'int16u',
-        PrintConv => {
-            1 => 'Fine',
-            2 => 'Basic',
-        },
-    },
-    0x302 => {
-        Name => 'UserProfile',
-        Writable => 'int32u',
-        PrintConv => {
-            1 => 'User Profile 1',
-            2 => 'User Profile 2',
-            3 => 'User Profile 3',
-            4 => 'User Profile 0 (Dynamic)',
-        },
-    },
-    0x303 => {
-        Name => 'SerialNumber',
-        Writable => 'int32u',
-        PrintConv => 'sprintf("%.7d", $val)',
-        PrintConvInv => '$val',
-    },
-    0x304 => {
-        Name => 'WhiteBalance',
-        Writable => 'int16u',
-        Notes => 'values above 0x8000 are converted to Kelvin color temperatures',
-        PrintConv => {
-            0 => 'Auto or Manual',
-            1 => 'Daylight',
-            2 => 'Fluorescent',
-            3 => 'Tungsten',
-            4 => 'Flash',
-            10 => 'Cloudy',
-            11 => 'Shade',
-            OTHER => \&WhiteBalanceConv,
-        },
-    },
-    0x310 => {
-        Name => 'LensType',
-        Writable => 'int32u',
-        SeparateTable => 1,
-        ValueConv => '($val >> 2) . " " . ($val & 0x3)',
-        ValueConvInv => \&LensTypeConvInv,
-        PrintConv => \%leicaLensTypes,
-    },
-    0x311 => {
-        Name => 'ExternalSensorBrightnessValue',
-        Format => 'rational64s', # (incorrectly unsigned in JPEG images)
-        Writable => 'rational64s',
-        Notes => '"blue dot" measurement',
-        PrintConv => 'sprintf("%.2f", $val)',
-        PrintConvInv => '$val',
-    },
-    0x312 => {
-        Name => 'MeasuredLV',
-        Format => 'rational64s', # (incorrectly unsigned in JPEG images)
-        Writable => 'rational64s',
-        Notes => 'imaging sensor or TTL exposure meter measurement',
-        PrintConv => 'sprintf("%.2f", $val)',
-        PrintConvInv => '$val',
-    },
-    0x313 => {
-        Name => 'ApproximateFNumber',
-        Writable => 'rational64u',
-        PrintConv => 'sprintf("%.1f", $val)',
-        PrintConvInv => '$val',
-    },
-    0x320 => {
-        Name => 'CameraTemperature',
-        Writable => 'int32s',
-        PrintConv => '"$val C"',
-        PrintConvInv => '$val=~s/ ?C//; $val',
-    },
-    0x321 => { Name => 'ColorTemperature',  Writable => 'int32u' },
-    0x322 => { Name => 'WBRedLevel',        Writable => 'rational64u' },
-    0x323 => { Name => 'WBGreenLevel',      Writable => 'rational64u' },
-    0x324 => { Name => 'WBBlueLevel',       Writable => 'rational64u' },
-    0x325 => {
-        Name => 'UV-IRFilterCorrection',
-        Description => 'UV/IR Filter Correction',
-        Writable => 'int32u',
-        PrintConv => {
-            0 => 'Not Active',
-            1 => 'Active',
-        },
-    },
-    0x330 => { Name => 'CCDVersion',        Writable => 'int32u' },
-    0x331 => { Name => 'CCDBoardVersion',   Writable => 'int32u' },
-    0x332 => { Name => 'ControllerBoardVersion', Writable => 'int32u' },
-    0x333 => { Name => 'M16CVersion',       Writable => 'int32u' },
-    0x340 => { Name => 'ImageIDNumber',     Writable => 'int32u' },
-);
-
-# Leica type3 maker notes (ref PH)
-%Image::ExifTool::Panasonic::Leica3 = (
-    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
-    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
-    GROUPS => { 0 => 'MakerNotes', 1 => 'Leica', 2 => 'Camera' },
-    WRITABLE => 1,
-    NOTES => 'These tags are used by the Leica R8 and R9 digital backs.',
-    0x0d => {
-        Name => 'WB_RGBLevels',
-        Writable => 'int16u',
-        Count => 3,
-    },
-);
-
-# Leica type4 maker notes (ref PH) (M9)
-%Image::ExifTool::Panasonic::Leica4 = (
-    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
-    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
-    GROUPS => { 0 => 'MakerNotes', 1 => 'Leica', 2 => 'Camera' },
-    WRITABLE => 1,
-    NOTES => 'This information is written by the M9.',
-    0x3000 => {
-        Name => 'Subdir3000',
-        SubDirectory => {
-            TagTable => 'Image::ExifTool::Panasonic::Subdir',
-            ByteOrder => 'Unknown',
-        },
-    },
-    0x3100 => {
-        Name => 'Subdir3100',
-        SubDirectory => {
-            TagTable => 'Image::ExifTool::Panasonic::Subdir',
-            ByteOrder => 'Unknown',
-        },
-    },
-    0x3400 => {
-        Name => 'Subdir3400',
-        SubDirectory => {
-            TagTable => 'Image::ExifTool::Panasonic::Subdir',
-            ByteOrder => 'Unknown',
-        },
-    },
-    0x3900 => {
-        Name => 'Subdir3900',
-        SubDirectory => {
-            TagTable => 'Image::ExifTool::Panasonic::Subdir',
-            ByteOrder => 'Unknown',
-        },
-    },
-);
-
-# Leica M9 SubDirectory tags (ref PH)
-%Image::ExifTool::Panasonic::Subdir = (
-    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
-    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
-    GROUPS => { 0 => 'MakerNotes', 1 => 'Leica', 2 => 'Camera' },
-    TAG_PREFIX => 'Leica_Subdir',
-    WRITABLE => 1,
-    # 0x3001 - normally 0 but value of 2 when manual coding is used
-    #          with a coded lens (but only tested with Elmar-M 50mm f/2.8) - PH
-    0x300a => {
-        Name => 'Contrast',
-        Writable => 'int32u',
-        PrintConv => {
-            0 => 'Low',
-            1 => 'Medium Low',
-            2 => 'Normal',
-            3 => 'Medium High',
-            4 => 'High',
-        },
-    },
-    0x300b => {
-        Name => 'Sharpening',
-        Writable => 'int32u',
-        PrintConv => {
-            0 => 'Off',
-            1 => 'Low',
-            2 => 'Normal',
-            3 => 'Medium High',
-            4 => 'High',
-        },
-    },
-    0x300d => {
-        Name => 'Saturation',
-        Writable => 'int32u',
-        PrintConv => {
-            0 => 'Low',
-            1 => 'Medium Low',
-            2 => 'Normal',
-            3 => 'Medium High',
-            4 => 'High',
-            5 => 'Black & White',
-            6 => 'Vintage B&W',
-        },
-    },
-    # 0x3032 - some sort of RGB coefficients? (zeros unless Kelvin WB, but same for all Color Temps)
-    0x3033 => {
-        Name => 'WhiteBalance',
-        Writable => 'int32u',
-        PrintConv => { #13
-            0 => 'Auto',
-            1 => 'Tungsten',
-            2 => 'Fluorescent',
-            3 => 'Daylight Fluorescent',
-            4 => 'Daylight',
-            5 => 'Flash',
-            6 => 'Cloudy',
-            7 => 'Shade',
-            8 => 'Manual',
-            9 => 'Kelvin',
-        },
-    },
-    0x3034 => {
-        Name => 'JPEGQuality',
-        Writable => 'int32u',
-        PrintConv => {
-            94 => 'Basic',
-            97 => 'Fine',
-        },
-    },
-    # 0x3035 (int32u): -1 unless Manual WB (2 in my Manual sample)
-    0x3036 => {
-        Name => 'WB_RGBLevels',
-        Writable => 'rational64u',
-        Count => 3,
-    },
-    0x3038 => {
-        Name => 'UserProfile', # (CameraProfile according to ref 14)
-        Writable => 'string',
-    },
-    0x303a => {
-        Name => 'JPEGSize',
-        Writable => 'int32u',
-        PrintConv => {
-            0 => '5216x3472',
-            1 => '3840x2592',
-            2 => '2592x1728',
-            3 => '1728x1152',
-            4 => '1280x864',
-        },
-    },
-    0x3103 => { #13 (valid for FW 1.116 and later)
-        Name => 'SerialNumber',
-        Writable => 'string',
-    },
-    # 0x3104 body-dependent string ("00012905000000") (not serial number)
-    # 0x3105 body-dependent string ("00012905000000")
-    # 0x3107 - body-dependent string ("4H205800116800") (not serial number)
-    0x3109 => {
-        Name => 'FirmwareVersion',
-        Writable => 'string',
-    },
-    0x312a => { #14 (NC)
-        Name => 'BaseISO',
-        Writable => 'int32u',
-    },
-    0x312b => {
-        Name => 'SensorWidth',
-        Writable => 'int32u',
-    },
-    0x312c => {
-        Name => 'SensorHeight',
-        Writable => 'int32u',
-    },
-    0x312d => { #14 (NC)
-        Name => 'SensorBitDepth',
-        Writable => 'int32u',
-    },
-    0x3402 => { #PH/13
-        Name => 'CameraTemperature',
-        Writable => 'int32s',
-        PrintConv => '"$val C"',
-        PrintConvInv => '$val=~s/ ?C//; $val',
-    },
-    0x3405 => {
-        Name => 'LensType',
-        Writable => 'int32u',
-        SeparateTable => 1,
-        ValueConv => '($val >> 2) . " " . ($val & 0x3)',
-        ValueConvInv => \&LensTypeConvInv,
-        PrintConv => \%leicaLensTypes,
-    },
-    0x3406 => { #PH/13
-        Name => 'ApproximateFNumber',
-        Writable => 'rational64u',
-        PrintConv => 'sprintf("%.1f", $val)',
-        PrintConvInv => '$val',
-    },
-    0x3407 => { #14
-        Name => 'MeasuredLV',
-        Writable => 'int32s',
-        Notes => 'imaging sensor or TTL exposure meter measurement',
-        ValueConv => '$val / 1e5', #PH (NC)
-        ValueConvInv => '$val * 1e5', #PH (NC)
-        PrintConv => 'sprintf("%.2f", $val)',
-        PrintConvInv => '$val',
-    },
-    0x3408 => { #14
-        Name => 'ExternalSensorBrightnessValue',
-        Writable => 'int32s',
-        Notes => '"blue dot" measurement',
-        ValueConv => '$val / 1e5', #PH (NC)
-        ValueConvInv => '$val * 1e5', #PH (NC)
-        PrintConv => 'sprintf("%.2f", $val)',
-        PrintConvInv => '$val',
-    },
-    0x3901 => {
-        Name => 'Data1',
-        SubDirectory => { TagTable => 'Image::ExifTool::Panasonic::Data1' },
-    },
-    0x3902 => {
-        Name => 'Data2',
-        SubDirectory => { TagTable => 'Image::ExifTool::Panasonic::Data2' },
-    },
-    # 0x3903 - larger binary data block
-);
-
-%Image::ExifTool::Panasonic::Data1 = (
-    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
-    WRITE_PROC => \&Image::ExifTool::WriteBinaryData,
-    CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
-    GROUPS => { 0 => 'MakerNotes', 1 => 'Leica', 2 => 'Camera' },
-    WRITABLE => 1,
-    TAG_PREFIX => 'Leica_Data1',
-    FIRST_ENTRY => 0,
-    0x0016 => {
-        Name => 'LensType',
-        Writable => 'int32u',
-        Priority => 0,
-        SeparateTable => 1,
-        ValueConv => '($val >> 2) . " " . ($val & 0x3)',
-        ValueConvInv => \&LensTypeConvInv,
-        PrintConv => \%leicaLensTypes,
-    },
-);
-
-%Image::ExifTool::Panasonic::Data2 = (
-    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
-    GROUPS => { 0 => 'MakerNotes', 1 => 'Leica', 2 => 'Camera' },
-    TAG_PREFIX => 'Leica_Data2',
-    FIRST_ENTRY => 0,
-);
-
-# Leica type5 maker notes (ref PH) (X1)
-%Image::ExifTool::Panasonic::Leica5 = (
-    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
-    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
-    GROUPS => { 0 => 'MakerNotes', 1 => 'Leica', 2 => 'Camera' },
-    WRITABLE => 1,
-    PRIORITY => 0,
-    NOTES => 'This information is written by the X1, X2, X VARIO and T.',
-    0x0303 => {
-        Name => 'LensModel',
-        Condition => '$format eq "string"',
-        Notes => 'Leica T only',
-        Writable => 'string',
-    },
-    # 0x0406 - saturation or sharpness
-    0x0407 => { Name => 'OriginalFileName', Writable => 'string' },
-    0x0408 => { Name => 'OriginalDirectory',Writable => 'string' },
-    # 0x040b - related to white balance
-    0x040d => {
-        Name => 'ExposureMode',
-        Format => 'int8u',
-        Count => 4,
-        PrintConv => {
-            '0 0 0 0' => 'Program AE',
-          # '0 1 0 0' - seen for X (Typ 113) - PH
-            '1 0 0 0' => 'Aperture-priority AE',
-            '1 1 0 0' => 'Aperture-priority AE (1)', # (see for Leica T)
-            '2 0 0 0' => 'Shutter speed priority AE', #(guess)
-            '3 0 0 0' => 'Manual',
-        },
-    },
-    0x0410 => {
-        Name => 'ShotInfo',
-        SubDirectory => { TagTable => 'Image::ExifTool::Panasonic::ShotInfo' },
-    },
-    # 0x0410 - int8u[16]: first byte is FileNumber
-    # 0x0411 - int8u[4]: first number is FilmMode (1=Standard,2=Vivid,3=Natural,4=BW Natural,5=BW High Contrast)
-    0x0412 => { Name => 'FilmMode',         Writable => 'string' },
-    0x0413 => { Name => 'WB_RGBLevels',     Writable => 'rational64u', Count => 3 },
-);
-
-# Leica type5 ShotInfo (ref PH) (X2)
-%Image::ExifTool::Panasonic::ShotInfo = (
-    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
-    WRITE_PROC => \&Image::ExifTool::WriteBinaryData,
-    CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
-    GROUPS => { 0 => 'MakerNotes', 1 => 'Leica', 2 => 'Camera' },
-    TAG_PREFIX => 'Leica_ShotInfo',
-    FIRST_ENTRY => 0,
-    WRITABLE => 1,
-    0 => {
-        Name => 'FileIndex',
-        Format => 'int16u',
-    },
-);
-
-# Leica type6 maker notes (ref PH) (S2)
-%Image::ExifTool::Panasonic::Leica6 = (
-    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
-    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
-    GROUPS => { 0 => 'MakerNotes', 1 => 'Leica', 2 => 'Camera' },
-    NOTES => q{
-        This information is written by the S2 and M (Typ 240), as a trailer in JPEG
-        images.
-    },
-    0x300 => {
-        Name => 'PreviewImage',
-        Groups => { 2 => 'Preview' },
-        Writable => 'undef',
-        Notes => 'S2 and M (Typ 240)',
-        DataTag => 'PreviewImage',
-        RawConv => q{
-            return \$val if $val =~ /^Binary/;
-            return \$val if $val =~ /^\xff\xd8\xff/;
-            $$self{PreviewError} = 1 unless $val eq 'none';
-            return undef;
-        },
-        ValueConvInv => '$val || "none"',
-        WriteCheck => 'return $val=~/^(none|\xff\xd8\xff)/s ? undef : "Not a valid image"',
-        ChangeBase => '$dirStart + $dataPos - 8',
-    },
-    0x301 => {
-        Name => 'UnknownBlock',
-        Notes => 'unknown 320kB block, not copied to JPEG images',
-        Flags => [ 'Unknown', 'Binary', 'Drop' ],
-    },
-    # 0x302 - same value as 4 unknown bytes at the end of JPEG or after the DNG TIFF header
-    0x303 => {
-        Name => 'LensType',
-        Writable => 'string',
-        ValueConv => '$val=~s/ +$//; $val', # trim trailing spaces
-        ValueConvInv => '$val',
-    },
-    # 0x340 - same as 0x302
-);
-
-# Leica type9 maker notes (ref PH) (S)
-%Image::ExifTool::Panasonic::Leica9 = (
-    WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
-    CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
-    GROUPS => { 0 => 'MakerNotes', 1 => 'Leica', 2 => 'Camera' },
-    NOTES => 'This information is written by the Leica S (Typ 007).',
-);
-
-# Type 2 tags (ref PH)
-%Image::ExifTool::Panasonic::Type2 = (
-    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
-    GROUPS => { 0 => 'MakerNotes', 2 => 'Image' },
-    FIRST_ENTRY => 0,
-    FORMAT => 'int16u',
-    NOTES => q{
-        This type of maker notes is used by models such as the NV-DS65, PV-D2002,
-        PV-DC3000, PV-DV203, PV-DV401, PV-DV702, PV-L2001, PV-SD4090, PV-SD5000 and
-        iPalm.
-    },
-    0 => {
-        Name => 'MakerNoteType',
-        Format => 'string[4]',
-    },
-    # seems to vary inversely with amount of light, so I'll call it 'Gain' - PH
-    # (minimum is 16, maximum is 136.  Value is 0 for pictures captured from video)
-    3 => 'Gain',
-);
-
-# Face detection position information (ref PH)
-%Image::ExifTool::Panasonic::FaceDetInfo = (
-    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
-    WRITE_PROC => \&Image::ExifTool::WriteBinaryData,
-    CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
-    GROUPS => { 0 => 'MakerNotes', 2 => 'Image' },
-    WRITABLE => 1,
-    FORMAT => 'int16u',
-    FIRST_ENTRY => 0,
-    DATAMEMBER => [ 0 ],
-    NOTES => 'Face detection position information.',
-    0 => {
-        Name => 'NumFacePositions',
-        Format => 'int16u',
-        DataMember => 'NumFacePositions',
-        RawConv => '$$self{NumFacePositions} = $val',
-        Notes => q{
-            number of detected face positions stored in this record.  May be less than
-            FacesDetected
-        },
-    },
-    1 => {
-        Name => 'Face1Position',
-        Format => 'int16u[4]',
-        RawConv => '$$self{NumFacePositions} < 1 ? undef : $val',
-        Notes => q{
-            4 numbers: X/Y coordinates of the face center and width/height of face. 
-            Coordinates are relative to an image twice the size of the thumbnail, or 320
-            pixels wide
-        },
-    },
-    5 => {
-        Name => 'Face2Position',
-        Format => 'int16u[4]',
-        RawConv => '$$self{NumFacePositions} < 2 ? undef : $val',
-    },
-    9 => {
-        Name => 'Face3Position',
-        Format => 'int16u[4]',
-        RawConv => '$$self{NumFacePositions} < 3 ? undef : $val',
-    },
-    13 => {
-        Name => 'Face4Position',
-        Format => 'int16u[4]',
-        RawConv => '$$self{NumFacePositions} < 4 ? undef : $val',
-    },
-    17 => {
-        Name => 'Face5Position',
-        Format => 'int16u[4]',
-        RawConv => '$$self{NumFacePositions} < 5 ? undef : $val',
-    },
-);
-
-# Face recognition information from DMC-TZ7 (ref PH)
-%Image::ExifTool::Panasonic::FaceRecInfo = (
-    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
-    WRITE_PROC => \&Image::ExifTool::WriteBinaryData,
-    CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
-    GROUPS => { 0 => 'MakerNotes', 2 => 'Image' },
-    WRITABLE => 1,
-    FIRST_ENTRY => 0,
-    DATAMEMBER => [ 0 ],
-    NOTES => q{
-        Tags written by cameras with facial recognition.  These cameras not only
-        detect faces in an image, but also recognize specific people based a
-        user-supplied set of known faces.
-    },
-    0 => {
-        Name => 'FacesRecognized',
-        Format => 'int16u',
-        DataMember => 'FacesRecognized',
-        RawConv => '$$self{FacesRecognized} = $val',
-    },
-    4 => {
-        Name => 'RecognizedFace1Name',
-        Format => 'string[20]',
-        RawConv => '$$self{FacesRecognized} < 1 ? undef : $val',
-    },
-    24 => {
-        Name => 'RecognizedFace1Position',
-        Format => 'int16u[4]',
-        RawConv => '$$self{FacesRecognized} < 1 ? undef : $val',
-        Notes => 'coordinates in same format as face detection tags above',
-    },
-    32 => {
-        Name => 'RecognizedFace1Age',
-        Format => 'string[20]',
-        RawConv => '$$self{FacesRecognized} < 1 ? undef : $val',
-    },
-    52 => {
-        Name => 'RecognizedFace2Name',
-        Format => 'string[20]',
-        RawConv => '$$self{FacesRecognized} < 2 ? undef : $val',
-    },
-    72 => {
-        Name => 'RecognizedFace2Position',
-        Format => 'int16u[4]',
-        RawConv => '$$self{FacesRecognized} < 2 ? undef : $val',
-    },
-    80 => {
-        Name => 'RecognizedFace2Age',
-        Format => 'string[20]',
-        RawConv => '$$self{FacesRecognized} < 2 ? undef : $val',
-    },
-    100 => {
-        Name => 'RecognizedFace3Name',
-        Format => 'string[20]',
-        RawConv => '$$self{FacesRecognized} < 3 ? undef : $val',
-    },
-    120 => {
-        Name => 'RecognizedFace3Position',
-        Format => 'int16u[4]',
-        RawConv => '$$self{FacesRecognized} < 3 ? undef : $val',
-    },
-    128 => {
-        Name => 'RecognizedFace3Age',
-        Format => 'string[20]',
-        RawConv => '$$self{FacesRecognized} < 3 ? undef : $val',
-    },
-);
-
-# PANA atom found in user data of MP4 videos (ref PH)
-%Image::ExifTool::Panasonic::PANA = (
-    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
-    GROUPS => { 0 => 'MakerNotes', 2 => 'Image' },
-    NOTES => q{
-        Tags extracted from the PANA and LEIC user data found in MP4 videos from
-        various Panasonic and Leica models.
-    },
-    0x00 => {
-        Name => 'Make',
-        Condition => '$$valPt =~ /^(LEICA|Panasonic)/', # (only seen "LEICA")
-        Groups => { 2 => 'Camera' },
-        Format => 'string[22]',
-        RawConv => '$$self{LeicaLEIC} = 1;$$self{Make} = $val',
-    },
-    0x04 => {
-        Name => 'Model',
-        Condition => '$$valPt =~ /^[^\0]{6}/ and not $$self{LeicaLEIC}',
-        Description => 'Camera Model Name',
-        Groups => { 2 => 'Camera' },
-        Format => 'string[16]',
-        RawConv => '$$self{Model} = $val',
-    },
-    0x0c => { # (FZ1000)
-        Name => 'Model',
-        Condition => '$$valPt =~ /^[^\0]{6}/ and not $$self{LeicaLEIC} and not $$self{Model}',
-        Description => 'Camera Model Name',
-        Groups => { 2 => 'Camera' },
-        Format => 'string[16]',
-        RawConv => '$$self{Model} = $val',
-    },
-    0x16 => {
-        Name => 'Model',
-        Condition => '$$self{LeicaLEIC}',
-        Description => 'Camera Model Name',
-        Groups => { 2 => 'Camera' },
-        Format => 'string[30]',
-        RawConv => '$$self{Model} = $val',
-    },
-    0x40 => {
-        Name => 'ThumbnailTest',
-        Format => 'undef[0x600]',
-        Hidden => 1,
-        RawConv => q{
-            if (substr($val,0x1c,3) eq "\xff\xd8\xff") { # offset 0x5c
-                $$self{ThumbType} = 1;
-            } elsif (substr($val,0x506,3) eq "\xff\xd8\xff") { # offset 0x546
-                $$self{ThumbType} = 2;
-            } elsif (substr($val,0x51e,3) eq "\xff\xd8\xff") { # offset 0x55e (Leica T)
-                $$self{ThumbType} = 3;
-            } else {
-                $$self{ThumbType} = 0;
-            }
-            return undef;
-        },
-    },
-    0x34 => {
-        Name => 'Version1',
-        Condition => '$$self{LeicaLEIC}',
-        Format => 'string[14]',
-    },
-    0x3e => {
-        Name => 'Version2',
-        Condition => '$$self{LeicaLEIC}',
-        Format => 'string[14]',
-    },
-    0x50 => {
-        Name => 'MakerNoteLeica5',
-        Condition => '$$self{LeicaLEIC}',
-        SubDirectory => {
-            TagTable => 'Image::ExifTool::Panasonic::Leica5',
-            ProcessProc => \&ProcessLeicaLEIC,
-        },
-    },
-    0x58 => {
-        Name => 'ThumbnailWidth',
-        Condition => '$$self{ThumbType} == 1',
-        Notes => 'Panasonic models',
-        Format => 'int16u',
-    },
-    0x5a => {
-        Name => 'ThumbnailHeight',
-        Condition => '$$self{ThumbType} == 1',
-        Format => 'int16u',
-    },
-    0x5c => {
-        Name => 'ThumbnailImage',
-        Condition => '$$self{ThumbType} == 1',
-        Groups => { 2 => 'Preview' },
-        Format => 'undef[16384]',
-        ValueConv => '$val=~s/\0*$//; \$val',   # remove trailing zeros
-    },
-    # 0x5c - there is some messed-up EXIF-IFD-looking data starting here in
-    #        Leica X VARIO MP4 videos, but it doesn't quite make sense
-    0x536 => { # (Leica X VARIO)
-        Name => 'ThumbnailWidth',
-        Condition => '$$self{ThumbType} == 2',
-        Notes => 'Leica X Vario',
-        Format => 'int32uRev', # (little-endian)
-    },
-    0x53a => { # (Leica X VARIO)
-        Name => 'ThumbnailHeight',
-        Condition => '$$self{ThumbType} == 2',
-        Format => 'int32uRev', # (little-endian)
-    },
-    0x53e => { # (Leica X VARIO)
-        Name => 'ThumbnailLength',
-        Condition => '$$self{ThumbType} == 2',
-        Format => 'int32uRev', # (little-endian)
-    },
-    0x546 => { # (Leica X VARIO)
-        Name => 'ThumbnailImage',
-        Condition => '$$self{ThumbType} == 2',
-        Groups => { 2 => 'Preview' },
-        Format => 'undef[$val{0x53e}]',
-        Binary => 1,
-    },
-    0x54e => { # (Leica T)
-        Name => 'ThumbnailWidth',
-        Condition => '$$self{ThumbType} == 3',
-        Notes => 'Leica X Vario',
-        Format => 'int32uRev', # (little-endian)
-    },
-    0x552 => { # (Leica T)
-        Name => 'ThumbnailHeight',
-        Condition => '$$self{ThumbType} == 3',
-        Format => 'int32uRev', # (little-endian)
-    },
-    0x556 => { # (Leica T)
-        Name => 'ThumbnailLength',
-        Condition => '$$self{ThumbType} == 3',
-        Format => 'int32uRev', # (little-endian)
-    },
-    0x55e => { # (Leica T)
-        Name => 'ThumbnailImage',
-        Condition => '$$self{ThumbType} == 3',
-        Groups => { 2 => 'Preview' },
-        Format => 'undef[$val{0x556}]',
-        Binary => 1,
-    },
-    0x4068 => {
-        Name => 'ExifData',
-        Condition => '$$valPt =~ /^\xff\xd8\xff\xe1..Exif\0\0/s',
-        SubDirectory => {
-            TagTable => 'Image::ExifTool::Exif::Main',
-            ProcessProc => \&Image::ExifTool::ProcessTIFF,
-            Start => 12,
-        },
-    },
-    0x4080 => { # (FZ1000)
-        Name => 'ExifData',
-        Condition => '$$valPt =~ /^\xff\xd8\xff\xe1..Exif\0\0/s',
-        SubDirectory => {
-            TagTable => 'Image::ExifTool::Exif::Main',
-            ProcessProc => \&Image::ExifTool::ProcessTIFF,
-            Start => 12,
-        },
-    },
-);
-
-# Panasonic Composite tags
-%Image::ExifTool::Panasonic::Composite = (
-    GROUPS => { 2 => 'Camera' },
-    AdvancedSceneMode => {
-        SeparateTable => 'Panasonic AdvancedSceneMode',    # print values in a separate table
-        Require => {
-            0 => 'Model',
-            1 => 'SceneMode',
-            2 => 'AdvancedSceneType',
-        },
-        ValueConv => '"$val[0] $val[1] $val[2]"',
-        PrintConv => { #PH
-            OTHER => sub {
-                my ($val,$flag,$conv) = @_;
-                $val =~ s/.* (\d+ \d+)/$1/; # drop model name
-                return $$conv{$val} if $$conv{$val};
-                my @v = split ' ', $val;
-                my $prt = $shootingMode{$v[0]};
-                # AdvancedSceneType=1 for non-automatic modes P,A,S,SCN (ref 19)
-                # AdvancedSceneType=5 for automatic mode iA (ref 19)
-                if ($prt) {
-                    return $prt if $v[1] == 1;
-                    return "$prt (intelligent auto)" if $v[1] == 5;
-                    return "$prt ($v[1])";
-                }
-                return "Unknown ($val)";
-            },
-            Notes => 'A Composite tag derived from Model, SceneMode and AdvancedSceneType.',
-            '0 1' => 'Off',
-            # '0 7' - seen this for V-LUX movies (PH)
-            # '0 8' - seen for D-LUX(Typ104) movies (PH)
-            '2 2' => 'Outdoor Portrait', #(FZ28)
-            '2 3' => 'Indoor Portrait', #(FZ28)
-            '2 4' => 'Creative Portrait', #(FZ28)
-            '3 2' => 'Nature', #(FZ28)
-            '3 3' => 'Architecture', #(FZ28)
-            '3 4' => 'Creative Scenery', #(FZ28)
-            #'3 5' - ? (FT1)
-            '4 2' => 'Outdoor Sports', #(FZ28)
-            '4 3' => 'Indoor Sports', #(FZ28)
-            '4 4' => 'Creative Sports', #(FZ28)
-            '9 2' => 'Flower', #(FZ28)
-            '9 3' => 'Objects', #(FZ28)
-            '9 4' => 'Creative Macro', #(FZ28)
-            #'9 5' - ? (GF3)
-            '21 2' => 'Illuminations', #(FZ28)
-            '21 4' => 'Creative Night Scenery', #(FZ28)
-            #'21 5' - ? (LX3)
-            #'37 5' - ? (various)
-            '45 2' => 'Cinema', #(GF2)
-            '45 7' => 'Expressive', #(GF1,GF2)
-            '45 8' => 'Retro', #(GF1,GF2)
-            '45 9' => 'Pure', #(GF1,GF2)
-            '45 10' => 'Elegant', #(GF1,GF2)
-            '45 12' => 'Monochrome', #(GF1,GF2)
-            '45 13' => 'Dynamic Art', #(GF1,GF2)
-            '45 14' => 'Silhouette', #(GF1,GF2)
-            '51 2' => 'HDR Art', #12
-            '51 3' => 'HDR B&W', #12
-            '59 1' => 'Expressive', #(GF5)
-            '59 2' => 'Retro', #(GF5)
-            '59 3' => 'High Key', #(GF5)
-            '59 4' => 'Sepia', #(GF3,GF5)
-            '59 5' => 'High Dynamic', #(GF3,GF5)
-            '59 6' => 'Miniature', #(GF3)
-            '59 9' => 'Low Key', #(GF5)
-            '59 10' => 'Toy Effect', #(GF5)
-            '59 11' => 'Dynamic Monochrome', #(GF5)
-            '59 12' => 'Soft', #(GF5)
-            '66 1' => 'Impressive Art', #19
-            '66 2' => 'Cross Process', #(GF5)
-            '66 3' => 'Color Select', #(GF5) (called "One Point Color" by some other models - PH)
-            '66 4' => 'Star', #(GF5)
-            '90 3' => 'Old Days', #18
-            '90 4' => 'Sunshine', #18
-            '90 5' => 'Bleach Bypass', #18
-            '90 6' => 'Toy Pop', #18
-            '90 7' => 'Fantasy', #18
-            '90 8' => 'Monochrome', #PH (GX7)
-            '90 9' => 'Rough Monochrome', #PH (GX7)
-            '90 10' => 'Silky Monochrome', #PH (GX7)
-            '92 1' => 'Handheld Night Shot', #Horst Wandres (FZ1000)
-            # TZ40 Creative Control modes (ref 19)
-            'DMC-TZ40 90 1' => 'Expressive',
-            'DMC-TZ40 90 2' => 'Retro',
-            'DMC-TZ40 90 3' => 'High Key',
-            'DMC-TZ40 90 4' => 'Sepia',
-            'DMC-TZ40 90 5' => 'High Dynamic',
-            'DMC-TZ40 90 6' => 'Miniature',
-            'DMC-TZ40 90 9' => 'Low Key',
-            'DMC-TZ40 90 10' => 'Toy Effect',
-            'DMC-TZ40 90 11' => 'Dynamic Monochrome',
-            'DMC-TZ40 90 12' => 'Soft',
-        },
-    },
-);
-
-# add our composite tags
-Image::ExifTool::AddCompositeTags('Image::ExifTool::Panasonic');
-
-#------------------------------------------------------------------------------
-# Inverse conversion for Leica M9 lens codes
-# Inputs: 0) value
-# Returns: Converted value, or undef on error
-sub LensTypeConvInv($)
-{
-    my $val = shift;
-    if ($val =~ /^(\d+) (\d+)$/) {
-        return ($1 << 2) + ($2 & 0x03);
-    } elsif ($val =~ /^\d+$/) {
-        my $bits = $frameSelectorBits{$val};
-        return undef unless defined $bits;
-        return ($val << 2) | $bits;
-    } else {
-        return undef;
-    }
-}
-
-#------------------------------------------------------------------------------
-# Convert Leica Kelvin white balance
-# Inputs: 0) value, 1) flag to perform inverse conversion
-# Returns: Converted value, or undef on error
-sub WhiteBalanceConv($;$$)
-{
-    my ($val, $inv) = @_;
-    if ($inv) {
-        return $1 + 0x8000 if $val =~ /(\d+)/;
-    } else {
-        return ($val - 0x8000) . ' Kelvin' if $val > 0x8000;
-    }
-    return undef;
-}
-
-#------------------------------------------------------------------------------
-# Process Leica makernotes in LEIC atom of MP4 videos (Leica T and X Vario)
-# Inputs: 0) ExifTool ref, 1) dirInfo ref, 2) tag table ref
-# Returns: 1 on success
-sub ProcessLeicaLEIC($$$)
-{
-    my ($et, $dirInfo, $tagTablePtr) = @_;
-    my $dataPt = $$dirInfo{DataPt};
-    my $dirStart = $$dirInfo{DirStart} || 0;
-    my $dirLen = $$dirInfo{DirLen} || (length($$dataPt) - $dirStart);
-    return 0 if $dirLen < 6;
-    SetByteOrder('II');
-    my $numEntries = Get16u($dataPt, $dirStart);
-    return 0 if $numEntries < 1 or $numEntries > 255;
-    my $size = Get32u($dataPt, $dirStart + 2);
-    return 0 if $size < $numEntries * 12 or $size + 6 > $dirLen;
-    # the Leica programmers want to make things difficult, so they store
-    # the entry count before the directory size, making it impossible to
-    # process as a standard TIFF IFD without a bit of reorganization...
-    Set16u($numEntries, $dataPt, $dirStart + 4);
-    my %dirInfo = %$dirInfo;
-    $dirInfo{DirStart} = $dirStart + 4;
-    $dirInfo{DirLen} = $size - 4;
-    $dirInfo{DataPos} -= $dirStart;
-    $dirInfo{Base} += $dirStart;
-    return Image::ExifTool::Exif::ProcessExif($et, \%dirInfo, $tagTablePtr);
-    return 1;
-}
-
-#------------------------------------------------------------------------------
-# Process MakerNote trailer written by Leica S2
-# Inputs: 0) ExifTool object ref, 1) new absolute position of Leica trailer when writing
-# Returns: On success: 1 when reading, directory data when writing; othewise undef
-# Notes:
-# - may be called twice for a file if the first call doesn't succeed
-# - must leave RAF position unchanged
-# - uses information from LeicaTrailer member:
-#      TagInfo = tag info ref for MakerNote SubDirectory
-#      Offset/Size = value offset/size from MakerNote IFD
-#      TrailStart/TrailLen = actual JPEG trailer position/size (2nd call only)
-# - deletes LeicaTrailer member and sets LeicaTrailerPos when successful
-sub ProcessLeicaTrailer($;$)
-{
-    my ($et, $newPos) = @_;
-    my $trail = $$et{LeicaTrailer};
-    my $raf = $$et{RAF};
-    my $trailPos = $$trail{TrailPos};
-    my $pos = $trailPos || $$trail{Offset};
-    my $len = $$trail{TrailLen} || $$trail{Size};
-    my ($buff, $result, %tagPtr);
-
-    delete $$et{LeicaTrailer} if $trailPos;   # done after this
-    unless ($len > 0) {
-        $et->Warn('Missing Leica MakerNote trailer', 1) if $trailPos;
-        delete $$et{LeicaTrailer};
-        return undef;
-    }
-    my $oldPos = $raf->Tell();
-    my $ok = ($raf->Seek($pos, 0) and $raf->Read($buff, $len) == $len);
-    $raf->Seek($oldPos, 0);
-    unless ($ok) {
-        $et->Warn('Error reading Leica MakerNote trailer', 1) if $trailPos;
-        return undef;
-    }
-    # look for Leica MakerNote header (should be at start of
-    # trailer, but allow up to 256 bytes of garbage just in case)
-    if ($buff !~ /^(.{0,256})LEICA\0..../sg) {
-        my $what = $trailPos ? 'trailer' : 'offset';
-        $et->Warn("Invalid Leica MakerNote $what", 1);
-        return undef;
-    }
-    my $junk = $1;
-    my $start = pos($buff) - 10;
-    if ($start and not $trailPos) {
-        $et->Warn('Invalid Leica MakerNote offset', 1);
-        return undef;
-    }
-#
-# all checks passed -- go ahead and process the trailer now
-#
-    my $hdrLen = 8;
-    my $dirStart = $start + $hdrLen;
-    my $tagInfo = $$trail{TagInfo};
-    if ($$et{HTML_DUMP}) {
-        my $name = $$tagInfo{Name};
-        $et->HDump($pos+$start, $len-$start, "$name value", 'Leica MakerNote trailer', 4);
-        $et->HDump($pos+$start, $hdrLen, "MakerNotes header", $name);
-    } elsif ($et->Options('Verbose')) {
-        my $where = sprintf('at offset 0x%x', $pos);
-        $et->VPrint(0, "Leica MakerNote trailer ($len bytes $where):\n");
-    }
-    # delete LeicaTrailer member so we don't try to process it again
-    delete $$et{LeicaTrailer};
-    $$et{LeicaTrailerPos} = $pos + $start;    # return actual start position of Leica trailer
-
-    my $oldOrder = GetByteOrder();
-    my $num = Get16u(\$buff, $dirStart);            # get entry count
-    ToggleByteOrder() if ($num>>8) > ($num&0xff);   # set byte order
-
-    # use specialized algorithm to automatically fix offsets
-    my $valStart = $dirStart + 2 + 12 * $num + 4;
-    my $fix = 0;
-    if ($valStart < $len) {
-        my $valBlock = Image::ExifTool::MakerNotes::GetValueBlocks(\$buff, $dirStart, \%tagPtr);
-        # find the minimum offset (excluding the PreviewImage tag 0x300 and 0x301)
-        my $minPtr;
-        foreach (keys %tagPtr) {
-            my $ptr = $tagPtr{$_};
-            next if $_ == 0x300 or $_ == 0x301 or not $ptr or $ptr == 0xffffffff;
-            $minPtr = $ptr if not defined $minPtr or $minPtr > $ptr;
-        }
-        if ($minPtr) {
-            my $diff = $minPtr - ($valStart + $pos);
-            pos($buff) = $valStart;
-            my $expect;
-            if ($$et{Model} eq 'S2') {
-                # scan value data for the first non-zero byte
-                if ($buff =~ /[^\0]/g) {
-                    my $n = pos($buff) - 1 - $valStart; # number of zero bytes
-                    # S2 writes 282 bytes of zeros, exiftool writes none
-                    $expect = $n >= 282 ? 282 : 0;
-                }
-            } else { # M (Type 240)
-                # scan for the lens type (M writes 114 bytes of garbage first)
-                if ($buff =~ /\G.{114}([\x20-\x7f]*\0*)/sg and length($1) >= 50) {
-                    $expect = 114;
-                }
-            }
-            my $fixBase = $et->Options('FixBase');
-            if (not defined $expect) {
-                $et->Warn('Unrecognized Leica trailer structure');
-            } elsif ($diff != $expect or defined $fixBase) {
-                $fix = $expect - $diff;
-                if (defined $fixBase) {
-                    $fix = $fixBase if $fixBase ne '';
-                    $et->Warn("Adjusted MakerNotes base by $fix",1);
-                } else {
-                    $et->Warn("Possibly incorrect maker notes offsets (fixed by $fix)",1);
-                }
-            }
-        }
-    }
-    # generate dirInfo for Leica MakerNote directory
-    my %dirInfo = (
-        Name       => $$tagInfo{Name},
-        Base       => $fix,
-        DataPt     => \$buff,
-        DataPos    => $pos - $fix,
-        DataLen    => $len,
-        DirStart   => $dirStart,
-        DirLen     => $len - $dirStart,
-        DirName    => 'MakerNotes',
-        Parent     => 'ExifIFD',
-        TagInfo    => $tagInfo,
-    );
-    my $tagTablePtr = GetTagTable($$tagInfo{SubDirectory}{TagTable});
-    if ($newPos) { # are we writing?
-        if ($$et{Model} ne 'S2') {
-            $et->Warn('Leica MakerNote trailer too messed up to edit.  Copying as a block', 1);
-            return $buff;
-        }
-        # set position of new MakerNote IFD (+ 8 for Leica MakerNote header)
-        $dirInfo{NewDataPos} = $newPos + $start + 8;
-        $result = $et->WriteDirectory(\%dirInfo, $tagTablePtr);
-        # write preview image last if necessary and fix up the preview offsets
-        my $previewInfo = $$et{PREVIEW_INFO};
-        delete $$et{PREVIEW_INFO};
-        if ($result) {
-            if ($previewInfo) {
-                my $fixup = $previewInfo->{Fixup};
-                # set preview offset (relative to start of makernotes, + 8 for makernote header)
-                $fixup->SetMarkerPointers(\$result, 'PreviewImage', length($result) + 8);
-                $result .= $$previewInfo{Data};
-            }
-            return $junk . substr($buff, $start, $hdrLen) . $result;
-        }
-    } else {
-        # extract information
-        $result = $et->ProcessDirectory(\%dirInfo, $tagTablePtr);
-        # also extract as a block if necessary
-        if ($et->Options('MakerNotes') or
-            $$et{REQ_TAG_LOOKUP}{lc($$tagInfo{Name})})
-        {
-            # makernote header must be included in RebuildMakerNotes call
-            $dirInfo{DirStart} -= 8;
-            $dirInfo{DirLen} += 8;
-            $$et{MAKER_NOTE_BYTE_ORDER} = GetByteOrder();
-            # rebuild maker notes (creates $$et{MAKER_NOTE_FIXUP})
-            my $val = Image::ExifTool::Exif::RebuildMakerNotes($et, $tagTablePtr, \%dirInfo);
-            unless (defined $val) {
-                $et->Warn('Error rebuilding maker notes (may be corrupt)') if $len > 4;
-                $val = $buff,
-            }
-            my $key = $et->FoundTag($tagInfo, $val);
-            $et->SetGroup($key, 'ExifIFD');
-        }
-    }
-    SetByteOrder($oldOrder);
-    return $result;
-}
-
-1;  # end
-
-__END__
-
-=head1 NAME
-
-Image::ExifTool::Panasonic - Panasonic/Leica 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
-Panasonic and Leica maker notes in EXIF information.
-
-=head1 AUTHOR
-
-Copyright 2003-2016, Phil Harvey (phil at owl.phy.queensu.ca)
-
-This library is free software; you can redistribute it and/or modify it
-under the same terms as Perl itself.
-
-=head1 REFERENCES
-
-=over 4
-
-=item L<http://www.compton.nu/panasonic.html>
-
-=item L<http://johnst.org/sw/exiftags/>
-
-=item L<http://homepage3.nifty.com/kamisaka/makernote/makernote_pana.htm>
-
-=item L<http://bretteville.com/pdfs/M8Metadata_v2.pdf>
-
-=item L<http://www.digital-leica.com/lens_codes/index.html>
-
-=item (...plus lots of testing with store demos and my wife's DMC-FS7!)
-
-=back
-
-=head1 ACKNOWLEDGEMENTS
-
-Thanks to Tels, Marcel Coenen, Jens Duttke, Joerg, Michael Byczkowski, Carl
-Bretteville, Zdenek Mihula and Olaf Ulrich for their contributions.
-
-=head1 SEE ALSO
-
-L<Image::ExifTool::TagNames/Panasonic Tags>,
-L<Image::ExifTool(3pm)|Image::ExifTool>
-
-=cut