exiftool_vendored 10.65.0 → 11.41.0

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

@@ -219,7 +219,7 @@ resource files.
 
 =head1 AUTHOR
 
-Copyright 2003-2017, Phil Harvey (phil at owl.phy.queensu.ca)
+Copyright 2003-2019, Phil Harvey (phil at owl.phy.queensu.ca)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -15,7 +15,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.02';
+$VERSION = '1.03';
 
 sub ProcessUserProps($$$);
 
@@ -154,9 +154,11 @@ sub UnescapeRTF($$$)
         return $val;
     }
     # CR/LF is signficant if it terminates a control sequence (so change these to a space)
-    $val =~ s/(^|[^\\])((?:\\\\)*)(\\[a-zA-Z]+(?:-?\d+)?)[\n\r]/$1$2$3 /g;
+    # (was $val =~ s/(^|[^\\])((?:\\\\)*)(\\[a-zA-Z]+(?:-?\d+)?)[\n\r]/$1$2$3 /g;)
+    $val =~ s/\\(?:([a-zA-Z]+(?:-?\d+)?)[\n\r]|(.))/'\\'.($1 ? "$1 " : $2)/sge;
     # protect the newline control sequence by converting to a \par command
-    $val =~ s/(^|[^\\])((?:\\\\)*)(\\[\n\r])/$1$2\\par /g;
+    # (was $val =~ s/(^|[^\\])((?:\\\\)*)(\\[\n\r])/$1$2\\par /g;)
+    $val =~ s/(\\[\n\r])|(\\.)/$2 || '\\par '/sge;
     # all other CR/LF's are ignored (so delete them)
     $val =~ tr/\n\r//d;
 
@@ -359,7 +361,7 @@ information from RTF (Rich Text Format) documents.
 
 =head1 AUTHOR
 
-Copyright 2003-2017, Phil Harvey (phil at owl.phy.queensu.ca)
+Copyright 2003-2019, Phil Harvey (phil at owl.phy.queensu.ca)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -120,7 +120,7 @@ images are a type of high dynamic-range image.
 
 =head1 AUTHOR
 
-Copyright 2003-2017, Phil Harvey (phil at owl.phy.queensu.ca)
+Copyright 2003-2019, Phil Harvey (phil at owl.phy.queensu.ca)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -14,7 +14,7 @@ use strict;
 use vars qw($VERSION);
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.04';
+$VERSION = '1.05';
 
 # currently support this version Rawzor images
 my $implementedRawzorVersion = 199; # (up to version 1.99)
@@ -104,6 +104,7 @@ sub ProcessRWZ($$)
     }
     my $metaSize = Get32u(\$buff, 36);
     if ($metaSize) {
+        $$et{DontValidateImageData} = 1;
         # validate the metadata header and read the compressed metadata
         my $end0 = Get64u(\$buff, 0);
         my $pos1 = Get64u(\$buff, 8);
@@ -167,7 +168,7 @@ information from Rawzor compressed images.
 
 =head1 AUTHOR
 
-Copyright 2003-2017, Phil Harvey (phil at owl.phy.queensu.ca)
+Copyright 2003-2019, Phil Harvey (phil at owl.phy.queensu.ca)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -715,7 +715,7 @@ little-endian, but the Real format is big-endian.
 
 =head1 AUTHOR
 
-Copyright 2003-2017, Phil Harvey (phil at owl.phy.queensu.ca)
+Copyright 2003-2019, Phil Harvey (phil at owl.phy.queensu.ca)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -6,6 +6,8 @@
 # Revisions:    2011-01-11 - P. Harvey Created
 #
 # References:   1) RCNX_MN10.pdf (courtesy of Reconyx Inc.)
+#               2) ultrafire_makernote.pdf (courtesy of Reconyx Inc.)
+#               3) Reconyx private communication
 #------------------------------------------------------------------------------
 
 package Image::ExifTool::Reconyx;
@@ -13,7 +15,17 @@ package Image::ExifTool::Reconyx;
 use strict;
 use vars qw($VERSION);
 
-$VERSION = '1.04';
+$VERSION = '1.06';
+
+# info for Type2 version tags
+my %versionInfo = (
+    Format => 'undef[7]',
+    ValueConv => 'sprintf("V%.2x.%.2x %.4x:%.2x:%.2x Rev.%s", unpack("CCvCCa", $val))',
+    ValueConvInv => q{
+        my @v = $val =~ /^V([0-9a-f]+)\.([0-9a-f]+) (\d{4}):(\d{2}):(\d{2})\s*Rev\.(\w)/i or return undef;
+        pack('CCvCCa', map(hex, @v[0..4]), $v[5]);
+    },
+);
 
 # maker notes for Reconyx Hyperfire cameras (ref PH)
 %Image::ExifTool::Reconyx::Main = (
@@ -140,10 +152,7 @@ $VERSION = '1.04';
     0x27 => 'Saturation', #1
     0x28 => {
         Name => 'InfraredIlluminator',
-        PrintConv => {
-            0 => 'Off',
-            1 => 'On',
-        },
+        PrintConv => { 0 => 'Off', 1 => 'On' },
     },
     0x29 => 'MotionSensitivity', #1
     0x2a => { #1
@@ -159,6 +168,251 @@ $VERSION = '1.04';
     },
 );
 
+# maker notes for Reconyx UltraFire cameras (ref PH)
+%Image::ExifTool::Reconyx::Type2 = (
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    WRITE_PROC => \&Image::ExifTool::WriteBinaryData,
+    CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
+    TAG_PREFIX => 'Reconyx',
+    WRITABLE => 1,
+    FIRST_ENTRY => 0,
+    NOTES => 'Tags extracted from models such as the UltraFire.',
+  # 0x0a - int32u makernote ID 0x00020000 #2
+  # 0x0e - int16u makernote size #2
+  # 0x12 - int32u public structure ID 0x07f100001 #2
+  # 0x16 - int16u public structure size #2 (0x5d = start of public ID to end of UserLabel)
+    0x18 => { Name => 'FirmwareVersion',   %versionInfo },
+    0x1f => { Name => 'Micro1Version',     %versionInfo }, #2
+    0x26 => { Name => 'BootLoaderVersion', %versionInfo }, #2
+    0x2d => { Name => 'Micro2Version',     %versionInfo }, #2
+    0x34 => {
+        Name => 'TriggerMode',
+        Format => 'undef[1]',
+        PrintConv => {
+            M => 'Motion Detection',
+            T => 'Time Lapse',
+            P => 'Point and Shoot', #2
+        },
+    },
+    0x35 => {
+        Name => 'Sequence',
+        Format => 'int8u[2]',
+        PrintConv => '$val =~ s/ / of /; $val',
+        PrintConvInv => 'join(" ", $val=~/\d+/g)',
+    },
+    0x37 => { #2
+        Name => 'EventNumber',
+        Format => 'int32u',
+    },
+    0x3b => {
+        Name => 'DateTimeOriginal',
+        Description => 'Date/Time Original',
+        Format => 'int8u[7]',
+        Groups => { 2 => 'Time' },
+        Priority => 0, # (not as reliable as EXIF)
+        Shift => 'Time',
+        ValueConv => q{
+            my @a = split ' ', $val;
+            $a[5] += pop(@a) * 256;
+            sprintf('%.4d:%.2d:%.2d %.2d:%.2d:%.2d', reverse @a);
+        },
+        ValueConvInv => q{
+            my @a = ($val =~ /\d+/g);
+            return undef unless @a >= 6;
+            unshift @a, ($a[0] >> 8);
+            $a[1] -= $a[0] * 256;
+            join ' ', @a[6,5,4,3,2,1,0];
+        },
+        PrintConv => '$self->ConvertDateTime($val)',
+        PrintConvInv => '$self->InverseDateTime($val)',
+    },
+    0x42 => { #2
+        Name => 'DayOfWeek',
+        Groups => { 2 => 'Time' },
+        PrintConv => {
+            0 => 'Sunday',
+            1 => 'Monday',
+            2 => 'Tuesday',
+            3 => 'Wednesday',
+            4 => 'Thursday',
+            5 => 'Friday',
+            6 => 'Saturday',
+        },
+    },
+    0x43 => {
+        Name => 'MoonPhase',
+        Groups => { 2 => 'Time' },
+        PrintConv => {
+            0 => 'New',
+            1 => 'New Crescent',
+            2 => 'First Quarter',
+            3 => 'Waxing Gibbous',
+            4 => 'Full',
+            5 => 'Waning Gibbous',
+            6 => 'Last Quarter',
+            7 => 'Old Crescent',
+        },
+    },
+    0x44 => {
+        Name => 'AmbientTemperatureFahrenheit',
+        Format => 'int16s',
+        PrintConv => '"$val F"',
+        PrintConvInv => '$val=~/(-?\d+)/ ? $1 : $val',
+    },
+    0x46 => {
+        Name => 'AmbientTemperature',
+        Format => 'int16s',
+        PrintConv => '"$val C"',
+        PrintConvInv => '$val=~/(-?\d+)/ ? $1 : $val',
+    },
+    0x48 => {
+        Name => 'Illumination',
+        PrintConv => { 0 => 'Off', 1 => 'On' },
+    },
+    0x49 => {
+        Name => 'BatteryVoltage',
+        Format => 'int16u',
+        ValueConv => '$val / 1000',
+        ValueConvInv => '$val * 1000',
+        PrintConv => '"$val V"',
+        PrintConvInv => '$val=~s/ ?V$//; $val',
+    },
+    0x4b => {
+        Name => 'SerialNumber',
+        Format => 'string[15]',
+    },
+    0x5a => {
+        Name => 'UserLabel',
+        Format => 'string[21]',
+    },
+);
+
+# maker notes for Reconyx HF2 PRO cameras (ref 3)
+%Image::ExifTool::Reconyx::Type3 = (
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    WRITE_PROC => \&Image::ExifTool::WriteBinaryData,
+    CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
+    TAG_PREFIX => 'Reconyx',
+    WRITABLE => 1,
+    FIRST_ENTRY => 0,
+    NOTES => 'Tags extracted from models such as the HF2 PRO.',
+  # 0x0a => { Name => 'StructureVersion',   Format => 'int16u' },
+  # 0x0c => { Name => 'ParentFileSize',     Format => 'int32u' },
+    0x10 => { Name => 'FileNumber',         Format => 'int16u' },
+    0x12 => { Name => 'DirectoryNumber',    Format => 'int16u' },
+  # 0x14 => { Name => 'DirCreateDate',      Format => 'int16u' },
+  # 0x16 => { Name => 'DirCreateTime',      Format => 'int16u' },
+  # 0x18 - int16[8] SDCardLabel
+  # 0x28 => { Name => 'MakerNoteVersion',   Format => 'int16u' },
+    0x2a => {
+        Name => 'FirmwareVersion',
+        Format => 'int16u[3]',
+        ValueConv => 'my @a = split " ",$val; sprintf("%d.%d%c",@a)',
+        ValueConvInv => '$val=~/(\d+)\.(\d+)([a-zA-Z])/ ? "$1 $2 ".ord($3) : undef',
+    },
+    0x30 => {
+        Name => 'FirmwareDate',
+        Format => 'int16u[2]',
+        ValueConv => 'my ($y,$d) = split " ", $val; sprintf("%.4x:%.2x:%.2x",$y,$d>>8,$d&0xff)',
+        ValueConvInv => 'my @a=split ":", $val; hex($a[0])." ".hex($a[1].$a[2])',
+    },
+    0x34 => {
+        Name => 'TriggerMode', #PH (NC) (called EventType in the Reconyx code)
+        Format => 'string[2]',
+        PrintConv => {
+            M => 'Motion Detection', # (seen this one only)
+            T => 'Time Lapse', # (NC)
+            P => 'Point and Shoot', # (NC)
+        },
+    },
+    0x36 => {
+        Name => 'Sequence',
+        Format => 'int16u[2]',
+        PrintConv => '$val =~ s/ / of /; $val',
+        PrintConvInv => 'join(" ", $val=~/\d+/g)',
+    },
+    0x3a => {
+        Name => 'EventNumber',
+        Format => 'int16u[2]',
+        ValueConv => 'my @a=split " ",$val;($a[0]<<16)+$a[1]',
+        ValueConvInv => '($val >> 16) . " " . ($val & 0xffff)',
+    },
+    0x3e => {
+        Name => 'DateTimeOriginal',
+        Description => 'Date/Time Original',
+        Format => 'int16u[6]',
+        Groups => { 2 => 'Time' },
+        Priority => 0, # (not as reliable as EXIF)
+        Shift => 'Time',
+        ValueConv => q{
+            my @a = split ' ', $val;
+            sprintf('%.4d:%.2d:%.2d %.2d:%.2d:%.2d', reverse @a);
+        },
+        ValueConvInv => q{
+            my @a = ($val =~ /\d+/g);
+            return undef unless @a >= 6;
+            join ' ', @a[6,5,4,3,2,1,0];
+        },
+        PrintConv => '$self->ConvertDateTime($val)',
+        PrintConvInv => '$self->InverseDateTime($val)',
+    },
+    0x4a => { #2
+        Name => 'DayOfWeek',
+        Groups => { 2 => 'Time' },
+        Format => 'int16u',
+        PrintConv => {
+            0 => 'Sunday',
+            1 => 'Monday',
+            2 => 'Tuesday',
+            3 => 'Wednesday',
+            4 => 'Thursday',
+            5 => 'Friday',
+            6 => 'Saturday',
+        },
+    },
+    0x4c => {
+        Name => 'MoonPhase',
+        Groups => { 2 => 'Time' },
+        Format => 'int16u',
+        PrintConv => {
+            0 => 'New',
+            1 => 'New Crescent',
+            2 => 'First Quarter',
+            3 => 'Waxing Gibbous',
+            4 => 'Full',
+            5 => 'Waning Gibbous',
+            6 => 'Last Quarter',
+            7 => 'Old Crescent',
+        },
+    },
+    0x4e => {
+        Name => 'AmbientTemperatureFahrenheit',
+        Format => 'int16s',
+        PrintConv => '"$val F"',
+        PrintConvInv => '$val=~/(-?\d+)/ ? $1 : $val',
+    },
+    0x50 => {
+        Name => 'AmbientTemperature',
+        Format => 'int16s',
+        PrintConv => '"$val C"',
+        PrintConvInv => '$val=~/(-?\d+)/ ? $1 : $val',
+    },
+    0x52 => { Name => 'Contrast',           Format => 'int16u' },
+    0x54 => { Name => 'Brightness',         Format => 'int16u' },
+    0x56 => { Name => 'Sharpness',          Format => 'int16u' },
+    0x58 => { Name => 'Saturation',         Format => 'int16u' },
+    0x5a => { Name => 'Flash',              Format => 'int16u', PrintConv => { 0 => 'Off', 1 => 'On' } },
+    0x5c => { Name => 'AmbientInfrared',    Format => 'int16u' },
+    0x5e => { Name => 'AmbientLight',       Format => 'int16u' },
+    0x60 => { Name => 'MotionSensitivity',  Format => 'int16u' },
+    0x62 => { Name => 'BatteryVoltage',     Format => 'int16u' },
+    0x64 => { Name => 'BatteryVoltageAvg',  Format => 'int16u' },
+    0x66 => { Name => 'BatteryType',        Format => 'int16u' },
+    0x68 => { Name => 'UserLabel',          Format => 'string[22]' },
+    0x7e => { Name => 'SerialNumber',       Format => 'unicode[15]' },
+);
 
 __END__
 
@@ -173,11 +427,11 @@ This module is loaded automatically by Image::ExifTool when required.
 =head1 DESCRIPTION
 
 This module contains definitions required by Image::ExifTool to interpret
-maker notes in Reconyx cameras.
+maker notes in images from Reconyx cameras.
 
 =head1 AUTHOR
 
-Copyright 2003-2017, Phil Harvey (phil at owl.phy.queensu.ca)
+Copyright 2003-2019, Phil Harvey (phil at owl.phy.queensu.ca)
 
 This library is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

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

@@ -0,0 +1,325 @@
+#------------------------------------------------------------------------------
+# File:         Red.pm
+#
+# Description:  Read Redcode R3D video files
+#
+# Revisions:    2018-01-25 - P. Harvey Created
+#
+# References:   1) http://www.wikiwand.com/en/REDCODE
+#------------------------------------------------------------------------------
+
+package Image::ExifTool::Red;
+
+use strict;
+use vars qw($VERSION);
+use Image::ExifTool qw(:DataAccess :Utils);
+
+$VERSION = '1.01';
+
+sub ProcessR3D($$);
+
+# RED format codes (ref PH)
+my %redFormat = (
+    0 => 'int8u',
+    1 => 'string',
+    2 => 'float',
+    3 => 'int8u',   # (how is this different than 0?)
+    4 => 'int16u',
+    5 => 'int8s',   # (not sure about this)
+    6 => 'int32s',
+    7 => 'undef',   # (mixed-format structure?)
+    8 => 'int32u',  # (NC)
+    9 => 'undef',   # ? (seen 256 bytes, all zero)
+);
+
+# error strings
+my $errTrunc = 'Truncated R3D file';
+
+# RED directory tags (ref PH)
+%Image::ExifTool::Red::Main = (
+    GROUPS => { 2 => 'Camera' },
+    NOTES => 'Tags extracted from Redcode R3D video files.',
+    VARS => { ALPHA_FIRST => 1 },
+
+    RED1 => { Name => 'Red1Header', SubDirectory => { TagTable => 'Image::ExifTool::Red::RED1' } },
+    RED2 => { Name => 'Red2Header', SubDirectory => { TagTable => 'Image::ExifTool::Red::RED2' } },
+
+    # (upper 4 bits of tag ID are the format code)
+    # ---- format 1 ----
+    0x1000 => 'StartEdgeCode', #1
+    0x1001 => { Name => 'StartTimecode', Groups => { 2 => 'Time' } }, #1
+    0x1002 => { #1
+        Name => 'OtherDate1',
+        Groups => { 2 => 'Time' },
+        # format is "YYYY_MM_DD[_TZ?]"
+        ValueConv => '$val =~ s/(\d{4})_(\d{2})_/$1:$2:/; $val =~ tr/_/ /; $val',
+    },
+    0x1003 => { #1
+        Name => 'OtherDate2',
+        Groups => { 2 => 'Time' },
+        ValueConv => '$val =~ s/(\d{4})_(\d{2})_/$1:$2:/; $val =~ tr/_/ /; $val',
+    },
+    0x1004 => { #1
+        Name => 'OtherDate3',
+        Groups => { 2 => 'Time' },
+        ValueConv => '$val =~ s/(\d{4})_(\d{2})_/$1:$2:/; $val =~ tr/_/ /; $val',
+    },
+    0x1005 => { #1
+        Name => 'DateTimeOriginal',
+        Description => 'Date/Time Original',
+        Groups => { 2 => 'Time' },
+        ValueConv => '$val =~ s/(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})/$1:$2:$3 $4:$5:/; $val',
+        PrintConv => '$self->ConvertDateTime($val)',
+    },
+    0x1006 => 'SerialNumber', #1
+    0x1019 => 'CameraType', #1
+    0x101a => { Name => 'ReelNumber', Groups => { 2 => 'Video' } }, #1
+    0x101b => { Name => 'Take', Groups => { 2 => 'Video' } },
+    0x1023 => { #1
+        Name => 'DateCreated',
+        Groups => { 2 => 'Time' },
+        ValueConv => '$val =~ s/(\d{4})(\d{2})/$1:$2:/; $val',
+    },
+    0x1024 => { #1
+        Name => 'TimeCreated',
+        Groups => { 2 => 'Time' },
+        ValueConv => '$val =~ s/(\d{2})(\d{2})/$1:$2:/; $val',
+    },
+    0x1025 => 'FirmwareVersion', #1
+    0x1029 => { Name => 'ReelTimecode', Groups => { 2 => 'Time' } }, #1
+    0x102a => 'StorageType', #1
+    0x1030 => { #1
+        Name => 'StorageFormatDate',
+        Groups => { 2 => 'Time' },
+        ValueConv => '$val =~ s/(\d{4})(\d{2})/$1:$2:/; $val',
+    },
+    0x1031 => { #1
+        Name => 'StorageFormatTime',
+        Groups => { 2 => 'Time' },
+        ValueConv => '$val =~ s/(\d{2})(\d{2})/$1:$2:/; $val',
+    },
+    0x1032 => 'StorageSerialNumber', #1
+    0x1033 => 'StorageModel', #1
+    0x1036 => 'AspectRatio', #1
+  # 0x1041 - seen 'NA'
+    0x1042 => 'Revision', # ? (seen "TODO, rev EPIC-1.0" and "MYSTERIUM X, rev EPIC-1.0")
+  # 0x1051 - seen 'C', 'L'
+    0x1056 => 'OriginalFileName',
+    0x106e => 'LensMake',
+    0x106f => 'LensNumber', # (last 2 hex digits are LensType)
+    0x1070 => 'LensModel',
+    0x1071 => {
+        Name => 'Model',
+        Description => 'Camera Model Name',
+    },
+    0x107c => { Name => 'CameraOperator', Groups => { 2 => 'Author' } },
+    0x1086 => {
+        Name => 'VideoFormat',
+        Groups => { 2 => 'Video' },
+    },
+    0x1096 => 'Filter', # optical low-pass filter
+    0x10a0 => 'Brain',
+    0x10a1 => 'Sensor',
+    # ---- format 2 ----
+    0x200d => 'ColorTemperature',
+  # 0x200e - (sometimes this is frame rate)
+  # 0x2015 - seen '1 1 1' (RGBGain or RGBGamma?)
+    0x204b => 'RGBCurves', # (blackx/y,toex/y,midx/y,kneex/y,whitex/y)
+    0x2066 => {
+        Name => 'OriginalFrameRate',
+        Groups => { 2 => 'Video' },
+        PrintConv => 'int($val * 1000 + 0.5) / 1000',
+    },
+    # ---- format 4 ----
+    0x4037 => { Name => 'CropArea' }, # (NC)
+    0x403b => 'ISO',
+  # 0x404e - related to CropArea (or "0 0 0 0")
+    0x406a => { Name => 'FNumber', ValueConv => '$val / 10' },
+    0x406b => 'FocalLength',
+  # 0x4084 - related to ISO?
+  # 0x4087 - related to ISO?
+    # ---- format 6 ----
+    0x606c => { Name => 'FocusDistance', ValueConv => '$val/1000', PrintConv => '"$val m"' },
+);
+
+# RED1 file header (ref PH)
+%Image::ExifTool::Red::RED1 = (
+    GROUPS => { 2 => 'Video' },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    NOTES => 'Redcode version 1 header.',
+  # 0x00 - int32u: length of header
+  # 0x04 - string: "RED1"
+  # 0x0a - string: "R1"
+    0x07 => { Name => 'RedcodeVersion',   Format => 'string[1]' }, #1
+  # 0x0e - looks funny; my sample has a value of 43392 here
+  # 0x0e => { Name => 'AudioSampleRate',  Format => 'int16u' }, #1
+    0x36 => { Name => 'ImageWidth',       Format => 'int16u' }, #1
+    0x3a => { Name => 'ImageHeight',      Format => 'int16u' }, #PH (ref 1 gave 0x3c)
+    0x3e => { #PH (ref 1 gave 0x42 for denom)
+        Name => 'FrameRate',
+        Format => 'rational32u',
+        PrintConv => 'int($val * 1000 + 0.5) / 1000',
+    },
+    0x43 => { Name => 'OriginalFileName', Format => 'string[32]' }, #1
+);
+
+# RED2 file header (ref PH)
+%Image::ExifTool::Red::RED2 = (
+    GROUPS => { 2 => 'Video' },
+    PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
+    NOTES => 'Redcode version 2 header.',
+  # 0x00 - int32u: length of header
+  # 0x04 - string: "RED2"
+    0x07 => { Name => 'RedcodeVersion', Format => 'string[1]' },
+  # 0x08 - seen 0x05
+  # 0x09 - seen 0x0d,0x0f,0x10
+  # 0x0a - string: "R2"
+  # 0x0c - seen 0x04,0x05,0x07,0x08,0x0b,0x0c
+  # 0x0d - seen 0x01,0x08 (and 0x09 in block 1)
+  # 0x0e - int16u: seen 3072
+  # 0x10 - looks like some sort of 32-byte hash or something (same in other blocks)
+  # 0x30-0x3f - mostly 0x00's with a couple of 0x01's
+  # 0x40 - int8u: count of 0x18-byte "rdi" records
+  # 0x41-0x43 - seen "\0\0\x01"
+    # ---- rdi record: (0x18 bytes long) ----
+  # 0x44 - string: "rdi#" (where number is index of "rdi" record, starting at \x01)
+    0x4c => { Name => 'ImageWidth',     Format => 'int32u' },
+    0x50 => { Name => 'ImageHeight',    Format => 'int32u' },
+  # 0x54 - seen 0x11,0x13,0x15 (and 0x03 in "rdi\x02" record)
+  # 0x55 - seen 0x02
+    0x56 => {
+        Name => 'FrameRate',
+        Format => 'int16u[3]',
+        ValueConv => 'my @a = split " ",$val; ($a[1] * 0x10000 + $a[2]) / $a[0]',
+        PrintConv => 'int($val * 1000 + 0.5) / 1000',
+    },
+    # (immediately following last "rdi" record is a
+    #  Red directory beginning with int16u size)
+);
+
+#------------------------------------------------------------------------------
+# Process metadata from a Redcode R3D video (ref PH)
+# Inputs: 0) ExifTool object reference, 1) dirInfo reference
+# Returns: 1 on success, 0 if this wasn't a valid R3D file
+sub ProcessR3D($$)
+{
+    my ($et, $dirInfo) = @_;
+    my $raf = $$dirInfo{RAF};
+    my ($buff, $buf2, $pos, $dirLen, $dirEnd);
+    my $verbose = $et->Options('Verbose');
+
+    # R3D file structure:
+    # - each block starts with int32u block size followed by 4-byte block type
+    # - first block type is either "RED1" (version 1) or "RED2" (version 2)
+    # - blocks begin on even 0x1000 byte boundaries for version 2 files
+
+    # validate the file header
+    return 0 unless $raf->Read($buff, 8) == 8 and $buff =~ /^\0\0..RED(1|2)/s;
+    my $ver = $1;
+    my $size = unpack('N', $buff);
+    return 0 if $size < 8;
+
+    $et->SetFileType();
+    SetByteOrder('MM');
+    my $tagTablePtr = GetTagTable('Image::ExifTool::Red::Main');
+    my $dataPos = 0;
+
+    # read the first block of the file
+    $raf->Read($buf2, $size - 8) == $size - 8 or return $et->Warn($errTrunc);
+    $buff .= $buf2;
+
+    # extract tags from the header
+    $et->HandleTag($tagTablePtr, "RED$ver", undef, DataPt => \$buff);
+
+    # read the second block from a version 1 file because
+    # the first block doesn't contain a Red directory
+    if ($ver eq '1') {
+        # (read more than we need)
+        $raf->Read($buff, 0x10000) or return $et->Warn($errTrunc);
+        $dataPos += $size;
+        $pos = 0x22;    # directory starts at offset 0x22
+    } else {
+        # calculate position of Red directory start
+        length($buff) < 0x41 and return $et->Warn($errTrunc);
+        my $n = Get8u(\$buff, 0x40);    # number of "rdi" records
+        $pos = 0x44 + $n * 0x18;
+    }
+    if ($pos + 8 > length $buff) {
+        $dirLen = 0;    # find directory the hard way
+    } else {
+        $dirLen = Get16u(\$buff, $pos);  # get length of Red directory
+        $pos += 2;      # skip length word
+    }
+    # do sanity check on the directory size (in case our assumptions were wrong)
+    if ($dirLen < 300 or $dirLen >= 2048 or $pos + $dirLen > length $buff) {
+        # tag 0x1000 with length 0x000f should be near the directory start
+        $buff =~ /\0\x0f\x10\0/g or return $et->Warn("Can't find Red directory");
+        $pos = pos($buff) - 4;
+        $dirEnd = length $buff;
+        undef $dirLen;
+        $et->Warn('This R3D file is different. Please submit a sample for testing');
+    } else {
+        $dirEnd = $pos + $dirLen;
+    }
+    $$et{INDENT} .= '| ', $et->VerboseDir('Red', undef, $dirLen) if $verbose;
+
+    # process the first Red directory
+    while ($pos + 4 <= $dirEnd) {
+        my $len = Get16u(\$buff, $pos);
+        last if $len < 4 or $pos + $len > $dirEnd;
+        my $tag = Get16u(\$buff, $pos + 2);
+        my $fmt = $redFormat{$tag >> 12};   # format is top 4 bits of tag ID (ref PH)
+        $fmt or $dirLen && $et->Warn('Unknown format code'), last;
+        $et->HandleTag($tagTablePtr, $tag, undef,
+            DataPt  => \$buff,
+            DataPos => $dataPos,
+            Start   => $pos + 4,
+            Size    => $len - 4,
+            Format  => $fmt,
+        );
+        $pos += $len;
+    }
+    $$et{INDENT} = substr($$et{INDENT}, 0, -2) if $verbose;
+
+    return 1;
+}
+
+1;  # end
+
+__END__
+
+=head1 NAME
+
+Image::ExifTool::Red - Read Redcode R3D video files
+
+=head1 SYNOPSIS
+
+This module is used by Image::ExifTool
+
+=head1 DESCRIPTION
+
+This module contains routines required by Image::ExifTool to read metadata
+from Redcode R3D version 1 and 2 video files.
+
+=head1 AUTHOR
+
+Copyright 2003-2019, Phil Harvey (phil at owl.phy.queensu.ca)
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+=head1 REFERENCES
+
+=over 4
+
+=item L<http://www.wikiwand.com/en/REDCODE>
+
+=back
+
+=head1 SEE ALSO
+
+L<Image::ExifTool::TagNames/Red Tags>,
+L<Image::ExifTool(3pm)|Image::ExifTool>
+
+=cut
+