exiftool_vendored 10.56.0 → 10.58.0

data/bin/lib/Image/ExifTool/DJI.pm

@@ -4,6 +4,7 @@
 # Description:  DJI Phantom maker notes tags
 #
 # Revisions:    2016-07-25 - P. Harvey Created
+#               2017-06-23 - PH Added XMP tags
 #------------------------------------------------------------------------------
 
 package Image::ExifTool::DJI;
@@ -11,8 +12,9 @@ package Image::ExifTool::DJI;
 use strict;
 use vars qw($VERSION);
 use Image::ExifTool::Exif;
+use Image::ExifTool::XMP;
 
-$VERSION = '1.00';
+$VERSION = '1.01';
 
 my %convFloat2 = (
     PrintConv => 'sprintf("%+.2f", $val)',
@@ -41,6 +43,23 @@ my %convFloat2 = (
     0x0b => { Name => 'CameraRoll', Writable => 'float', %convFloat2 },
 );
 
+%Image::ExifTool::DJI::XMP = (
+    %Image::ExifTool::XMP::xmpTableDefaults,
+    GROUPS => { 0 => 'XMP', 1 => 'XMP-drone-dji', 2 => 'Image' },
+    NAMESPACE => 'drone-dji',
+    TABLE_DESC => 'XMP DJI',
+    VARS => { NO_ID => 1 },
+    NOTES => 'XMP tags used by DJI for images from drones.',
+    AbsoluteAltitude  => { Writable => 'real' },
+    RelativeAltitude  => { Writable => 'real' },
+    GimbalRollDegree  => { Writable => 'real' },
+    GimbalYawDegree   => { Writable => 'real' },
+    GimbalPitchDegree => { Writable => 'real' },
+    FlightRollDegree  => { Writable => 'real' },
+    FlightYawDegree   => { Writable => 'real' },
+    FlightPitchDegree => { Writable => 'real' },
+);
+
 __END__
 
 =head1 NAME

data/bin/lib/Image/ExifTool/EXE.pm

@@ -21,7 +21,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.13';
+$VERSION = '1.14';
 
 sub ProcessPEResources($$);
 sub ProcessPEVersion($$);
@@ -1171,7 +1171,7 @@ sub ProcessEXE($$)
                         DataPos => $raf->Tell() - $size,
                         DataLen => $size,
                         DirStart => 4,
-                        DirLen => $size,
+                        DirLen => $size - 4,
                     );
                     $et->ProcessDirectory(\%dirInfo, $tagTablePtr);
                     # process data dictionary

data/bin/lib/Image/ExifTool/Exif.pm

@@ -877,6 +877,7 @@ my %sampleFormat = (
             Notes => 'the data offset in original Sony DSLR-A100 ARW images',
             DataMember => 'A100DataOffset',
             RawConv => '$$self{A100DataOffset} = $val',
+            WriteGroup => 'IFD0', # (only for Validate)
             IsOffset => 1,
             Protected => 2,
         },
@@ -909,6 +910,7 @@ my %sampleFormat = (
     0x153 => {
         Name => 'SampleFormat',
         Notes => 'SamplesPerPixel values',
+        WriteGroup => 'SubIFD', # (only for Validate)
         PrintConvColumns => 2,
         PrintConv => [ \%sampleFormat, \%sampleFormat, \%sampleFormat, \%sampleFormat ],
     },
@@ -2823,6 +2825,7 @@ my %sampleFormat = (
     },
     0xc616 => {
         Name => 'CFAPlaneColor',
+        WriteGroup => 'SubIFD', # (only for Validate)
         PrintConv => q{
             my @cols = qw(Red Green Blue Cyan Magenta Yellow White);
             my @vals = map { $cols[$_] || "Unknown($_)" } split(' ', $val);
@@ -2831,6 +2834,7 @@ my %sampleFormat = (
     },
     0xc617 => {
         Name => 'CFALayout',
+        WriteGroup => 'SubIFD', # (only for Validate)
         PrintConv => {
             1 => 'Rectangular',
             2 => 'Even columns offset down 1/2 row',
@@ -3286,6 +3290,7 @@ my %sampleFormat = (
         Name => 'ProfileIFD', # (ExtraCameraProfiles)
         Groups => { 1 => 'ProfileIFD' },
         Flags => 'SubIFD',
+        WriteGroup => 'IFD0', # (only for Validate)
         SubDirectory => {
             ProcessProc => \&ProcessTiffIFD,
             WriteProc => \&ProcessTiffIFD,

data/bin/lib/Image/ExifTool/FujiFilm.pm

@@ -17,6 +17,7 @@
 #               8) http://u88.n24.queensu.ca/exiftool/forum/index.php/topic,5223.0.html
 #               9) Zilvinas Brobliauskas private communication
 #               10) Albert Shan private communication
+#               11) http://u88.n24.queensu.ca/exiftool/forum/index.php/topic,8377.0.html
 #               IB) Iliah Borg private communication (LibRaw)
 #               JD) Jens Duttke private communication
 #------------------------------------------------------------------------------
@@ -28,7 +29,7 @@ use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 
-$VERSION = '1.58';
+$VERSION = '1.59';
 
 sub ProcessFujiDir($$$);
 sub ProcessFaceRec($$$);
@@ -296,7 +297,7 @@ my %faceCategories = (
         Flags => 'PrintHex',
         Writable => 'int16u',
         PrintConv => {
-            0x0 => 'Auto',
+            0x0 => 'Auto', # (or 'SR+' if SceneRecognition present, ref 11)
             0x1 => 'Portrait',
             0x2 => 'Landscape',
             0x3 => 'Macro', #JD
@@ -546,7 +547,7 @@ my %faceCategories = (
     },
     # 0x1408 - values: '0100', 'S100', 'VQ10'
     # 0x1409 - values: same as 0x1408
-    # 0x140a - values: 0, 1, 3, 5, 7
+    # 0x140a - values: 0, 1, 3, 5, 7 (bit 2=red-eye detection, ref 11)
     0x140b => { #6
         Name => 'AutoDynamicRange',
         Writable => 'int16u',
@@ -568,6 +569,18 @@ my %faceCategories = (
             2 => 'On (mode 2, shooting only)',
         }],
     },
+    0x1425 => { # if present and 0x1031 PictureMode is zero, then PictureMode is SR+, not Auto (ref 11)
+        Name => 'SceneRecognition',
+        Writable => 'int16u',
+        PrintHex => 1,
+        PrintConv => {
+            0 => 'Unrecognized',
+            0x100 => 'Portrait Image',
+            0x200 => 'Landscape Image',
+            0x300 => 'Night Scene',
+            0x400 => 'Macro',
+        },
+    },
     0x1431 => { #forum6109
         Name => 'Rating',
         Groups => { 2 => 'Image' },
@@ -617,6 +630,30 @@ my %faceCategories = (
             detected
         },
     },
+    0x4200 => { #11
+        Name => 'NumFaceElements',
+        Writable => 'int16u',
+    },
+    0x4201 => { #11
+        Name => 'FaceElementTypes',
+        Writable => 'int8u',
+        Count => -1,
+        PrintConv => [{
+            1 => 'Face',
+            2 => 'Left Eye',
+            3 => 'Right Eye',
+        },'REPEAT'],
+    },
+    # 0x4202 int8u[-1] - number of cooredinates in each rectangle? (ref 11)
+    0x4203 => { #11
+        Name => 'FaceElementPositions',
+        Writable => 'int16u',
+        Count => -1,
+        Notes => q{
+            left, top, right and bottom coordinates in full-sized image for each face
+            element
+        },
+    },
     # 0x4101-0x4105 - exist only if face detection active
     # 0x4104 - also related to face detection (same number of entries as FacePositions)
     # 0x4200 - same as 0x4100?

data/bin/lib/Image/ExifTool/GIF.pm

@@ -20,7 +20,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.13';
+$VERSION = '1.14';
 
 # road map of directory locations in GIF images
 my %gifMap = (
@@ -461,7 +461,7 @@ Block:
                     Write($outfile, "\0") or $err = 1;  # write null terminator
                 }
             } elsif (not $outfile) {
-                $et->HandleTag($tagTablePtr, $tag, $dat);
+                $et->HandleTag($extTable, $tag, $dat);
             }
             next;
 

data/bin/lib/Image/ExifTool/ICC_Profile.pm

@@ -23,7 +23,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.30';
+$VERSION = '1.31';
 
 sub ProcessICC($$);
 sub ProcessICC_Profile($$$);
@@ -774,7 +774,7 @@ sub ProcessICC($$)
         return 1;
     }
     $raf->Seek(0, 0);
-    unless ($raf->Read($buff, $size)) {
+    unless ($raf->Read($buff, $size) == $size) {
         $et->Error('Truncated ICC profile');
         return 1;
     }

data/bin/lib/Image/ExifTool/Import.pm

@@ -12,7 +12,7 @@ require Exporter;
 
 use vars qw($VERSION @ISA @EXPORT_OK);
 
-$VERSION = '1.06';
+$VERSION = '1.07';
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(ReadCSV ReadJSON);
 
@@ -100,6 +100,8 @@ sub ReadCSV($$;$)
             }
             last if $err;
             @tags or $err = 'No tags found', last;
+            # fix "SourceFile" case if necessary
+            $tags[0] = 'SourceFile' if lc $tags[0] eq 'sourcefile';
         }
     }
     close CSVFILE if $openedFile;
@@ -259,8 +261,16 @@ sub ReadJSON($$;$$)
     my ($info, $found);
     foreach $info (@$obj) {
         next unless ref $info eq 'HASH';
-        # assume a SourceFile of '*' if none specified
-        defined $$info{SourceFile} or $$info{SourceFile} = '*';
+        # fix "SourceFile" case, or assume '*' if SourceFile not specified
+        unless (defined $$info{SourceFile}) {
+            my ($key) = grep /^SourceFile$/i, keys %$info;
+            if ($key) {
+                $$info{SourceFile} = $$info{$key};
+                delete $$info{$key};
+            } else {
+                $$info{SourceFile} = '*';
+            }
+        }
         if (defined $missingValue) {
             $$info{$_} eq $missingValue and $$info{$_} = undef foreach keys %$info;
         }

data/bin/lib/Image/ExifTool/Minolta.pm

@@ -49,7 +49,7 @@ use vars qw($VERSION %minoltaLensTypes %minoltaTeleconverters %minoltaColorMode
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 
-$VERSION = '2.50';
+$VERSION = '2.52';
 
 # Full list of product codes for Sony-compatible Minolta lenses
 # (ref http://www.kb.sony.com/selfservice/documentLink.do?externalId=C1000570)
@@ -366,8 +366,8 @@ $VERSION = '2.50';
     213 => 'Tamron 16-300mm F3.5-6.3 Di II PZD Macro', #JR (Model B016)
     214 => 'Tamron SP 150-600mm F5-6.3 Di USD', #JR (Model A011)
     215 => 'Tamron SP 15-30mm F2.8 Di USD', #JR (Model A012)
-    216 => 'Tamron SP 45mm F1.8 Di VC USD', #forum8320 (F013)
-    217 => 'Tamron SP 35mm F1.8 Di VC USD', #forum8320 (F012)
+    216 => 'Tamron SP 45mm F1.8 Di USD', #forum8320 (F013)
+    217 => 'Tamron SP 35mm F1.8 Di USD', #forum8320 (F012)
     218 => 'Tamron SP 90mm F2.8 Di Macro 1:1 USD (F017)', #JR (Model F017)
     224 => 'Tamron SP 90mm F2.8 Di Macro 1:1 USD (F004)', #JR (Model F004)
     255 => 'Tamron Lens (255)',
@@ -563,50 +563,56 @@ $VERSION = '2.50';
    '65535.29' => 'Sony FE 28mm F2',                 #JR (32816 - SEL28F20)
    '65535.30' => 'Sony FE PZ 28-135mm F4 G OSS',    #JR (32817 - SELP28135G)
    '65535.31' => 'Sony FE 100mm F2.8 STF GM OSS',   #JR (32819 - SEL100F28GM, uses 33076 when set to 0.57m - 1.0m range)
-   '65535.32' => 'Sony FE 24-70mm F2.8 GM',         #JR (32821 - SEL2470GM)
-   '65535.33' => 'Sony FE 50mm F1.4 ZA',            #JR (32822 - SEL50F14Z)
-   '65535.34' => 'Sony FE 85mm F1.4 GM',            #JR (32823 - SEL85F14GM)
-   '65535.35' => 'Sony FE 50mm F1.8',               #JR (32824 - SEL50F18F with trailing "F" as compared to 32790)
-   '65535.36' => 'Sony FE 21mm F2.8 (SEL28F20 + SEL075UWC)', #JR (32826 - SEL28F20 + SEL075UWC Ultra-wide converter)
-   '65535.37' => 'Sony FE 16mm F3.5 Fisheye (SEL28F20 + SEL057FEC)', #JR (32827 - SEL28F20 + SEL057FEC Fisheye converter)
-   '65535.38' => 'Sony FE 70-300mm F4.5-5.6 G OSS', #JR (32828 - SEL70300G)
-   '65535.39' => 'Sony FE 100-400mm F4.5-5.6 GM OSS', #JR (32829 - SEL100400GM)
-   '65535.40' => 'Sony FE 70-200mm F2.8 GM OSS',    #JR (32830 - SEL70200GM)
-   '65535.41' => 'Sony FE 16-35mm F2.8 GM',         #JR (32831 - SEL1635GM)
-   '65535.42' => 'Sony FE 70-200mm F2.8 GM OSS + 1.4X Teleconverter', #JR (33072 - SEL70200GM + SEL14TC)
-   '65535.43' => 'Sony FE 70-200mm F2.8 GM OSS + 2X Teleconverter', #JR (33073 - SEL70200GM + SEL20TC)
+   '65535.32' => 'Sony E PZ 18-110mm F4 G OSS',     #JR (32820 - SELP18110G)
+   '65535.33' => 'Sony FE 24-70mm F2.8 GM',         #JR (32821 - SEL2470GM)
+   '65535.34' => 'Sony FE 50mm F1.4 ZA',            #JR (32822 - SEL50F14Z)
+   '65535.35' => 'Sony FE 85mm F1.4 GM',            #JR (32823 - SEL85F14GM)
+   '65535.36' => 'Sony FE 50mm F1.8',               #JR (32824 - SEL50F18F with trailing "F" as compared to 32790)
+   '65535.37' => 'Sony FE 21mm F2.8 (SEL28F20 + SEL075UWC)', #JR (32826 - SEL28F20 + SEL075UWC Ultra-wide converter)
+   '65535.38' => 'Sony FE 16mm F3.5 Fisheye (SEL28F20 + SEL057FEC)', #JR (32827 - SEL28F20 + SEL057FEC Fisheye converter)
+   '65535.39' => 'Sony FE 70-300mm F4.5-5.6 G OSS', #JR (32828 - SEL70300G)
+   '65535.40' => 'Sony FE 100-400mm F4.5-5.6 GM OSS', #JR (32829 - SEL100400GM)
+   '65535.41' => 'Sony FE 70-200mm F2.8 GM OSS',    #JR (32830 - SEL70200GM)
+   '65535.42' => 'Sony FE 16-35mm F2.8 GM',         #JR (32831 - SEL1635GM)
+   '65535.43' => 'Sony FE 70-200mm F2.8 GM OSS + 1.4X Teleconverter', #JR (33072 - SEL70200GM + SEL14TC)
+   '65535.44' => 'Sony FE 70-200mm F2.8 GM OSS + 2X Teleconverter', #JR (33073 - SEL70200GM + SEL20TC)
 #
 # 3rd party E lenses
 #
-   '65535.44' => 'Samyang AF 50mm F1.4 FE',         #JR (32789)
-   '65535.45' => 'Samyang AF 14mm F2.8 FE',         #JR (32790 and 51505)
-   '65535.46' => 'Sigma 19mm F2.8 [EX] DN',         #JR (0)
-   '65535.47' => 'Sigma 30mm F2.8 [EX] DN',         #JR (0)
-   '65535.48' => 'Sigma 60mm F2.8 DN',              #JR (0)
-   '65535.49' => 'Sigma 30mm F1.4 DC DN | C 016',   #IB (50480)
-   '65535.50' => 'Tamron 18-200mm F3.5-6.3 Di III VC', #JR (0 - Model B011)
-   '65535.51' => 'Tokina Firin 20mm F2 FE MF',      #JR (0)
-   '65535.52' => 'Zeiss Touit 12mm F2.8',           #JR (49201 or 0)
-   '65535.53' => 'Zeiss Touit 32mm F1.8',           #JR (49202 or 0)
-   '65535.54' => 'Zeiss Touit 50mm F2.8 Macro',     #JR (49203 or 0)
-   '65535.55' => 'Zeiss Batis 25mm F2',             #JR (49216)
-   '65535.56' => 'Zeiss Batis 85mm F1.8',           #JR (49217)
-   '65535.57' => 'Zeiss Batis 18mm F2.8',           #IB (49218)
-   '65535.58' => 'Zeiss Batis 135mm F2.8',          #IB (49219)
-   '65535.59' => 'Zeiss Loxia 50mm F2',             #JR (49232 or 0)
-   '65535.60' => 'Zeiss Loxia 35mm F2',             #JR (49233 or 0)
-   '65535.61' => 'Zeiss Loxia 21mm F2.8',           #JR (49234)
-   '65535.62' => 'Zeiss Loxia 85mm F2.4',           #JR (49235)
+   '65535.45' => 'Samyang AF 50mm F1.4 FE',         #JR (32789)
+   '65535.46' => 'Samyang AF 14mm F2.8 FE',         #JR (32790 and 51505)
+   '65535.47' => 'Samyang AF 35mm F2.8 FE',         #PH (51505)
+   '65535.48' => 'Sigma 19mm F2.8 [EX] DN',         #JR (0)
+   '65535.49' => 'Sigma 30mm F2.8 [EX] DN',         #JR (0)
+   '65535.50' => 'Sigma 60mm F2.8 DN',              #JR (0)
+   '65535.51' => 'Sigma 30mm F1.4 DC DN | C 016',   #IB (50480)
+   '65535.52' => 'Tamron 18-200mm F3.5-6.3 Di III VC', #JR (0 - Model B011)
+   '65535.53' => 'Tokina Firin 20mm F2 FE MF',      #JR (0)
+   '65535.54' => 'Voigtlander SUPER WIDE-HELIAR 15mm F4.5 III', #JR (50992)
+   '65535.55' => 'Voigtlander HELIAR-HYPER WIDE 10mm F5.6',     #IB (50993)
+   '65535.56' => 'Voigtlander ULTRA WIDE-HELIAR 12mm F5.6 III', #IB (50994)
+   '65535.57' => 'Voigtlander NOKTON 40mm F1.2',                #JR (50996)
+   '65535.58' => 'Zeiss Touit 12mm F2.8',           #JR (49201 or 0)
+   '65535.59' => 'Zeiss Touit 32mm F1.8',           #JR (49202 or 0)
+   '65535.60' => 'Zeiss Touit 50mm F2.8 Macro',     #JR (49203 or 0)
+   '65535.61' => 'Zeiss Batis 25mm F2',             #JR (49216)
+   '65535.62' => 'Zeiss Batis 85mm F1.8',           #JR (49217)
+   '65535.63' => 'Zeiss Batis 18mm F2.8',           #IB (49218)
+   '65535.64' => 'Zeiss Batis 135mm F2.8',          #IB (49219)
+   '65535.65' => 'Zeiss Loxia 50mm F2',             #JR (49232 or 0)
+   '65535.66' => 'Zeiss Loxia 35mm F2',             #JR (49233 or 0)
+   '65535.67' => 'Zeiss Loxia 21mm F2.8',           #JR (49234)
+   '65535.68' => 'Zeiss Loxia 85mm F2.4',           #JR (49235)
 #
 # other lenses
 #
-   '65535.63' => 'Arax MC 35mm F2.8 Tilt+Shift', #JD
-   '65535.64' => 'Arax MC 80mm F2.8 Tilt+Shift', #JD
-   '65535.65' => 'Zenitar MF 16mm F2.8 Fisheye M42', #JD
-   '65535.66' => 'Samyang 500mm Mirror F8.0', #19
-   '65535.67' => 'Pentacon Auto 135mm F2.8', #19
-   '65535.68' => 'Pentacon Auto 29mm F2.8', #19
-   '65535.69' => 'Helios 44-2 58mm F2.0', #19
+   '65535.69' => 'Arax MC 35mm F2.8 Tilt+Shift', #JD
+   '65535.70' => 'Arax MC 80mm F2.8 Tilt+Shift', #JD
+   '65535.71' => 'Zenitar MF 16mm F2.8 Fisheye M42', #JD
+   '65535.72' => 'Samyang 500mm Mirror F8.0', #19
+   '65535.73' => 'Pentacon Auto 135mm F2.8', #19
+   '65535.74' => 'Pentacon Auto 29mm F2.8', #19
+   '65535.75' => 'Helios 44-2 58mm F2.0', #19
 );
 
 %minoltaTeleconverters = (

data/bin/lib/Image/ExifTool/PNG.pm

@@ -26,7 +26,7 @@ use strict;
 use vars qw($VERSION $AUTOLOAD %stdCase);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.41';
+$VERSION = '1.42';
 
 sub ProcessPNG_tEXt($$$);
 sub ProcessPNG_iTXt($$$);
@@ -260,7 +260,7 @@ $Image::ExifTool::PNG::colorType = -1;
         Name => $stdCase{exif},
         Notes => q{
             proposed but not yet registered.  This is where ExifTool will create new
-            EXIF without the Compress option
+            EXIF
         },
         SubDirectory => {
             TagTable => 'Image::ExifTool::Exif::Main',
@@ -271,10 +271,7 @@ $Image::ExifTool::PNG::colorType = -1;
     # zXIf
     $stdCase{zxif} => {
         Name => $stdCase{zxif},
-        Notes => q{
-            proposed but not yet registered.  This is where ExifTool will create new
-            EXIF with the Compress option
-        },
+        Notes => 'a once-proposed chunk for compressed EXIF',
         SubDirectory => {
             TagTable => 'Image::ExifTool::Exif::Main',
             DirName => 'EXIF', # (to write as a block)
@@ -460,6 +457,7 @@ my %unreg = ( Notes => 'unregistered' );
     Warning     => { Name => 'PNGWarning', },
     Source      => { },
     Comment     => { },
+    Collection  => { }, # (PNG extensions, 2004)
 #
 # The following tags are not part of the original PNG specification,
 # but are written by ImageMagick and other software
@@ -526,6 +524,7 @@ my %unreg = ( Notes => 'unregistered' );
    'Raw profile type exif' => {
         Name => 'EXIF_Profile',
         %unreg,
+        NonStandard => 1,
         SubDirectory => {
             TagTable => 'Image::ExifTool::Exif::Main',
             ProcessProc => \&ProcessProfile,
@@ -1118,7 +1117,9 @@ sub ProcessPNG_eXIf($$$)
         return FoundPNG($et, $tagTablePtr, $$tagInfo{TagID}, \$buf, 2, $outBuff);
     } elsif (not $outBuff) {
         return $et->ProcessTIFF($dirInfo);
-    } elsif ($del and ($et->Options('Compress') xor lc($tag) eq 'zxif')) {
+    # (zxIf was not adopted)
+    #} elsif ($del and ($et->Options('Compress') xor lc($tag) eq 'zxif')) {
+    } elsif ($del and lc($tag) eq 'zxif') {
         $et->VPrint(0, "  Deleting $tag chunk");
         $$outBuff = '';
         ++$$et{CHANGED};

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

@@ -629,7 +629,7 @@ my %shootingMode = (
             2 => '10 s',
             3 => '2 s',
             4 => '10 s / 3 pictures', #17
-            # 258 - seen for FZ2500 (PH)
+            # 258 - seen for FZ2500,TZ90 (PH)
         },
     },
     # 0x2f - values: 1 (LZ6,FX10K)

data/bin/lib/Image/ExifTool/Pentax.pm

@@ -58,7 +58,7 @@ use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 use Image::ExifTool::HP;
 
-$VERSION = '3.16';
+$VERSION = '3.17';
 
 sub CryptShutterCount($$);
 sub PrintFilter($$$);
@@ -1503,14 +1503,28 @@ my %binaryDataAttrs = (
             approximate Light Value.  May not be valid for some models, eg. Optio S
         },
     },
-    0x0016 => { #PH
+    0x0016 => [{ #PH
         Name => 'ExposureCompensation',
+        Condition => '$count == 1',
+        Notes => q{
+            some models write two values here.  The second value is meaning of the
+            second value is not yet known
+        },
         Writable => 'int16u',
         ValueConv => '($val - 50) / 10',
         ValueConvInv => 'int($val * 10 + 50.5)',
         PrintConv => '$val ? sprintf("%+.1f", $val) : 0',
         PrintConvInv => 'Image::ExifTool::Exif::ConvertFraction($val)',
-    },
+    },{
+        Name => 'ExposureCompensation',
+        Writable => 'int16u',
+        # (2 values for K-70, etc -- have only seen "0" for the 2nd value - PH)
+        Count => 2,
+        ValueConv => '$val =~ s/ .*//; ($val - 50) / 10',
+        ValueConvInv => 'int($val * 10 + 50.5) . " 0"',
+        PrintConv => '$val ? sprintf("%+.1f", $val) : 0',
+        PrintConvInv => 'Image::ExifTool::Exif::ConvertFraction($val)',
+    }],
     0x0017 => { #3
         Name => 'MeteringMode',
         Writable => 'int16u',
@@ -3021,8 +3035,10 @@ my %binaryDataAttrs = (
             5 => 'On but Disabled', # (NC for K-3)
             6 => 'On (Video)', # (NC for K-3)
             7 => 'On (AA simulation off)',
+            8 => 'Off (AA simulation type 1) (8)', #forum8362 (K-70)
             12 => 'Off (AA simulation type 1)', # (AA linear motion)
             15 => 'On (AA simulation type 1)', # (AA linear motion)
+            16 => 'Off (AA simulation type 2) (16)', #forum8362 (K-70)
             20 => 'Off (AA simulation type 2)', # (AA circular motion)
             23 => 'On (AA simulation type 2)', # (AA circular motion)
         },