#------------------------------------------------------------------------------ # File: Panasonic.pm # # Description: Panasonic/Leica maker notes tags # # Revisions: 11/10/2004 - P. Harvey Created # # References: 1) http://www.compton.nu/panasonic.html (based on FZ10) # 2) Derived from DMC-FZ3 samples from dpreview.com # 3) http://johnst.org/sw/exiftags/ # 4) Tels (http://bloodgate.com/) private communication (tests with FZ5) # 5) CPAN forum post by 'hardloaf' (http://www.cpanforum.com/threads/2183) # 6) http://www.cybercom.net/~dcoffin/dcraw/ # 7) http://homepage3.nifty.com/kamisaka/makernote/makernote_pana.htm (2007/10/02) # 8) Marcel Coenen private communication (DMC-FZ50) # 9) http://forums.dpreview.com/forums/read.asp?forum=1033&message=22756430 # 10) http://bretteville.com/pdfs/M8Metadata_v2.pdf # JD) Jens Duttke private communication (TZ3,FZ30,FZ50) #------------------------------------------------------------------------------ package Image::ExifTool::Panasonic; use strict; use vars qw($VERSION); use Image::ExifTool::Exif; $VERSION = '1.30'; sub ProcessPanasonicType2($$$); sub WhiteBalanceConv($;$$); # conversions for ShootingMode and SceneMode my %shootingMode = ( 1 => 'Normal', 2 => 'Portrait', 3 => 'Scenery', 4 => 'Sports', 5 => 'Night Portrait', 6 => 'Program', 7 => 'Aperture Priority', 8 => 'Shutter Priority', 9 => 'Macro', 10 => 'Spot', #7 11 => 'Manual', 12 => 'Movie Preview', #PH (LZ6) 13 => 'Panning', 14 => 'Simple', #PH (LZ6) 15 => 'Color Effects', #7 # 16 => 'His XX RI?', #7 # 17 => 'Eco Mode?', #7 18 => 'Fireworks', 19 => 'Party', 20 => 'Snow', 21 => 'Night Scenery', 22 => 'Food', #7 23 => 'Baby', #JD 24 => 'Soft Skin', #PH (LZ6) 25 => 'Candlelight', #PH (LZ6) 26 => 'Starry Night', #PH (LZ6) 27 => 'High Sensitivity', #7 (LZ6) 28 => 'Panorama Assist', #7 29 => 'Underwater', #7 30 => 'Beach', #PH (LZ6) 31 => 'Aerial Photo', #PH (LZ6) 32 => 'Sunset', #PH (LZ6) 33 => 'Pet', #JD 34 => 'Intelligent ISO', #PH (LZ6) # 35 => 'NOTE?', #7 36 => 'High Speed Continuous Shooting', #7 37 => 'Intelligent Auto', #7 ); %Image::ExifTool::Panasonic::Main = ( WRITE_PROC => \&Image::ExifTool::Exif::WriteExif, CHECK_PROC => \&Image::ExifTool::Exif::CheckExif, GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' }, WRITABLE => 1, 0x01 => { Name => 'ImageQuality', Writable => 'int16u', PrintConv => { 2 => 'High', 3 => 'Normal', 6 => 'Very High', #3 (Leica) 7 => 'Raw', #3 (Leica) 9 => 'Motion Picture', #PH (LZ6) }, }, 0x02 => { Name => 'FirmwareVersion', Writable => 'undef', Notes => q{ for some camera models such as the FZ30 this may be an internal production reference number and not the actual firmware version }, # (ref http://www.stevesforums.com/forums/view_topic.php?id=87764&forum_id=23&) # (can be either binary or ascii -- add decimal points if binary) ValueConv => '$val=~/[\0-\x2f]/ ? join(" ",unpack("C*",$val)) : $val', ValueConvInv => q{ $val =~ /(\d+ ){3}\d+/ and $val = pack('C*',split(' ', $val)); length($val) == 4 or warn "Version must be 4 numbers\n"; return $val; }, PrintConv => '$val=~tr/ /./; $val', PrintConvInv => '$val=~tr/./ /; $val', }, 0x03 => { Name => 'WhiteBalance', Writable => 'int16u', PrintConv => { 1 => 'Auto', 2 => 'Daylight', 3 => 'Cloudy', 4 => 'Halogen', 5 => 'Manual', 8 => 'Flash', 10 => 'Black & White', #3 (Leica) 11 => 'Manual', #PH (FZ8) }, }, 0x07 => { Name => 'FocusMode', Writable => 'int16u', PrintConv => { 1 => 'Auto', 2 => 'Manual', 4 => 'Auto, Focus button', #4 5 => 'Auto, Continuous', #4 }, }, 0x0f => { Name => 'AFMode', Writable => 'int8u', Count => 2, PrintConv => { #PH '0 1' => 'Spot Mode On', # (maybe 9-area for some cameras?) '0 16' => 'Spot Mode Off or 3-area (high speed)', # (FZ8 is 3-area) '1 0' => 'Spot Focusing', # (FZ8) '1 1' => '5-area', # (FZ8) '16' => 'Normal?', # (only AFMode for DMC-LC20) '16 0' => '1-area', # (FZ8) '16 16' => '1-area (high speed)', # (FZ8) '32 0' => '3-area (auto)?', # (DMC-L1 guess) '32 1' => '3-area (left)?', # (DMC-L1 guess) '32 2' => '3-area (center)?', # (DMC-L1 guess) '32 3' => '3-area (right)?', # (DMC-L1 guess) }, }, 0x1a => { Name => 'ImageStabilization', Writable => 'int16u', PrintConv => { 2 => 'On, Mode 1', 3 => 'Off', 4 => 'On, Mode 2', }, }, 0x1c => { Name => 'MacroMode', Writable => 'int16u', PrintConv => { 1 => 'On', 2 => 'Off', 0x101 => 'Tele-Macro', #7 }, }, 0x1f => { Name => 'ShootingMode', Writable => 'int16u', PrintConv => \%shootingMode, }, 0x20 => { Name => 'Audio', Writable => 'int16u', PrintConv => { 1 => 'Yes', 2 => 'No' }, }, 0x21 => { #2 Name => 'DataDump', Writable => 0, Binary => 1, }, # 0x22 - normally 0, but 2 for 'Simple' ShootingMode in LZ6 sample - PH 0x23 => { Name => 'WhiteBalanceBias', Format => 'int16s', Writable => 'int16s', ValueConv => '$val / 3', PrintConv => 'Image::ExifTool::Exif::ConvertFraction($val)', ValueConvInv => '$val * 3', PrintConvInv => 'eval $val', }, 0x24 => { Name => 'FlashBias', Format => 'int16s', Writable => 'int16s', }, 0x25 => { #PH Name => 'InternalSerialNumber', Writable => 'undef', Count => 16, Notes => q{ this number is unique, and contains the date of manufacture, but is not the same as the number printed on the camera body }, PrintConv => q{ return $val unless $val=~/^([A-Z]\d{2})(\d{2})(\d{2})(\d{2})(\d{4})/; my $yr = $2 + ($2 < 70 ? 2000 : 1900); return "($1) $yr:$3:$4 no. $5"; }, PrintConvInv => '$_=$val; tr/A-Z0-9//dc; s/(.{3})(19|20)/$1/; $_', }, 0x26 => { #PH Name => 'PanasonicExifVersion', Writable => 'undef', }, # 0x27 - values: 0 (LZ6,FX10K) 0x28 => { Name => 'ColorEffect', Writable => 'int16u', # FX30 manual: (ColorMode) natural, vivid, cool, warm, b/w, sepia PrintConv => { 1 => 'Off', 2 => 'Warm', 3 => 'Cool', 4 => 'Black & White', 5 => 'Sepia', }, }, 0x29 => { #JD Name => 'TimeSincePowerOn', Writable => 'int32u', Notes => q{ time in 1/100 s from when the camera was powered on to when the image is written to memory card }, ValueConv => '$val / 100', ValueConvInv => '$val * 100', PrintConv => sub { # convert to format "[DD days ]HH:MM:SS.ss" my $val = shift; my $str = ''; if ($val >= 24 * 3600) { my $d = int($val / (24 * 3600)); $str .= "$d days "; $val -= $d * 24 * 3600; } my $h = int($val / 3600); $val -= $h * 3600; my $m = int($val / 60); $val -= $m * 60; my $s = int($val); my $f = 100 * ($val - int($val)); return sprintf("%s%.2d:%.2d:%.2d.%.2d",$str,$h,$m,$s,$f); }, PrintConvInv => sub { my $val = shift; my @vals = ($val =~ /\d+(?:\.\d*)?/g); my $sec = 0; $sec += 24 * 3600 * shift(@vals) if @vals > 3; $sec += 3600 * shift(@vals) if @vals > 2; $sec += 60 * shift(@vals) if @vals > 1; $sec += shift(@vals) if @vals; return $sec; }, }, 0x2a => { #4 Name => 'BurstMode', Writable => 'int16u', PrintConv => { 0 => 'Off', 1 => 'Low/High Quality', 2 => 'Infinite', }, }, 0x2b => { #4 Name => 'SequenceNumber', Writable => 'int32u', }, 0x2c => { Name => 'Contrast', Flags => 'PrintHex', Writable => 'int16u', Priority => 0, Notes => q{ this decoding seems to work for some models such as the LX2, FZ7, FZ8, FZ18 and FZ50, but may not be correct for other models such as the FX10, L1, L10 and LC80 }, PrintConv => { 0 => 'Normal', 1 => 'Low', 2 => 'High', # 3 - observed with LZ6 - PH # 5 - observed with FX01 - PH 6 => 'Medium Low', #PH (FZ18) 7 => 'Medium High', #PH (FZ18) # DMC-LC1 values: 0x100 => 'Low', 0x110 => 'Normal', 0x120 => 'High', } }, 0x2d => { Name => 'NoiseReduction', Writable => 'int16u', PrintConv => { 0 => 'Standard', 1 => 'Low (-1)', 2 => 'High (+1)', 3 => 'Lowest (-2)', #JD 4 => 'Highest (+2)', #JD }, }, 0x2e => { #4 Name => 'SelfTimer', Writable => 'int16u', PrintConv => { 1 => 'Off', 2 => '10s', 3 => '2s', }, }, # 0x2f - values: 1 (LZ6,FX10K) 0x30 => { #7 Name => 'Rotation', Writable => 'int16u', PrintConv => { 1 => 'Horizontal (normal)', 6 => 'Rotate 90 CW', #PH (ref 7 gives 270 CW) 8 => 'Rotate 270 CW', #PH (ref 7 gives 90 CW) }, }, # 0x31 - values: 1-5 some sort of mode? (changes with FOC-L) (PH/10) 0x32 => { #7 Name => 'ColorMode', Writable => 'int16u', PrintConv => { 0 => 'Normal', 1 => 'Natural', 2 => 'Vivid', }, }, 0x33 => { #JD Name => 'BabyAge', Writable => 'string', Notes => 'or pet age', #PH PrintConv => '$val eq "9999:99:99 00:00:00" ? "(not set)" : $val', PrintConvInv => '$val =~ /^\d/ ? $val : "9999:99:99 00:00:00"', }, 0x34 => { #7/PH Name => 'OpticalZoomMode', Writable => 'int16u', PrintConv => { 1 => 'Standard', 2 => 'EX Optics', }, }, 0x35 => { #9 Name => 'ConversionLens', Writable => 'int16u', PrintConv => { #PH (unconfirmed) 1 => 'Off', 2 => 'Wide', 3 => 'Telephoto', 4 => 'Macro', }, }, 0x36 => { #8 Name => 'TravelDay', Writable => 'int16u', PrintConv => '$val == 65535 ? "n/a" : $val', PrintConvInv => '$val =~ /(\d+)/ ? $1 : $val', }, # 0x37 - values: 0,1,2 (LZ6, 0 for movie preview) and 257 (FX10K) # 0x38 - values: 0,1,2 (LZ6, same as 0x37) and 1,2 (FX10K) 0x39 => { #7 (L1/L10) Name => 'Contrast', Format => 'int16s', Writable => 'int16u', PrintConv => 'Image::ExifTool::Exif::PrintParameter($val)', PrintConvInv => '$val=~/normal/i ? 0 : $val', }, 0x3a => { Name => 'WorldTimeLocation', Writable => 'int16u', PrintConv => { 1 => 'Home', 2 => 'Destination', }, }, # 0x3b - values: 1 (LZ6, FX10K) 0x3c => { #PH Name => 'ProgramISO', Writable => 'int16u', PrintConv => '$val == 65535 ? "n/a" : $val', PrintConvInv => '$val eq "n/a" ? 65535 : $val', }, 0x40 => { #7 (L1/L10) Name => 'Saturation', Format => 'int16s', Writable => 'int16u', PrintConv => 'Image::ExifTool::Exif::PrintParameter($val)', PrintConvInv => '$val=~/normal/i ? 0 : $val', }, 0x41 => { #7 (L1/L10) Name => 'Sharpness', Format => 'int16s', Writable => 'int16u', PrintConv => 'Image::ExifTool::Exif::PrintParameter($val)', PrintConvInv => '$val=~/normal/i ? 0 : $val', }, 0x42 => { #7 (DMC-L1) Name => 'FilmMode', Writable => 'int16u', PrintConv => { 1 => 'Standard (color)', 2 => 'Dynamic (color)', 3 => 'Nature (color)', 4 => 'Smooth (color)', 5 => 'Standard (B&W)', 6 => 'Dynamic (B&W)', 7 => 'Smooth (B&W)', # 8 => 'My Film 1'? (from owner manual) # 9 => 'My Film 2'? }, }, 0x46 => { #PH/10 Name => 'WBAdjustAB', Format => 'int16s', Writable => 'int16u', Notes => 'positive is a shift toward blue', }, 0x47 => { #PH/10 Name => 'WBAdjustGM', Format => 'int16s', Writable => 'int16u', Notes => 'positive is a shift toward green', }, 0x51 => { Name => 'LensType', Writable => 'string', }, 0x52 => { #7 (DMC-L1) Name => 'LensSerialNumber', Writable => 'string', }, 0x53 => { #7 (DMC-L1) Name => 'AccessoryType', Writable => 'string', }, 0x0e00 => { Name => 'PrintIM', Description => 'Print Image Matching', Writable => 0, SubDirectory => { TagTable => 'Image::ExifTool::PrintIM::Main', }, }, 0x8000 => { #PH Name => 'MakerNoteVersion', Format => 'undef', }, 0x8001 => { #7/PH/10 Name => 'SceneMode', Writable => 'int16u', PrintConv => { 0 => 'Off', %shootingMode, }, }, # 0x8002 - values: 1,2 related to focus? (PH/10) # 0x8003 - values: 1,2 related to focus? (PH/10) 0x8004 => { #PH/10 Name => 'WBRedLevel', Writable => 'int16u', }, 0x8005 => { #PH/10 Name => 'WBGreenLevel', Writable => 'int16u', }, 0x8006 => { #PH/10 Name => 'WBBlueLevel', Writable => 'int16u', }, # 0x8007 - values: 1,2 0x8010 => { #PH Name => 'BabyAge', Writable => 'string', Notes => 'or pet age', PrintConv => '$val eq "9999:99:99 00:00:00" ? "(not set)" : $val', PrintConvInv => '$val =~ /^\d/ ? $val : "9999:99:99 00:00:00"', }, ); # Leica type2 maker notes (ref 10) %Image::ExifTool::Panasonic::Leica2 = ( WRITE_PROC => \&Image::ExifTool::Exif::WriteExif, CHECK_PROC => \&Image::ExifTool::Exif::CheckExif, GROUPS => { 0 => 'MakerNotes', 1 => 'Leica', 2 => 'Camera' }, WRITABLE => 1, NOTES => 'These tags are used by the Leica M8.', 0x300 => { Name => 'Quality', Writable => 'int16u', PrintConv => { 1 => 'Fine', 2 => 'Basic', }, }, 0x302 => { Name => 'UserProfile', Writable => 'int32u', PrintConv => { 1 => 'User Profile 1', 2 => 'User Profile 2', 3 => 'User Profile 3', 4 => 'User Profile 0 (Dynamic)', }, }, 0x303 => { Name => 'SerialNumber', Writable => 'int32u', PrintConv => 'sprintf("%.7d", $val)', PrintConvInv => '$val', }, 0x304 => { Name => 'WhiteBalance', Writable => 'int16u', Notes => 'values above 0x8000 are converted to Kelvin color temperatures', PrintConv => { 0 => 'Auto or Manual', 1 => 'Daylight', 2 => 'Fluorescent', 3 => 'Tungsten', 4 => 'Flash', 10 => 'Cloudy', 11 => 'Shadow', OTHER => \&WhiteBalanceConv, }, }, 0x310 => { Name => 'LensType', Writable => 'int32u', Notes => 'lower 3 bits split into a separate value for the frame selector position', ValueConv => '($val >> 2) . " " . ($val & 0x03)', ValueConvInv => 'my @a=split " ",$val; ($a[0] << 2) + ($a[1] & 0x03)', PrintConv => [{ 1 => 'Elmarit-M 21mm f/2.8', 3 => 'Elmarit-M 28mm f/2.8 (III)', 4 => 'Tele-Elmarit-M 90mm f/2.8 (II)', 5 => 'Summilux-M 50mm f/1.4 (II)', 6 => 'Summicron-M 35mm f/2 (IV)', 7 => 'Summicron-M 90mm f/2 (II)', 9 => 'Elmarit-M 135mm f/2.8 (I/II)', 16 => 'Tri-Elmar-M 16-18-21mm f/4 ASPH.', 23 => 'Summicron-M 50mm f/2 (III)', 24 => 'Elmarit-M 21mm f/2.8 ASPH.', 25 => 'Elmarit-M 24mm f/2.8 ASPH.', 26 => 'Summicron-M 28mm f/2 ASPH.', 27 => 'Elmarit-M 28mm f/2.8 (IV)', 28 => 'Elmarit-M 28mm f/2.8 ASPH.', 29 => 'Summilux-M 35mm f/1.4 ASPH.', 30 => 'Summicron-M 35mm f/2 ASPH.', 31 => 'Noctilux-M 50mm f/1', 32 => 'Summilux-M 50mm f/1.4 ASPH.', 33 => 'Summicron-M 50mm f/2 (IV, V)', 34 => 'Elmar-M 50mm f/2.8', 35 => 'Summilux-M 75mm f/1.4', 36 => 'Apo-Summicron-M 75mm f/2 ASPH.', 37 => 'Apo-Summicron-M 90mm f/2 ASPH.', 38 => 'Elmarit-M 90mm f/2.8', 39 => 'Macro-Elmar-M 90mm f/4', 40 => 'Macro-Adapter M', 42 => 'Tri-Elmar-M 28-35-50mm f/4 ASPH.', 43 => 'Summarit-M 35mm f/2.5', 44 => 'Summarit-M 50mm f/2.5', 45 => 'Summarit-M 75mm f/2.5', 46 => 'Summarit-M 90mm f/2.5', },{ 1 => '28/90mm frame lines engaged', 2 => '24/35mm frame lines engaged', 3 => '50/75mm frame lines engaged', }], }, 0x311 => { Name => 'ExternalSensorBrightnessValue', Format => 'rational64s', # (incorrectly unsigned in JPEG images) Writable => 'rational64s', Notes => '"blue dot" measurement', PrintConv => 'sprintf("%.2f", $val)', PrintConvInv => '$val', }, 0x312 => { Name => 'MeasuredLV', Format => 'rational64s', # (incorrectly unsigned in JPEG images) Writable => 'rational64s', Notes => 'imaging sensor or TTL exposure meter measurement', PrintConv => 'sprintf("%.2f", $val)', PrintConvInv => '$val', }, 0x313 => { Name => 'ApproximateFNumber', Writable => 'rational64u', PrintConv => 'sprintf("%.1f", $val)', PrintConvInv => '$val', }, 0x320 => { Name => 'CameraTemperature', Writable => 'int32s' }, 0x321 => { Name => 'ColorTemperature', Writable => 'int32u' }, 0x322 => { Name => 'WBRedLevel', Writable => 'rational64u' }, 0x323 => { Name => 'WBGreenLevel', Writable => 'rational64u' }, 0x324 => { Name => 'WBBlueLevel', Writable => 'rational64u' }, 0x325 => { Name => 'UV-IRFilterCorrection', Description => 'UV/IR Filter Correction', Writable => 'int32u', PrintConv => { 0 => 'Not Active', 1 => 'Active', }, }, 0x330 => { Name => 'CCDVersion', Writable => 'int32u' }, 0x331 => { Name => 'CCDBoardVersion', Writable => 'int32u' }, 0x332 => { Name => 'ControllerBoardVersion', Writable => 'int32u' }, 0x333 => { Name => 'M16CVersion', Writable => 'int32u' }, 0x340 => { Name => 'ImageIDNumber', Writable => 'int32u' }, ); # Leica type3 maker notes (ref PH) %Image::ExifTool::Panasonic::Leica3 = ( WRITE_PROC => \&Image::ExifTool::Exif::WriteExif, CHECK_PROC => \&Image::ExifTool::Exif::CheckExif, GROUPS => { 0 => 'MakerNotes', 1 => 'Leica', 2 => 'Camera' }, WRITABLE => 1, NOTES => 'These tags are used by the Leica R8 and R9 digital backs.', 0x0d => { Name => 'WB_RGBLevels', Writable => 'int16u', Count => 3, }, ); # Type 2 tags (ref PH) %Image::ExifTool::Panasonic::Type2 = ( PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData, GROUPS => { 0 => 'MakerNotes', 2 => 'Image' }, FIRST_ENTRY => 0, FORMAT => 'int16u', NOTES => q{ This type of maker notes is used by models such as the NV-DS65, PV-D2002, PV-DC3000, PV-DV203, PV-DV401, PV-DV702, PV-L2001, PV-SD4090, PV-SD5000 and iPalm. }, 0 => { Name => 'MakerNoteType', Format => 'string[4]', }, # seems to vary inversely with amount of light, so I'll call it 'Gain' - PH # (minimum is 16, maximum is 136. Value is 0 for pictures captured from video) 3 => 'Gain', ); # Tags found in Panasonic RAW images %Image::ExifTool::Panasonic::Raw = ( GROUPS => { 0 => 'EXIF', 1 => 'IFD0', 2 => 'Image'}, WRITE_PROC => \&Image::ExifTool::Exif::WriteExif, CHECK_PROC => \&Image::ExifTool::Exif::CheckExif, WRITE_GROUP => 'IFD0', # default write group NOTES => 'These tags are found in IFD0 of Panasonic RAW images.', 0x01 => { Name => 'PanasonicRawVersion', Writable => 'undef', }, 0x02 => 'SensorWidth', #5/PH 0x03 => 'SensorHeight', #5/PH 0x04 => 'SensorTopBorder', #JD 0x05 => 'SensorLeftBorder', #JD 0x06 => 'ImageHeight', #5/PH 0x07 => 'ImageWidth', #5/PH # observed values for unknown tags - PH # 0x08: 1 # 0x09: 1,3,4 # 0x0a: 12 # 0x0b: 0x860c,0x880a,0x880c # 0x0c: 2 (only Leica Digilux 2) # 0x0d: 0,1 # 0x0e,0x0f,0x10: 4095 # 0x18,0x19,0x1a,0x1c,0x1d,0x1e: 0 # 0x1b,0x27,0x29,0x2a,0x2b,0x2c: [binary data] # 0x2d: 2,3 0x11 => { #JD Name => 'RedBalance', Writable => 'int16u', ValueConv => '$val / 256', ValueConvInv => 'int($val * 256 + 0.5)', Notes => 'found in Digilux 2 RAW images', }, 0x12 => { #JD Name => 'BlueBalance', Writable => 'int16u', ValueConv => '$val / 256', ValueConvInv => 'int($val * 256 + 0.5)', }, 0x17 => { #5 Name => 'ISO', Writable => 'int16u', }, 0x24 => { #6 Name => 'WBRedLevel', Writable => 'int16u', }, 0x25 => { #6 Name => 'WBGreenLevel', Writable => 'int16u', }, 0x26 => { #6 Name => 'WBBlueLevel', Writable => 'int16u', }, 0x2e => { #JD Name => 'PreviewImage', Writable => 'undef', Binary => 1, }, 0x10f => { Name => 'Make', Groups => { 2 => 'Camera' }, Writable => 'string', DataMember => 'Make', # save this value as an ExifTool member variable RawConv => '$self->{Make} = $val', }, 0x110 => { Name => 'Model', Description => 'Camera Model Name', Groups => { 2 => 'Camera' }, Writable => 'string', DataMember => 'Model', # save this value as an ExifTool member variable RawConv => '$self->{Model} = $val', }, 0x111 => { Name => 'StripOffsets', Flags => 'IsOffset', OffsetPair => 0x117, # point to associated byte counts ValueConv => 'length($val) > 32 ? \$val : $val', }, 0x112 => { Name => 'Orientation', Writable => 'int16u', PrintConv => \%Image::ExifTool::Exif::orientation, Priority => 0, # so IFD1 doesn't take precedence }, 0x116 => { Name => 'RowsPerStrip', Priority => 0, }, 0x117 => { Name => 'StripByteCounts', OffsetPair => 0x111, # point to associated offset ValueConv => 'length($val) > 32 ? \$val : $val', }, 0x8769 => { Name => 'ExifOffset', Groups => { 1 => 'ExifIFD' }, Flags => 'SubIFD', SubDirectory => { TagTable => 'Image::ExifTool::Exif::Main', DirName => 'ExifIFD', Start => '$val', }, }, 0x8825 => { Name => 'GPSInfo', Groups => { 1 => 'GPS' }, Flags => 'SubIFD', SubDirectory => { DirName => 'GPS', TagTable => 'Image::ExifTool::GPS::Main', Start => '$val', }, }, ); #------------------------------------------------------------------------------ # Convert Leica Kelvin white balance # Inputs: 0) value, 1) flag to perform inverse conversion # Returns: Converted value, or undef on error sub WhiteBalanceConv($;$$) { my ($val, $inv) = @_; if ($inv) { return $1 + 0x8000 if $val =~ /(\d+)/; } else { return ($val - 0x8000) . ' Kelvin' if $val > 0x8000; } return undef; } 1; # end __END__ =head1 NAME Image::ExifTool::Panasonic - Panasonic/Leica 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 Panasonic and Leica maker notes in EXIF information. =head1 AUTHOR Copyright 2003-2008, 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 REFERENCES =over 4 =item L =item L =item L =item L =item L =back =head1 ACKNOWLEDGEMENTS Thanks to Tels for the information he provided on decoding some tags, and to Marcel Coenen and Jens Duttke for their contributions. =head1 SEE ALSO L, L =cut