← Back to branch summary

~berthold-daum/zora/trunk

« back to all changes in this revision

Viewing changes to com.bdaum.zoom.batch.unix/exiftool/lib/Image/ExifTool/MPF.pm

  • Committer: bdaum
  • Date: 2015-12-26 10:21:51 UTC
  • Revision ID: berthold.daum@bdaum.de-20151226102151-44f1j5113167thb9
Version 2.4.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
com.bdaum.zoom.batch.unix/exiftool/lib/Image/ExifTool/MPF.pm
15
15
use Image::ExifTool qw(:DataAccess :Utils);
16
16
use Image::ExifTool::Exif;
17
17
 
18
 
$VERSION = '1.10';
 
18
$VERSION = '1.12';
19
19
 
20
20
sub ProcessMPImageList($$$);
21
21
 
26
26
        These tags are part of the CIPA Multi-Picture Format specification, and are
27
27
        found in the APP2 "MPF" segment of JPEG images.  MPImage data referenced
28
28
        from this segment is stored as a JPEG trailer.  The MPF tags are not
29
 
        writable, however the MPG segment may be deleted as a group (with "MPF:All")
 
29
        writable, however the MPF segment may be deleted as a group (with "MPF:All")
30
30
        but then the JPEG trailer should also be deleted (with "Trailer:All").  See
31
31
        L<http://www.cipa.jp/std/documents/e/DC-007_E.pdf> for the official
32
32
        specification.
72
72
                0x40 => 'Zigzag (column start)',
73
73
            },
74
74
        ],
75
 
    },          
 
75
    },
76
76
    0xb202 => 'PanOverlapH',
77
77
    0xb203 => 'PanOverlapV',
78
78
    0xb204 => 'BaseViewpointNum',
191
191
    for ($i=1; $xtra or not defined $xtra; ++$i) {
192
192
        # run through MP images in the same order they were extracted
193
193
        $xtra = defined $$et{VALUE}{"MPImageStart ($i)"} ? " ($i)" : '';
194
 
        my $off = $et->GetValue("MPImageStart$xtra");
195
 
        my $len = $et->GetValue("MPImageLength$xtra");
 
194
        my $off = $et->GetValue("MPImageStart$xtra", 'ValueConv');
 
195
        my $len = $et->GetValue("MPImageLength$xtra", 'ValueConv');
196
196
        if ($off and $len) {
197
197
            my $type = $et->GetValue("MPImageType$xtra", 'ValueConv');
198
198
            my $tag = "MPImage$i";