exiftool-vendored.pl 13.30.0 → 13.32.0

package/bin/lib/Image/ExifTool/Parrot.pm

@@ -56,7 +56,7 @@ sub Process_mett($$$);
         Name => 'ParrotAutomation',
         SubDirectory => { TagTable => 'Image::ExifTool::Parrot::Automation' },
     },
-    # timed metadata written by ARCore (see forum13653)
+    # MetaType of timed metadata written by ARCore (see forum13653)
     'application/arcore-accel' => {
         Name => 'ARCoreAccel',
         SubDirectory => { TagTable => 'Image::ExifTool::Parrot::ARCoreAccel', ByteOrder => 'II' },

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

@@ -46,6 +46,7 @@
 #              IB) Iliah Borg private communication (LibRaw)
 #              JD) Jens Duttke private communication
 #              NJ) Niels Kristian Bech Jensen private communication
+#              KG) Karsten Gieselmann private communication
 #
 # Notes:        See POD documentation at the bottom of this file
 #------------------------------------------------------------------------------
@@ -58,11 +59,14 @@ use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 use Image::ExifTool::HP;
 
-$VERSION = '3.51';
+$VERSION = '3.53';
 
 sub CryptShutterCount($$);
 sub PrintFilter($$$);
 sub DecodeAFPoints($$$$;$);
+sub AFPointNamesK3III($$;$);
+sub AFPointValuesK3III($$);
+sub AFAreasK3III($$);
 
 # pentax lens type codes (ref 4)
 # The first number gives the lens series, and the 2nd gives the model number
@@ -1148,31 +1152,38 @@ my %binaryDataAttrs = (
             Notes => 'Pentax models',
             Writable => 'int16u',
             PrintConvColumns => 2,
+            PrintHex => 1,
             PrintConv => { #PH
-                0 => 'Normal',
-                1 => 'Macro',
-                2 => 'Infinity',
-                3 => 'Manual',
-                4 => 'Super Macro', #JD
-                5 => 'Pan Focus',
-                6 => 'Auto-area', # (GR III)
-                8 => 'Select', # (GR III)
-                9 => 'Pinpoint', # (GR III)
-                10 => 'Tracking', # (GR III)
-                11 => 'Continuous', # (GR III)
-                12 => 'Snap', # (GR III)
-                16 => 'AF-S (Focus-priority)', #17
-                17 => 'AF-C (Focus-priority)', #17
-                18 => 'AF-A (Focus-priority)', #PH (educated guess)
-                32 => 'Contrast-detect (Focus-priority)', #PH (K-5)
-                33 => 'Tracking Contrast-detect (Focus-priority)', #PH (K-5)
+                0x00 => 'Normal',
+                0x01 => 'Macro',
+                0x02 => 'Infinity',
+                0x03 => 'Manual',
+                0x04 => 'Super Macro', #JD
+                0x05 => 'Pan Focus',
+                0x06 => 'Auto-area', # (GR III)
+                0x07 => 'Zone Select', # (GR III)
+                0x08 => 'Select', # (GR III)
+                0x09 => 'Pinpoint', # (GR III)
+                0x0a => 'Tracking', # (GR III)
+                0x0b => 'Continuous', # (GR III)
+                0x0c => 'Snap', # (GR III)
+                0x10 => 'AF-S (Focus-priority)', #17
+                0x11 => 'AF-C (Focus-priority)', #17
+                0x12 => 'AF-A (Focus-priority)', #PH (educated guess)
+                0x20 => 'Contrast-detect (Focus-priority)', #PH (K-5)
+                0x21 => 'Tracking Contrast-detect (Focus-priority)', #PH (K-5)
                 # bit 8 indicates release priority
-                272 => 'AF-S (Release-priority)', #PH (K-5,K-3)
-                273 => 'AF-C (Release-priority)', #PH (K-5,K-3)
-                274 => 'AF-A (Release-priority)', #PH (K-3)
-                288 => 'Contrast-detect (Release-priority)', #PH (K-01)
-                # 32777 (0x8009) - seen for Ricoh GR III
-                # 32779 (0x800b) - seen for Ricoh GR III
+                0x110 => 'AF-S (Release-priority)', #PH (K-5,K-3)
+                0x111 => 'AF-C (Release-priority)', #PH (K-5,K-3)
+                0x112 => 'AF-A (Release-priority)', #PH (K-3)
+                0x120 => 'Contrast-detect (Release-priority)', #PH (K-01)
+                # bit 15 indicates macro mode (disabled for MF, and defaults to Select for Snap, Infinity)
+                0x8006 => 'Auto-area (Macro)', # (GR III)
+                0x8007 => 'Zone Select (Macro)', # (GR III)
+                0x8008 => 'Select (Macro)', # (GR III)
+                0x8009 => 'Pinpoint (Macro)', # (GR III)
+                0x800a => 'Tracking (Macro)', # (GR III)
+                0x800b => 'Continuous (Macro)', # (GR III)
             },
         },{
             Name => 'FocusMode',
@@ -1188,7 +1199,7 @@ my %binaryDataAttrs = (
     ],
     0x000e => [{ #29
         Name => 'AFPointSelected',
-        Condition => '$$self{Model} =~ /K-1\b/',
+        Condition => '$$self{Model} =~ /(K-1|645Z)\b/', # (NC for 645Z)
         Writable => 'int16u',
         Notes => 'K-1',
         PrintConvColumns => 2,
@@ -1354,6 +1365,7 @@ my %binaryDataAttrs = (
             0xfffd => 'Automatic Tracking AF', #JD
             0xfffc => 'Face Detect AF', #JD
             0xfffb => 'AF Select', #PH (Q select from 25-areas)
+            0xfffa => 'Auto 2', #KarstenGieselmann
             0 => 'None', #PH (Q in manual focus mode)
             1 => 'Upper-left',
             2 => 'Top',
@@ -1366,16 +1378,20 @@ my %binaryDataAttrs = (
             9 => 'Lower-left',
             10 => 'Bottom',
             11 => 'Lower-right',
-        },
+        },{
         # (second number exists for K-5II(s) is usually 0, but is 1 for AF.C with
         # AFPointMode=='Select' and extended tracking focus points are enabled in the settings)
-        ],
+        # -----
+        #KG: for K-70 and older models with 11 PDAF points (K-S2, K-S1, K-50, K-500, K-30, K-5II(s) )
+            0 => 'Single Point',     # Select AF (1-point) in both PDAF and CAF modes
+            1 => 'Expanded Area',    # Expanded Area AF in AF-C
+        }],
     }],
     0x000f => [{ #PH
         Name => 'AFPointsInFocus',
-        Condition => '$$self{Model} =~ /K-3\b/',
+        Condition => '$$self{Model} =~ /K-(3|S1|S2)\b/',  #KG: valid also for K-S1/S2
         Writable => 'int32u',
-        Notes => 'K-3 only',
+        Notes => 'K-3, K-S1 and K-S2 only',
         PrintHex => 1,
         PrintConv => {
             0 => '(none)',
@@ -2168,7 +2184,7 @@ my %binaryDataAttrs = (
             11 => 'Flat', #31 (K-70)
             # the following values from GR III
             256 => 'Standard',
-            257 => 'Vivid', 
+            257 => 'Vivid',
             258 => 'Monotone',
             259 => 'Soft Monotone',
             260 => 'Hard Monotone',
@@ -3096,13 +3112,15 @@ my %binaryDataAttrs = (
     # 0x0406 - undef[4116] (K-5)
     # 0x0407 - undef[3072] (Q DNG)
     # 0x0408 - undef[1024] (Q DNG)
+    0x040c => {
+        Name => 'AFInfoK3III',
+        SubDirectory => { TagTable => 'Image::ExifTool::Pentax::AFInfoK3III' },
+    },
     0x0e00 => {
         Name => 'PrintIM',
         Description => 'Print Image Matching',
         Writable => 0,
-        SubDirectory => {
-            TagTable => 'Image::ExifTool::PrintIM::Main',
-        },
+        SubDirectory => { TagTable => 'Image::ExifTool::PrintIM::Main' },
     },
 );
 
@@ -5005,11 +5023,11 @@ my %binaryDataAttrs = (
     # 0x0a - values: 00,05,0d,15,86,8e,a6,ae
     0x0b => { #JD
         Name => 'AFPointsInFocus',
-        Condition => '$$self{Model} !~ /(K-(1|3|70)|KP)\b/',
+        Condition => '$$self{Model} !~ /(K-(1|3|70|S1|S2)|KP)\b/',  #KG: valid also for K-S1/S2
         Notes => q{
-            models other than the K-1, K-3, K-70 and KP.  May report two points in focus
-            even though a single AFPoint has been selected, in which case the selected
-            AFPoint is the first reported
+            models other than the K-1, K-3, K-70, KP and K-S1/S2. May report two points
+            in focus even though a single AFPoint has been selected, in which case the
+            selected AFPoint is the first reported
         },
         PrintConvColumns => 2,
         PrintConv => {
@@ -5042,34 +5060,34 @@ my %binaryDataAttrs = (
         Format => 'int16uRev[69]',
         Unknown => 1,
         Notes => 'some unknown values related to each AFPoint',
-        # order is the same as AFPoints below, but there is an additional value for
+        # order is the same as AFPointsSelected below, but there is an additional value for
         # each AF point starting at offset 28 in the array (yes, the range overlaps
         # with the 1st values)
         # (values are int16s stored in reversed byte order)
         ValueConv => 'my @a=split " ",$val;$_>32767 and $_-=65536 foreach @a;join " ",@a',
-        PrintConv => \&AFPointValues,
+        PrintConv => \&AFPointValuesK3III,
     },
     0x12a => { # byte has a value of 2 if corresponding AF point is selected
-        Name => 'AFPointsSelected',
+        Name => 'AFPointsSelected', # (should probably be "AFPointSelected", but the bitmask allows multiple points)
         Condition => '$$self{Model} eq "PENTAX K-3 Mark III"', # any other models?
         Notes => q{
             K-3III only. 41 selectable AF points from a total of 101 available in a 13x9
             grid. Columns are labelled A-M and rows are 1-9. The center point is G5
         },
         Format => 'int8u[41]',
-        PrintConv => 'Image::ExifTool::Pentax::AFPointsK3iii($val,$self,2)',
+        PrintConv => 'Image::ExifTool::Pentax::AFPointNamesK3III($val,$self,2)',
     },
 #
 # (maybe not coincidentally, there are 60 unknown bytes
 #  here, and there are also 60 non-selectable AF points)
 #
     0x18f => { # byte has a value of 1 if corresponding AF point is ... in focus maybe?
-        # usually the same points as AFPoints above, but not always
+        # usually the same points as AFPointsSelected above, but not always
         Name => 'AFPointsUnknown',
         Condition => '$$self{Model} eq "PENTAX K-3 Mark III"', # any other models?
         Unknown => 1,
         Format => 'int8u[41]',
-        PrintConv => \&AFPointsK3iii,
+        PrintConv => \&AFPointNamesK3III,
     },
     0x1fa => {
         Name => 'LiveView',
@@ -5096,7 +5114,7 @@ my %binaryDataAttrs = (
         Name => 'NumCAFPoints',
         RawConv => '$$self{NumCAFPoints} = ($val & 0x0f) * ($val >> 4); $val',
         ValueConv => '($val >> 4) * ($val & 0x0f)',
-    }, 
+    },
     1.1 => {
         Name => 'CAFGridSize',
         ValueConv => '($val >> 4) . " " . ($val & 0x0f)', # (width x height)
@@ -5686,6 +5704,95 @@ my %binaryDataAttrs = (
         ValueConvInv => '-$val * 2',
     },
 );
+
+%Image::ExifTool::Pentax::AFInfoK3III = (
+    %binaryDataAttrs,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    FORMAT => 'int16u',
+    DATAMEMBER => [ 3 ],
+    NOTES => 'AF tags written by the K-3 Mark III, GR III and GR IIIx.',
+    0 => {
+        Name => 'AFInfo',
+        Format => 'int16u[$size/2]',
+        Notes => q{
+            entire AFInfoK3III structure. Provides access to raw numerical values and
+            facilitates the writing of the whole structure
+        },
+        Unknown => 1,
+    },
+    0.1 => {
+        Name => 'AFMode',
+        PrintConv => {
+            0 => 'Phase Detect',
+            2 => 'Contrast Detect',
+            255 => 'Manual Focus',
+        },
+    },
+    1 => {
+        Name => 'AFSelectionMode',
+        PrintHex => 1,
+        PrintConv => {
+            0 => 'Manual Focus',
+            1 => 'Spot',
+            2 => 'Select (5-points)',
+            3 => 'Expanded Area (S)',
+            4 => 'Expanded Area (M)',
+            5 => 'Expanded Area (L)',
+            6 => 'Select (S)',
+            7 => 'Zone Select (21-point)',
+            8 => 'Select XS',
+            0xff => 'Auto Area',
+            # Contrast-detect modes
+            0x2001 => 'Contrast-detect Auto Area',
+            0x2002 => 'Contrast-detect Select', # (GR III)
+            0x2003 => 'Pinpoint', # (GR III)
+            0x2004 => 'Tracking',
+            0x2005 => 'Continuous', # (GR III)
+            0x2006 => 'Face Detection',
+            0x2007 => 'Contrast-detect Select (S)',
+            0x2008 => 'Contrast-detect Select (M)',
+            0x2009 => 'Contrast-detect Select (L)',
+            0x200a => 'Contrast-detect Zone Select', # (GR III)
+            0x200b => 'Contrast-detect Spot',
+        },
+    },
+    3 => {
+        Name => 'NumAFPoints',
+        RawConv => '$$self{NumAFPoints} = $val',
+    },
+    # the data for each AF point consists of 7 int16u values:
+    # the frame width/height, the X/Y position of the focus area,
+    # width/height of the focus area (0/0 for phase-detect modes),
+    # followed by a flags word
+    7 => { # (the same for all areas in my samples, so only extract the first)
+        Name => 'AFFrameSize',
+        Condition => '$$self{NumAFPoints} > 0',
+        Format => 'int16u[2]',
+        Writable => 0,
+        PrintConv => '$val=~s/ /x/; $val',
+    },
+    7.1 => {
+        Name => 'AFAreas',
+        Format => 'int16u[7 * $val{3}]',
+        Notes => q{
+            X,Y position of each AF area, width, with "in-focus" for points in focus,
+            "central" for the center of the selected area, or "peripheral" for points
+            outside the selected area
+        },
+        Writable => 0,
+        List => 1, # (for documentation purposes only)
+        PrintConv => \&AFAreasK3III,
+    },
+    11 => { # (the same for all areas in my samples, so only extract the first)
+        Name => 'AFAreaSize',
+        Condition => '$$self{NumAFPoints} > 0 and $$valPt !~ /^\0\0\0\0/',
+        Notes => 'only for contrast-detect modes',
+        Format => 'int16u[2]',
+        Writable => 0,
+        PrintConv => '$val=~s/ /x/; $val',
+    },
+);
+
 # white balance RGGB levels (ref 28)
 %Image::ExifTool::Pentax::WBLevels = (
     %binaryDataAttrs,
@@ -5749,7 +5856,7 @@ my %binaryDataAttrs = (
     },
 );
 
-# lens information for Penax Q (ref PH)
+# lens information for Pentax Q (ref PH)
 # (306 bytes long, I wonder if this contains vignetting information too?)
 %Image::ExifTool::Pentax::LensInfoQ = (
     %binaryDataAttrs,
@@ -5792,21 +5899,21 @@ my %binaryDataAttrs = (
     },
     4 => {
         Name => 'AFPointsInFocus',
-        Condition => '$$self{Model} =~ /K-1\b/',
+        Condition => '$$self{Model} =~ /K(P|-1|-70)\b/',
         Format => 'int8u[int(($val{2}+3)/4)]',
         Writable => 0,
         PrintConv => 'Image::ExifTool::Pentax::DecodeAFPoints($val,$$self{NumAFPoints},2,0x02)',
     },
     4.1 => {
         Name => 'AFPointsSelected',
-        Condition => '$$self{Model} =~ /K-1\b/',
+        Condition => '$$self{Model} =~ /K(P|-1|-70)\b/',
         Format => 'int8u[int(($val{2}+3)/4)]',
         Writable => 0,
         PrintConv => 'Image::ExifTool::Pentax::DecodeAFPoints($val,$$self{NumAFPoints},2,0x03)',
     },
     4.2 => {
         Name => 'AFPointsSpecial',
-        Condition => '$$self{Model} =~ /K-1\b/',
+        Condition => '$$self{Model} =~ /K(P|-1|-70)\b/',
         Format => 'int8u[int(($val{2}+3)/4)]',
         Writable => 0,
         PrintConv => 'Image::ExifTool::Pentax::DecodeAFPoints($val,$$self{NumAFPoints},2,0x03,0x03)',
@@ -6437,6 +6544,7 @@ sub DecodeAFPoints($$$$;$)
 {
     my ($val, $num, $bits, $mask, $bitVal) = @_;
     my @bytes = split ' ', $val;
+    return '(none)' unless @bytes;
     my $i = 1;  # (starts at AF point number 1)
     my $shift = 8 - $bits;
     my $byte = shift @bytes;
@@ -6459,9 +6567,9 @@ sub DecodeAFPoints($$$$;$)
 }
 
 #------------------------------------------------------------------------------
-# Print AF Point names for K-3III (ref PH)
+# Print K-3III AF Point names (ref PH)
 # Inputs: 0) value, 1) ExifTool ref, 2) optional value to match
-sub AFPointsK3iii($$;$)
+sub AFPointNamesK3III($$;$)
 {
     my @a = split ' ', $_[0];
     my $match = $_[2];
@@ -6475,10 +6583,10 @@ sub AFPointsK3iii($$;$)
 }
 
 #------------------------------------------------------------------------------
-# Print AF point values for K-3III (ref PH)
+# Print K-3III AF point values (ref PH)
 # Inputs: 0) value, 1) ExifTool ref
 # Notes: this is experimental and not well understood
-sub AFPointValues($$)
+sub AFPointValuesK3III($$)
 {
     my @a = split ' ', shift;
     my @vals;
@@ -6497,6 +6605,25 @@ sub AFPointValues($$)
     return @vals ? join ',', sort @vals : '(none)';
 }
 
+#------------------------------------------------------------------------------
+# Print K-3III AF point positions from tag 0x040c (ref KG)
+# Inputs: 0) raw value, 1) ExifTool ref
+sub AFAreasK3III($$)
+{
+    my ($val, $et) = @_;
+    return '(none)' unless $val;
+    my @vals = split ' ', $val;
+    # flags bits: [mask, value, description]
+    my @flags = ([0x10,0x10,'central'],[0x08,0,'peripheral'],[0x04,0x04,'in-focus']);
+    my ($i, @strs);
+    for ($i=0; $i+7<=@vals; $i+=7) {
+        my @a;
+        ($vals[$i+6] & $$_[0]) == $$_[1] and push @a, $$_[2] foreach @flags;
+        push @strs, $vals[$i+2] . ',' . $vals[$i+3] . (@a ? '(' . join(',',@a) . ')' : '');
+    }
+    return \@strs;
+}
+
 #------------------------------------------------------------------------------
 # Convert Pentax hex-based EV (modulo 8) to real number
 # Inputs: 0) value to convert

package/bin/lib/Image/ExifTool/Plot.pm

@@ -11,7 +11,7 @@ package Image::ExifTool::Plot;
 use strict;
 use vars qw($VERSION);
 
-$VERSION = '1.03';
+$VERSION = '1.05';
 
 # default plot settings (lower-case settings may be overridden by the user)
 my %defaults = (
@@ -201,7 +201,7 @@ sub AddPoints($$$)
             $$data{$name}[$xmax - $xmin] = $val if $xmax >= $xmin;
             next;
         }
-        if ($docNum and $num{$name} < $docNum) {
+        if ($docNum and defined $num{$name} and $num{$name} < $docNum) {
             $num{$name} = $docNum; # keep documents synchronized if some tags are missing
         } else {
             $num{$name} = $xmax unless defined $num{$name};
@@ -321,7 +321,6 @@ sub Draw($$)
         foreach (0 .. (($multi[$plotNum] || 1) - 1)) {
             push @{$$self{Name}}, shift(@names);
         }
-warn "@{$$self{Name}}\n";
         undef $min; undef $max;
         foreach ($scat .. (@{$$self{Name}} - 1)) {
             my $dat = $$self{Data}{$$self{Name}[$_]};

package/bin/lib/Image/ExifTool/QuickTime.pm

@@ -49,7 +49,7 @@ use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 
-$VERSION = '3.17';
+$VERSION = '3.18';
 
 sub ProcessMOV($$;$);
 sub ProcessKeys($$$);
@@ -10522,12 +10522,13 @@ QTLang: foreach $tag (@{$$et{QTLang}}) {
     for (; $trailer; $trailer=$$trailer[3]) {
         next if $lastPos > $$trailer[1];    # skip if we have already processed this as an atom
         last unless $raf->Seek($$trailer[1], 0);
-        if ($$trailer[0] eq 'LigoGPS' and $raf->Read($buff, 8) == 8 and $buff =~ /skip$/) {
+        if ($$trailer[0] eq 'LigoGPS' and $raf->Read($buff, 8) == 8 and $buff =~ /skip$/i) {
             $ee or $et->Warn('Use the ExtractEmbedded option to decode timed GPS',3), next;
             my $len = Get32u(\$buff, 0) - 16;
             if ($len > 0 and $raf->Read($buff, $len) == $len and $buff =~ /^LIGOGPSINFO\0/) {
                 my $tbl = GetTagTable('Image::ExifTool::QuickTime::Stream');
                 my %dirInfo = ( DataPt => \$buff, DataPos => $$trailer[1] + 8, DirName => 'LigoGPSTrailer' );
+                $et->VerboseDump(\$buff, DataPos => $dirInfo{DataPos});
                 Image::ExifTool::LigoGPS::ProcessLigoGPS($et, \%dirInfo, $tbl);
             } else {
                 $et->Warn('Unrecognized data in LigoGPS trailer');

package/bin/lib/Image/ExifTool/QuickTimeStream.pl

@@ -111,7 +111,7 @@ my %insvLimit = (
         The tags below are extracted from timed metadata in QuickTime and other
         formats of video files when the ExtractEmbedded option is used.  Although
         most of these tags are combined into the single table below, ExifTool
-        currently reads 107 different types of timed GPS metadata from video files.
+        currently reads 110 different types of timed GPS metadata from video files.
     },
     GPSLatitude  => { PrintConv => 'Image::ExifTool::GPS::ToDMS($self, $val, 1, "N")', RawConv => '$$self{FoundGPSLatitude} = 1; $val' },
     GPSLongitude => { PrintConv => 'Image::ExifTool::GPS::ToDMS($self, $val, 1, "E")' },
@@ -210,8 +210,8 @@ my %insvLimit = (
             ProcessProc => \&ProcessFMAS,
         },
     },{
-        Name => 'gpmd_Wolfbox', # Wolfbox G900 Dashcam
-        Condition => '$$valPt =~ /^.{136}0{16}HYTH/s',
+        Name => 'gpmd_Wolfbox', # Wolfbox G900 Dashcam and Redtiger F9 4K
+        Condition => '$$valPt =~ /^.{136}0{16}(HYTH|XXXX)/s',
         SubDirectory => {
             TagTable => 'Image::ExifTool::QuickTime::Stream',
             ProcessProc => \&ProcessWolfbox,
@@ -317,6 +317,8 @@ my %insvLimit = (
             ByteOrder => 'Little-Endian',
         },
     }],
+    # (have also seen unknown mett from Google Pixel with MetaType 'application/meta'
+    #  and 'application/microvideo-image-meta')
     mett => { # Parrot drones and iPhone/Android using ARCore
         Name => 'mett',
         SubDirectory => { TagTable => 'Image::ExifTool::Parrot::mett' },
@@ -2288,6 +2290,7 @@ ATCRec: for ($recPos = 0x30; $recPos + 52 < $dirLen; $recPos += 52) {
                 $lon = ($lon - 2199.19873715495) / 2;
                 $ddd = 1;
             } elsif (Get32u($dataPt,0) == 0x400000 and abs($lat) <= 90 and abs($lon) <= 180) {
+                $debug and $et->FoundTag(GPSType => '17c');
                 # Transcend Drive Body Camera 70
                 #  0000: 00 00 40 00 66 72 65 65 47 50 53 20 4c 00 00 00 [..@.freeGPS L...]
                 #  0010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 [................]
@@ -3567,14 +3570,14 @@ sub ProcessFMAS($$$)
 }
 
 #------------------------------------------------------------------------------
-# Process GPS from Wolfbox G900 Dashcam
+# Process GPS from Wolfbox G900 Dashcam and Redtiger F9 4K
 # Inputs: 0) ExifTool object ref, 1) dirInfo ref, 2) tag table ref
 # Returns: 1 on success
 sub ProcessWolfbox($$$)
 {
     my ($et, $dirInfo, $tagTbl) = @_;
     my $dataPt = $$dirInfo{DataPt};
-    return 0 if length($$dataPt) < 0xc8;
+    return 0 if length($$dataPt) < 0xf8;
     $et->VerboseDir('Wolfbox', undef, length($$dataPt));
     # 0000: 65 00 00 00 00 00 00 00 31 01 01 00 e3 ff 00 00 [e.......1.......]
     # 0010: 04 00 00 00 10 00 00 00 2a 00 00 00 00 00 00 00 [........*.......]
@@ -3593,22 +3596,43 @@ sub ProcessWolfbox($$$)
     # 00e0: 0a 00 00 00 00 00 00 00 e8 03 00 00 00 00 00 00 [................]
     # 00f0: 0a 00 00 00 00 00 00 00 4d 00 00 00 00 00 00 00 [........M.......]
     # lat/lon at 0xb0/0xc0 and 0x128/0x138
-    # h/m/s at 0x10 and 0xa0 and 0x148 (the first imprinted on the video, the latter 2 presumed UTC)
+    # h/m/s at 0x10 and 0xa0 and 0x148 (the first imprinted on the video, and
+    # the latter 2 presumed UTC, but there is a 1 second offset for the Redtiger)
     # spd at 0x48, dir at 0x58, alt at 0xe8
+    # Redtiger F9 4K Dual Front and Rear Mini Dash Cam
+    # 0000: 01 00 00 00 00 00 00 00 f4 ff 5d fe 24 00 00 00 [..........].$...]
+    # 0010: 10 00 00 00 2d 00 00 00 25 00 00 00 00 00 00 00 [....-...%.......]
+    # 0020: 01 00 00 00 00 00 00 00 44 eb 8f 00 00 00 00 00 [........D.......]
+    # 0030: 10 27 00 00 00 00 00 00 1b 94 8a 04 00 00 00 00 [.'..............]
+    # 0040: 10 27 00 00 00 00 00 00 8c 69 00 00 00 00 00 00 [.'.......i......]
+    # 0050: e8 03 00 00 00 00 00 00 ba 47 00 00 00 00 00 00 [.........G......]
+    # 0060: 64 00 00 00 00 00 00 00 19 00 00 00 05 00 00 00 [d...............]
+    # 0070: e9 07 00 00 00 00 00 00 00 00 00 00 00 00 00 00 [................]
+    # 0080: 00 00 00 00 00 00 00 00 30 30 30 30 30 30 30 30 [........00000000]
+    # 0090: 30 30 30 30 30 30 30 30 58 58 58 58 00 00 00 00 [00000000XXXX....]
+    # 00a0: 08 00 00 00 2d 00 00 00 24 00 00 00 00 00 00 00 [....-...$.......]
+    # 00b0: 90 eb 8f 00 00 00 00 00 10 27 00 00 00 00 00 00 [.........'......]
+    # 00c0: 20 94 8a 04 00 00 00 00 10 27 00 00 00 00 00 00 [ ........'......]
+    # 00d0: 01 00 00 00 11 00 00 00 40 00 00 00 00 00 00 00 [........@.......]
+    # 00e0: 64 00 00 00 00 00 00 00 8a 00 00 00 00 00 00 00 [d...............]
+    # 00f0: 0a 00 00 00 00 00 00 00 4d 00 00 00 00 00 00 00 [........M.......]
     SetByteOrder('II');
-    my ($spd,$dir,$d,$mo,$yr,$h,$m,$s) = unpack('x72Vx12Vx12V3x44V3',$$dataPt);
-    # offset 0xa0 also stores hh mm ss, but is out by 8 hours!
+    my ($d,$mo,$yr,$h,$m,$s) = unpack('x104V3x44V3',$$dataPt);
     my $time = sprintf '%.4d:%.2d:%.2d %.2d:%.2d:%.2dZ', $yr, $mo, $d, $h, $m, $s;
-    my ($lat, $lon) = (Get32s($dataPt, 0xb0) / 1e5, Get32s($dataPt, 0xc0) / 1e5);
-    my $alt = Get32s($dataPt, 0xe8);
-    ConvertLatLon($lat, $lon);
+    my ($pos, @a);
+    #             0=spd 1=dir 2=lat 3=lon 4=alt
+    foreach $pos (0x48, 0x58, 0xb0, 0xc0, 0xe8) {
+        my $val = Get64s($dataPt, $pos);
+        my $scl = Get64s($dataPt, $pos + 8);
+        push @a, $val / ($scl || 1);
+    }
+    ConvertLatLon($a[2], $a[3]);
     $et->HandleTag($tagTbl, GPSDateTime  => $time);
-    $et->HandleTag($tagTbl, GPSLatitude  => $lat);
-    $et->HandleTag($tagTbl, GPSLongitude => $lon);
-    $et->HandleTag($tagTbl, GPSSpeed     => $spd * $knotsToKph / 100);
-    $et->HandleTag($tagTbl, GPSTrack     => $dir / 100);
-    $et->HandleTag($tagTbl, GPSAltitude  => $alt / 10); # (NC)
-    SetByteOrder('MM');
+    $et->HandleTag($tagTbl, GPSLatitude  => $a[2]);
+    $et->HandleTag($tagTbl, GPSLongitude => $a[3]);
+    $et->HandleTag($tagTbl, GPSSpeed     => $a[0] * $knotsToKph);
+    $et->HandleTag($tagTbl, GPSTrack     => $a[1]);
+    $et->HandleTag($tagTbl, GPSAltitude  => $a[4]);
     return 1;
 }
 

package/bin/lib/Image/ExifTool/Sigma.pm

@@ -19,7 +19,7 @@ use strict;
 use vars qw($VERSION %sigmaLensTypes);
 use Image::ExifTool::Exif;
 
-$VERSION = '1.35';
+$VERSION = '1.36';
 
 # sigma LensType lookup (ref IB)
 %sigmaLensTypes = (
@@ -704,6 +704,12 @@ $VERSION = '1.35';
         Name => 'PictureMode',
         Notes => 'same as ColorMode, but "Standard" when ColorMode is Sepia or B&W',
     },
+    0x0047 => { #forum17338
+        Name => 'ExposureCompensation',
+        Writable => 'rational64s',
+        PrintConv => '$val and $val =~ s/^(\d)/\+$1/; $val',
+        PrintConvInv => '$val',
+    },
     0x0048 => { #PH
         Name => 'LensApertureRange',
         Condition => '$$self{MakerNoteSigmaVer} >= 3',
@@ -797,6 +803,10 @@ $VERSION = '1.35';
     0x0087 => 'ResolutionMode', #PH (Quattro models)
     0x0088 => 'WhiteBalance', #PH (Quattro models)
     0x008c => 'Firmware', #PH (Quattro models)
+    0x0113 => { #forum17338
+        Name => 'PictureModeStrength',
+        Writable => 'int32s',
+    },
     0x011f => { #IB (FP DNG images)
         Name => 'CameraCalibration',
         Writable => 'float',
@@ -810,6 +820,14 @@ $VERSION = '1.35';
         Name => 'WBSettings2',
         SubDirectory => { TagTable => 'Image::ExifTool::Sigma::WBSettings2' },
     },
+    0x0138 => { #forum17338
+        Name => 'Fade',
+        Writable => 'rational64u',
+    },
+    0x0139 => { #forum17338
+        Name => 'Vignette',
+        Writable => 'rational64u',
+    },
 );
 
 # WB settings (ref IB)

package/bin/lib/Image/ExifTool/Sony.pm

@@ -34,7 +34,7 @@ use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::Minolta;
 
-$VERSION = '3.73';
+$VERSION = '3.74';
 
 sub ProcessSRF($$$);
 sub ProcessSR2($$$);
@@ -176,6 +176,7 @@ sub PrintInvLensSpec($;$$);
     32888 => 'Sony FE 85mm F1.4 GM II', #JR
     32889 => 'Sony FE 28-70mm F2 GM',
     32890 => 'Sony FE 400-800mm F6.3-8 G OSS', #JR
+    32891 => 'Sony FE 50-150mm F2 GM', #github335
 
   # (comment this out so LensID will report the LensModel, which is more useful)
   # 32952 => 'Metabones Canon EF Speed Booster Ultra', #JR (corresponds to 184, but 'Advanced' mode, LensMount reported as E-mount)