1 | #------------------------------------------------------------------------------
|
---|
2 | # File: GE.pm
|
---|
3 | #
|
---|
4 | # Description: General Imaging maker notes tags
|
---|
5 | #
|
---|
6 | # Revisions: 2010-12-14 - P. Harvey Created
|
---|
7 | #------------------------------------------------------------------------------
|
---|
8 |
|
---|
9 | package Image::ExifTool::GE;
|
---|
10 |
|
---|
11 | use strict;
|
---|
12 | use vars qw($VERSION);
|
---|
13 | use Image::ExifTool qw(:DataAccess :Utils);
|
---|
14 | use Image::ExifTool::Exif;
|
---|
15 |
|
---|
16 | $VERSION = '1.00';
|
---|
17 |
|
---|
18 | sub ProcessGE2($$$);
|
---|
19 |
|
---|
20 | # GE type 1 maker notes (ref PH)
|
---|
21 | %Image::ExifTool::GE::Main = (
|
---|
22 | WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
|
---|
23 | CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
|
---|
24 | WRITABLE => 1,
|
---|
25 | GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
|
---|
26 | NOTES => q{
|
---|
27 | This table lists tags found in the maker notes of some General Imaging
|
---|
28 | camera models.
|
---|
29 | },
|
---|
30 | # 0x0104 - int32u
|
---|
31 | # 0x0200 - int32u[3] (with invalid offset of 0)
|
---|
32 | 0x0202 => {
|
---|
33 | Name => 'Macro',
|
---|
34 | Writable => 'int16u',
|
---|
35 | PrintConv => { 0 => 'Off', 1 => 'On' },
|
---|
36 | },
|
---|
37 | # 0x0203 - int16u: 0
|
---|
38 | # 0x0204 - rational64u: 10/10
|
---|
39 | # 0x0205 - rational64u: 7.249,7.34,9.47 (changes with camera model)
|
---|
40 | # 0x0206 - int16u[6] (with invalid offset of 0)
|
---|
41 | 0x0207 => {
|
---|
42 | Name => 'GEModel',
|
---|
43 | Format => 'string',
|
---|
44 | },
|
---|
45 | 0x0300 => {
|
---|
46 | Name => 'GEMake',
|
---|
47 | Format => 'string',
|
---|
48 | },
|
---|
49 | # 0x0500 - int16u: 0
|
---|
50 | # 0x0600 - int32u: 0
|
---|
51 | );
|
---|
52 |
|
---|
53 | __END__
|
---|
54 |
|
---|
55 | =head1 NAME
|
---|
56 |
|
---|
57 | Image::ExifTool::GE - General Imaging maker notes tags
|
---|
58 |
|
---|
59 | =head1 SYNOPSIS
|
---|
60 |
|
---|
61 | This module is loaded automatically by Image::ExifTool when required.
|
---|
62 |
|
---|
63 | =head1 DESCRIPTION
|
---|
64 |
|
---|
65 | This module contains definitions required by Image::ExifTool to interpret
|
---|
66 | General Imaging maker notes.
|
---|
67 |
|
---|
68 | =head1 AUTHOR
|
---|
69 |
|
---|
70 | Copyright 2003-2011, Phil Harvey (phil at owl.phy.queensu.ca)
|
---|
71 |
|
---|
72 | This library is free software; you can redistribute it and/or modify it
|
---|
73 | under the same terms as Perl itself.
|
---|
74 |
|
---|
75 | =head1 SEE ALSO
|
---|
76 |
|
---|
77 | L<Image::ExifTool::TagNames/GE Tags>,
|
---|
78 | L<Image::ExifTool(3pm)|Image::ExifTool>
|
---|
79 |
|
---|
80 | =cut
|
---|