exiftool_vendored 13.17.0 → 13.19.0

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

@@ -43,7 +43,7 @@
 package Image::ExifTool::QuickTime;
 
 use strict;
-use vars qw($VERSION $AUTOLOAD %stringEncoding %avType);
+use vars qw($VERSION $AUTOLOAD %stringEncoding %avType %dontInherit);
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
@@ -487,9 +487,13 @@ my %qtFlags = ( #12
 );
 
 # properties which don't get inherited from the parent
-my %dontInherit = (
-    ispe => 1,  # size of parent may be different
-    hvcC => 1,  # (likely redundant)
+# 1 = parent doesn't inherit this property
+# 2 = parent doesn't inherit, but child does
+%dontInherit = (
+    ispe => 1,  # primary item must have an ispe and pixi, so no need to inherit these
+    pixi => 1,
+    hvcC => 2,  # (hvcC is a property of hvc1 referred to by primary grid)
+    colr => 2,  # (colr is a property of primary grid or hvc1 referred to by primary)
 );
 
 # tags that may be duplicated and directories that may contain duplicate tags
@@ -510,7 +514,7 @@ my %hashBox = ( vide => { %eeStd }, soun => { %eeStd } );
 # used, but others have been checked against all available sample files and may be
 # useful in the future if the names are used for different boxes on other locations)
 my %eeBox = (
-    # (note: vide is only processed if specific atoms exist in the VideoSampleDesc)
+    # (note: vide is only processed if specific atoms exist in the VisualSampleDesc)
     vide => { %eeStd, JPEG => 'stsd' },
     text => { %eeStd },
     meta => { %eeStd },
@@ -1005,7 +1009,7 @@ my %userDefined = (
     NOTES => 'Tags used in QTIF QuickTime Image Files.',
     idsc => {
         Name => 'ImageDescription',
-        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::ImageDesc' },
+        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::VisualSampleDesc' },
     },
     idat => {
         Name => 'ImageData',
@@ -1017,158 +1021,6 @@ my %userDefined = (
     },
 );
 
-# image description data block
-%Image::ExifTool::QuickTime::ImageDesc = (
-    PROCESS_PROC => \&ProcessHybrid,
-    VARS => { ID_LABEL => 'ID/Index' },
-    GROUPS => { 2 => 'Image' },
-    FORMAT => 'int16u',
-    2 => {
-        Name => 'CompressorID',
-        Format => 'string[4]',
-# not very useful since this isn't a complete list and name is given below
-#        # ref http://developer.apple.com/mac/library/documentation/QuickTime/QTFF/QTFFChap3/qtff3.html
-#        PrintConv => {
-#            cvid => 'Cinepak',
-#            jpeg => 'JPEG',
-#           'smc '=> 'Graphics',
-#           'rle '=> 'Animation',
-#            rpza => 'Apple Video',
-#            kpcd => 'Kodak Photo CD',
-#           'png '=> 'Portable Network Graphics',
-#            mjpa => 'Motion-JPEG (format A)',
-#            mjpb => 'Motion-JPEG (format B)',
-#            SVQ1 => 'Sorenson video, version 1',
-#            SVQ3 => 'Sorenson video, version 3',
-#            mp4v => 'MPEG-4 video',
-#           'dvc '=> 'NTSC DV-25 video',
-#            dvcp => 'PAL DV-25 video',
-#           'gif '=> 'Compuserve Graphics Interchange Format',
-#            h263 => 'H.263 video',
-#            tiff => 'Tagged Image File Format',
-#           'raw '=> 'Uncompressed RGB',
-#           '2vuY'=> "Uncompressed Y'CbCr, 3x8-bit 4:2:2 (2vuY)",
-#           'yuv2'=> "Uncompressed Y'CbCr, 3x8-bit 4:2:2 (yuv2)",
-#            v308 => "Uncompressed Y'CbCr, 8-bit 4:4:4",
-#            v408 => "Uncompressed Y'CbCr, 8-bit 4:4:4:4",
-#            v216 => "Uncompressed Y'CbCr, 10, 12, 14, or 16-bit 4:2:2",
-#            v410 => "Uncompressed Y'CbCr, 10-bit 4:4:4",
-#            v210 => "Uncompressed Y'CbCr, 10-bit 4:2:2",
-#            hvc1 => 'HEVC', #PH
-#        },
-    },
-    10 => {
-        Name => 'VendorID',
-        Format => 'string[4]',
-        RawConv => 'length $val ? $val : undef',
-        PrintConv => \%vendorID,
-        SeparateTable => 'VendorID',
-    },
-  # 14 - ("Quality" in QuickTime docs) ??
-    16 => 'SourceImageWidth',
-    17 => 'SourceImageHeight',
-    18 => { Name => 'XResolution',  Format => 'fixed32u' },
-    20 => { Name => 'YResolution',  Format => 'fixed32u' },
-  # 24 => 'FrameCount', # always 1 (what good is this?)
-    25 => {
-        Name => 'CompressorName',
-        Format => 'string[32]',
-        # (sometimes this is a Pascal string, and sometimes it is a C string)
-        RawConv => q{
-            $val=substr($val,1,ord($1)) if $val=~/^([\0-\x1f])/ and ord($1)<length($val);
-            length $val ? $val : undef;
-        },
-    },
-    41 => 'BitDepth',
-#
-# Observed offsets for child atoms of various CompressorID types:
-#
-#   CompressorID  Offset  Child atoms
-#   -----------   ------  ----------------
-#   avc1          86      avcC, btrt, colr, pasp, fiel, clap, svcC
-#   mp4v          86      esds, pasp
-#   s263          86      d263
-#
-    btrt => {
-        Name => 'BitrateInfo',
-        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::Bitrate' },
-    },
-    # Reference for fiel, colr, pasp, clap:
-    # https://developer.apple.com/library/mac/technotes/tn2162/_index.html#//apple_ref/doc/uid/DTS40013070-CH1-TNTAG9
-    fiel => {
-        Name => 'VideoFieldOrder',
-        ValueConv => 'join(" ", unpack("C*",$val))',
-        PrintConv => [{
-            1 => 'Progressive',
-            2 => '2:1 Interlaced',
-        }],
-    },
-    colr => {
-        Name => 'ColorRepresentation',
-        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::ColorRep' },
-    },
-    pasp => {
-        Name => 'PixelAspectRatio',
-        ValueConv => 'join(":", unpack("N*",$val))',
-    },
-    clap => {
-        Name => 'CleanAperture',
-        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::CleanAperture' },
-    },
-    avcC => {
-        # (see http://thompsonng.blogspot.ca/2010/11/mp4-file-format-part-2.html)
-        Name => 'AVCConfiguration',
-        Unknown => 1,
-        Binary => 1,
-    },
-    JPEG => { # (found in CR3 images; used as a flag to identify JpgFromRaw 'vide' stream)
-        Name => 'JPEGInfo',
-        # (4 bytes all zero)
-        Unknown => 1,
-        Binary => 1,
-    },
-    # hvcC - HEVC configuration
-    # svcC - 7 bytes: 00 00 00 00 ff e0 00
-    # esds - elementary stream descriptor
-    # d263
-    gama => { Name => 'Gamma', Format => 'fixed32u' },
-    # mjqt - default quantization table for MJPEG
-    # mjht - default Huffman table for MJPEG
-    # csgm ? (seen in hevc video)
-    CMP1 => { # Canon CR3
-        Name => 'CMP1',
-        SubDirectory => { TagTable => 'Image::ExifTool::Canon::CMP1' },
-    },
-    CDI1 => { # Canon CR3
-        Name => 'CDI1',
-        SubDirectory => {
-            TagTable => 'Image::ExifTool::Canon::CDI1',
-            Start => 4,
-        },
-    },
-    # JPEG - 4 bytes all 0 (Canon CR3)
-    # free - (Canon CR3)
-#
-# spherical video v2 stuff (untested)
-#
-    st3d => {
-        Name => 'Stereoscopic3D',
-        Format => 'int8u',
-        ValueConv => '$val =~ s/.* //; $val', # (remove leading version/flags bytes?)
-        PrintConv => {
-            0 => 'Monoscopic',
-            1 => 'Stereoscopic Top-Bottom',
-            2 => 'Stereoscopic Left-Right',
-            3 => 'Stereoscopic Stereo-Custom',
-            4 => 'Stereoscopic Right-Left',
-        },
-    },
-    sv3d => {
-        Name => 'SphericalVideo',
-        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::sv3d' },
-    },
-);
-
 # 'sv3d' atom information (ref https://github.com/google/spatial-media/blob/master/docs/spherical-video-v2-rfc.md)
 %Image::ExifTool::QuickTime::sv3d = (
     PROCESS_PROC => \&ProcessMOV,
@@ -2227,7 +2079,7 @@ my %userDefined = (
         ValueConvInv => 'pack("H*",$val)',
     },
     # SETT? 12 bytes (Hero4)
-    # MUID? 32 bytes (Hero4, starts with serial number hash)
+    MUID => { Name => 'MediaUID', ValueConv => 'unpack("H*", $val)' },
     # HMMT? 404 bytes (Hero4, all zero)
     # BCID? 26 bytes (Hero5, all zero), 36 bytes GoPro Max
     # GUMI? 16 bytes (Hero5)
@@ -2987,7 +2839,8 @@ my %userDefined = (
     ipma => {
         Name => 'ItemPropertyAssociation',
         RawConv => \&ParseItemPropAssoc,
-        WriteHook => \&ParseItemPropAssoc,
+        # (comment out because we do this manually _before_ ipco when writing)
+        # WriteHook => \&ParseItemPropAssoc,
         Notes => 'parsed, but not extracted as a tag',
     },
 );
@@ -3001,7 +2854,9 @@ my %userDefined = (
     colr => [{
         Name => 'ICC_Profile',
         Condition => '$$valPt =~ /^(prof|rICC)/',
-        Permanent => 0, # (in QuickTime, this writes a zero-length box instead of deleting)
+        # (don't do this because Apple Preview won't display an HEIC with a 0-length profile)
+        # Permanent => 0, # (in QuickTime, this writes a zero-length box instead of deleting)
+        Permanent => 1,
         SubDirectory => {
             TagTable => 'Image::ExifTool::ICC_Profile::Main',
             Start => 4,
@@ -7324,10 +7179,10 @@ my %userDefined = (
                 ProcessProc => \&ProcessSampleDesc,
             },
         },{
-            Name => 'VideoSampleDesc',
+            Name => 'VisualSampleDesc',
             Condition => '$$self{HandlerType} and $$self{HandlerType} eq "vide"',
             SubDirectory => {
-                TagTable => 'Image::ExifTool::QuickTime::ImageDesc',
+                TagTable => 'Image::ExifTool::QuickTime::VisualSampleDesc',
                 ProcessProc => \&ProcessSampleDesc,
             },
         },{
@@ -7463,6 +7318,7 @@ my %userDefined = (
         # see this link for print conversions (not complete):
         # https://github.com/yannickcr/brooser/blob/master/php/librairies/getid3/module.audio-video.quicktime.php
     },
+  # 14 - int16u DataReferenceIndex
     20 => { #PH
         Name => 'AudioVendorID',
         Condition => '$$self{AudioFormat} ne "mp4s"',
@@ -7527,6 +7383,252 @@ my %userDefined = (
     # dapa - ? 203 bytes
 );
 
+# video and image sample description data block
+%Image::ExifTool::QuickTime::VisualSampleDesc = (
+    PROCESS_PROC => \&ProcessHybrid,
+    VARS => { ID_LABEL => 'ID/Index' },
+    GROUPS => { 2 => 'Image' },
+    FORMAT => 'int16u',
+    2 => {
+        Name => 'CompressorID',
+        Format => 'string[4]',
+# not very useful since this isn't a complete list and name is given below
+#        # ref http://developer.apple.com/mac/library/documentation/QuickTime/QTFF/QTFFChap3/qtff3.html
+#        PrintConv => {
+#            cvid => 'Cinepak',
+#            jpeg => 'JPEG',
+#           'smc '=> 'Graphics',
+#           'rle '=> 'Animation',
+#            rpza => 'Apple Video',
+#            kpcd => 'Kodak Photo CD',
+#           'png '=> 'Portable Network Graphics',
+#            mjpa => 'Motion-JPEG (format A)',
+#            mjpb => 'Motion-JPEG (format B)',
+#            SVQ1 => 'Sorenson video, version 1',
+#            SVQ3 => 'Sorenson video, version 3',
+#            mp4v => 'MPEG-4 video',
+#           'dvc '=> 'NTSC DV-25 video',
+#            dvcp => 'PAL DV-25 video',
+#           'gif '=> 'Compuserve Graphics Interchange Format',
+#            h263 => 'H.263 video',
+#            tiff => 'Tagged Image File Format',
+#           'raw '=> 'Uncompressed RGB',
+#           '2vuY'=> "Uncompressed Y'CbCr, 3x8-bit 4:2:2 (2vuY)",
+#           'yuv2'=> "Uncompressed Y'CbCr, 3x8-bit 4:2:2 (yuv2)",
+#            v308 => "Uncompressed Y'CbCr, 8-bit 4:4:4",
+#            v408 => "Uncompressed Y'CbCr, 8-bit 4:4:4:4",
+#            v216 => "Uncompressed Y'CbCr, 10, 12, 14, or 16-bit 4:2:2",
+#            v410 => "Uncompressed Y'CbCr, 10-bit 4:4:4",
+#            v210 => "Uncompressed Y'CbCr, 10-bit 4:2:2",
+#            hvc1 => 'HEVC', #PH
+#        },
+    },
+  # 7 - int16u DataReferenceIndex
+    10 => {
+        Name => 'VendorID',
+        Format => 'string[4]',
+        RawConv => 'length $val ? $val : undef',
+        PrintConv => \%vendorID,
+        SeparateTable => 'VendorID',
+    },
+  # 14 - ("Quality" in QuickTime docs) ??
+    16 => 'SourceImageWidth',
+    17 => 'SourceImageHeight',
+    18 => { Name => 'XResolution',  Format => 'fixed32u' },
+    20 => { Name => 'YResolution',  Format => 'fixed32u' },
+  # 24 => 'FrameCount', # always 1 (what good is this?)
+    25 => {
+        Name => 'CompressorName',
+        Format => 'string[32]',
+        # (sometimes this is a Pascal string, and sometimes it is a C string)
+        RawConv => q{
+            $val=substr($val,1,ord($1)) if $val=~/^([\0-\x1f])/ and ord($1)<length($val);
+            length $val ? $val : undef;
+        },
+    },
+    41 => 'BitDepth',
+#
+# Observed offsets for child atoms of various CompressorID types:
+#
+#   CompressorID  Offset  Child atoms
+#   -----------   ------  ----------------
+#   avc1          86      avcC, btrt, colr, pasp, fiel, clap, svcC
+#   mp4v          86      esds, pasp
+#   s263          86      d263
+#
+    btrt => {
+        Name => 'BitrateInfo',
+        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::Bitrate' },
+    },
+    # Reference for fiel, colr, pasp, clap:
+    # https://developer.apple.com/library/mac/technotes/tn2162/_index.html#//apple_ref/doc/uid/DTS40013070-CH1-TNTAG9
+    fiel => {
+        Name => 'VideoFieldOrder',
+        ValueConv => 'join(" ", unpack("C*",$val))',
+        PrintConv => [{
+            1 => 'Progressive',
+            2 => '2:1 Interlaced',
+        }],
+    },
+    colr => {
+        Name => 'ColorRepresentation',
+        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::ColorRep' },
+    },
+    pasp => {
+        Name => 'PixelAspectRatio',
+        ValueConv => 'join(":", unpack("N*",$val))',
+    },
+    clap => {
+        Name => 'CleanAperture',
+        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::CleanAperture' },
+    },
+    avcC => {
+        # (see http://thompsonng.blogspot.ca/2010/11/mp4-file-format-part-2.html)
+        Name => 'AVCConfiguration',
+        Unknown => 1,
+        Binary => 1,
+    },
+    JPEG => { # (found in CR3 images; used as a flag to identify JpgFromRaw 'vide' stream)
+        Name => 'JPEGInfo',
+        # (4 bytes all zero)
+        Unknown => 1,
+        Binary => 1,
+    },
+    # hvcC - HEVC configuration
+    # svcC - 7 bytes: 00 00 00 00 ff e0 00
+    # esds - elementary stream descriptor
+    # d263
+    gama => { Name => 'Gamma', Format => 'fixed32u' },
+    # mjqt - default quantization table for MJPEG
+    # mjht - default Huffman table for MJPEG
+    # csgm ? (seen in hevc video)
+    CMP1 => { # Canon CR3
+        Name => 'CMP1',
+        SubDirectory => { TagTable => 'Image::ExifTool::Canon::CMP1' },
+    },
+    CDI1 => { # Canon CR3
+        Name => 'CDI1',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Canon::CDI1',
+            Start => 4,
+        },
+    },
+    # JPEG - 4 bytes all 0 (Canon CR3)
+    # free - (Canon CR3)
+#
+# spherical video v2 stuff (untested)
+#
+    st3d => {
+        Name => 'Stereoscopic3D',
+        Format => 'int8u',
+        ValueConv => '$val =~ s/.* //; $val', # (remove leading version/flags bytes?)
+        PrintConv => {
+            0 => 'Monoscopic',
+            1 => 'Stereoscopic Top-Bottom',
+            2 => 'Stereoscopic Left-Right',
+            3 => 'Stereoscopic Stereo-Custom',
+            4 => 'Stereoscopic Right-Left',
+        },
+    },
+    sv3d => {
+        Name => 'SphericalVideo',
+        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::sv3d' },
+    },
+);
+
+# MP4 hint sample description box (ref 5)
+# (ref https://developer.apple.com/library/mac/documentation/QuickTime/QTFF/QTFFChap3/qtff3.html#//apple_ref/doc/uid/TP40000939-CH205-SW1)
+%Image::ExifTool::QuickTime::HintSampleDesc = (
+    PROCESS_PROC => \&ProcessHybrid,
+    VARS => { ID_LABEL => 'ID/Index' },
+    NOTES => 'MP4 hint sample description.',
+    4  => { Name => 'HintFormat', Format => 'undef[4]' },
+  # 14 - int16u DataReferenceIndex
+    16 => { Name => 'HintTrackVersion', Format => 'int16u' },
+  # 18 - int16u LastCompatibleHintTrackVersion
+    20 => { Name => 'MaxPacketSize', Format => 'int32u' },
+#
+# Observed offsets for child atoms of various HintFormat types:
+#
+#   HintFormat   Offset  Child atoms
+#   -----------  ------  ----------------
+#   "rtp "       24      tims
+#
+    tims => { Name => 'RTPTimeScale',               Format => 'int32u' },
+    tsro => { Name => 'TimestampRandomOffset',      Format => 'int32u' },
+    snro => { Name => 'SequenceNumberRandomOffset', Format => 'int32u' },
+);
+
+# MP4 metadata sample description box
+%Image::ExifTool::QuickTime::MetaSampleDesc = (
+    PROCESS_PROC => \&ProcessHybrid,
+    NOTES => 'MP4 metadata sample description.',
+    4 => {
+        Name => 'MetaFormat',
+        Format => 'undef[4]',
+        RawConv => '$$self{MetaFormat} = $val',
+    },
+    8 => { # starts at 8 for MetaFormat eq 'camm', and 17 for 'mett'
+        Name => 'MetaType',
+        Format => 'undef[$size-8]',
+        # may start at various locations!
+        RawConv => '$$self{MetaType} = ($val=~/(application[^\0]+)/ ? $1 : undef)',
+    },
+#
+# Observed offsets for child atoms of various MetaFormat types:
+#
+#   MetaFormat   Offset  Child atoms
+#   -----------  ------  ----------------
+#   mebx         24      keys,btrt,lidp,lidl
+#   fdsc         -       -
+#   gpmd         -       -
+#   rtmd         -       -
+#   CTMD         -       -
+#
+   'keys' => { #PH (iPhone7+ hevc)
+        Name => 'Keys',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::QuickTime::Keys',
+            ProcessProc => \&ProcessMetaKeys,
+        },
+    },
+    btrt => {
+        Name => 'BitrateInfo',
+        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::Bitrate' },
+    },
+);
+
+# MP4 generic sample description box
+%Image::ExifTool::QuickTime::OtherSampleDesc = (
+    PROCESS_PROC => \&ProcessHybrid,
+    4 => {
+        Name => 'OtherFormat',
+        Format => 'undef[4]',
+        RawConv => '$$self{MetaFormat} = $val', # (yes, use MetaFormat for this too)
+    },
+    24 => {
+        Condition => '$$self{MetaFormat} eq "tmcd"',
+        Name => 'PlaybackFrameRate', # (may differ from recorded FrameRate eg. ../pics/FujiFilmX-H1.mov)
+        Format => 'rational64u',
+    },
+#
+# Observed offsets for child atoms of various OtherFormat types:
+#
+#   OtherFormat  Offset  Child atoms
+#   -----------  ------  ----------------
+#   avc1         86      avcC
+#   mp4a         36      esds
+#   mp4s         16      esds
+#   tmcd         34      name
+#   data         -       -
+#
+    ftab => { Name => 'FontTable',  Format => 'undef', ValueConv => 'substr($val, 5)' },
+    name => { Name => 'OtherName',  Format => 'undef', ValueConv => 'substr($val, 4)' },
+    mrlh => { Name => 'MarlinHeader',    SubDirectory => { TagTable => 'Image::ExifTool::GM::mrlh' } },
+    mrlv => { Name => 'MarlinValues',    SubDirectory => { TagTable => 'Image::ExifTool::GM::mrlv' } },
+    mrld => { Name => 'MarlinDictionary',SubDirectory => { TagTable => 'Image::ExifTool::GM::mrld' } },
+);
+
 # AMR decode config box (ref 3)
 %Image::ExifTool::QuickTime::DecodeConfig = (
     PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
@@ -7950,99 +8052,6 @@ my %userDefined = (
     # hi32 - seen "00 00 00 04"
 );
 
-# MP4 hint sample description box (ref 5)
-# (ref https://developer.apple.com/library/mac/documentation/QuickTime/QTFF/QTFFChap3/qtff3.html#//apple_ref/doc/uid/TP40000939-CH205-SW1)
-%Image::ExifTool::QuickTime::HintSampleDesc = (
-    PROCESS_PROC => \&ProcessHybrid,
-    VARS => { ID_LABEL => 'ID/Index' },
-    NOTES => 'MP4 hint sample description.',
-    4  => { Name => 'HintFormat', Format => 'undef[4]' },
-    # 14 - int16u DataReferenceIndex
-    16 => { Name => 'HintTrackVersion', Format => 'int16u' },
-    # 18 - int16u LastCompatibleHintTrackVersion
-    20 => { Name => 'MaxPacketSize', Format => 'int32u' },
-#
-# Observed offsets for child atoms of various HintFormat types:
-#
-#   HintFormat   Offset  Child atoms
-#   -----------  ------  ----------------
-#   "rtp "       24      tims
-#
-    tims => { Name => 'RTPTimeScale',               Format => 'int32u' },
-    tsro => { Name => 'TimestampRandomOffset',      Format => 'int32u' },
-    snro => { Name => 'SequenceNumberRandomOffset', Format => 'int32u' },
-);
-
-# MP4 metadata sample description box
-%Image::ExifTool::QuickTime::MetaSampleDesc = (
-    PROCESS_PROC => \&ProcessHybrid,
-    NOTES => 'MP4 metadata sample description.',
-    4 => {
-        Name => 'MetaFormat',
-        Format => 'undef[4]',
-        RawConv => '$$self{MetaFormat} = $val',
-    },
-    8 => { # starts at 8 for MetaFormat eq 'camm', and 17 for 'mett'
-        Name => 'MetaType',
-        Format => 'undef[$size-8]',
-        # may start at various locations!
-        RawConv => '$$self{MetaType} = ($val=~/(application[^\0]+)/ ? $1 : undef)',
-    },
-#
-# Observed offsets for child atoms of various MetaFormat types:
-#
-#   MetaFormat   Offset  Child atoms
-#   -----------  ------  ----------------
-#   mebx         24      keys,btrt,lidp,lidl
-#   fdsc         -       -
-#   gpmd         -       -
-#   rtmd         -       -
-#   CTMD         -       -
-#
-   'keys' => { #PH (iPhone7+ hevc)
-        Name => 'Keys',
-        SubDirectory => {
-            TagTable => 'Image::ExifTool::QuickTime::Keys',
-            ProcessProc => \&ProcessMetaKeys,
-        },
-    },
-    btrt => {
-        Name => 'BitrateInfo',
-        SubDirectory => { TagTable => 'Image::ExifTool::QuickTime::Bitrate' },
-    },
-);
-
-# MP4 generic sample description box
-%Image::ExifTool::QuickTime::OtherSampleDesc = (
-    PROCESS_PROC => \&ProcessHybrid,
-    4 => {
-        Name => 'OtherFormat',
-        Format => 'undef[4]',
-        RawConv => '$$self{MetaFormat} = $val', # (yes, use MetaFormat for this too)
-    },
-    24 => {
-        Condition => '$$self{MetaFormat} eq "tmcd"',
-        Name => 'PlaybackFrameRate', # (may differ from recorded FrameRate eg. ../pics/FujiFilmX-H1.mov)
-        Format => 'rational64u',
-    },
-#
-# Observed offsets for child atoms of various OtherFormat types:
-#
-#   OtherFormat  Offset  Child atoms
-#   -----------  ------  ----------------
-#   avc1         86      avcC
-#   mp4a         36      esds
-#   mp4s         16      esds
-#   tmcd         34      name
-#   data         -       -
-#
-    ftab => { Name => 'FontTable',  Format => 'undef', ValueConv => 'substr($val, 5)' },
-    name => { Name => 'OtherName',  Format => 'undef', ValueConv => 'substr($val, 4)' },
-    mrlh => { Name => 'MarlinHeader',    SubDirectory => { TagTable => 'Image::ExifTool::GM::mrlh' } },
-    mrlv => { Name => 'MarlinValues',    SubDirectory => { TagTable => 'Image::ExifTool::GM::mrlv' } },
-    mrld => { Name => 'MarlinDictionary',SubDirectory => { TagTable => 'Image::ExifTool::GM::mrld' } },
-);
-
 # MP4 data information box (ref 5)
 %Image::ExifTool::QuickTime::DataInfo = (
     PROCESS_PROC => \&ProcessMOV,
@@ -9978,17 +9987,19 @@ sub ProcessMOV($$;$)
                 my $items = $$et{ItemInfo};
                 my ($id, $prop, $docNum, $lowest);
                 my $primary = $$et{PrimaryItem} || 0;
+                my $pitem = $$items{$primary} || { };
+                $$pitem{RefersTo} or $$pitem{RefersTo} = { };
 ItemID:         foreach $id (reverse sort { $a <=> $b } keys %$items) {
                     next unless $$items{$id}{Association};
                     my $item = $$items{$id};
                     foreach $prop (@{$$item{Association}}) {
                         next unless $prop == $index;
-                        if ($id == $primary or (not $dontInherit{$tag} and
-                            (($$item{RefersTo} and $$item{RefersTo}{$primary}) or
-                            # hack: assume Item 1 is from the main image (eg. hvc1 data)
-                            # to hack the case where the primary item (ie. main image)
-                            # doesn't directly reference this property
-                            (not $$item{RefersTo} and $id == 1))))
+                        my $dont = $dontInherit{$tag} || 0;
+                        if ($id == $primary or (not $dont and
+                            ($$item{RefersTo} and $$item{RefersTo}{$primary})) or
+                            # special case to assume this property belongs to the primary
+                            # image if it belongs to an item referred to by the primary
+                            ($dont != 1 and $$pitem{RefersTo}{$id}))
                         {
                             # this is associated with the primary item or an item describing
                             # the primary item, so consider this part of the main document

data/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 100 different types of timed GPS metadata from video files.
+        currently reads 103 different types of timed GPS metadata from video files.
     },
     VARS => { NO_ID => 1 },
     GPSLatitude  => { PrintConv => 'Image::ExifTool::GPS::ToDMS($self, $val, 1, "N")', RawConv => '$$self{FoundGPSLatitude} = 1; $val' },
@@ -2208,7 +2208,7 @@ ATCRec: for ($recPos = 0x30; $recPos + 52 < $dirLen; $recPos += 52) {
             unpack('x48V6a1a1a1x1V4', $$dataPt);
         if (substr($$dataPt, 16, 3) eq 'IQS') {
             $debug and $et->FoundTag(GPSType => 16);
-            # Type 3b (ref PH)
+            # IQS variant (ref PH)
             # header looks like this in my sample:
             #  0000: 00 00 80 00 66 72 65 65 47 50 53 20 4c 00 00 00 [....freeGPS L...]
             #  0010: 49 51 53 5f 41 37 5f 32 30 31 35 30 34 31 37 00 [IQS_A7_20150417.]
@@ -2219,12 +2219,26 @@ ATCRec: for ($recPos = 0x30; $recPos + 52 < $dirLen; $recPos += 52) {
             $spd = Get32s($dataPt, 0x54) / 100 * $mpsToKph;
             $alt = GetFloat($dataPt, 0x58) / 1000; # (NC)
         } else {
-            $debug and $et->FoundTag(GPSType => 17);
             $lat = GetFloat($dataPt, 0x4c);
             $lon = GetFloat($dataPt, 0x50);
             $spd = GetFloat($dataPt, 0x54) * $knotsToKph;
-            $trk = GetFloat($dataPt, 0x58);
-            # ($trk is not confirmed; may be GPSImageDirection, ref PH)
+            $trk = GetFloat($dataPt, 0x58); # (NC, may be GPSImageDirection)
+            # Rexing V1-4k dashcam scales the lat/lon
+            # (recognize this dashcam by the KodakVersion, "3.01.054" for my sample)
+            #  0000: 00 00 80 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 [................]
+            #  0020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 [................]
+            #  0030: 0e 00 00 00 22 00 00 00 28 00 00 00 14 00 00 00 [...."...(.......]
+            #  0040: 02 00 00 00 16 00 00 00 41 4e 57 00 e9 7e 90 43 [........ANW..~.C]
+            #  0050: 48 76 17 45 0c 02 48 42 14 6e 85 43 00 00 00 00 [Hv.E..HB.n.C....]
+            if ($$et{KodakVersion} and $$et{KodakVersion} eq '3.01.054') {
+                $debug and $et->FoundTag(GPSType => '17b');
+                $lat = ($lat - 187.982162849635) / 3;
+                $lon = ($lon - 2199.19873715495) / 2;
+                $ddd = 1;
+            } else {
+                $debug and $et->FoundTag(GPSType => 17);
+            }
         }
         if ($dirLen >= 0xb0) {
             # lat/lon also stored as doubles by Transcend Driver Pro 230 (ref PH)