exiftool_vendored 9.59.0 → 9.60.0

data/bin/{Image-ExifTool-9.59 → Image-ExifTool-9.60}/lib/Image/ExifTool/Olympus.pm

@@ -1836,7 +1836,8 @@ my %indexInfo = (
     0x404 => { #11
         Name => 'FlashControlMode',
         Writable => 'int16u',
-        Count => 3,
+        Count => -1,
+        Notes => '3 or 4 values',
         PrintConv => [{
             0 => 'Off',
             3 => 'TTL',
@@ -1847,16 +1848,24 @@ my %indexInfo = (
     0x405 => { #11
         Name => 'FlashIntensity',
         Writable => 'rational64s',
-        Count => 3,
-        PrintConv => '$val eq "undef undef undef" ? "n/a" : $val',
-        PrintConvInv => '$val eq "n/a" ? "undef undef undef" : $val',
+        Count => -1,
+        Notes => '3 or 4 values',
+        PrintConv => {
+            OTHER => sub { shift },
+            'undef undef undef' => 'n/a',
+            'undef undef undef undef' => 'n/a (x4)',
+        },
     },
     0x406 => { #11
         Name => 'ManualFlashStrength',
         Writable => 'rational64s',
-        Count => 3,
-        PrintConv => '$val eq "undef undef undef" ? "n/a" : $val',
-        PrintConvInv => '$val eq "n/a" ? "undef undef undef" : $val',
+        Count => -1,
+        Notes => '3 or 4 values',
+        PrintConv => {
+            OTHER => sub { shift },
+            'undef undef undef' => 'n/a',
+            'undef undef undef undef' => 'n/a (x4)',
+        },
     },
     0x500 => { #6
         Name => 'WhiteBalance2',

data/bin/{Image-ExifTool-9.59 → Image-ExifTool-9.60}/lib/Image/ExifTool/Pentax.pm

@@ -55,7 +55,7 @@ use vars qw($VERSION %pentaxLensTypes);
 use Image::ExifTool::Exif;
 use Image::ExifTool::HP;
 
-$VERSION = '2.75';
+$VERSION = '2.76';
 
 sub CryptShutterCount($$);
 sub PrintFilter($$$);
@@ -291,18 +291,19 @@ sub PrintFilter($$$);
     '7 242' => 'smc PENTAX-DA* 16-50mm F2.8 ED AL [IF] SDM (SDM unused)', #19
     '7 243' => 'smc PENTAX-DA 70mm F2.4 Limited', #PH
     '7 244' => 'smc PENTAX-DA 21mm F3.2 AL Limited', #16
+    '8 0' => 'Sigma 50-150mm F2.8 II APO EX DC HSM', #forum2997
     '8 3' => 'Sigma AF 18-125mm F3.5-5.6 DC', #29
     '8 4' => 'Sigma 50mm F1.4 EX DG HSM', #Artur private communication
     '8 7' => 'Sigma 24-70mm F2.8 IF EX DG HSM', #Exiv2
     '8 8' => 'Sigma 18-250mm F3.5-6.3 DC OS HSM', #27
     '8 11' => 'Sigma 10-20mm F3.5 EX DC HSM', #27
-    '8 12' => 'Sigma 70-300mm F4-5.6 DG OS', #http://u88.n24.queensu.ca/exiftool/forum/index.php/topic,3382.0.html
+    '8 12' => 'Sigma 70-300mm F4-5.6 DG OS', #forum3382
     '8 13' => 'Sigma 120-400mm F4.5-5.6 APO DG OS HSM', #26
     '8 14' => 'Sigma 17-70mm F2.8-4.0 DC Macro OS HSM', #(Hubert Meier)
     '8 15' => 'Sigma 150-500mm F5-6.3 APO DG OS HSM', #26
     '8 16' => 'Sigma 70-200mm F2.8 EX DG Macro HSM II', #26
     '8 17' => 'Sigma 50-500mm F4.5-6.3 DG OS HSM', #(Heike Herrmann) (also APO, ref 26)
-    '8 18' => 'Sigma 8-16mm F4.5-5.6 DC HSM', #http://u88.n24.queensu.ca/exiftool/forum/index.php/topic,2998.0.html
+    '8 18' => 'Sigma 8-16mm F4.5-5.6 DC HSM', #forum2998
     '8 21' => 'Sigma 17-50mm F2.8 EX DC OS HSM', #26
     '8 22' => 'Sigma 85mm F1.4 EX DG HSM', #26
     '8 23' => 'Sigma 70-200mm F2.8 APO EX DG OS HSM', #27
@@ -326,7 +327,7 @@ sub PrintFilter($$$);
     '8 255' => 'Sigma Lens (8 255)',
     '8 255.1' => 'Sigma 70-200mm F2.8 EX DG Macro HSM II', #JD
     '8 255.2' => 'Sigma 150-500mm F5-6.3 DG APO [OS] HSM', #JD (non-OS version has same type, ref 29)
-    '8 255.3' => 'Sigma 50-150mm F2.8 II APO EX DC HSM', #http://u88.n24.queensu.ca/exiftool/forum/index.php/topic,2997.0.html
+    '8 255.3' => 'Sigma 50-150mm F2.8 II APO EX DC HSM', #forum2997
     '8 255.4' => 'Sigma 4.5mm F2.8 EX DC HSM Circular Fisheye', #PH
     '8 255.5' => 'Sigma 50-200mm F4-5.6 DC OS', #26
     '8 255.6' => 'Sigma 24-70mm F2.8 EX DG HSM', #29
@@ -483,7 +484,7 @@ my %pentaxModelID = (
     0x12f5c => 'X-5',
     0x12f66 => 'Q10',
     0x12f70 => 'K-5 II',
-    0x12f71 => 'K-5 II s', #http://u88.n24.queensu.ca/exiftool/forum/index.php/topic,4515.0.html
+    0x12f71 => 'K-5 II s', #forum4515
     0x12f7a => 'Q7',
     0x12f84 => 'MX-1',
     0x12f8e => 'WG-3 GPS',
@@ -492,6 +493,10 @@ my %pentaxModelID = (
     0x12fb6 => 'K-50',
     0x12fc0 => 'K-3', #29
     0x12fca => 'K-500',
+    0x12fe8 => 'WG-4', # (Ricoh)
+    0x12fde => 'WG-4 GPS', # (Ricoh)
+    0x13006 => 'WG-20', # (Ricoh)
+    0x13010 => '645Z',
 );
 
 # Pentax city codes - (PH, Optio WP)
@@ -985,6 +990,7 @@ my %binaryDataAttrs = (
             63 => 'Panorama 2', #PH (X-5)
             65 => 'Half-length Portrait', #JD
             66 => 'Portrait 2', #PH (LS645)
+            74 => 'Digital Microscope', #PH (WG-4)
             75 => 'Blue Sky', #PH (LS465)
             80 => 'Miniature', #PH (VS20)
             81 => 'HDR', #PH (LS465)
@@ -1104,7 +1110,7 @@ my %binaryDataAttrs = (
             0xfffd => 'Automatic Tracking AF', #JD
             0xfffc => 'Face Detect AF', #JD
             0xfffb => 'AF Select', #PH (Q select from 25-areas)
-            # AF pattern: (ref http://u88.n24.queensu.ca/exiftool/forum/index.php/topic,5422.0.html)
+            # AF pattern: (ref forum5422)
             #    01 02 03 04 05
             #    06 07 08 09 10
             # 11 12 13 14 15 16 17
@@ -1162,35 +1168,38 @@ my %binaryDataAttrs = (
         Name => 'AFPointsInFocus',
         Writable => 'int32u',
         PrintHex => 1,
-        PrintConv => { BITMASK => {
-            0 => 'Top-left',
-            1 => 'Top Near-left',
-            2 => 'Top',
-            3 => 'Top Near-right',
-            4 => 'Top-right',
-            5 => 'Upper-left',
-            6 => 'Upper Near-left',
-            7 => 'Upper-midle',
-            8 => 'Upper Near-right',
-            9 => 'Upper-right',
-            10 => 'Far Left',
-            11 => 'Left',
-            12 => 'Near-left',
-            13 => 'Center',
-            14 => 'Near-right',
-            15 => 'Right',
-            16 => 'Far Right',
-            17 => 'Lower-left',
-            18 => 'Lower Near-left',
-            19 => 'Lower-middle',
-            20 => 'Lower Near-right',
-            21 => 'Lower-right',
-            22 => 'Bottom-left',
-            23 => 'Bottom Near-left',
-            24 => 'Bottom',
-            25 => 'Bottom Near-right',
-            26 => 'Bottom-right',
-        }},
+        PrintConv => {
+            0 => '(none)',
+            BITMASK => {
+                0 => 'Top-left',
+                1 => 'Top Near-left',
+                2 => 'Top',
+                3 => 'Top Near-right',
+                4 => 'Top-right',
+                5 => 'Upper-left',
+                6 => 'Upper Near-left',
+                7 => 'Upper-midle',
+                8 => 'Upper Near-right',
+                9 => 'Upper-right',
+                10 => 'Far Left',
+                11 => 'Left',
+                12 => 'Near-left',
+                13 => 'Center',
+                14 => 'Near-right',
+                15 => 'Right',
+                16 => 'Far Right',
+                17 => 'Lower-left',
+                18 => 'Lower Near-left',
+                19 => 'Lower-middle',
+                20 => 'Lower Near-right',
+                21 => 'Lower-right',
+                22 => 'Bottom-left',
+                23 => 'Bottom Near-left',
+                24 => 'Bottom',
+                25 => 'Bottom Near-right',
+                26 => 'Bottom-right',
+            },
+        },
     }],
     0x0010 => { #PH
         Name => 'FocusPosition',
@@ -1594,6 +1603,7 @@ my %binaryDataAttrs = (
             # note: doesn't apply to digital filters applied when picture is taken
             '4 0 0 0' => 'Digital Filter 4', #PH (K10D)
             '6 0 0 0' => 'Digital Filter 6', #PH (K-5)
+            '8 0 0 0' => 'Red-eye Correction', #PH (WG-10)
             '16 0 0 0' => 'Frame Synthesis?',
         },
     },
@@ -1756,19 +1766,22 @@ my %binaryDataAttrs = (
         Notes => '*istD only',
         ValueConv => '$val & 0x7ff', # ignore other bits for now
         PrintConvColumns => 2,
-        PrintConv => { BITMASK => {
-            0 => 'Upper-left',
-            1 => 'Top',
-            2 => 'Upper-right',
-            3 => 'Left',
-            4 => 'Mid-left',
-            5 => 'Center',
-            6 => 'Mid-right',
-            7 => 'Right',
-            8 => 'Lower-left',
-            9 => 'Bottom',
-            10 => 'Lower-right',
-        } },
+        PrintConv => {
+            0 => '(none)',
+            BITMASK => {
+                0 => 'Upper-left',
+                1 => 'Top',
+                2 => 'Upper-right',
+                3 => 'Left',
+                4 => 'Mid-left',
+                5 => 'Center',
+                6 => 'Mid-right',
+                7 => 'Right',
+                8 => 'Lower-left',
+                9 => 'Bottom',
+                10 => 'Lower-right',
+            },
+        },
     },
     # 0x003d - int16u: 8192 for most images, but occasionally 11571 for K100D/K110D,
     #              and 8289 or 8456 for the K-x - PH
@@ -1906,7 +1919,7 @@ my %binaryDataAttrs = (
         Format => 'undef', # (written as int8u)
         SubDirectory => { TagTable => 'Image::ExifTool::Pentax::FaceInfo' },
     },
-    0x0062 => { # (http://u88.n24.queensu.ca/exiftool/forum/index.php/topic,4803.0.html)
+    0x0062 => { #forum4803
         Name => 'RawDevelopmentProcess',
         Condition => '$$self{Make} =~ /^(PENTAX|RICOH)/', # rules out Kodak, which also use this tag
         Writable => 'int16u',
@@ -1923,6 +1936,7 @@ my %binaryDataAttrs = (
             11 => '11 (Q10)',
             12 => '12 (MX-1)',
             13 => '13 (K-3)',
+            14 => '14 (645Z)',
         },
     },
     0x0067 => { #PH (K-5)
@@ -1957,16 +1971,14 @@ my %binaryDataAttrs = (
         Writable => 'undef',
         Format => 'int8u',
         Count => 4,
-        PrintConv => {
-            '0 0 0 0' => 'Off',
-            '0 1 0 0' => 'Off (enabled)', # (not yet observed)
-            '0 2 0 0' => 'Off (auto)', # (K-01)
-            '1 0 0 0' => 'On',
-            '1 1 0 0' => 'On (enabled)', # (K-01)
-            '1 2 0 0' => 'On (auto)', # (K-01)
-            '0 2' => 'Off 2 (auto)', # (NC, WG-3)
-            '1 2' => 'On 2 (auto)', # (NC, WG-3)
-        },
+        PrintConv => [{
+            0 => 'Off',
+            1 => 'On',
+        },{
+            0 => 0,
+            1 => 'Enabled', # (K-01)
+            2 => 'Auto', # (K-01)
+        }],
     },
     0x006b => { #PH (K-5)
         Name => 'TimeInfo',
@@ -2712,8 +2724,7 @@ my %binaryDataAttrs = (
     },
     1 => {
         Name => 'ShakeReduction',
-        # (ref http://u88.n24.queensu.ca/exiftool/forum/index.php/topic,5425.0.html)
-        PrintConv => {
+        PrintConv => { #forum5425
             0 => 'Off', # (NC for K-3)
             1 => 'On', # (NC for K-3)
             4 => 'Off (AA simulation off)',
@@ -4366,6 +4377,7 @@ my %binaryDataAttrs = (
         ValueConvInv => '$val',
         PrintConvColumns => 2,
         PrintConv => {
+            0 => '(none)',
             0x07ff => 'All',
             0x0777 => 'Central 9 points',
             BITMASK => {

data/bin/{Image-ExifTool-9.59 → Image-ExifTool-9.60}/lib/Image/ExifTool/QuickTime.pm

@@ -40,7 +40,7 @@ use vars qw($VERSION $AUTOLOAD);
 use Image::ExifTool qw(:DataAccess :Utils);
 use Image::ExifTool::Exif;
 
-$VERSION = '1.79';
+$VERSION = '1.80';
 
 sub FixWrongFormat($);
 sub ProcessMOV($$;$);
@@ -912,7 +912,7 @@ my %graphicsMode = (
     },
     "\xa9cpy" => { Name => 'Copyright',  Groups => { 2 => 'Author' } },
     "\xa9day" => {
-        Name => 'CreateDate',
+        Name => 'ContentCreateDate',
         Groups => { 2 => 'Time' },
         # handle values in the form "2010-02-12T13:27:14-0800" (written by Apple iPhone)
         ValueConv => q{
@@ -1371,7 +1371,7 @@ my %graphicsMode = (
     # ---- LG ----
     adzc => { Name => 'Unknown_adzc', Unknown => 1, Hidden => 1, %langText }, # "false\0/","true\0/"
     adze => { Name => 'Unknown_adze', Unknown => 1, Hidden => 1, %langText }, # "false\0/"
-    adzm => { Name => 'Unknown_adzm', Unknown => 1, Hidden => 1, %langText }, # "\x0e\x04/"
+    adzm => { Name => 'Unknown_adzm', Unknown => 1, Hidden => 1, %langText }, # "\x0e\x04/","\x10\x06"
     # ---- Microsoft ----
     Xtra => { #PH (microsoft)
         Name => 'MicrosoftXtra',
@@ -1832,7 +1832,18 @@ my %graphicsMode = (
     "\xa9alb" => 'Album',
     "\xa9cmt" => 'Comment',
     "\xa9com" => 'Composer',
-    "\xa9day" => { Name => 'Year', Groups => { 2 => 'Time' } },
+    "\xa9day" => {
+        Name => 'ContentCreateDate',
+        Groups => { 2 => 'Time' },
+        # handle values in the form "2010-02-12T13:27:14-0800"
+        ValueConv => q{
+            require Image::ExifTool::XMP;
+            $val =  Image::ExifTool::XMP::ConvertXMPDate($val);
+            $val =~ s/([-+]\d{2})(\d{2})$/$1:$2/; # add colon to timezone if necessary
+            return $val;
+        },
+        PrintConv => '$self->ConvertDateTime($val)',
+    },
     "\xa9des" => 'Description', #4
     "\xa9enc" => 'EncodedBy', #10
     "\xa9gen" => 'Genre',
@@ -1912,6 +1923,7 @@ my %graphicsMode = (
     geID => { #10
         Name => 'GenreID',
         Format => 'int32u',
+        SeparateTable => 1,
         PrintConv => { #21 (based on http://www.apple.com/itunes/affiliates/resources/documentation/genre-mapping.html)
             2 => 'Music|Blues',
             3 => 'Music|Comedy',
@@ -3850,14 +3862,15 @@ my %graphicsMode = (
         Name => 'Rating',
         PrintConv => {
             0 => 'none',
+            1 => 'Explicit',
             2 => 'Clean',
-            4 => 'Explicit',
+            4 => 'Explicit (old)',
         },
     },
     sfID => { #10
         Name => 'AppleStoreCountry',
         Format => 'int32u',
-        PrintConvColumns => 2,
+        SeparateTable => 1,
         PrintConv => { #21
             143441 => 'United States', # USA
             143442 => 'France', # FRA

data/bin/{Image-ExifTool-9.59 → Image-ExifTool-9.60}/lib/Image/ExifTool/RIFF.pm

@@ -18,6 +18,7 @@
 #              11) Andreas Winter (SCLive) private communication
 #              12) http://abcavi.kibi.ru/infotags.htm
 #              13) http://tech.ebu.ch/docs/tech/tech3285.pdf
+#              14) https://developers.google.com/speed/webp/docs/riff_container
 #------------------------------------------------------------------------------
 
 package Image::ExifTool::RIFF;
@@ -26,7 +27,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.37';
+$VERSION = '1.38';
 
 sub ConvertTimecode($);
 
@@ -306,10 +307,9 @@ my %riffMimeType = (
         chunk.  As well as this information, some video information and proprietary
         manufacturer-specific information is also extracted.
         
-        Large AVI videos may be a concatenation of two or more RIFF chunks.
-        For these files, information is extracted from subsequent RIFF
-        chunks as sub-documents, but the Duration is calculated for the full
-        video.
+        Large AVI videos may be a concatenation of two or more RIFF chunks.  For
+        these files, information is extracted from subsequent RIFF chunks as
+        sub-documents, but the Duration is calculated for the full video.
     },
     # (not 100% sure that the concatination technique mentioned above is valid - PH)
    'fmt ' => {
@@ -328,14 +328,6 @@ my %riffMimeType = (
         Name => 'Exif',
         SubDirectory => { TagTable => 'Image::ExifTool::RIFF::Exif' },
     },
-    EXIF => { # WEBP Exif tags
-        Name => 'EXIF',
-        Notes => 'EXIF extracted from WEBP images',
-        SubDirectory => {
-            TagTable => 'Image::ExifTool::Exif::Main',
-            ProcessProc => \&Image::ExifTool::ProcessTIFF,
-        },
-    },
     LIST_hdrl => { # AVI header LIST chunk
         Name => 'Hdrl',
         SubDirectory => { TagTable => 'Image::ExifTool::RIFF::Hdrl' },
@@ -404,6 +396,7 @@ my %riffMimeType = (
     ],
     _PMX => { #PH (Adobe CS3 Bridge)
         Name => 'XMP',
+        Notes => 'AVI and WAV files',
         SubDirectory => { TagTable => 'Image::ExifTool::XMP::Main' },
     },
     JUNQ => { #PH (Adobe CS3 Bridge)
@@ -415,11 +408,53 @@ my %riffMimeType = (
         Name => 'Olym',
         SubDirectory => { TagTable => 'Image::ExifTool::Olympus::WAV' },
     },
-    'VP8 ' => { # (WEBP images)
+#
+# WebP-specific tags
+#
+    EXIF => { # (WebP)
+        Name => 'EXIF',
+        Notes => 'WebP files',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Exif::Main',
+            ProcessProc => \&Image::ExifTool::ProcessTIFF,
+        },
+    },
+   'XMP ' => { #14 (WebP)
+        Name => 'XMP',
+        Notes => 'WebP files',
+        SubDirectory => { TagTable => 'Image::ExifTool::XMP::Main' },
+    },
+    ICCP => { #14 (WebP)
+        Name => 'ICC_Profile',
+        Notes => 'WebP files',
+        SubDirectory => { TagTable => 'Image::ExifTool::ICC_Profile::Main' },
+    },
+   'VP8 ' => { # (WebP lossy)
         Name => 'VP8Bitstream',
         Condition => '$$valPt =~ /^...\x9d\x01\x2a/s',
         SubDirectory => { TagTable => 'Image::ExifTool::RIFF::VP8' },
     },
+    VP8L => { #14 (WebP lossless)
+        Name => 'VP8L',
+        Condition => '$$valPt =~ /^\x2f/',
+        SubDirectory => { TagTable => 'Image::ExifTool::RIFF::VP8L' },
+    },
+    VP8X => { #14 (WebP extended)
+        Name => 'VP8X',
+        SubDirectory => { TagTable => 'Image::ExifTool::RIFF::VP8X' },
+    },
+    ANIM => { #14 (WebP animation)
+        Name => 'ANIM',
+        SubDirectory => { TagTable => 'Image::ExifTool::RIFF::ANIM' },
+    },
+    ANMF => { #14 (WebP animation frame)
+        Name => 'ANMF',
+        SubDirectory => { TagTable => 'Image::ExifTool::RIFF::ANMF' },
+    },
+    ALPH => { #14 (WebP alpha)
+        Name => 'ALPH',
+        SubDirectory => { TagTable => 'Image::ExifTool::RIFF::ALPH' },
+    },
 );
 
 # the maker notes used by some digital cameras
@@ -903,6 +938,11 @@ my %riffMimeType = (
 %Image::ExifTool::RIFF::VP8 = (
     PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
     GROUPS => { 2 => 'Image' },
+    NOTES => q{
+        This chunk is found in simple-format (lossy) WebP files. See
+        L<https://developers.google.com/speed/webp/docs/riff_container> for the WebP
+        container specification.
+    },
     0 => {
         Name => 'VP8Version',
         Mask => 0x0e,
@@ -938,6 +978,110 @@ my %riffMimeType = (
     },
 );
 
+# WebP lossless info (ref 14)
+%Image::ExifTool::RIFF::VP8L = (
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    NOTES => 'This chunk is found in lossless WebP files.',
+    GROUPS => { 2 => 'Image' },
+    1 => {
+        Name => 'ImageWidth',
+        Format => 'int16u',
+        ValueConv => '($val & 0x3fff) + 1',
+    },
+    2 => {
+        Name => 'ImageHeight',
+        Format => 'int32u',
+        ValueConv => '(($val >> 6) & 0x3fff) + 1',
+    },
+);
+
+# WebP extended info (ref 14)
+%Image::ExifTool::RIFF::VP8X = (
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    GROUPS => { 2 => 'Image' },
+    NOTES => 'This chunk is found in extended WebP files.',
+    # 0 - bitmask: 2=ICC, 3=alpha, 4=EXIF, 5=XMP, 6=animation
+    4 => {
+        Name => 'ImageWidth',
+        Format => 'int32u',
+        ValueConv => '($val & 0xffffff) + 1',
+    },
+    6 => {
+        Name => 'ImageHeight',
+        Format => 'int32u',
+        ValueConv => '($val >> 8) + 1',
+    },
+);
+
+# WebP animation info (ref 14)
+%Image::ExifTool::RIFF::ANIM = (
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    GROUPS => { 2 => 'Image' },
+    NOTES => 'WebP animation chunk.',
+    0 => {
+        Name => 'BackgroundColor',
+        Format => 'int8u[4]',
+    },
+    4 => {
+        Name => 'AnimationLoopCount',
+        PrintConv => '$val || "inf"',
+    },
+);
+
+# WebP animation frame info (ref 14)
+%Image::ExifTool::RIFF::ANMF = (
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    GROUPS => { 2 => 'Image' },
+    NOTES => 'WebP animation frame chunk.',
+    12 => {
+        Name => 'Duration',
+        Format => 'int32u',
+        Notes => 'extracted as the sum of durations of all animation frames',
+        RawConv => q{
+            if (defined $$self{VALUE}{Duration}) {
+                $$self{VALUE}{Duration} += $val & 0x0fff;
+                return undef;
+            }
+            return $val & 0x0fff;
+        },
+        ValueConv => '$val / 1000',
+        PrintConv => 'ConvertDuration($val)',
+    },
+);
+
+# WebP alpha info (ref 14)
+%Image::ExifTool::RIFF::ALPH = (
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    GROUPS => { 2 => 'Image' },
+    NOTES => 'WebP alpha chunk.',
+    0 => {
+        Name => 'AlphaPreprocessing',
+        Mask => 0x03,
+        PrintConv => {
+            0 => 'none',
+            1 => 'Level Reduction',
+        },
+    },
+    0.1 => {
+        Name => 'AlphaFiltering',
+        Mask => 0x03,
+        PrintConv => {
+            0 => 'none',
+            1 => 'Horizontal',
+            2 => 'Vertical',
+            3 => 'Gradient',
+        },
+    },
+    0.2 => {
+        Name => 'AlphaCompression',
+        Mask => 0x03,
+        PrintConv => {
+            0 => 'none',
+            1 => 'Lossless',
+        },
+    },
+);
+
 # RIFF composite tags
 %Image::ExifTool::RIFF::Composite = (
     Duration => {
@@ -1296,7 +1440,7 @@ This module is used by Image::ExifTool
 
 This module contains routines required by Image::ExifTool to extract
 information from RIFF-based (Resource Interchange File Format) files,
-including Windows WAV audio and AVI video files.
+including AVI videos, WAV audio files and WEBP images.
 
 =head1 AUTHOR
 
@@ -1321,6 +1465,8 @@ under the same terms as Perl itself.
 
 =item L<http://wiki.multimedia.cx/index.php?title=TwoCC>
 
+=item L<https://developers.google.com/speed/webp/docs/riff_container>
+
 =back
 
 =head1 SEE ALSO