[24107] | 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)
|
---|
[34921] | 21 | # (similar to Kodak::Type11 and Ricoh::Type2)
|
---|
[24107] | 22 | %Image::ExifTool::GE::Main = (
|
---|
| 23 | WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
|
---|
| 24 | CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
|
---|
| 25 | WRITABLE => 1,
|
---|
| 26 | GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
|
---|
| 27 | NOTES => q{
|
---|
| 28 | This table lists tags found in the maker notes of some General Imaging
|
---|
| 29 | camera models.
|
---|
| 30 | },
|
---|
| 31 | # 0x0104 - int32u
|
---|
| 32 | # 0x0200 - int32u[3] (with invalid offset of 0)
|
---|
| 33 | 0x0202 => {
|
---|
| 34 | Name => 'Macro',
|
---|
| 35 | Writable => 'int16u',
|
---|
| 36 | PrintConv => { 0 => 'Off', 1 => 'On' },
|
---|
| 37 | },
|
---|
| 38 | # 0x0203 - int16u: 0
|
---|
| 39 | # 0x0204 - rational64u: 10/10
|
---|
| 40 | # 0x0205 - rational64u: 7.249,7.34,9.47 (changes with camera model)
|
---|
| 41 | # 0x0206 - int16u[6] (with invalid offset of 0)
|
---|
| 42 | 0x0207 => {
|
---|
| 43 | Name => 'GEModel',
|
---|
| 44 | Format => 'string',
|
---|
| 45 | },
|
---|
| 46 | 0x0300 => {
|
---|
| 47 | Name => 'GEMake',
|
---|
| 48 | Format => 'string',
|
---|
| 49 | },
|
---|
| 50 | # 0x0500 - int16u: 0
|
---|
| 51 | # 0x0600 - int32u: 0
|
---|
| 52 | );
|
---|
| 53 |
|
---|
| 54 | __END__
|
---|
| 55 |
|
---|
| 56 | =head1 NAME
|
---|
| 57 |
|
---|
| 58 | Image::ExifTool::GE - General Imaging maker notes tags
|
---|
| 59 |
|
---|
| 60 | =head1 SYNOPSIS
|
---|
| 61 |
|
---|
| 62 | This module is loaded automatically by Image::ExifTool when required.
|
---|
| 63 |
|
---|
| 64 | =head1 DESCRIPTION
|
---|
| 65 |
|
---|
| 66 | This module contains definitions required by Image::ExifTool to interpret
|
---|
| 67 | General Imaging maker notes.
|
---|
| 68 |
|
---|
| 69 | =head1 AUTHOR
|
---|
| 70 |
|
---|
[34921] | 71 | Copyright 2003-2021, Phil Harvey (philharvey66 at gmail.com)
|
---|
[24107] | 72 |
|
---|
| 73 | This library is free software; you can redistribute it and/or modify it
|
---|
| 74 | under the same terms as Perl itself.
|
---|
| 75 |
|
---|
| 76 | =head1 SEE ALSO
|
---|
| 77 |
|
---|
| 78 | L<Image::ExifTool::TagNames/GE Tags>,
|
---|
| 79 | L<Image::ExifTool(3pm)|Image::ExifTool>
|
---|
| 80 |
|
---|
| 81 | =cut
|
---|