"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/Image/ExifTool/QuickTime.pm" between
Image-ExifTool-12.05.tar.gz and Image-ExifTool-12.06.tar.gz

About: ExifTool is a platform-independent Perl library plus a command-line application for reading, writing and editing meta information in a wide variety of files.

QuickTime.pm  (Image-ExifTool-12.05):QuickTime.pm  (Image-ExifTool-12.06)
skipping to change at line 1333 skipping to change at line 1333
Format => 'int16u', Format => 'int16u',
Priority => 0, Priority => 0,
ValueConv => '$val / 256', ValueConv => '$val / 256',
PrintConv => 'sprintf("%.2f%%", $val * 100)', PrintConv => 'sprintf("%.2f%%", $val * 100)',
}, },
10 => { 10 => {
Name => 'MatrixStructure', Name => 'MatrixStructure',
Format => 'fixed32s[9]', Format => 'fixed32s[9]',
Notes => 'writable for the video track via the Composite Rotation tag', Notes => 'writable for the video track via the Composite Rotation tag',
Writable => 1, Writable => 1,
Protected => 1,
Permanent => 1, Permanent => 1,
# only set rotation if image size is non-zero # only set rotation if image size is non-zero
RawConvInv => \&GetMatrixStructure, RawConvInv => \&GetMatrixStructure,
# (the right column is fixed 2.30 instead of 16.16) # (the right column is fixed 2.30 instead of 16.16)
ValueConv => q{ ValueConv => q{
my @a = split ' ',$val; my @a = split ' ',$val;
$_ /= 0x4000 foreach @a[2,5,8]; $_ /= 0x4000 foreach @a[2,5,8];
return "@a"; return "@a";
}, },
ValueConvInv => q{ ValueConvInv => q{
skipping to change at line 2618 skipping to change at line 2619
Start => 4, Start => 4,
}, },
},{ },{
Name => 'ColorRepresentation', Name => 'ColorRepresentation',
ValueConv => 'join(" ", substr($val,0,4), unpack("x4n*",$val))', ValueConv => 'join(" ", substr($val,0,4), unpack("x4n*",$val))',
}], }],
irot => { irot => {
Name => 'Rotation', Name => 'Rotation',
Format => 'int8u', Format => 'int8u',
Writable => 'int8u', Writable => 'int8u',
Protected => 1,
ValueConv => '$val * 90', ValueConv => '$val * 90',
ValueConvInv => 'int($val / 90 + 0.5)', ValueConvInv => 'int($val / 90 + 0.5)',
}, },
ispe => { ispe => {
Name => 'ImageSpatialExtent', Name => 'ImageSpatialExtent',
Condition => '$$valPt =~ /^\0{4}/', # (version/flags == 0/0) Condition => '$$valPt =~ /^\0{4}/', # (version/flags == 0/0)
RawConv => q{ RawConv => q{
my @dim = unpack("x4N*", $val); my @dim = unpack("x4N*", $val);
return undef if @dim < 2; return undef if @dim < 2;
unless ($$self{DOC_NUM}) { unless ($$self{DOC_NUM}) {
skipping to change at line 2649 skipping to change at line 2651
}, },
auxC => { auxC => {
Name => 'AuxiliaryImageType', Name => 'AuxiliaryImageType',
Format => 'undef', Format => 'undef',
RawConv => '$val = substr($val, 4); $val =~ s/\0.*//s; $val', RawConv => '$val = substr($val, 4); $val =~ s/\0.*//s; $val',
}, },
pasp => { pasp => {
Name => 'PixelAspectRatio', Name => 'PixelAspectRatio',
Format => 'int32u', Format => 'int32u',
Writable => 'int32u', Writable => 'int32u',
Protected => 1,
}, },
rloc => { rloc => {
Name => 'RelativeLocation', Name => 'RelativeLocation',
Format => 'int32u', Format => 'int32u',
RawConv => '$val =~ s/^\S+\s+//; $val', # remove version/flags RawConv => '$val =~ s/^\S+\s+//; $val', # remove version/flags
}, },
clap => { clap => {
Name => 'CleanAperture', Name => 'CleanAperture',
Format => 'rational64s', Format => 'rational64s',
Notes => '4 numbers: width, height, left and top', Notes => '4 numbers: width, height, left and top',
skipping to change at line 7695 skipping to change at line 7698
Rotation => { Rotation => {
Notes => q{ Notes => q{
writing this tag updates QuickTime MatrixStructure for all tracks wi th a writing this tag updates QuickTime MatrixStructure for all tracks wi th a
non-zero image size non-zero image size
}, },
Require => { Require => {
0 => 'QuickTime:MatrixStructure', 0 => 'QuickTime:MatrixStructure',
1 => 'QuickTime:HandlerType', 1 => 'QuickTime:HandlerType',
}, },
Writable => 1, Writable => 1,
Protected => 1,
WriteAlso => { WriteAlso => {
MatrixStructure => 'Image::ExifTool::QuickTime::GetRotationMatrix($v al)', MatrixStructure => 'Image::ExifTool::QuickTime::GetRotationMatrix($v al)',
}, },
ValueConv => 'Image::ExifTool::QuickTime::CalcRotation($self)', ValueConv => 'Image::ExifTool::QuickTime::CalcRotation($self)',
ValueConvInv => '$val', ValueConvInv => '$val',
}, },
AvgBitrate => { AvgBitrate => {
Priority => 0, # let QuickTime::AvgBitrate take priority Priority => 0, # let QuickTime::AvgBitrate take priority
Require => { Require => {
0 => 'QuickTime::MediaDataSize', 0 => 'QuickTime::MediaDataSize',
 End of changes. 4 change blocks. 
0 lines changed or deleted 4 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)