82 lines
2.0 KiB
Perl
Executable File
82 lines
2.0 KiB
Perl
Executable File
#------------------------------------------------------------------------------
|
|
# File: GE.pm
|
|
#
|
|
# Description: General Imaging maker notes tags
|
|
#
|
|
# Revisions: 2010-12-14 - P. Harvey Created
|
|
#------------------------------------------------------------------------------
|
|
|
|
package Image::ExifTool::GE;
|
|
|
|
use strict;
|
|
use vars qw($VERSION);
|
|
use Image::ExifTool qw(:DataAccess :Utils);
|
|
use Image::ExifTool::Exif;
|
|
|
|
$VERSION = '1.00';
|
|
|
|
sub ProcessGE2($$$);
|
|
|
|
# GE type 1 maker notes (ref PH)
|
|
# (similar to Kodak::Type11 and Ricoh::Type2)
|
|
%Image::ExifTool::GE::Main = (
|
|
WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
|
|
CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
|
|
WRITABLE => 1,
|
|
GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
|
|
NOTES => q{
|
|
This table lists tags found in the maker notes of some General Imaging
|
|
camera models.
|
|
},
|
|
# 0x0104 - int32u
|
|
# 0x0200 - int32u[3] (with invalid offset of 0)
|
|
0x0202 => {
|
|
Name => 'Macro',
|
|
Writable => 'int16u',
|
|
PrintConv => { 0 => 'Off', 1 => 'On' },
|
|
},
|
|
# 0x0203 - int16u: 0
|
|
# 0x0204 - rational64u: 10/10
|
|
# 0x0205 - rational64u: 7.249,7.34,9.47 (changes with camera model)
|
|
# 0x0206 - int16u[6] (with invalid offset of 0)
|
|
0x0207 => {
|
|
Name => 'GEModel',
|
|
Format => 'string',
|
|
},
|
|
0x0300 => {
|
|
Name => 'GEMake',
|
|
Format => 'string',
|
|
},
|
|
# 0x0500 - int16u: 0
|
|
# 0x0600 - int32u: 0
|
|
);
|
|
|
|
__END__
|
|
|
|
=head1 NAME
|
|
|
|
Image::ExifTool::GE - General Imaging maker notes tags
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
This module is loaded automatically by Image::ExifTool when required.
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
This module contains definitions required by Image::ExifTool to interpret
|
|
General Imaging maker notes.
|
|
|
|
=head1 AUTHOR
|
|
|
|
Copyright 2003-2016, 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 SEE ALSO
|
|
|
|
L<Image::ExifTool::TagNames/GE Tags>,
|
|
L<Image::ExifTool(3pm)|Image::ExifTool>
|
|
|
|
=cut
|