GE.pm 2.0 KB

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