#------------------------------------------------------------------------------ # 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-2021, Phil Harvey (philharvey66 at gmail.com) This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO L, L =cut