Olympus.pm 130 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948294929502951295229532954295529562957295829592960296129622963296429652966296729682969297029712972297329742975297629772978297929802981298229832984298529862987298829892990299129922993299429952996299729982999300030013002300330043005300630073008300930103011301230133014301530163017301830193020302130223023302430253026302730283029303030313032303330343035303630373038303930403041304230433044304530463047304830493050305130523053305430553056305730583059306030613062306330643065306630673068306930703071307230733074307530763077307830793080308130823083308430853086308730883089309030913092309330943095309630973098309931003101310231033104310531063107310831093110311131123113311431153116311731183119312031213122312331243125312631273128312931303131313231333134313531363137313831393140314131423143314431453146314731483149315031513152315331543155315631573158315931603161316231633164316531663167316831693170317131723173317431753176317731783179318031813182318331843185318631873188318931903191319231933194319531963197319831993200320132023203320432053206320732083209321032113212321332143215321632173218321932203221322232233224322532263227322832293230323132323233323432353236323732383239324032413242324332443245324632473248324932503251325232533254325532563257325832593260326132623263326432653266326732683269327032713272327332743275327632773278327932803281328232833284328532863287328832893290329132923293329432953296329732983299330033013302330333043305330633073308330933103311331233133314331533163317331833193320332133223323332433253326332733283329333033313332333333343335333633373338333933403341334233433344334533463347334833493350335133523353335433553356335733583359336033613362336333643365336633673368336933703371337233733374337533763377337833793380338133823383338433853386338733883389339033913392339333943395339633973398339934003401340234033404340534063407340834093410341134123413341434153416341734183419342034213422342334243425342634273428342934303431343234333434343534363437343834393440344134423443344434453446344734483449345034513452345334543455345634573458345934603461346234633464346534663467346834693470347134723473347434753476347734783479348034813482348334843485348634873488348934903491349234933494349534963497349834993500350135023503350435053506350735083509351035113512351335143515351635173518351935203521352235233524352535263527352835293530353135323533353435353536353735383539354035413542354335443545354635473548354935503551355235533554355535563557355835593560356135623563356435653566356735683569357035713572357335743575357635773578357935803581358235833584358535863587358835893590359135923593359435953596359735983599360036013602360336043605360636073608360936103611361236133614361536163617361836193620362136223623362436253626362736283629363036313632363336343635363636373638363936403641364236433644364536463647364836493650365136523653365436553656365736583659366036613662366336643665366636673668366936703671367236733674367536763677367836793680368136823683368436853686368736883689369036913692369336943695369636973698369937003701370237033704370537063707370837093710371137123713371437153716371737183719372037213722372337243725372637273728372937303731373237333734373537363737373837393740374137423743374437453746374737483749375037513752375337543755375637573758375937603761376237633764376537663767376837693770377137723773377437753776377737783779378037813782378337843785378637873788378937903791379237933794379537963797379837993800380138023803380438053806380738083809381038113812381338143815381638173818381938203821
  1. #------------------------------------------------------------------------------
  2. # File: Olympus.pm
  3. #
  4. # Description: Olympus/Epson EXIF maker notes tags
  5. #
  6. # Revisions: 12/09/2003 - P. Harvey Created
  7. # 11/11/2004 - P. Harvey Added Epson support
  8. #
  9. # References: 1) http://park2.wakwak.com/~tsuruzoh/Computer/Digicams/exif-e.html
  10. # 2) http://www.cybercom.net/~dcoffin/dcraw/
  11. # 3) http://www.ozhiker.com/electronics/pjmt/jpeg_info/olympus_mn.html
  12. # 4) Markku HŠnninen private communication (tests with E-1)
  13. # 5) RŽmi Guyomarch from http://forums.dpreview.com/forums/read.asp?forum=1022&message=12790396
  14. # 6) Frank Ledwon private communication (tests with E/C-series cameras)
  15. # 7) Michael Meissner private communication
  16. # 8) Shingo Noguchi, PhotoXP (http://www.daifukuya.com/photoxp/)
  17. # 9) Mark Dapoz private communication
  18. # 10) Lilo Huang private communication (E-330)
  19. # 11) http://olypedia.de/Olympus_Makernotes (May 30, 2013)
  20. # 12) Ioannis Panagiotopoulos private communication (E-510)
  21. # 13) Chris Shaw private communication (E-3)
  22. # 14) Viktor Lushnikov private communication (E-400)
  23. # 15) Yrjo Rauste private communication (E-30)
  24. # 16) Godfrey DiGiorgi private communcation (E-P1) + http://forums.dpreview.com/forums/read.asp?message=33187567
  25. # 17) Martin Hibers private communication
  26. # 18) Tomasz Kawecki private communication
  27. # 19) Brad Grier private communication
  28. # 20) Niels Kristian Bech Jensen private communication
  29. # 21) Iliah Borg private communication (LibRaw)
  30. # 22) Herbert Kauer private communication
  31. #------------------------------------------------------------------------------
  32. package Image::ExifTool::Olympus;
  33. use strict;
  34. use vars qw($VERSION);
  35. use Image::ExifTool qw(:DataAccess :Utils);
  36. use Image::ExifTool::Exif;
  37. use Image::ExifTool::APP12;
  38. $VERSION = '2.36';
  39. sub PrintLensInfo($$$);
  40. my %offOn = ( 0 => 'Off', 1 => 'On' );
  41. # lookup for Olympus LensType values
  42. # (as of ExifTool 9.15, this was the complete list of chipped lenses at www.four-thirds.org)
  43. my %olympusLensTypes = (
  44. Notes => q{
  45. The numerical values below are given in hexadecimal. (Prior to ExifTool
  46. 9.15 these were in decimal.)
  47. },
  48. '0 00 00' => 'None',
  49. # Olympus lenses (also Kenko Tokina)
  50. '0 01 00' => 'Olympus Zuiko Digital ED 50mm F2.0 Macro',
  51. '0 01 01' => 'Olympus Zuiko Digital 40-150mm F3.5-4.5', #8
  52. '0 01 10' => 'Olympus M.Zuiko Digital ED 14-42mm F3.5-5.6', #PH (E-P1 pre-production)
  53. '0 02 00' => 'Olympus Zuiko Digital ED 150mm F2.0',
  54. '0 02 10' => 'Olympus M.Zuiko Digital 17mm F2.8 Pancake', #PH (E-P1 pre-production)
  55. '0 03 00' => 'Olympus Zuiko Digital ED 300mm F2.8',
  56. '0 03 10' => 'Olympus M.Zuiko Digital ED 14-150mm F4.0-5.6 [II]', #11 (The second version of this lens seems to have the same lens ID number as the first version #20)
  57. '0 04 10' => 'Olympus M.Zuiko Digital ED 9-18mm F4.0-5.6', #11
  58. '0 05 00' => 'Olympus Zuiko Digital 14-54mm F2.8-3.5',
  59. '0 05 01' => 'Olympus Zuiko Digital Pro ED 90-250mm F2.8', #9
  60. '0 05 10' => 'Olympus M.Zuiko Digital ED 14-42mm F3.5-5.6 L', #11 (E-PL1)
  61. '0 06 00' => 'Olympus Zuiko Digital ED 50-200mm F2.8-3.5',
  62. '0 06 01' => 'Olympus Zuiko Digital ED 8mm F3.5 Fisheye', #9
  63. '0 06 10' => 'Olympus M.Zuiko Digital ED 40-150mm F4.0-5.6', #PH
  64. '0 07 00' => 'Olympus Zuiko Digital 11-22mm F2.8-3.5',
  65. '0 07 01' => 'Olympus Zuiko Digital 18-180mm F3.5-6.3', #6
  66. '0 07 10' => 'Olympus M.Zuiko Digital ED 12mm F2.0', #PH
  67. '0 08 01' => 'Olympus Zuiko Digital 70-300mm F4.0-5.6', #7 (seen as release 1 - PH)
  68. '0 08 10' => 'Olympus M.Zuiko Digital ED 75-300mm F4.8-6.7', #PH
  69. '0 09 10' => 'Olympus M.Zuiko Digital 14-42mm F3.5-5.6 II', #PH (E-PL2)
  70. '0 10 01' => 'Kenko Tokina Reflex 300mm F6.3 MF Macro', #20
  71. '0 10 10' => 'Olympus M.Zuiko Digital ED 12-50mm F3.5-6.3 EZ', #PH
  72. '0 11 10' => 'Olympus M.Zuiko Digital 45mm F1.8', #17
  73. '0 12 10' => 'Olympus M.Zuiko Digital ED 60mm F2.8 Macro', #20
  74. '0 13 10' => 'Olympus M.Zuiko Digital 14-42mm F3.5-5.6 II R', #PH/20
  75. '0 14 10' => 'Olympus M.Zuiko Digital ED 40-150mm F4.0-5.6 R', #19
  76. # '0 14 10.1' => 'Olympus M.Zuiko Digital ED 14-150mm F4.0-5.6 II', #11 (questionable & unconfirmed -- all samples I can find are '0 3 10' - PH)
  77. '0 15 00' => 'Olympus Zuiko Digital ED 7-14mm F4.0',
  78. '0 15 10' => 'Olympus M.Zuiko Digital ED 75mm F1.8', #PH
  79. '0 16 10' => 'Olympus M.Zuiko Digital 17mm F1.8', #20
  80. '0 17 00' => 'Olympus Zuiko Digital Pro ED 35-100mm F2.0', #7
  81. '0 18 00' => 'Olympus Zuiko Digital 14-45mm F3.5-5.6',
  82. '0 18 10' => 'Olympus M.Zuiko Digital ED 75-300mm F4.8-6.7 II', #20
  83. '0 19 10' => 'Olympus M.Zuiko Digital ED 12-40mm F2.8 Pro', #PH
  84. '0 20 00' => 'Olympus Zuiko Digital 35mm F3.5 Macro', #9
  85. '0 20 10' => 'Olympus M.Zuiko Digital ED 40-150mm F2.8 Pro', #20
  86. '0 21 10' => 'Olympus M.Zuiko Digital ED 14-42mm F3.5-5.6 EZ', #20
  87. '0 22 00' => 'Olympus Zuiko Digital 17.5-45mm F3.5-5.6', #9
  88. '0 22 10' => 'Olympus M.Zuiko Digital 25mm F1.8', #20
  89. '0 23 00' => 'Olympus Zuiko Digital ED 14-42mm F3.5-5.6', #PH
  90. '0 23 10' => 'Olympus M.Zuiko Digital ED 7-14mm F2.8 Pro', #20
  91. '0 24 00' => 'Olympus Zuiko Digital ED 40-150mm F4.0-5.6', #PH
  92. '0 24 10' => 'Olympus M.Zuiko Digital ED 300mm F4.0 IS Pro', #20
  93. '0 25 10' => 'Olympus M.Zuiko Digital ED 8mm F1.8 Fisheye Pro', #20
  94. '0 30 00' => 'Olympus Zuiko Digital ED 50-200mm F2.8-3.5 SWD', #7
  95. '0 31 00' => 'Olympus Zuiko Digital ED 12-60mm F2.8-4.0 SWD', #7
  96. '0 32 00' => 'Olympus Zuiko Digital ED 14-35mm F2.0 SWD', #PH
  97. '0 33 00' => 'Olympus Zuiko Digital 25mm F2.8', #PH
  98. '0 34 00' => 'Olympus Zuiko Digital ED 9-18mm F4.0-5.6', #7
  99. '0 35 00' => 'Olympus Zuiko Digital 14-54mm F2.8-3.5 II', #PH
  100. # Sigma lenses
  101. '1 01 00' => 'Sigma 18-50mm F3.5-5.6 DC', #8
  102. '1 01 10' => 'Sigma 30mm F2.8 EX DN', #20
  103. '1 02 00' => 'Sigma 55-200mm F4.0-5.6 DC',
  104. '1 02 10' => 'Sigma 19mm F2.8 EX DN', #20
  105. '1 03 00' => 'Sigma 18-125mm F3.5-5.6 DC',
  106. '1 03 10' => 'Sigma 30mm F2.8 DN | A', #20
  107. '1 04 00' => 'Sigma 18-125mm F3.5-5.6 DC', #7
  108. '1 04 10' => 'Sigma 19mm F2.8 DN | A', #20
  109. '1 05 00' => 'Sigma 30mm F1.4 EX DC HSM', #10
  110. '1 05 10' => 'Sigma 60mm F2.8 DN | A', #20
  111. '1 06 00' => 'Sigma APO 50-500mm F4.0-6.3 EX DG HSM', #6
  112. '1 07 00' => 'Sigma Macro 105mm F2.8 EX DG', #PH
  113. '1 08 00' => 'Sigma APO Macro 150mm F2.8 EX DG HSM', #PH
  114. '1 09 00' => 'Sigma 18-50mm F2.8 EX DC Macro', #20
  115. '1 10 00' => 'Sigma 24mm F1.8 EX DG Aspherical Macro', #PH
  116. '1 11 00' => 'Sigma APO 135-400mm F4.5-5.6 DG', #11
  117. '1 12 00' => 'Sigma APO 300-800mm F5.6 EX DG HSM', #11
  118. '1 13 00' => 'Sigma 30mm F1.4 EX DC HSM', #11
  119. '1 14 00' => 'Sigma APO 50-500mm F4.0-6.3 EX DG HSM', #11
  120. '1 15 00' => 'Sigma 10-20mm F4.0-5.6 EX DC HSM', #11
  121. '1 16 00' => 'Sigma APO 70-200mm F2.8 II EX DG Macro HSM', #11
  122. '1 17 00' => 'Sigma 50mm F1.4 EX DG HSM', #11
  123. # Panasonic/Leica lenses
  124. '2 01 00' => 'Leica D Vario Elmarit 14-50mm F2.8-3.5 Asph.', #11
  125. '2 01 10' => 'Lumix G Vario 14-45mm F3.5-5.6 Asph. Mega OIS', #16
  126. '2 02 00' => 'Leica D Summilux 25mm F1.4 Asph.', #11
  127. '2 02 10' => 'Lumix G Vario 45-200mm F4.0-5.6 Mega OIS', #16
  128. '2 03 00' => 'Leica D Vario Elmar 14-50mm F3.8-5.6 Asph. Mega OIS', #11
  129. '2 03 01' => 'Leica D Vario Elmar 14-50mm F3.8-5.6 Asph.', #14 (L10 kit)
  130. '2 03 10' => 'Lumix G Vario HD 14-140mm F4.0-5.8 Asph. Mega OIS', #16
  131. '2 04 00' => 'Leica D Vario Elmar 14-150mm F3.5-5.6', #13
  132. '2 04 10' => 'Lumix G Vario 7-14mm F4.0 Asph.', #PH (E-P1 pre-production)
  133. '2 05 10' => 'Lumix G 20mm F1.7 Asph.', #16
  134. '2 06 10' => 'Leica DG Macro-Elmarit 45mm F2.8 Asph. Mega OIS', #PH
  135. '2 07 10' => 'Lumix G Vario 14-42mm F3.5-5.6 Asph. Mega OIS', #20
  136. '2 08 10' => 'Lumix G Fisheye 8mm F3.5', #PH
  137. '2 09 10' => 'Lumix G Vario 100-300mm F4.0-5.6 Mega OIS', #11
  138. '2 10 10' => 'Lumix G 14mm F2.5 Asph.', #17
  139. '2 11 10' => 'Lumix G 12.5mm F12 3D', #20 (H-FT012)
  140. '2 12 10' => 'Leica DG Summilux 25mm F1.4 Asph.', #20
  141. '2 13 10' => 'Lumix G X Vario PZ 45-175mm F4.0-5.6 Asph. Power OIS', #20
  142. '2 14 10' => 'Lumix G X Vario PZ 14-42mm F3.5-5.6 Asph. Power OIS', #20
  143. '2 15 10' => 'Lumix G X Vario 12-35mm F2.8 Asph. Power OIS', #PH
  144. '2 16 10' => 'Lumix G Vario 45-150mm F4.0-5.6 Asph. Mega OIS', #20
  145. '2 17 10' => 'Lumix G X Vario 35-100mm F2.8 Power OIS', #PH
  146. '2 18 10' => 'Lumix G Vario 14-42mm F3.5-5.6 II Asph. Mega OIS', #20
  147. '2 19 10' => 'Lumix G Vario 14-140mm F3.5-5.6 Asph. Power OIS', #20
  148. '2 20 10' => 'Lumix G Vario 12-32mm F3.5-5.6 Asph. Mega OIS', #20
  149. '2 21 10' => 'Leica DG Nocticron 42.5mm F1.2 Asph. Power OIS', #20
  150. '2 22 10' => 'Leica DG Summilux 15mm F1.7 Asph.', #20
  151. # '2 23 10' => 'Lumix G Vario 35-100mm F4.0-5.6 Asph. Mega OIS', #20 (guess)
  152. '2 24 10' => 'Lumix G Macro 30mm F2.8 Asph. Mega OIS', #20
  153. '2 25 10' => 'Lumix G 42.5mm F1.7 Asph. Power OIS', #20
  154. '3 01 00' => 'Leica D Vario Elmarit 14-50mm F2.8-3.5 Asph.', #11
  155. '3 02 00' => 'Leica D Summilux 25mm F1.4 Asph.', #11
  156. # Tamron lenses
  157. '5 01 10' => 'Tamron 14-150mm F3.5-5.8 Di III', #20 (model C001)
  158. );
  159. # lookup for Olympus camera types (ref PH)
  160. my %olympusCameraTypes = (
  161. Notes => q{
  162. These values are currently decoded only for Olympus models. Models with
  163. Olympus-style maker notes from other brands such as Acer, BenQ, Hitachi, HP,
  164. Premier, Konica-Minolta, Maginon, Ricoh, Rollei, SeaLife, Sony, Supra,
  165. Vivitar are not listed.
  166. },
  167. D4028 => 'X-2,C-50Z',
  168. D4029 => 'E-20,E-20N,E-20P',
  169. D4034 => 'C720UZ',
  170. D4040 => 'E-1',
  171. D4041 => 'E-300',
  172. D4083 => 'C2Z,D520Z,C220Z',
  173. D4106 => 'u20D,S400D,u400D',
  174. D4120 => 'X-1',
  175. D4122 => 'u10D,S300D,u300D',
  176. D4125 => 'AZ-1',
  177. D4141 => 'C150,D390',
  178. D4193 => 'C-5000Z',
  179. D4194 => 'X-3,C-60Z',
  180. D4199 => 'u30D,S410D,u410D',
  181. D4205 => 'X450,D535Z,C370Z',
  182. D4210 => 'C160,D395',
  183. D4211 => 'C725UZ',
  184. D4213 => 'FerrariMODEL2003',
  185. D4216 => 'u15D',
  186. D4217 => 'u25D',
  187. D4220 => 'u-miniD,Stylus V',
  188. D4221 => 'u40D,S500,uD500',
  189. D4231 => 'FerrariMODEL2004',
  190. D4240 => 'X500,D590Z,C470Z',
  191. D4244 => 'uD800,S800',
  192. D4256 => 'u720SW,S720SW',
  193. D4261 => 'X600,D630,FE5500',
  194. D4262 => 'uD600,S600',
  195. D4301 => 'u810/S810', # (yes, "/". Olympus is not consistent in the notation)
  196. D4302 => 'u710,S710',
  197. D4303 => 'u700,S700',
  198. D4304 => 'FE100,X710',
  199. D4305 => 'FE110,X705',
  200. D4310 => 'FE-130,X-720',
  201. D4311 => 'FE-140,X-725',
  202. D4312 => 'FE150,X730',
  203. D4313 => 'FE160,X735',
  204. D4314 => 'u740,S740',
  205. D4315 => 'u750,S750',
  206. D4316 => 'u730/S730',
  207. D4317 => 'FE115,X715',
  208. D4321 => 'SP550UZ',
  209. D4322 => 'SP510UZ',
  210. D4324 => 'FE170,X760',
  211. D4326 => 'FE200',
  212. D4327 => 'FE190/X750', # (also SX876)
  213. D4328 => 'u760,S760',
  214. D4330 => 'FE180/X745', # (also SX875)
  215. D4331 => 'u1000/S1000',
  216. D4332 => 'u770SW,S770SW',
  217. D4333 => 'FE240/X795',
  218. D4334 => 'FE210,X775',
  219. D4336 => 'FE230/X790',
  220. D4337 => 'FE220,X785',
  221. D4338 => 'u725SW,S725SW',
  222. D4339 => 'FE250/X800',
  223. D4341 => 'u780,S780',
  224. D4343 => 'u790SW,S790SW',
  225. D4344 => 'u1020,S1020',
  226. D4346 => 'FE15,X10',
  227. D4348 => 'FE280,X820,C520',
  228. D4349 => 'FE300,X830',
  229. D4350 => 'u820,S820',
  230. D4351 => 'u1200,S1200',
  231. D4352 => 'FE270,X815,C510',
  232. D4353 => 'u795SW,S795SW',
  233. D4354 => 'u1030SW,S1030SW',
  234. D4355 => 'SP560UZ',
  235. D4356 => 'u1010,S1010',
  236. D4357 => 'u830,S830',
  237. D4359 => 'u840,S840',
  238. D4360 => 'FE350WIDE,X865',
  239. D4361 => 'u850SW,S850SW',
  240. D4362 => 'FE340,X855,C560',
  241. D4363 => 'FE320,X835,C540',
  242. D4364 => 'SP570UZ',
  243. D4366 => 'FE330,X845,C550',
  244. D4368 => 'FE310,X840,C530',
  245. D4370 => 'u1050SW,S1050SW',
  246. D4371 => 'u1060,S1060',
  247. D4372 => 'FE370,X880,C575',
  248. D4374 => 'SP565UZ',
  249. D4377 => 'u1040,S1040',
  250. D4378 => 'FE360,X875,C570',
  251. D4379 => 'FE20,X15,C25',
  252. D4380 => 'uT6000,ST6000',
  253. D4381 => 'uT8000,ST8000',
  254. D4382 => 'u9000,S9000',
  255. D4384 => 'SP590UZ',
  256. D4385 => 'FE3010,X895',
  257. D4386 => 'FE3000,X890',
  258. D4387 => 'FE35,X30',
  259. D4388 => 'u550WP,S550WP',
  260. D4390 => 'FE5000,X905',
  261. D4391 => 'u5000',
  262. D4392 => 'u7000,S7000',
  263. D4396 => 'FE5010,X915',
  264. D4397 => 'FE25,X20',
  265. D4398 => 'FE45,X40',
  266. D4401 => 'XZ-1',
  267. D4402 => 'uT6010,ST6010',
  268. D4406 => 'u7010,S7010 / u7020,S7020',
  269. D4407 => 'FE4010,X930',
  270. D4408 => 'X560WP',
  271. D4409 => 'FE26,X21',
  272. D4410 => 'FE4000,X920,X925',
  273. D4411 => 'FE46,X41,X42',
  274. D4412 => 'FE5020,X935',
  275. D4413 => 'uTough-3000',
  276. D4414 => 'StylusTough-6020',
  277. D4415 => 'StylusTough-8010',
  278. D4417 => 'u5010,S5010',
  279. D4418 => 'u7040,S7040',
  280. D4419 => 'u9010,S9010',
  281. D4423 => 'FE4040',
  282. D4424 => 'FE47,X43',
  283. D4426 => 'FE4030,X950',
  284. D4428 => 'FE5030,X965,X960',
  285. D4430 => 'u7030,S7030',
  286. D4432 => 'SP600UZ',
  287. D4434 => 'SP800UZ',
  288. D4439 => 'FE4020,X940',
  289. D4442 => 'FE5035',
  290. D4448 => 'FE4050,X970',
  291. D4450 => 'FE5050,X985',
  292. D4454 => 'u-7050',
  293. D4464 => 'T10,X27',
  294. D4470 => 'FE5040,X980',
  295. D4472 => 'TG-310',
  296. D4474 => 'TG-610',
  297. D4476 => 'TG-810',
  298. D4478 => 'VG145,VG140,D715',
  299. D4479 => 'VG130,D710',
  300. D4480 => 'VG120,D705',
  301. D4482 => 'VR310,D720',
  302. D4484 => 'VR320,D725',
  303. D4486 => 'VR330,D730',
  304. D4488 => 'VG110,D700',
  305. D4490 => 'SP-610UZ',
  306. D4492 => 'SZ-10',
  307. D4494 => 'SZ-20',
  308. D4496 => 'SZ-30MR',
  309. D4498 => 'SP-810UZ',
  310. D4500 => 'SZ-11',
  311. D4504 => 'TG-615',
  312. D4508 => 'TG-620',
  313. D4510 => 'TG-820',
  314. D4512 => 'TG-1',
  315. D4516 => 'SH-21',
  316. D4519 => 'SZ-14',
  317. D4520 => 'SZ-31MR',
  318. D4521 => 'SH-25MR',
  319. D4523 => 'SP-720UZ',
  320. D4529 => 'VG170',
  321. D4531 => 'XZ-2',
  322. D4535 => 'SP-620UZ',
  323. D4536 => 'TG-320',
  324. D4537 => 'VR340,D750',
  325. D4538 => 'VG160,X990,D745',
  326. D4541 => 'SZ-12',
  327. D4545 => 'VH410',
  328. D4546 => 'XZ-10', #21
  329. D4547 => 'TG-2',
  330. D4548 => 'TG-830',
  331. D4549 => 'TG-630',
  332. D4550 => 'SH-50',
  333. D4553 => 'SZ-16,DZ-105',
  334. D4562 => 'SP-820UZ',
  335. D4566 => 'SZ-15',
  336. D4572 => 'STYLUS1',
  337. D4574 => 'TG-3',
  338. D4575 => 'TG-850',
  339. D4579 => 'SP-100EE',
  340. D4580 => 'SH-60',
  341. D4581 => 'SH-1',
  342. D4582 => 'TG-835',
  343. D4585 => 'SH-2',
  344. D4586 => 'TG-4',
  345. D4809 => 'C2500L',
  346. D4842 => 'E-10',
  347. D4856 => 'C-1',
  348. D4857 => 'C-1Z,D-150Z',
  349. D4587 => 'TG-860',
  350. DCHC => 'D500L',
  351. DCHT => 'D600L / D620L',
  352. K0055 => 'AIR-A01',
  353. S0003 => 'E-330',
  354. S0004 => 'E-500',
  355. S0009 => 'E-400',
  356. S0010 => 'E-510',
  357. S0011 => 'E-3',
  358. S0013 => 'E-410',
  359. S0016 => 'E-420',
  360. S0017 => 'E-30',
  361. S0018 => 'E-520',
  362. S0019 => 'E-P1',
  363. S0023 => 'E-620',
  364. S0026 => 'E-P2',
  365. S0027 => 'E-PL1',
  366. S0029 => 'E-450',
  367. S0030 => 'E-600',
  368. S0032 => 'E-P3',
  369. S0033 => 'E-5',
  370. S0034 => 'E-PL2',
  371. S0036 => 'E-M5',
  372. S0038 => 'E-PL3',
  373. S0039 => 'E-PM1',
  374. S0040 => 'E-PL1s',
  375. S0042 => 'E-PL5',
  376. S0043 => 'E-PM2',
  377. S0044 => 'E-P5',
  378. S0045 => 'E-PL6',
  379. S0046 => 'E-PL7', #21
  380. S0047 => 'E-M1',
  381. S0051 => 'E-M10',
  382. S0052 => 'E-M5MarkII', #21
  383. S0059 => 'E-M10MarkII',
  384. SR45 => 'D220',
  385. SR55 => 'D320L',
  386. SR83 => 'D340L',
  387. SR85 => 'C830L,D340R',
  388. SR852 => 'C860L,D360L',
  389. SR872 => 'C900Z,D400Z',
  390. SR874 => 'C960Z,D460Z',
  391. SR951 => 'C2000Z',
  392. SR952 => 'C21',
  393. SR953 => 'C21T.commu',
  394. SR954 => 'C2020Z',
  395. SR955 => 'C990Z,D490Z',
  396. SR956 => 'C211Z',
  397. SR959 => 'C990ZS,D490Z',
  398. SR95A => 'C2100UZ',
  399. SR971 => 'C100,D370',
  400. SR973 => 'C2,D230',
  401. SX151 => 'E100RS',
  402. SX351 => 'C3000Z / C3030Z',
  403. SX354 => 'C3040Z',
  404. SX355 => 'C2040Z',
  405. SX357 => 'C700UZ',
  406. SX358 => 'C200Z,D510Z',
  407. SX374 => 'C3100Z,C3020Z',
  408. SX552 => 'C4040Z',
  409. SX553 => 'C40Z,D40Z',
  410. SX556 => 'C730UZ',
  411. SX558 => 'C5050Z',
  412. SX571 => 'C120,D380',
  413. SX574 => 'C300Z,D550Z',
  414. SX575 => 'C4100Z,C4000Z',
  415. SX751 => 'X200,D560Z,C350Z',
  416. SX752 => 'X300,D565Z,C450Z',
  417. SX753 => 'C750UZ',
  418. SX754 => 'C740UZ',
  419. SX755 => 'C755UZ',
  420. SX756 => 'C5060WZ',
  421. SX757 => 'C8080WZ',
  422. SX758 => 'X350,D575Z,C360Z',
  423. SX759 => 'X400,D580Z,C460Z',
  424. SX75A => 'AZ-2ZOOM',
  425. SX75B => 'D595Z,C500Z',
  426. SX75C => 'X550,D545Z,C480Z',
  427. SX75D => 'IR-300',
  428. SX75F => 'C55Z,C5500Z',
  429. SX75G => 'C170,D425',
  430. SX75J => 'C180,D435',
  431. SX771 => 'C760UZ',
  432. SX772 => 'C770UZ',
  433. SX773 => 'C745UZ',
  434. SX774 => 'X250,D560Z,C350Z',
  435. SX775 => 'X100,D540Z,C310Z',
  436. SX776 => 'C460ZdelSol',
  437. SX777 => 'C765UZ',
  438. SX77A => 'D555Z,C315Z',
  439. SX851 => 'C7070WZ',
  440. SX852 => 'C70Z,C7000Z',
  441. SX853 => 'SP500UZ',
  442. SX854 => 'SP310',
  443. SX855 => 'SP350',
  444. SX873 => 'SP320',
  445. SX875 => 'FE180/X745', # (also D4330)
  446. SX876 => 'FE190/X750', # (also D4327)
  447. # other brands
  448. # 4MP9Q3 => 'Camera 4MP-9Q3'
  449. # 4MP9T2 => 'BenQ DC C420 / Camera 4MP-9T2'
  450. # 5MP9Q3 => 'Camera 5MP-9Q3',
  451. # 5MP9X9 => 'Camera 5MP-9X9',
  452. # '5MP-9T'=> 'Camera 5MP-9T3',
  453. # '5MP-9Y'=> 'Camera 5MP-9Y2',
  454. # '6MP-9U'=> 'Camera 6MP-9U9',
  455. # 7MP9Q3 => 'Camera 7MP-9Q3',
  456. # '8MP-9U'=> 'Camera 8MP-9U4',
  457. # CE5330 => 'Acer CE-5330',
  458. # 'CP-853'=> 'Acer CP-8531',
  459. # CS5531 => 'Acer CS5531',
  460. # DC500 => 'SeaLife DC500',
  461. # DC7370 => 'Camera 7MP-9GA',
  462. # DC7371 => 'Camera 7MP-9GM',
  463. # DC7371 => 'Hitachi HDC-751E',
  464. # DC7375 => 'Hitachi HDC-763E / Rollei RCP-7330X / Ricoh Caplio RR770 / Vivitar ViviCam 7330',
  465. # 'DC E63'=> 'BenQ DC E63+',
  466. # 'DC P86'=> 'BenQ DC P860',
  467. # DS5340 => 'Maginon Performic S5 / Premier 5MP-9M7',
  468. # DS5341 => 'BenQ E53+ / Supra TCM X50 / Maginon X50 / Premier 5MP-9P8',
  469. # DS5346 => 'Premier 5MP-9Q2',
  470. # E500 => 'Konica Minolta DiMAGE E500',
  471. # MAGINO => 'Maginon X60',
  472. # Mz60 => 'HP Photosmart Mz60',
  473. # Q3DIGI => 'Camera 5MP-9Q3',
  474. # SLIMLI => 'Supra Slimline X6',
  475. # V8300s => 'Vivitar V8300s',
  476. );
  477. # ArtFilter, ArtFilterEffect and MagicFilter values (ref PH)
  478. my %filters = (
  479. 0 => 'Off',
  480. 1 => 'Soft Focus', # (XZ-1)
  481. 2 => 'Pop Art', # (SZ-10 magic filter 1,SZ-31MR,E-M5,E-PL3)
  482. 3 => 'Pale & Light Color',
  483. 4 => 'Light Tone',
  484. 5 => 'Pin Hole', # (SZ-10 magic filter 2,SZ-31MR,E-PL3)
  485. 6 => 'Grainy Film',
  486. 9 => 'Diorama',
  487. 10 => 'Cross Process',
  488. 12 => 'Fish Eye', # (SZ-10 magic filter 3)
  489. 13 => 'Drawing', # (SZ-10 magic filter 4)
  490. 14 => 'Gentle Sepia', # (E-5)
  491. 15 => 'Pale & Light Color II', #forum6269 ('Tender Light' ref 11)
  492. 16 => 'Pop Art II', #11 (E-PL3 "(dark)" - PH)
  493. 17 => 'Pin Hole II', #11 (E-PL3 "(color 2)" - PH)
  494. 18 => 'Pin Hole III', #11 (E-M5, E-PL3 "(color 3)" - PH)
  495. 19 => 'Grainy Film II', #11
  496. 20 => 'Dramatic Tone', # (XZ-1,SZ-31MR)
  497. 21 => 'Punk', # (SZ-10 magic filter 6)
  498. 22 => 'Soft Focus 2', # (SZ-10 magic filter 5)
  499. 23 => 'Sparkle', # (SZ-10 magic filter 7)
  500. 24 => 'Watercolor', # (SZ-10 magic filter 8)
  501. 25 => 'Key Line', # (E-M5)
  502. 26 => 'Key Line II', #forum6269
  503. 27 => 'Miniature', # (SZ-31MR)
  504. 28 => 'Reflection', # (TG-820,SZ-31MR)
  505. 29 => 'Fragmented', # (TG-820,SZ-31MR)
  506. 31 => 'Cross Process II', #forum6269
  507. 32 => 'Dramatic Tone II', #forum6269 (Dramatic Tone B&W for E-M5)
  508. 33 => 'Watercolor I', # ('Watercolor I' for EM-1 ref forum6269, 'Watercolor II' for E-PM2 ref PH)
  509. 34 => 'Watercolor II', #forum6269
  510. 35 => 'Diorama II', #forum6269
  511. 36 => 'Vintage', #forum6269
  512. 37 => 'Vintage II', #forum6269
  513. 38 => 'Vintage III', #forum6269
  514. 39 => 'Partial Color', #forum6269
  515. 40 => 'Partial Color II', #forum6269
  516. 41 => 'Partial Color III', #forum6269
  517. );
  518. # tag information for WAV "Index" tags
  519. my %indexInfo = (
  520. Format => 'int32u',
  521. RawConv => '$val == 0xffffffff ? undef : $val',
  522. ValueConv => '$val / 1000',
  523. PrintConv => 'ConvertDuration($val)',
  524. );
  525. # Olympus tags
  526. %Image::ExifTool::Olympus::Main = (
  527. WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
  528. CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
  529. WRITABLE => 1,
  530. GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
  531. #
  532. # Tags 0x0000 through 0x0103 are the same as Konica/Minolta cameras (ref 3)
  533. # (removed 0x0101-0x0103 because they weren't supported by my samples - PH)
  534. #
  535. 0x0000 => {
  536. Name => 'MakerNoteVersion',
  537. Writable => 'undef',
  538. },
  539. 0x0001 => {
  540. Name => 'MinoltaCameraSettingsOld',
  541. SubDirectory => {
  542. TagTable => 'Image::ExifTool::Minolta::CameraSettings',
  543. ByteOrder => 'BigEndian',
  544. },
  545. },
  546. 0x0003 => {
  547. Name => 'MinoltaCameraSettings',
  548. SubDirectory => {
  549. TagTable => 'Image::ExifTool::Minolta::CameraSettings',
  550. ByteOrder => 'BigEndian',
  551. },
  552. },
  553. 0x0040 => {
  554. Name => 'CompressedImageSize',
  555. Writable => 'int32u',
  556. },
  557. 0x0081 => {
  558. Name => 'PreviewImageData',
  559. Binary => 1,
  560. Writable => 0,
  561. },
  562. 0x0088 => {
  563. Name => 'PreviewImageStart',
  564. Flags => 'IsOffset',
  565. OffsetPair => 0x0089, # point to associated byte count
  566. DataTag => 'PreviewImage',
  567. Writable => 0,
  568. Protected => 2,
  569. },
  570. 0x0089 => {
  571. Name => 'PreviewImageLength',
  572. OffsetPair => 0x0088, # point to associated offset
  573. DataTag => 'PreviewImage',
  574. Writable => 0,
  575. Protected => 2,
  576. },
  577. 0x0100 => {
  578. Name => 'ThumbnailImage',
  579. Groups => { 2 => 'Preview' },
  580. Writable => 'undef',
  581. WriteCheck => '$self->CheckImage(\$val)',
  582. Binary => 1,
  583. },
  584. 0x0104 => { Name => 'BodyFirmwareVersion', Writable => 'string' }, #11
  585. #
  586. # end Konica/Minolta tags
  587. #
  588. 0x0200 => {
  589. Name => 'SpecialMode',
  590. Notes => q{
  591. 3 numbers: 1. Shooting mode: 0=Normal, 2=Fast, 3=Panorama;
  592. 2. Sequence Number; 3. Panorama Direction: 1=Left-right,
  593. 2=Right-left, 3=Bottom-Top, 4=Top-Bottom
  594. },
  595. Writable => 'int32u',
  596. Count => 3,
  597. PrintConv => sub { #3
  598. my $val = shift;
  599. my @v = split ' ', $val;
  600. return $val unless @v >= 3;
  601. my @v0 = ('Normal','Unknown (1)','Fast','Panorama');
  602. my @v2 = ('(none)','Left to Right','Right to Left','Bottom to Top','Top to Bottom');
  603. $val = $v0[$v[0]] || "Unknown ($v[0])";
  604. $val .= ", Sequence: $v[1]";
  605. $val .= ', Panorama: ' . ($v2[$v[2]] || "Unknown ($v[2])");
  606. return $val;
  607. },
  608. },
  609. 0x0201 => {
  610. Name => 'Quality',
  611. Writable => 'int16u',
  612. Notes => q{
  613. Quality values are decoded based on the CameraType tag. All types
  614. represent SQ, HQ and SHQ as sequential integers, but in general
  615. SX-type cameras start with a value of 0 for SQ while others start
  616. with 1
  617. },
  618. # These values are different for different camera types
  619. # (can't have Condition based on CameraType because it isn't known
  620. # when this tag is extracted)
  621. PrintConv => sub {
  622. my ($val, $self) = @_;
  623. my %t1 = ( # all SX camera types except SX151
  624. 0 => 'SQ (Low)',
  625. 1 => 'HQ (Normal)',
  626. 2 => 'SHQ (Fine)',
  627. 6 => 'RAW', #PH - C5050WZ
  628. );
  629. my %t2 = ( # all other types (except D4322, ref 22)
  630. 1 => 'SQ (Low)',
  631. 2 => 'HQ (Normal)',
  632. 3 => 'SHQ (Fine)',
  633. 4 => 'RAW',
  634. 5 => 'Medium-Fine', #PH
  635. 6 => 'Small-Fine', #PH
  636. 33 => 'Uncompressed', #PH - C2100Z
  637. );
  638. my $conv = $self->{CameraType} =~ /^(SX(?!151\b)|D4322)/ ? \%t1 : \%t2;
  639. return $$conv{$val} ? $$conv{$val} : "Unknown ($val)";
  640. },
  641. # (no PrintConvInv because we don't know CameraType at write time)
  642. },
  643. 0x0202 => {
  644. Name => 'Macro',
  645. Writable => 'int16u',
  646. PrintConv => {
  647. 0 => 'Off',
  648. 1 => 'On',
  649. 2 => 'Super Macro', #6
  650. },
  651. },
  652. 0x0203 => { #6
  653. Name => 'BWMode',
  654. Description => 'Black And White Mode',
  655. Writable => 'int16u',
  656. PrintConv => {
  657. 0 => 'Off',
  658. 1 => 'On',
  659. 6 => '(none)', #22
  660. },
  661. },
  662. 0x0204 => {
  663. Name => 'DigitalZoom',
  664. Writable => 'rational64u',
  665. PrintConv => '$val=~/\./ or $val.=".0"; $val',
  666. PrintConvInv => '$val',
  667. },
  668. 0x0205 => { #6
  669. Name => 'FocalPlaneDiagonal',
  670. Writable => 'rational64u',
  671. PrintConv => '"$val mm"',
  672. PrintConvInv => '$val=~s/\s*mm$//;$val',
  673. },
  674. 0x0206 => { Name => 'LensDistortionParams', Writable => 'int16s', Count => 6 }, #6
  675. 0x0207 => { #PH (was incorrectly FirmwareVersion, ref 1/3)
  676. Name => 'CameraType',
  677. Condition => '$$valPt ne "NORMAL"', # FE240, SP510, u730 and u1000 write this
  678. Writable => 'string',
  679. DataMember => 'CameraType',
  680. RawConv => '$self->{CameraType} = $val',
  681. SeparateTable => 'CameraType',
  682. ValueConv => '$val =~ s/\s+$//; $val', # ("SX151 " has trailing space)
  683. ValueConvInv => '$val',
  684. PrintConv => \%olympusCameraTypes,
  685. Priority => 0,
  686. # 'NORMAL' for some models: u730,SP510UZ,u1000,FE240
  687. },
  688. 0x0208 => {
  689. Name => 'TextInfo',
  690. SubDirectory => {
  691. TagTable => 'Image::ExifTool::Olympus::TextInfo',
  692. },
  693. },
  694. 0x0209 => {
  695. Name => 'CameraID',
  696. Format => 'string', # this really should have been a string
  697. },
  698. 0x020b => { Name => 'EpsonImageWidth', Writable => 'int16u' }, #PH
  699. 0x020c => { Name => 'EpsonImageHeight', Writable => 'int16u' }, #PH
  700. 0x020d => { Name => 'EpsonSoftware', Writable => 'string' }, #PH
  701. 0x0280 => { #PH
  702. %Image::ExifTool::previewImageTagInfo,
  703. Groups => { 2 => 'Preview' },
  704. Notes => 'found in ERF and JPG images from some Epson models',
  705. Format => 'undef',
  706. Writable => 'int8u',
  707. },
  708. 0x0300 => { Name => 'PreCaptureFrames', Writable => 'int16u' }, #6
  709. 0x0301 => { Name => 'WhiteBoard', Writable => 'int16u' }, #11
  710. 0x0302 => { #6
  711. Name => 'OneTouchWB',
  712. Writable => 'int16u',
  713. PrintConv => {
  714. 0 => 'Off',
  715. 1 => 'On',
  716. 2 => 'On (Preset)',
  717. },
  718. },
  719. 0x0303 => { Name => 'WhiteBalanceBracket', Writable => 'int16u' }, #11
  720. 0x0304 => { Name => 'WhiteBalanceBias', Writable => 'int16u' }, #11
  721. # 0x0305 => 'PrintMatching', ? #11
  722. 0x0401 => { #21
  723. Name => 'BlackLevel',
  724. Condition => '$format eq "int32u" and $count == 4',
  725. Writable => 'int32u',
  726. Count => 4,
  727. Notes => 'found in Epson ERF images',
  728. },
  729. # 0x0402 - BitCodedAutoFocus (ref 11)
  730. 0x0403 => { #11
  731. Name => 'SceneMode',
  732. Writable => 'int16u',
  733. PrintConvColumns => 2,
  734. PrintConv => {
  735. 0 => 'Normal',
  736. 1 => 'Standard',
  737. 2 => 'Auto',
  738. 3 => 'Intelligent Auto', #PH (guess, u7040)
  739. 4 => 'Portrait',
  740. 5 => 'Landscape+Portrait',
  741. 6 => 'Landscape',
  742. 7 => 'Night Scene',
  743. 8 => 'Night+Portrait',
  744. 9 => 'Sport',
  745. 10 => 'Self Portrait',
  746. 11 => 'Indoor',
  747. 12 => 'Beach & Snow',
  748. 13 => 'Beach',
  749. 14 => 'Snow',
  750. 15 => 'Self Portrait+Self Timer',
  751. 16 => 'Sunset',
  752. 17 => 'Cuisine',
  753. 18 => 'Documents',
  754. 19 => 'Candle',
  755. 20 => 'Fireworks',
  756. 21 => 'Available Light',
  757. 22 => 'Vivid',
  758. 23 => 'Underwater Wide1',
  759. 24 => 'Underwater Macro',
  760. 25 => 'Museum',
  761. 26 => 'Behind Glass',
  762. 27 => 'Auction',
  763. 28 => 'Shoot & Select1',
  764. 29 => 'Shoot & Select2',
  765. 30 => 'Underwater Wide2',
  766. 31 => 'Digital Image Stabilization',
  767. 32 => 'Face Portrait',
  768. 33 => 'Pet',
  769. 34 => 'Smile Shot',
  770. 35 => 'Quick Shutter',
  771. 43 => 'Hand-held Starlight', #PH (SH-21)
  772. 100 => 'Panorama', #PH (SH-21)
  773. 101 => 'Magic Filter', #PH
  774. 103 => 'HDR', #PH (XZ-2)
  775. },
  776. },
  777. 0x0404 => { Name => 'SerialNumber', Writable => 'string' }, #PH (D595Z, C7070WZ)
  778. 0x0405 => { Name => 'Firmware', Writable => 'string' }, #11
  779. 0x0e00 => { # (AFFieldCoord for models XZ-2 and XZ-10, ref 11)
  780. Name => 'PrintIM',
  781. Description => 'Print Image Matching',
  782. Writable => 0,
  783. SubDirectory => {
  784. TagTable => 'Image::ExifTool::PrintIM::Main',
  785. },
  786. },
  787. 0x0f00 => {
  788. Name => 'DataDump',
  789. Writable => 0,
  790. Binary => 1,
  791. },
  792. 0x0f01 => { #6
  793. Name => 'DataDump2',
  794. Writable => 0,
  795. Binary => 1,
  796. },
  797. 0x0f04 => {
  798. Name => 'ZoomedPreviewStart',
  799. # NOTE: this tag is currently not updated properly when the image is rewritten!
  800. OffsetPair => 0xf05,
  801. DataTag => 'ZoomedPreviewImage',
  802. Writable => 'int32u',
  803. Protected => 2,
  804. },
  805. 0x0f05 => {
  806. Name => 'ZoomedPreviewLength',
  807. OffsetPair => 0xf04,
  808. DataTag => 'ZoomedPreviewImage',
  809. Writable => 'int32u',
  810. Protected => 2,
  811. },
  812. 0x0f06 => {
  813. Name => 'ZoomedPreviewSize',
  814. Writable => 'int16u',
  815. Count => 2,
  816. },
  817. 0x1000 => { #6
  818. Name => 'ShutterSpeedValue',
  819. Writable => 'rational64s',
  820. Priority => 0,
  821. ValueConv => 'abs($val)<100 ? 2**(-$val) : 0',
  822. ValueConvInv => '$val>0 ? -log($val)/log(2) : -100',
  823. PrintConv => 'Image::ExifTool::Exif::PrintExposureTime($val)',
  824. PrintConvInv => 'Image::ExifTool::Exif::ConvertFraction($val)',
  825. },
  826. 0x1001 => { #6
  827. Name => 'ISOValue',
  828. Writable => 'rational64s',
  829. Priority => 0,
  830. ValueConv => '100 * 2 ** ($val - 5)',
  831. ValueConvInv => '$val>0 ? log($val/100)/log(2)+5 : 0',
  832. PrintConv => 'int($val * 100 + 0.5) / 100',
  833. PrintConvInv => '$val',
  834. },
  835. 0x1002 => { #6
  836. Name => 'ApertureValue',
  837. Writable => 'rational64s',
  838. Priority => 0,
  839. ValueConv => '2 ** ($val / 2)',
  840. ValueConvInv => '$val>0 ? 2*log($val)/log(2) : 0',
  841. PrintConv => 'sprintf("%.1f",$val)',
  842. PrintConvInv => '$val',
  843. },
  844. 0x1003 => { #6
  845. Name => 'BrightnessValue',
  846. Writable => 'rational64s',
  847. Priority => 0,
  848. },
  849. 0x1004 => { #3
  850. Name => 'FlashMode',
  851. Writable => 'int16u',
  852. PrintConv => {
  853. 2 => 'On', #PH
  854. 3 => 'Off', #PH
  855. },
  856. },
  857. 0x1005 => { #6
  858. Name => 'FlashDevice',
  859. Writable => 'int16u',
  860. PrintConv => {
  861. 0 => 'None',
  862. 1 => 'Internal',
  863. 4 => 'External',
  864. 5 => 'Internal + External',
  865. },
  866. },
  867. 0x1006 => { #6
  868. Name =>'ExposureCompensation',
  869. Writable => 'rational64s',
  870. },
  871. 0x1007 => { Name => 'SensorTemperature',Writable => 'int16s' }, #6 (E-10, E-20 and C2500L - numbers usually around 30-40)
  872. 0x1008 => { Name => 'LensTemperature', Writable => 'int16s' }, #6
  873. 0x1009 => { Name => 'LightCondition', Writable => 'int16u' }, #11
  874. 0x100a => { #11
  875. Name => 'FocusRange',
  876. Writable => 'int16u',
  877. PrintConv => {
  878. 0 => 'Normal',
  879. 1 => 'Macro',
  880. },
  881. },
  882. 0x100b => { #6
  883. Name => 'FocusMode',
  884. Writable => 'int16u',
  885. PrintConv => {
  886. 0 => 'Auto',
  887. 1 => 'Manual',
  888. },
  889. },
  890. 0x100c => { #6
  891. Name => 'ManualFocusDistance',
  892. Writable => 'rational64u',
  893. PrintConv => '"$val mm"', #11
  894. PrintConvInv => '$val=~s/\s*mm$//; $val',
  895. },
  896. 0x100d => { Name => 'ZoomStepCount', Writable => 'int16u' }, #6
  897. 0x100e => { Name => 'FocusStepCount', Writable => 'int16u' }, #6
  898. 0x100f => { #6
  899. Name => 'Sharpness',
  900. Writable => 'int16u',
  901. Priority => 0,
  902. PrintConv => {
  903. 0 => 'Normal',
  904. 1 => 'Hard',
  905. 2 => 'Soft',
  906. },
  907. },
  908. 0x1010 => { Name => 'FlashChargeLevel', Writable => 'int16u' }, #6
  909. 0x1011 => { #3
  910. Name => 'ColorMatrix',
  911. Writable => 'int16u',
  912. Format => 'int16s',
  913. Count => 9,
  914. },
  915. 0x1012 => { Name => 'BlackLevel', Writable => 'int16u', Count => 4 }, #3
  916. 0x1013 => { #11
  917. Name => 'ColorTemperatureBG',
  918. Writable => 'int16u',
  919. Unknown => 1, # (doesn't look like a temperature)
  920. },
  921. 0x1014 => { #11
  922. Name => 'ColorTemperatureRG',
  923. Writable => 'int16u',
  924. Unknown => 1, # (doesn't look like a temperature)
  925. },
  926. 0x1015 => { #6
  927. Name => 'WBMode',
  928. Writable => 'int16u',
  929. Count => 2,
  930. PrintConvColumns => 2,
  931. PrintConv => {
  932. '1' => 'Auto',
  933. '1 0' => 'Auto',
  934. '1 2' => 'Auto (2)',
  935. '1 4' => 'Auto (4)',
  936. '2 2' => '3000 Kelvin',
  937. '2 3' => '3700 Kelvin',
  938. '2 4' => '4000 Kelvin',
  939. '2 5' => '4500 Kelvin',
  940. '2 6' => '5500 Kelvin',
  941. '2 7' => '6500 Kelvin',
  942. '2 8' => '7500 Kelvin',
  943. '3 0' => 'One-touch',
  944. },
  945. },
  946. 0x1017 => { #2
  947. Name => 'RedBalance',
  948. Writable => 'int16u',
  949. Count => 2,
  950. ValueConv => '$val=~s/ .*//; $val / 256',
  951. ValueConvInv => '$val*=256;"$val 64"',
  952. },
  953. 0x1018 => { #2
  954. Name => 'BlueBalance',
  955. Writable => 'int16u',
  956. Count => 2,
  957. ValueConv => '$val=~s/ .*//; $val / 256',
  958. ValueConvInv => '$val*=256;"$val 64"',
  959. },
  960. 0x1019 => { Name => 'ColorMatrixNumber', Writable => 'int16u' }, #11
  961. # 0x101a is same as CameraID ("OLYMPUS DIGITAL CAMERA") for C2500L - PH
  962. 0x101a => { Name => 'SerialNumber', Writable => 'string' }, #3
  963. 0x101b => { #11
  964. Name => 'ExternalFlashAE1_0',
  965. Writable => 'int32u',
  966. Unknown => 1, # (what are these?)
  967. },
  968. 0x101c => { Name => 'ExternalFlashAE2_0', Writable => 'int32u', Unknown => 1 }, #11
  969. 0x101d => { Name => 'InternalFlashAE1_0', Writable => 'int32u', Unknown => 1 }, #11
  970. 0x101e => { Name => 'InternalFlashAE2_0', Writable => 'int32u', Unknown => 1 }, #11
  971. 0x101f => { Name => 'ExternalFlashAE1', Writable => 'int32u', Unknown => 1 }, #11
  972. 0x1020 => { Name => 'ExternalFlashAE2', Writable => 'int32u', Unknown => 1 }, #11
  973. 0x1021 => { Name => 'InternalFlashAE1', Writable => 'int32u', Unknown => 1 }, #11
  974. 0x1022 => { Name => 'InternalFlashAE2', Writable => 'int32u', Unknown => 1 }, #11
  975. 0x1023 => { Name => 'FlashExposureComp', Writable => 'rational64s' }, #6
  976. 0x1024 => { Name => 'InternalFlashTable', Writable => 'int16u' }, #11
  977. 0x1025 => { Name => 'ExternalFlashGValue', Writable => 'rational64s' }, #11
  978. 0x1026 => { #6
  979. Name => 'ExternalFlashBounce',
  980. Writable => 'int16u',
  981. PrintConv => {
  982. 0 => 'No',
  983. 1 => 'Yes',
  984. },
  985. },
  986. 0x1027 => { Name => 'ExternalFlashZoom', Writable => 'int16u' }, #6
  987. 0x1028 => { Name => 'ExternalFlashMode', Writable => 'int16u' }, #6
  988. 0x1029 => { #3
  989. Name => 'Contrast',
  990. Writable => 'int16u',
  991. PrintConv => { #PH (works with E1)
  992. 0 => 'High',
  993. 1 => 'Normal',
  994. 2 => 'Low',
  995. },
  996. },
  997. 0x102a => { Name => 'SharpnessFactor', Writable => 'int16u' }, #3
  998. 0x102b => { Name => 'ColorControl', Writable => 'int16u', Count => 6 }, #3
  999. 0x102c => { Name => 'ValidBits', Writable => 'int16u', Count => 2 }, #3
  1000. 0x102d => { Name => 'CoringFilter', Writable => 'int16u' }, #3
  1001. 0x102e => { Name => 'OlympusImageWidth', Writable => 'int32u' }, #PH
  1002. 0x102f => { Name => 'OlympusImageHeight', Writable => 'int32u' }, #PH
  1003. 0x1030 => { Name => 'SceneDetect', Writable => 'int16u' }, #11
  1004. 0x1031 => { #11
  1005. Name => 'SceneArea',
  1006. Writable => 'int32u',
  1007. Count => 8,
  1008. Unknown => 1, # (numbers don't make much sense?)
  1009. },
  1010. # 0x1032 HAFFINAL? #11
  1011. 0x1033 => { #11
  1012. Name => 'SceneDetectData',
  1013. Writable => 'int32u',
  1014. Count => 720,
  1015. Binary => 1,
  1016. Unknown => 1, # (but what does it mean?)
  1017. },
  1018. 0x1034 => { Name => 'CompressionRatio', Writable => 'rational64u' }, #3
  1019. 0x1035 => { #6
  1020. Name => 'PreviewImageValid',
  1021. Writable => 'int32u',
  1022. PrintConv => { 0 => 'No', 1 => 'Yes' },
  1023. },
  1024. 0x1036 => { #6
  1025. Name => 'PreviewImageStart',
  1026. Flags => 'IsOffset',
  1027. OffsetPair => 0x1037, # point to associated byte count
  1028. DataTag => 'PreviewImage',
  1029. Writable => 'int32u',
  1030. Protected => 2,
  1031. },
  1032. 0x1037 => { #6
  1033. # (may contain data from multiple previews - PH, FE320)
  1034. Name => 'PreviewImageLength',
  1035. OffsetPair => 0x1036, # point to associated offset
  1036. DataTag => 'PreviewImage',
  1037. Writable => 'int32u',
  1038. Protected => 2,
  1039. },
  1040. 0x1038 => { Name => 'AFResult', Writable => 'int16u' }, #11
  1041. 0x1039 => { #6
  1042. Name => 'CCDScanMode',
  1043. Writable => 'int16u',
  1044. PrintConv => {
  1045. 0 => 'Interlaced',
  1046. 1 => 'Progressive',
  1047. },
  1048. },
  1049. 0x103a => { #6
  1050. Name => 'NoiseReduction',
  1051. Writable => 'int16u',
  1052. PrintConv => \%offOn,
  1053. },
  1054. 0x103b => { Name => 'FocusStepInfinity', Writable => 'int16u' }, #6
  1055. 0x103c => { Name => 'FocusStepNear', Writable => 'int16u' }, #6
  1056. 0x103d => { Name => 'LightValueCenter', Writable => 'rational64s' }, #11
  1057. 0x103e => { Name => 'LightValuePeriphery', Writable => 'rational64s' }, #11
  1058. 0x103f => { #11
  1059. Name => 'FieldCount',
  1060. Writable => 'int16u',
  1061. Unknown => 1, # (but what does it mean?)
  1062. },
  1063. #
  1064. # Olympus really screwed up the format of the following subdirectories (for the
  1065. # E-1 and E-300 anyway). Not only is the subdirectory value data not included in
  1066. # the size, but also the count is 2 bytes short for the subdirectory itself
  1067. # (presumably the Olympus programmers forgot about the 2-byte entry count at the
  1068. # start of the subdirectory). This mess is straightened out and these subdirs
  1069. # are written properly when ExifTool rewrites the file. Note that this problem
  1070. # has been fixed by Olympus in the new-style IFD maker notes since a standard
  1071. # SubIFD offset value is used. As written by the camera, the old style
  1072. # directories have format 'undef' or 'string', and the new style has format
  1073. # 'ifd'. However, some older versions of exiftool may have rewritten the new
  1074. # style as 'int32u', so handle both cases. - PH
  1075. #
  1076. 0x2010 => [ #PH
  1077. {
  1078. Name => 'Equipment',
  1079. Condition => '$format ne "ifd" and $format ne "int32u"',
  1080. NestedHtmlDump => 2, # (so HtmlDump doesn't show these as double-referenced)
  1081. SubDirectory => {
  1082. TagTable => 'Image::ExifTool::Olympus::Equipment',
  1083. ByteOrder => 'Unknown',
  1084. },
  1085. },
  1086. {
  1087. Name => 'EquipmentIFD',
  1088. Groups => { 1 => 'MakerNotes' }, # SubIFD needs group 1 set
  1089. Flags => 'SubIFD',
  1090. FixFormat => 'ifd',
  1091. SubDirectory => {
  1092. TagTable => 'Image::ExifTool::Olympus::Equipment',
  1093. Start => '$val',
  1094. },
  1095. },
  1096. ],
  1097. 0x2020 => [ #PH
  1098. {
  1099. Name => 'CameraSettings',
  1100. Condition => '$format ne "ifd" and $format ne "int32u"',
  1101. NestedHtmlDump => 2,
  1102. SubDirectory => {
  1103. TagTable => 'Image::ExifTool::Olympus::CameraSettings',
  1104. ByteOrder => 'Unknown',
  1105. },
  1106. },
  1107. {
  1108. Name => 'CameraSettingsIFD',
  1109. Groups => { 1 => 'MakerNotes' },
  1110. Flags => 'SubIFD',
  1111. FixFormat => 'ifd',
  1112. SubDirectory => {
  1113. TagTable => 'Image::ExifTool::Olympus::CameraSettings',
  1114. Start => '$val',
  1115. },
  1116. },
  1117. ],
  1118. 0x2030 => [ #PH
  1119. {
  1120. Name => 'RawDevelopment',
  1121. Condition => '$format ne "ifd" and $format ne "int32u"',
  1122. NestedHtmlDump => 2,
  1123. SubDirectory => {
  1124. TagTable => 'Image::ExifTool::Olympus::RawDevelopment',
  1125. ByteOrder => 'Unknown',
  1126. },
  1127. },
  1128. {
  1129. Name => 'RawDevelopmentIFD',
  1130. Groups => { 1 => 'MakerNotes' },
  1131. Flags => 'SubIFD',
  1132. FixFormat => 'ifd',
  1133. SubDirectory => {
  1134. TagTable => 'Image::ExifTool::Olympus::RawDevelopment',
  1135. Start => '$val',
  1136. },
  1137. },
  1138. ],
  1139. 0x2031 => [ #11
  1140. {
  1141. Name => 'RawDev2',
  1142. Condition => '$format ne "ifd" and $format ne "int32u"',
  1143. NestedHtmlDump => 2,
  1144. SubDirectory => {
  1145. TagTable => 'Image::ExifTool::Olympus::RawDevelopment2',
  1146. ByteOrder => 'Unknown',
  1147. },
  1148. },
  1149. {
  1150. Name => 'RawDev2IFD',
  1151. Groups => { 1 => 'MakerNotes' },
  1152. Flags => 'SubIFD',
  1153. FixFormat => 'ifd',
  1154. SubDirectory => {
  1155. TagTable => 'Image::ExifTool::Olympus::RawDevelopment2',
  1156. Start => '$val',
  1157. },
  1158. },
  1159. ],
  1160. 0x2040 => [ #PH
  1161. {
  1162. Name => 'ImageProcessing',
  1163. Condition => '$format ne "ifd" and $format ne "int32u"',
  1164. NestedHtmlDump => 2,
  1165. SubDirectory => {
  1166. TagTable => 'Image::ExifTool::Olympus::ImageProcessing',
  1167. ByteOrder => 'Unknown',
  1168. },
  1169. },
  1170. {
  1171. Name => 'ImageProcessingIFD',
  1172. Groups => { 1 => 'MakerNotes' },
  1173. Flags => 'SubIFD',
  1174. FixFormat => 'ifd',
  1175. SubDirectory => {
  1176. TagTable => 'Image::ExifTool::Olympus::ImageProcessing',
  1177. Start => '$val',
  1178. },
  1179. },
  1180. ],
  1181. 0x2050 => [ #PH
  1182. {
  1183. Name => 'FocusInfo',
  1184. Condition => '$format ne "ifd" and $format ne "int32u" and not $$self{OlympusCAMER}',
  1185. NestedHtmlDump => 2,
  1186. SubDirectory => {
  1187. TagTable => 'Image::ExifTool::Olympus::FocusInfo',
  1188. ByteOrder => 'Unknown',
  1189. },
  1190. },
  1191. {
  1192. Name => 'FocusInfoIFD',
  1193. Condition => 'not $$self{OlympusCAMER}',
  1194. Groups => { 1 => 'MakerNotes' },
  1195. Flags => 'SubIFD',
  1196. FixFormat => 'ifd',
  1197. SubDirectory => {
  1198. TagTable => 'Image::ExifTool::Olympus::FocusInfo',
  1199. Start => '$val',
  1200. },
  1201. },
  1202. {
  1203. # ASCII-based camera parameters if makernotes starts with "CAMER\0"
  1204. # (or for Sony models starting with "SONY PI\0" or "PREMI\0")
  1205. Name => 'CameraParameters',
  1206. Writable => 'undef',
  1207. Binary => 1,
  1208. },
  1209. ],
  1210. 0x2100 => [
  1211. { #11
  1212. Name => 'Olympus2100',
  1213. Condition => '$format ne "ifd" and $format ne "int32u"',
  1214. NestedHtmlDump => 2,
  1215. SubDirectory => {
  1216. TagTable => 'Image::ExifTool::Olympus::FETags',
  1217. ByteOrder => 'Unknown',
  1218. },
  1219. },
  1220. { #PH
  1221. Name => 'Olympus2100IFD',
  1222. Groups => { 1 => 'MakerNotes' },
  1223. Flags => 'SubIFD',
  1224. FixFormat => 'ifd',
  1225. SubDirectory => {
  1226. TagTable => 'Image::ExifTool::Olympus::FETags',
  1227. ByteOrder => 'Unknown',
  1228. Start => '$val',
  1229. },
  1230. },
  1231. ],
  1232. 0x2200 => [
  1233. { #11
  1234. Name => 'Olympus2200',
  1235. Condition => '$format ne "ifd" and $format ne "int32u"',
  1236. NestedHtmlDump => 2,
  1237. SubDirectory => {
  1238. TagTable => 'Image::ExifTool::Olympus::FETags',
  1239. ByteOrder => 'Unknown',
  1240. },
  1241. },
  1242. { #PH
  1243. Name => 'Olympus2200IFD',
  1244. Groups => { 1 => 'MakerNotes' },
  1245. Flags => 'SubIFD',
  1246. FixFormat => 'ifd',
  1247. SubDirectory => {
  1248. TagTable => 'Image::ExifTool::Olympus::FETags',
  1249. ByteOrder => 'Unknown',
  1250. Start => '$val',
  1251. },
  1252. },
  1253. ],
  1254. 0x2300 => [
  1255. { #11
  1256. Name => 'Olympus2300',
  1257. Condition => '$format ne "ifd" and $format ne "int32u"',
  1258. NestedHtmlDump => 2,
  1259. SubDirectory => {
  1260. TagTable => 'Image::ExifTool::Olympus::FETags',
  1261. ByteOrder => 'Unknown',
  1262. },
  1263. },
  1264. { #PH
  1265. Name => 'Olympus2300IFD',
  1266. Groups => { 1 => 'MakerNotes' },
  1267. Flags => 'SubIFD',
  1268. FixFormat => 'ifd',
  1269. SubDirectory => {
  1270. TagTable => 'Image::ExifTool::Olympus::FETags',
  1271. ByteOrder => 'Unknown',
  1272. Start => '$val',
  1273. },
  1274. },
  1275. ],
  1276. 0x2400 => [
  1277. { #11
  1278. Name => 'Olympus2400',
  1279. Condition => '$format ne "ifd" and $format ne "int32u"',
  1280. NestedHtmlDump => 2,
  1281. SubDirectory => {
  1282. TagTable => 'Image::ExifTool::Olympus::FETags',
  1283. ByteOrder => 'Unknown',
  1284. },
  1285. },
  1286. { #PH
  1287. Name => 'Olympus2400IFD',
  1288. Groups => { 1 => 'MakerNotes' },
  1289. Flags => 'SubIFD',
  1290. FixFormat => 'ifd',
  1291. SubDirectory => {
  1292. TagTable => 'Image::ExifTool::Olympus::FETags',
  1293. ByteOrder => 'Unknown',
  1294. Start => '$val',
  1295. },
  1296. },
  1297. ],
  1298. 0x2500 => [
  1299. { #11
  1300. Name => 'Olympus2500',
  1301. Condition => '$format ne "ifd" and $format ne "int32u"',
  1302. NestedHtmlDump => 2,
  1303. SubDirectory => {
  1304. TagTable => 'Image::ExifTool::Olympus::FETags',
  1305. ByteOrder => 'Unknown',
  1306. },
  1307. },
  1308. { #PH
  1309. Name => 'Olympus2500IFD',
  1310. Groups => { 1 => 'MakerNotes' },
  1311. Flags => 'SubIFD',
  1312. FixFormat => 'ifd',
  1313. SubDirectory => {
  1314. TagTable => 'Image::ExifTool::Olympus::FETags',
  1315. ByteOrder => 'Unknown',
  1316. Start => '$val',
  1317. },
  1318. },
  1319. ],
  1320. 0x2600 => [
  1321. { #11
  1322. Name => 'Olympus2600',
  1323. Condition => '$format ne "ifd" and $format ne "int32u"',
  1324. NestedHtmlDump => 2,
  1325. SubDirectory => {
  1326. TagTable => 'Image::ExifTool::Olympus::FETags',
  1327. ByteOrder => 'Unknown',
  1328. },
  1329. },
  1330. { #PH
  1331. Name => 'Olympus2600IFD',
  1332. Groups => { 1 => 'MakerNotes' },
  1333. Flags => 'SubIFD',
  1334. FixFormat => 'ifd',
  1335. SubDirectory => {
  1336. TagTable => 'Image::ExifTool::Olympus::FETags',
  1337. ByteOrder => 'Unknown',
  1338. Start => '$val',
  1339. },
  1340. },
  1341. ],
  1342. 0x2700 => [
  1343. { #11
  1344. Name => 'Olympus2700',
  1345. Condition => '$format ne "ifd" and $format ne "int32u"',
  1346. NestedHtmlDump => 2,
  1347. SubDirectory => {
  1348. TagTable => 'Image::ExifTool::Olympus::FETags',
  1349. ByteOrder => 'Unknown',
  1350. },
  1351. },
  1352. { #PH
  1353. Name => 'Olympus2700IFD',
  1354. Groups => { 1 => 'MakerNotes' },
  1355. Flags => 'SubIFD',
  1356. FixFormat => 'ifd',
  1357. SubDirectory => {
  1358. TagTable => 'Image::ExifTool::Olympus::FETags',
  1359. ByteOrder => 'Unknown',
  1360. Start => '$val',
  1361. },
  1362. },
  1363. ],
  1364. 0x2800 => [
  1365. { #11
  1366. Name => 'Olympus2800',
  1367. Condition => '$format ne "ifd" and $format ne "int32u"',
  1368. NestedHtmlDump => 2,
  1369. SubDirectory => {
  1370. TagTable => 'Image::ExifTool::Olympus::FETags',
  1371. ByteOrder => 'Unknown',
  1372. },
  1373. },
  1374. { #PH
  1375. Name => 'Olympus2800IFD',
  1376. Groups => { 1 => 'MakerNotes' },
  1377. Flags => 'SubIFD',
  1378. FixFormat => 'ifd',
  1379. SubDirectory => {
  1380. TagTable => 'Image::ExifTool::Olympus::FETags',
  1381. ByteOrder => 'Unknown',
  1382. Start => '$val',
  1383. },
  1384. },
  1385. ],
  1386. 0x2900 => [
  1387. { #11
  1388. Name => 'Olympus2900',
  1389. Condition => '$format ne "ifd" and $format ne "int32u"',
  1390. NestedHtmlDump => 2,
  1391. SubDirectory => {
  1392. TagTable => 'Image::ExifTool::Olympus::FETags',
  1393. ByteOrder => 'Unknown',
  1394. },
  1395. },
  1396. { #PH
  1397. Name => 'Olympus2900IFD',
  1398. Groups => { 1 => 'MakerNotes' },
  1399. Flags => 'SubIFD',
  1400. FixFormat => 'ifd',
  1401. SubDirectory => {
  1402. TagTable => 'Image::ExifTool::Olympus::FETags',
  1403. ByteOrder => 'Unknown',
  1404. Start => '$val',
  1405. },
  1406. },
  1407. ],
  1408. 0x3000 => [
  1409. { #6
  1410. Name => 'RawInfo',
  1411. Condition => '$format ne "ifd" and $format ne "int32u"',
  1412. NestedHtmlDump => 2,
  1413. SubDirectory => {
  1414. TagTable => 'Image::ExifTool::Olympus::RawInfo',
  1415. ByteOrder => 'Unknown',
  1416. },
  1417. },
  1418. { #PH
  1419. Name => 'RawInfoIFD',
  1420. Groups => { 1 => 'MakerNotes' },
  1421. Flags => 'SubIFD',
  1422. FixFormat => 'ifd',
  1423. SubDirectory => {
  1424. TagTable => 'Image::ExifTool::Olympus::RawInfo',
  1425. Start => '$val',
  1426. },
  1427. },
  1428. ],
  1429. 0x4000 => [ #PH
  1430. {
  1431. Name => 'MainInfo',
  1432. Condition => '$format ne "ifd" and $format ne "int32u"',
  1433. NestedHtmlDump => 2,
  1434. SubDirectory => {
  1435. TagTable => 'Image::ExifTool::Olympus::Main',
  1436. ByteOrder => 'Unknown',
  1437. },
  1438. },
  1439. {
  1440. Name => 'MainInfoIFD',
  1441. Groups => { 1 => 'MakerNotes' },
  1442. Flags => 'SubIFD',
  1443. FixFormat => 'ifd',
  1444. SubDirectory => {
  1445. TagTable => 'Image::ExifTool::Olympus::Main',
  1446. Start => '$val',
  1447. },
  1448. },
  1449. ],
  1450. 0x5000 => [ #PH
  1451. {
  1452. Name => 'UnknownInfo',
  1453. Condition => '$format ne "ifd" and $format ne "int32u"',
  1454. NestedHtmlDump => 2,
  1455. SubDirectory => {
  1456. TagTable => 'Image::ExifTool::Olympus::UnknownInfo',
  1457. ByteOrder => 'Unknown',
  1458. },
  1459. },
  1460. {
  1461. Name => 'UnknownInfoIFD',
  1462. Groups => { 1 => 'MakerNotes' },
  1463. Flags => 'SubIFD',
  1464. FixFormat => 'ifd',
  1465. SubDirectory => {
  1466. TagTable => 'Image::ExifTool::Olympus::UnknownInfo',
  1467. Start => '$val',
  1468. },
  1469. },
  1470. ],
  1471. );
  1472. # TextInfo tags
  1473. %Image::ExifTool::Olympus::TextInfo = (
  1474. PROCESS_PROC => \&Image::ExifTool::APP12::ProcessAPP12,
  1475. NOTES => q{
  1476. This information is in text format (similar to APP12 information, but with
  1477. spaces instead of linefeeds). Below are tags which have been observed, but
  1478. any information found here will be extracted, even if the tag is not listed.
  1479. },
  1480. GROUPS => { 0 => 'MakerNotes', 1 => 'Olympus', 2 => 'Image' },
  1481. Resolution => { },
  1482. Type => {
  1483. Name => 'CameraType',
  1484. Groups => { 2 => 'Camera' },
  1485. DataMember => 'CameraType',
  1486. RawConv => '$self->{CameraType} = $val',
  1487. SeparateTable => 'CameraType',
  1488. PrintConv => \%olympusCameraTypes,
  1489. },
  1490. );
  1491. # Olympus Equipment IFD
  1492. %Image::ExifTool::Olympus::Equipment = (
  1493. WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
  1494. CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
  1495. WRITABLE => 1,
  1496. GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
  1497. 0x000 => { #PH
  1498. Name => 'EquipmentVersion',
  1499. Writable => 'undef',
  1500. RawConv => '$val=~s/\0+$//; $val', # (may be null terminated)
  1501. Count => 4,
  1502. },
  1503. 0x100 => { #6
  1504. Name => 'CameraType2',
  1505. Writable => 'string',
  1506. Count => 6,
  1507. SeparateTable => 'CameraType',
  1508. PrintConv => \%olympusCameraTypes,
  1509. },
  1510. 0x101 => { #PH
  1511. Name => 'SerialNumber',
  1512. Writable => 'string',
  1513. Count => 32,
  1514. PrintConv => '$val=~s/\s+$//;$val',
  1515. PrintConvInv => 'pack("A31",$val)', # pad with spaces to 31 chars
  1516. },
  1517. 0x102 => { #6
  1518. Name => 'InternalSerialNumber',
  1519. Notes => '16 digits: 0-3=model, 4=year, 5-6=month, 8-12=unit number',
  1520. Writable => 'string',
  1521. Count => 32,
  1522. },
  1523. 0x103 => { #6
  1524. Name => 'FocalPlaneDiagonal',
  1525. Writable => 'rational64u',
  1526. PrintConv => '"$val mm"',
  1527. PrintConvInv => '$val=~s/\s*mm$//;$val',
  1528. },
  1529. 0x104 => { #6
  1530. Name => 'BodyFirmwareVersion',
  1531. Writable => 'int32u',
  1532. PrintConv => '$val=sprintf("%x",$val);$val=~s/(.{3})$/\.$1/;$val',
  1533. PrintConvInv => '$val=sprintf("%.3f",$val);$val=~s/\.//;hex($val)',
  1534. },
  1535. 0x201 => { #6
  1536. Name => 'LensType',
  1537. Writable => 'int8u',
  1538. Count => 6,
  1539. Notes => q{
  1540. 6 numbers: 0. Make, 1. Unknown, 2. Model, 3. Sub-model, 4-5. Unknown. Only
  1541. the Make, Model and Sub-model are used to identify the lens type
  1542. },
  1543. SeparateTable => 'LensType',
  1544. # Have seen these values for the unknown numbers:
  1545. # 1: 0
  1546. # 4: 0, 2(Olympus lenses for which I have also seen 0 for this number)
  1547. # 5: 0, 16(new Lumix lenses)
  1548. ValueConv => 'my @a=split(" ",$val); sprintf("%x %.2x %.2x",@a[0,2,3])',
  1549. # set unknown values to zero when writing
  1550. ValueConvInv => 'my @a=split(" ",$val); hex($a[0])." 0 ".hex($a[1])." ".hex($a[2])." 0 0"',
  1551. PrintConv => \%olympusLensTypes,
  1552. },
  1553. # apparently the first 3 digits of the lens s/n give the type (ref 4):
  1554. # 010 = 50macro
  1555. # 040 = EC-14
  1556. # 050 = 14-54
  1557. # 060 = 50-200
  1558. # 080 = EX-25
  1559. # 101 = FL-50
  1560. # 272 = EC-20 #7
  1561. 0x202 => { #PH
  1562. Name => 'LensSerialNumber',
  1563. Writable => 'string',
  1564. Count => 32,
  1565. PrintConv => '$val=~s/\s+$//;$val',
  1566. PrintConvInv => 'pack("A31",$val)', # pad with spaces to 31 chars
  1567. },
  1568. 0x203 => { Name => 'LensModel', Writable => 'string' }, #17
  1569. 0x204 => { #6
  1570. Name => 'LensFirmwareVersion',
  1571. Writable => 'int32u',
  1572. PrintConv => '$val=sprintf("%x",$val);$val=~s/(.{3})$/\.$1/;$val',
  1573. PrintConvInv => '$val=sprintf("%.3f",$val);$val=~s/\.//;hex($val)',
  1574. },
  1575. 0x205 => { #11
  1576. Name => 'MaxApertureAtMinFocal',
  1577. Writable => 'int16u',
  1578. ValueConv => '$val ? sqrt(2)**($val/256) : 0',
  1579. ValueConvInv => '$val>0 ? int(512*log($val)/log(2)+0.5) : 0',
  1580. PrintConv => 'sprintf("%.1f",$val)',
  1581. PrintConvInv => '$val',
  1582. },
  1583. 0x206 => { #5
  1584. Name => 'MaxApertureAtMaxFocal',
  1585. Writable => 'int16u',
  1586. ValueConv => '$val ? sqrt(2)**($val/256) : 0',
  1587. ValueConvInv => '$val>0 ? int(512*log($val)/log(2)+0.5) : 0',
  1588. PrintConv => 'sprintf("%.1f",$val)',
  1589. PrintConvInv => '$val',
  1590. },
  1591. 0x207 => { Name => 'MinFocalLength', Writable => 'int16u' }, #PH
  1592. 0x208 => { Name => 'MaxFocalLength', Writable => 'int16u' }, #PH
  1593. 0x20a => { #9
  1594. Name => 'MaxAperture', # (at current focal length)
  1595. Writable => 'int16u',
  1596. ValueConv => '$val ? sqrt(2)**($val/256) : 0',
  1597. ValueConvInv => '$val>0 ? int(512*log($val)/log(2)+0.5) : 0',
  1598. PrintConv => 'sprintf("%.1f",$val)',
  1599. PrintConvInv => '$val',
  1600. },
  1601. 0x20b => { #11
  1602. Name => 'LensProperties',
  1603. Writable => 'int16u',
  1604. PrintConv => 'sprintf("0x%x",$val)',
  1605. PrintConvInv => '$val',
  1606. },
  1607. 0x301 => { #6
  1608. Name => 'Extender',
  1609. Writable => 'int8u',
  1610. Count => 6,
  1611. Notes => q{
  1612. 6 numbers: 0. Make, 1. Unknown, 2. Model, 3. Sub-model, 4-5. Unknown. Only
  1613. the Make and Model are used to identify the extender
  1614. },
  1615. ValueConv => 'my @a=split(" ",$val); sprintf("%x %.2x",@a[0,2])',
  1616. ValueConvInv => 'my @a=split(" ",$val); hex($a[0])." 0 ".hex($a[1])." 0 0 0"',
  1617. PrintConv => {
  1618. '0 00' => 'None',
  1619. '0 04' => 'Olympus Zuiko Digital EC-14 1.4x Teleconverter',
  1620. '0 08' => 'Olympus EX-25 Extension Tube',
  1621. '0 10' => 'Olympus Zuiko Digital EC-20 2.0x Teleconverter', #7
  1622. },
  1623. },
  1624. 0x302 => { Name => 'ExtenderSerialNumber', Writable => 'string', Count => 32 }, #4
  1625. 0x303 => { Name => 'ExtenderModel', Writable => 'string' }, #9
  1626. 0x304 => { #6
  1627. Name => 'ExtenderFirmwareVersion',
  1628. Writable => 'int32u',
  1629. PrintConv => '$val=sprintf("%x",$val);$val=~s/(.{3})$/\.$1/;$val',
  1630. PrintConvInv => '$val=sprintf("%.3f",$val);$val=~s/\.//;hex($val)',
  1631. },
  1632. 0x403 => { #http://dev.exiv2.org/issues/870
  1633. Name => 'ConversionLens',
  1634. Writable => 'string',
  1635. # (observed values: '','TCON','FCON','WCON')
  1636. },
  1637. 0x1000 => { #6
  1638. Name => 'FlashType',
  1639. Writable => 'int16u',
  1640. PrintConv => {
  1641. 0 => 'None',
  1642. 2 => 'Simple E-System',
  1643. 3 => 'E-System',
  1644. },
  1645. },
  1646. 0x1001 => { #6
  1647. Name => 'FlashModel',
  1648. Writable => 'int16u',
  1649. PrintConvColumns => 2,
  1650. PrintConv => {
  1651. 0 => 'None',
  1652. 1 => 'FL-20', # (or subtronic digital or Inon UW flash, ref 11)
  1653. 2 => 'FL-50', # (or Metzblitz+SCA or Cullmann 34, ref 11)
  1654. 3 => 'RF-11',
  1655. 4 => 'TF-22',
  1656. 5 => 'FL-36',
  1657. 6 => 'FL-50R', #11 (or Metz mecablitz digital)
  1658. 7 => 'FL-36R', #11
  1659. 9 => 'FL-14', #11
  1660. 11 => 'FL-600R', #11
  1661. },
  1662. },
  1663. 0x1002 => { #6
  1664. Name => 'FlashFirmwareVersion',
  1665. Writable => 'int32u',
  1666. PrintConv => '$val=sprintf("%x",$val);$val=~s/(.{3})$/\.$1/;$val',
  1667. PrintConvInv => '$val=sprintf("%.3f",$val);$val=~s/\.//;hex($val)',
  1668. },
  1669. 0x1003 => { Name => 'FlashSerialNumber', Writable => 'string', Count => 32 }, #4
  1670. );
  1671. # Olympus camera settings IFD
  1672. %Image::ExifTool::Olympus::CameraSettings = (
  1673. WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
  1674. CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
  1675. WRITABLE => 1,
  1676. GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
  1677. 0x000 => { #PH
  1678. Name => 'CameraSettingsVersion',
  1679. Writable => 'undef',
  1680. RawConv => '$val=~s/\0+$//; $val', # (may be null terminated)
  1681. Count => 4,
  1682. },
  1683. 0x100 => { #6
  1684. Name => 'PreviewImageValid',
  1685. Writable => 'int32u',
  1686. PrintConv => { 0 => 'No', 1 => 'Yes' },
  1687. },
  1688. 0x101 => { #PH
  1689. Name => 'PreviewImageStart',
  1690. Flags => 'IsOffset',
  1691. OffsetPair => 0x102,
  1692. DataTag => 'PreviewImage',
  1693. Writable => 'int32u',
  1694. Protected => 2,
  1695. },
  1696. 0x102 => { #PH
  1697. Name => 'PreviewImageLength',
  1698. OffsetPair => 0x101,
  1699. DataTag => 'PreviewImage',
  1700. Writable => 'int32u',
  1701. Protected => 2,
  1702. },
  1703. 0x200 => { #4
  1704. Name => 'ExposureMode',
  1705. Writable => 'int16u',
  1706. PrintConv => {
  1707. 1 => 'Manual',
  1708. 2 => 'Program', #6
  1709. 3 => 'Aperture-priority AE',
  1710. 4 => 'Shutter speed priority AE',
  1711. 5 => 'Program-shift', #6
  1712. }
  1713. },
  1714. 0x201 => { #6
  1715. Name => 'AELock',
  1716. Writable => 'int16u',
  1717. PrintConv => \%offOn,
  1718. },
  1719. 0x202 => { #PH/4
  1720. Name => 'MeteringMode',
  1721. Writable => 'int16u',
  1722. PrintConv => {
  1723. 2 => 'Center-weighted average',
  1724. 3 => 'Spot',
  1725. 5 => 'ESP',
  1726. 261 => 'Pattern+AF', #6
  1727. 515 => 'Spot+Highlight control', #6
  1728. 1027 => 'Spot+Shadow control', #6
  1729. },
  1730. },
  1731. 0x203 => { Name => 'ExposureShift', Writable => 'rational64s' }, #11 (some models only)
  1732. 0x204 => { #11 (XZ-1)
  1733. Name => 'NDFilter',
  1734. PrintConv => \%offOn,
  1735. },
  1736. 0x300 => { #6
  1737. Name => 'MacroMode',
  1738. Writable => 'int16u',
  1739. PrintConv => {
  1740. 0 => 'Off',
  1741. 1 => 'On',
  1742. 2 => 'Super Macro', #11
  1743. },
  1744. },
  1745. 0x301 => { #6
  1746. Name => 'FocusMode',
  1747. Writable => 'int16u',
  1748. Count => -1,
  1749. Notes => '1 or 2 values',
  1750. PrintConv => [{
  1751. 0 => 'Single AF',
  1752. 1 => 'Sequential shooting AF',
  1753. 2 => 'Continuous AF',
  1754. 3 => 'Multi AF',
  1755. 4 => 'Face detect', #11
  1756. 10 => 'MF',
  1757. }, {
  1758. 0 => '(none)',
  1759. BITMASK => { #11
  1760. 0 => 'S-AF',
  1761. 2 => 'C-AF',
  1762. 4 => 'MF',
  1763. 5 => 'Face detect',
  1764. 6 => 'Imager AF',
  1765. 7 => 'Live View Magnification Frame',
  1766. 8 => 'AF sensor',
  1767. },
  1768. }],
  1769. },
  1770. 0x302 => { #6
  1771. Name => 'FocusProcess',
  1772. Writable => 'int16u',
  1773. Count => -1,
  1774. Notes => '1 or 2 values',
  1775. PrintConv => [{
  1776. 0 => 'AF Not Used',
  1777. 1 => 'AF Used',
  1778. }],
  1779. # 2nd value written only by some models (u1050SW, u9000, uT6000, uT6010,
  1780. # uT8000, E-30, E-420, E-450, E-520, E-620, E-P1 and E-P2): - PH
  1781. # observed values when "AF Not Used": 0, 16
  1782. # observed values when "AF Used": 64, 96(face detect on), 256
  1783. },
  1784. 0x303 => { #6
  1785. Name => 'AFSearch',
  1786. Writable => 'int16u',
  1787. PrintConv => {
  1788. 0 => 'Not Ready',
  1789. 1 => 'Ready',
  1790. },
  1791. },
  1792. 0x304 => { #PH/4
  1793. Name => 'AFAreas',
  1794. Notes => 'coordinates range from 0 to 255',
  1795. Writable => 'int32u',
  1796. Count => 64,
  1797. PrintConv => 'Image::ExifTool::Olympus::PrintAFAreas($val)',
  1798. },
  1799. 0x0305 => { #PH
  1800. Name => 'AFPointSelected',
  1801. Notes => 'coordinates expressed as a percent',
  1802. Writable => 'rational64s',
  1803. Count => 5,
  1804. ValueConv => '$val =~ s/\S* //; $val', # ignore first undefined value
  1805. ValueConvInv => '"undef $val"',
  1806. PrintConv => q{
  1807. return 'n/a' if $val =~ /undef/;
  1808. sprintf("(%d%%,%d%%) (%d%%,%d%%)", map {$_ * 100} split(" ",$val));
  1809. },
  1810. PrintConvInv => q{
  1811. return 'undef undef undef undef' if $val eq 'n/a';
  1812. my @nums = $val =~ /\d+(?:\.\d+)?/g;
  1813. return undef unless @nums == 4;
  1814. join ' ', map {$_ / 100} @nums;
  1815. },
  1816. },
  1817. 0x306 => { #11
  1818. Name => 'AFFineTune',
  1819. Writable => 'int8u',
  1820. PrintConv => { 0 => 'Off', 1 => 'On' },
  1821. },
  1822. 0x307 => { #15
  1823. Name => 'AFFineTuneAdj',
  1824. Format => 'int16s',
  1825. Count => 3, # not sure what the 3 values mean
  1826. },
  1827. 0x400 => { #6
  1828. Name => 'FlashMode',
  1829. Writable => 'int16u',
  1830. PrintConv => {
  1831. 0 => 'Off',
  1832. BITMASK => {
  1833. 0 => 'On',
  1834. 1 => 'Fill-in',
  1835. 2 => 'Red-eye',
  1836. 3 => 'Slow-sync',
  1837. 4 => 'Forced On',
  1838. 5 => '2nd Curtain',
  1839. },
  1840. },
  1841. },
  1842. 0x401 => { Name => 'FlashExposureComp', Writable => 'rational64s' }, #6
  1843. # 0x402 - FlashMode? bit0=TTL, bit1=auto, bit2=SuperFP (ref 11)
  1844. 0x403 => { #11
  1845. Name => 'FlashRemoteControl',
  1846. Writable => 'int16u',
  1847. PrintHex => 1,
  1848. PrintConvColumns => 2,
  1849. PrintConv => {
  1850. 0 => 'Off',
  1851. 0x01 => 'Channel 1, Low',
  1852. 0x02 => 'Channel 2, Low',
  1853. 0x03 => 'Channel 3, Low',
  1854. 0x04 => 'Channel 4, Low',
  1855. 0x09 => 'Channel 1, Mid',
  1856. 0x0a => 'Channel 2, Mid',
  1857. 0x0b => 'Channel 3, Mid',
  1858. 0x0c => 'Channel 4, Mid',
  1859. 0x11 => 'Channel 1, High',
  1860. 0x12 => 'Channel 2, High',
  1861. 0x13 => 'Channel 3, High',
  1862. 0x14 => 'Channel 4, High',
  1863. },
  1864. },
  1865. 0x404 => { #11
  1866. Name => 'FlashControlMode',
  1867. Writable => 'int16u',
  1868. Count => -1,
  1869. Notes => '3 or 4 values',
  1870. PrintConv => [{
  1871. 0 => 'Off',
  1872. 3 => 'TTL',
  1873. 4 => 'Auto',
  1874. 5 => 'Manual',
  1875. }],
  1876. },
  1877. 0x405 => { #11
  1878. Name => 'FlashIntensity',
  1879. Writable => 'rational64s',
  1880. Count => -1,
  1881. Notes => '3 or 4 values',
  1882. PrintConv => {
  1883. OTHER => sub { shift },
  1884. 'undef undef undef' => 'n/a',
  1885. 'undef undef undef undef' => 'n/a (x4)',
  1886. },
  1887. },
  1888. 0x406 => { #11
  1889. Name => 'ManualFlashStrength',
  1890. Writable => 'rational64s',
  1891. Count => -1,
  1892. Notes => '3 or 4 values',
  1893. PrintConv => {
  1894. OTHER => sub { shift },
  1895. 'undef undef undef' => 'n/a',
  1896. 'undef undef undef undef' => 'n/a (x4)',
  1897. },
  1898. },
  1899. 0x500 => { #6
  1900. Name => 'WhiteBalance2',
  1901. Writable => 'int16u',
  1902. PrintConv => {
  1903. 0 => 'Auto',
  1904. 1 => 'Auto (Keep Warm Color Off)', #21
  1905. 16 => '7500K (Fine Weather with Shade)',
  1906. 17 => '6000K (Cloudy)',
  1907. 18 => '5300K (Fine Weather)',
  1908. 20 => '3000K (Tungsten light)',
  1909. 21 => '3600K (Tungsten light-like)',
  1910. 22 => 'Auto Setup', #21
  1911. 23 => '5500K (Flash)', #21
  1912. 33 => '6600K (Daylight fluorescent)',
  1913. 34 => '4500K (Neutral white fluorescent)',
  1914. 35 => '4000K (Cool white fluorescent)',
  1915. 36 => 'White Fluorescent', #21
  1916. 48 => '3600K (Tungsten light-like)',
  1917. 67 => 'Underwater', #21
  1918. 256 => 'One Touch WB 1', #21
  1919. 257 => 'One Touch WB 2', #21
  1920. 258 => 'One Touch WB 3', #21
  1921. 259 => 'One Touch WB 4', #21
  1922. 512 => 'Custom WB 1', #21
  1923. 513 => 'Custom WB 2', #21
  1924. 514 => 'Custom WB 3', #21
  1925. 515 => 'Custom WB 4', #21
  1926. },
  1927. },
  1928. 0x501 => { #PH/4
  1929. Name => 'WhiteBalanceTemperature',
  1930. Writable => 'int16u',
  1931. PrintConv => '$val ? $val : "Auto"',
  1932. PrintConvInv => '$val=~/^\d+$/ ? $val : 0',
  1933. },
  1934. 0x502 => { #PH/4
  1935. Name => 'WhiteBalanceBracket',
  1936. Writable => 'int16s',
  1937. },
  1938. 0x503 => { #PH/4/6
  1939. Name => 'CustomSaturation',
  1940. Writable => 'int16s',
  1941. Count => 3,
  1942. Notes => '3 numbers: 1. CS Value, 2. Min, 3. Max',
  1943. PrintConv => q{
  1944. my ($a,$b,$c)=split ' ',$val;
  1945. if ($self->{Model} =~ /^E-1\b/) {
  1946. $a-=$b; $c-=$b;
  1947. return "CS$a (min CS0, max CS$c)";
  1948. } else {
  1949. return "$a (min $b, max $c)";
  1950. }
  1951. },
  1952. },
  1953. 0x504 => { #PH/4
  1954. Name => 'ModifiedSaturation',
  1955. Writable => 'int16u',
  1956. PrintConv => {
  1957. 0 => 'Off',
  1958. 1 => 'CM1 (Red Enhance)',
  1959. 2 => 'CM2 (Green Enhance)',
  1960. 3 => 'CM3 (Blue Enhance)',
  1961. 4 => 'CM4 (Skin Tones)',
  1962. },
  1963. },
  1964. 0x505 => { #PH/4
  1965. Name => 'ContrastSetting',
  1966. Writable => 'int16s',
  1967. Count => 3,
  1968. Notes => 'value, min, max',
  1969. PrintConv => 'my @v=split " ",$val; "$v[0] (min $v[1], max $v[2])"',
  1970. PrintConvInv => '$val=~tr/-0-9 //dc;$val',
  1971. },
  1972. 0x506 => { #PH/4
  1973. Name => 'SharpnessSetting',
  1974. Writable => 'int16s',
  1975. Count => 3,
  1976. Notes => 'value, min, max',
  1977. PrintConv => 'my @v=split " ",$val; "$v[0] (min $v[1], max $v[2])"',
  1978. PrintConvInv => '$val=~tr/-0-9 //dc;$val',
  1979. },
  1980. 0x507 => { #PH/4
  1981. Name => 'ColorSpace',
  1982. Writable => 'int16u',
  1983. PrintConv => { #6
  1984. 0 => 'sRGB',
  1985. 1 => 'Adobe RGB',
  1986. 2 => 'Pro Photo RGB',
  1987. },
  1988. },
  1989. 0x509 => { #6
  1990. Name => 'SceneMode',
  1991. Writable => 'int16u',
  1992. PrintConvColumns => 2,
  1993. PrintConv => {
  1994. 0 => 'Standard',
  1995. 6 => 'Auto', #6
  1996. 7 => 'Sport',
  1997. 8 => 'Portrait',
  1998. 9 => 'Landscape+Portrait',
  1999. 10 => 'Landscape',
  2000. 11 => 'Night Scene',
  2001. 12 => 'Self Portrait', #11
  2002. 13 => 'Panorama', #6
  2003. 14 => '2 in 1', #11
  2004. 15 => 'Movie', #11
  2005. 16 => 'Landscape+Portrait', #6
  2006. 17 => 'Night+Portrait',
  2007. 18 => 'Indoor', #11 (Party - PH)
  2008. 19 => 'Fireworks',
  2009. 20 => 'Sunset',
  2010. 21 => 'Beauty Skin', #PH
  2011. 22 => 'Macro',
  2012. 23 => 'Super Macro', #11
  2013. 24 => 'Food', #11
  2014. 25 => 'Documents',
  2015. 26 => 'Museum',
  2016. 27 => 'Shoot & Select', #11
  2017. 28 => 'Beach & Snow',
  2018. 29 => 'Self Protrait+Timer', #11
  2019. 30 => 'Candle',
  2020. 31 => 'Available Light', #11
  2021. 32 => 'Behind Glass', #11
  2022. 33 => 'My Mode', #11
  2023. 34 => 'Pet', #11
  2024. 35 => 'Underwater Wide1', #6
  2025. 36 => 'Underwater Macro', #6
  2026. 37 => 'Shoot & Select1', #11
  2027. 38 => 'Shoot & Select2', #11
  2028. 39 => 'High Key',
  2029. 40 => 'Digital Image Stabilization', #6
  2030. 41 => 'Auction', #11
  2031. 42 => 'Beach', #11
  2032. 43 => 'Snow', #11
  2033. 44 => 'Underwater Wide2', #6
  2034. 45 => 'Low Key', #6
  2035. 46 => 'Children', #6
  2036. 47 => 'Vivid', #11
  2037. 48 => 'Nature Macro', #6
  2038. 49 => 'Underwater Snapshot', #11
  2039. 50 => 'Shooting Guide', #11
  2040. 54 => 'Face Portrait', #11
  2041. 57 => 'Bulb', #11
  2042. 59 => 'Smile Shot', #11
  2043. 60 => 'Quick Shutter', #11
  2044. 63 => 'Slow Shutter', #11
  2045. 64 => 'Bird Watching', #11
  2046. 65 => 'Multiple Exposure', #11
  2047. 66 => 'e-Portrait', #11
  2048. 67 => 'Soft Background Shot', #11
  2049. 142 => 'Hand-held Starlight', #PH (SH-21)
  2050. 154 => 'HDR', #PH (XZ-2)
  2051. },
  2052. },
  2053. 0x50a => { #PH/4/6
  2054. Name => 'NoiseReduction',
  2055. Writable => 'int16u',
  2056. PrintConv => {
  2057. 0 => '(none)',
  2058. BITMASK => {
  2059. 0 => 'Noise Reduction',
  2060. 1 => 'Noise Filter',
  2061. 2 => 'Noise Filter (ISO Boost)',
  2062. 3 => 'Auto', #11
  2063. },
  2064. },
  2065. },
  2066. 0x50b => { #6
  2067. Name => 'DistortionCorrection',
  2068. Writable => 'int16u',
  2069. PrintConv => \%offOn,
  2070. },
  2071. 0x50c => { #PH/4
  2072. Name => 'ShadingCompensation',
  2073. Writable => 'int16u',
  2074. PrintConv => \%offOn,
  2075. },
  2076. 0x50d => { Name => 'CompressionFactor', Writable => 'rational64u' }, #PH/4
  2077. 0x50f => { #6
  2078. Name => 'Gradation',
  2079. Writable => 'int16s',
  2080. Notes => '3 or 4 values',
  2081. Count => -1,
  2082. Relist => [ [0..2], 3 ], # join values 0-2 for PrintConv
  2083. PrintConv => [{
  2084. '0 0 0' => 'n/a', #PH (?)
  2085. '-1 -1 1' => 'Low Key',
  2086. '0 -1 1' => 'Normal',
  2087. '1 -1 1' => 'High Key',
  2088. },{
  2089. 0 => 'User-Selected',
  2090. 1 => 'Auto-Override',
  2091. }],
  2092. },
  2093. 0x520 => { #6
  2094. Name => 'PictureMode',
  2095. Writable => 'int16u',
  2096. Notes => '1 or 2 values',
  2097. Count => -1,
  2098. PrintConv => [{
  2099. 1 => 'Vivid',
  2100. 2 => 'Natural',
  2101. 3 => 'Muted',
  2102. 4 => 'Portrait',
  2103. 5 => 'i-Enhance', #11
  2104. 256 => 'Monotone',
  2105. 512 => 'Sepia',
  2106. }],
  2107. },
  2108. 0x521 => { #6
  2109. Name => 'PictureModeSaturation',
  2110. Writable => 'int16s',
  2111. Count => 3,
  2112. Notes => 'value, min, max',
  2113. PrintConv => 'my @v=split " ",$val; "$v[0] (min $v[1], max $v[2])"',
  2114. PrintConvInv => '$val=~tr/-0-9 //dc;$val',
  2115. },
  2116. 0x522 => { #6
  2117. Name => 'PictureModeHue',
  2118. Writable => 'int16s',
  2119. Unknown => 1, # (needs verification)
  2120. },
  2121. 0x523 => { #6
  2122. Name => 'PictureModeContrast',
  2123. Writable => 'int16s',
  2124. Count => 3,
  2125. Notes => 'value, min, max',
  2126. PrintConv => 'my @v=split " ",$val; "$v[0] (min $v[1], max $v[2])"',
  2127. PrintConvInv => '$val=~tr/-0-9 //dc;$val',
  2128. },
  2129. 0x524 => { #6
  2130. Name => 'PictureModeSharpness',
  2131. # verified as the Sharpness setting in the Picture Mode menu for the E-410
  2132. Writable => 'int16s',
  2133. Count => 3,
  2134. Notes => 'value, min, max',
  2135. PrintConv => 'my @v=split " ",$val; "$v[0] (min $v[1], max $v[2])"',
  2136. PrintConvInv => '$val=~tr/-0-9 //dc;$val',
  2137. },
  2138. 0x525 => { #6
  2139. Name => 'PictureModeBWFilter',
  2140. Writable => 'int16s',
  2141. PrintConvColumns => 2,
  2142. PrintConv => {
  2143. 0 => 'n/a',
  2144. 1 => 'Neutral',
  2145. 2 => 'Yellow',
  2146. 3 => 'Orange',
  2147. 4 => 'Red',
  2148. 5 => 'Green',
  2149. },
  2150. },
  2151. 0x526 => { #6
  2152. Name => 'PictureModeTone',
  2153. Writable => 'int16s',
  2154. PrintConvColumns => 2,
  2155. PrintConv => {
  2156. 0 => 'n/a',
  2157. 1 => 'Neutral',
  2158. 2 => 'Sepia',
  2159. 3 => 'Blue',
  2160. 4 => 'Purple',
  2161. 5 => 'Green',
  2162. },
  2163. },
  2164. 0x527 => { #12
  2165. Name => 'NoiseFilter',
  2166. Writable => 'int16s',
  2167. Count => 3,
  2168. PrintConv => {
  2169. '0 0 0' => 'n/a', #PH (?)
  2170. '-2 -2 1' => 'Off',
  2171. '-1 -2 1' => 'Low',
  2172. '0 -2 1' => 'Standard',
  2173. '1 -2 1' => 'High',
  2174. },
  2175. },
  2176. 0x529 => { #PH
  2177. Name => 'ArtFilter',
  2178. Writable => 'int16u',
  2179. Count => 4,
  2180. PrintConvColumns => 2,
  2181. PrintConv => [ \%filters ],
  2182. },
  2183. 0x52c => { #PH
  2184. Name => 'MagicFilter',
  2185. Writable => 'int16u',
  2186. Count => 4, # (2nd number is 0, 1280 or 1792, 3rd/4th are 0)
  2187. # (1792 observed for E-5 Gentle Sepia and XZ-1 Dramatic Tone)
  2188. PrintConvColumns => 2,
  2189. PrintConv => [ \%filters ],
  2190. },
  2191. 0x52d => { #11
  2192. Name => 'PictureModeEffect',
  2193. Writable => 'int16s',
  2194. Count => 3,
  2195. PrintConv => {
  2196. '0 0 0' => 'n/a', #PH (?)
  2197. '-1 -1 1' => 'Low',
  2198. '0 -1 1' => 'Standard',
  2199. '1 -1 1' => 'High',
  2200. },
  2201. },
  2202. 0x52e => { #11/PH
  2203. Name => 'ToneLevel',
  2204. PrintConv => [
  2205. undef, # ?
  2206. '"Highlights $val"',
  2207. undef, # (highlights min)
  2208. undef, # (highlights max)
  2209. undef, # ?
  2210. '"Shadows $val"',
  2211. undef, # (shadows min)
  2212. undef, # (shadows max)
  2213. ]
  2214. },
  2215. 0x52f => { #PH
  2216. Name => 'ArtFilterEffect',
  2217. Writable => 'int16u',
  2218. Count => 20,
  2219. PrintHex => 1,
  2220. PrintConvColumns => 2,
  2221. PrintConv => [
  2222. \%filters, undef, undef, undef,
  2223. { # there are 5 available art filter effects for the E-PL3...
  2224. 0x0000 => 'No Effect',
  2225. 0x8010 => 'Star Light',
  2226. 0x8020 => 'Pin Hole',
  2227. 0x8030 => 'Frame',
  2228. 0x8040 => 'Soft Focus',
  2229. 0x8050 => 'White Edge',
  2230. 0x8060 => 'B&W', # (NC - E-PL2 with "Grainy Film" filter)
  2231. # (E-PL2 also has "Pict. Tone" effect)
  2232. },
  2233. ],
  2234. },
  2235. 0x600 => { #PH/4
  2236. Name => 'DriveMode',
  2237. Writable => 'int16u',
  2238. Count => -1,
  2239. Notes => '2 or 3 numbers: 1. Mode, 2. Shot number, 3. Mode bits',
  2240. PrintConv => q{
  2241. my ($a,$b,$c) = split ' ',$val;
  2242. return 'Single Shot' unless $a;
  2243. if ($a == 5 and defined $c) {
  2244. $a = DecodeBits($c, { #6
  2245. 0 => 'AE',
  2246. 1 => 'WB',
  2247. 2 => 'FL',
  2248. 3 => 'MF',
  2249. 6 => 'Focus', #PH
  2250. }) . ' Bracketing';
  2251. $a =~ s/, /+/g;
  2252. } else {
  2253. my %a = (
  2254. 1 => 'Continuous Shooting',
  2255. 2 => 'Exposure Bracketing',
  2256. 3 => 'White Balance Bracketing',
  2257. 4 => 'Exposure+WB Bracketing', #6
  2258. );
  2259. $a = $a{$a} || "Unknown ($a)";
  2260. }
  2261. return "$a, Shot $b";
  2262. },
  2263. },
  2264. 0x601 => { #6
  2265. Name => 'PanoramaMode',
  2266. Writable => 'int16u',
  2267. Notes => '2 numbers: 1. Mode, 2. Shot number',
  2268. PrintConv => q{
  2269. my ($a,$b) = split ' ',$val;
  2270. return 'Off' unless $a;
  2271. my %a = (
  2272. 1 => 'Left to Right',
  2273. 2 => 'Right to Left',
  2274. 3 => 'Bottom to Top',
  2275. 4 => 'Top to Bottom',
  2276. );
  2277. return ($a{$a} || "Unknown ($a)") . ', Shot ' . $b;
  2278. },
  2279. },
  2280. 0x603 => { #PH/4
  2281. Name => 'ImageQuality2',
  2282. Writable => 'int16u',
  2283. PrintConv => {
  2284. 1 => 'SQ',
  2285. 2 => 'HQ',
  2286. 3 => 'SHQ',
  2287. 4 => 'RAW',
  2288. 5 => 'SQ (5)', # (E-500)
  2289. },
  2290. },
  2291. 0x604 => { #PH
  2292. Name => 'ImageStabilization',
  2293. Writable => 'int32u',
  2294. DataMember => 'ImageStabilization',
  2295. RawConv => '$$self{ImageStabilization} = $val',
  2296. PrintConv => {
  2297. 0 => 'Off',
  2298. 1 => 'On, Mode 1',
  2299. 2 => 'On, Mode 2',
  2300. 3 => 'On, Mode 3',
  2301. 4 => 'On, Mode 4', # (NC, E-P5)
  2302. },
  2303. },
  2304. 0x804 => { #PH (E-M1 with firmware update)
  2305. Name => 'StackedImage',
  2306. Writable => 'int32u',
  2307. Count => 2,
  2308. PrintConv => {
  2309. '0 0' => 'No',
  2310. '9 8' => 'Focus-stacked (8 images)',
  2311. },
  2312. },
  2313. 0x900 => { #11
  2314. Name => 'ManometerPressure',
  2315. Writable => 'int16u',
  2316. ValueConv => '$val / 10',
  2317. ValueConvInv => '$val * 10',
  2318. PrintConv => '"$val kPa"',
  2319. PrintConvInv => '$val=~s/ ?kPa//i; $val',
  2320. },
  2321. 0x901 => { #PH (u770SW)
  2322. # 2 numbers: 1st looks like meters above sea level, 2nd is usually 3x the 1st (feet?)
  2323. Name => 'ManometerReading',
  2324. Writable => 'int32s',
  2325. Count => 2,
  2326. ValueConv => 'my @a=split(" ",$val); $_ /= 10 foreach @a; "@a"',
  2327. ValueConvInv => 'my @a=split(" ",$val); $_ *= 10 foreach @a; "@a"',
  2328. PrintConv => '$val=~s/(\S+) (\S+)/$1 m, $2 ft/; $val',
  2329. PrintConvInv => '$val=~s/ ?(m|ft)//gi; $val',
  2330. },
  2331. 0x902 => { #11
  2332. Name => 'ExtendedWBDetect',
  2333. Writable => 'int16u',
  2334. PrintConv => \%offOn,
  2335. },
  2336. 0x903 => { #11
  2337. Name => 'RollAngle',
  2338. Notes => 'converted to degrees of clockwise camera rotation',
  2339. Writable => 'int16s',
  2340. Count => 2, # (second value is 0 if level gauge is off)
  2341. # negate to express as clockwise rotation
  2342. ValueConv => '$val=~s/ 1$// ? -$val/10 : "n/a"',
  2343. ValueConvInv => 'IsFloat($val) ? sprintf("%.0f 1",-$val*10) : "0 0"',
  2344. },
  2345. 0x904 => { #11
  2346. Name => 'PitchAngle',
  2347. Notes => 'converted to degrees of upward camera tilt',
  2348. Writable => 'int16s',
  2349. Count => 2, # (second value is 0 if level gauge is off)
  2350. ValueConv => '$val =~ s/ 1$// ? $val / 10 : "n/a"',
  2351. ValueConvInv => 'IsFloat($val) ? sprintf("%.0f 1",$val*10) : "0 0"',
  2352. },
  2353. 0x908 => { #PH (NC, E-M1)
  2354. Name => 'DateTimeUTC',
  2355. Writable => 'string',
  2356. Groups => { 2 => 'Time' },
  2357. Shift => 'Time',
  2358. PrintConv => '$self->ConvertDateTime($val)',
  2359. PrintConvInv => '$self->InverseDateTime($val,undef,1)',
  2360. },
  2361. );
  2362. # Olympus RAW processing IFD (ref 6)
  2363. %Image::ExifTool::Olympus::RawDevelopment = (
  2364. WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
  2365. CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
  2366. WRITABLE => 1,
  2367. GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
  2368. 0x000 => { #PH
  2369. Name => 'RawDevVersion',
  2370. Writable => 'undef',
  2371. RawConv => '$val=~s/\0+$//; $val', # (may be null terminated)
  2372. Count => 4,
  2373. },
  2374. 0x100 => { Name => 'RawDevExposureBiasValue', Writable => 'rational64s' },
  2375. 0x101 => { Name => 'RawDevWhiteBalanceValue', Writable => 'int16u' },
  2376. 0x102 => { Name => 'RawDevWBFineAdjustment', Writable => 'int16s' },
  2377. 0x103 => { Name => 'RawDevGrayPoint', Writable => 'int16u', Count => 3 },
  2378. 0x104 => { Name => 'RawDevSaturationEmphasis', Writable => 'int16s', Count => 3 },
  2379. 0x105 => { Name => 'RawDevMemoryColorEmphasis', Writable => 'int16u' },
  2380. 0x106 => { Name => 'RawDevContrastValue', Writable => 'int16s', Count => 3 },
  2381. 0x107 => { Name => 'RawDevSharpnessValue', Writable => 'int16s', Count => 3 },
  2382. 0x108 => {
  2383. Name => 'RawDevColorSpace',
  2384. Writable => 'int16u',
  2385. PrintConv => { #11
  2386. 0 => 'sRGB',
  2387. 1 => 'Adobe RGB',
  2388. 2 => 'Pro Photo RGB',
  2389. },
  2390. },
  2391. 0x109 => {
  2392. Name => 'RawDevEngine',
  2393. Writable => 'int16u',
  2394. PrintConv => { #11
  2395. 0 => 'High Speed',
  2396. 1 => 'High Function',
  2397. 2 => 'Advanced High Speed',
  2398. 3 => 'Advanced High Function',
  2399. },
  2400. },
  2401. 0x10a => {
  2402. Name => 'RawDevNoiseReduction',
  2403. Writable => 'int16u',
  2404. PrintConv => { #11
  2405. 0 => '(none)',
  2406. BITMASK => {
  2407. 0 => 'Noise Reduction',
  2408. 1 => 'Noise Filter',
  2409. 2 => 'Noise Filter (ISO Boost)',
  2410. },
  2411. },
  2412. },
  2413. 0x10b => {
  2414. Name => 'RawDevEditStatus',
  2415. Writable => 'int16u',
  2416. PrintConv => { #11
  2417. 0 => 'Original',
  2418. 1 => 'Edited (Landscape)',
  2419. 6 => 'Edited (Portrait)',
  2420. 8 => 'Edited (Portrait)',
  2421. },
  2422. },
  2423. 0x10c => {
  2424. Name => 'RawDevSettings',
  2425. Writable => 'int16u',
  2426. PrintConv => { #11
  2427. 0 => '(none)',
  2428. BITMASK => {
  2429. 0 => 'WB Color Temp',
  2430. 1 => 'WB Gray Point',
  2431. 2 => 'Saturation',
  2432. 3 => 'Contrast',
  2433. 4 => 'Sharpness',
  2434. 5 => 'Color Space',
  2435. 6 => 'High Function',
  2436. 7 => 'Noise Reduction',
  2437. },
  2438. },
  2439. },
  2440. );
  2441. # Olympus RAW processing B IFD (ref 11)
  2442. %Image::ExifTool::Olympus::RawDevelopment2 = (
  2443. WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
  2444. CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
  2445. WRITABLE => 1,
  2446. GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
  2447. 0x000 => {
  2448. Name => 'RawDevVersion',
  2449. Writable => 'undef',
  2450. RawConv => '$val=~s/\0+$//; $val', # (may be null terminated)
  2451. Count => 4,
  2452. },
  2453. 0x100 => { Name => 'RawDevExposureBiasValue', Writable => 'rational64s' },
  2454. 0x101 => {
  2455. Name => 'RawDevWhiteBalance',
  2456. Writable => 'int16u',
  2457. PrintConv => {
  2458. 1 => 'Color Temperature',
  2459. 2 => 'Gray Point',
  2460. },
  2461. },
  2462. 0x102 => { Name => 'RawDevWhiteBalanceValue', Writable => 'int16u' },
  2463. 0x103 => { Name => 'RawDevWBFineAdjustment', Writable => 'int16s' },
  2464. 0x104 => { Name => 'RawDevGrayPoint', Writable => 'int16u', Count => 3 },
  2465. 0x105 => { Name => 'RawDevContrastValue', Writable => 'int16s', Count => 3 },
  2466. 0x106 => { Name => 'RawDevSharpnessValue', Writable => 'int16s', Count => 3 },
  2467. 0x107 => { Name => 'RawDevSaturationEmphasis', Writable => 'int16s', Count => 3 },
  2468. 0x108 => { Name => 'RawDevMemoryColorEmphasis', Writable => 'int16u' },
  2469. 0x109 => {
  2470. Name => 'RawDevColorSpace',
  2471. Writable => 'int16u',
  2472. PrintConv => {
  2473. 0 => 'sRGB',
  2474. 1 => 'Adobe RGB',
  2475. 2 => 'Pro Photo RGB',
  2476. },
  2477. },
  2478. 0x10a => {
  2479. Name => 'RawDevNoiseReduction',
  2480. Writable => 'int16u',
  2481. PrintConv => {
  2482. 0 => '(none)',
  2483. BITMASK => {
  2484. 0 => 'Noise Reduction',
  2485. 1 => 'Noise Filter',
  2486. 2 => 'Noise Filter (ISO Boost)',
  2487. },
  2488. },
  2489. },
  2490. 0x10b => {
  2491. Name => 'RawDevEngine',
  2492. Writable => 'int16u',
  2493. PrintConv => {
  2494. 0 => 'High Speed',
  2495. 1 => 'High Function',
  2496. },
  2497. },
  2498. 0x10c => {
  2499. Name => 'RawDevPictureMode',
  2500. Writable => 'int16u',
  2501. PrintConv => {
  2502. 1 => 'Vivid',
  2503. 2 => 'Natural',
  2504. 3 => 'Muted',
  2505. 256 => 'Monotone',
  2506. 512 => 'Sepia',
  2507. },
  2508. },
  2509. 0x10d => { Name => 'RawDevPMSaturation', Writable => 'int16s', Count => 3 },
  2510. 0x10e => { Name => 'RawDevPMContrast', Writable => 'int16s', Count => 3 },
  2511. 0x10f => { Name => 'RawDevPMSharpness', Writable => 'int16s', Count => 3 },
  2512. 0x110 => {
  2513. Name => 'RawDevPM_BWFilter',
  2514. Writable => 'int16u',
  2515. PrintConv => {
  2516. 1 => 'Neutral',
  2517. 2 => 'Yellow',
  2518. 3 => 'Orange',
  2519. 4 => 'Red',
  2520. 5 => 'Green',
  2521. },
  2522. },
  2523. 0x111 => {
  2524. Name => 'RawDevPMPictureTone',
  2525. Writable => 'int16u',
  2526. PrintConv => {
  2527. 1 => 'Neutral',
  2528. 2 => 'Sepia',
  2529. 3 => 'Blue',
  2530. 4 => 'Purple',
  2531. 5 => 'Green',
  2532. },
  2533. },
  2534. 0x112 => { Name => 'RawDevGradation', Writable => 'int16s', Count => 3 },
  2535. 0x113 => { Name => 'RawDevSaturation3', Writable => 'int16s', Count => 3 }, #(NC Count)
  2536. 0x119 => { Name => 'RawDevAutoGradation', Writable => 'int16u', PrintConv => \%offOn },
  2537. 0x120 => { Name => 'RawDevPMNoiseFilter', Writable => 'int16u' }, #(NC format)
  2538. 0x121 => { #PH (E-P5)
  2539. Name => 'RawDevArtFilter',
  2540. Writable => 'int16u',
  2541. Count => 4,
  2542. PrintConvColumns => 2,
  2543. PrintConv => [ \%filters ],
  2544. },
  2545. );
  2546. # Olympus Image processing IFD
  2547. %Image::ExifTool::Olympus::ImageProcessing = (
  2548. WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
  2549. CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
  2550. WRITABLE => 1,
  2551. GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
  2552. 0x000 => { #PH
  2553. Name => 'ImageProcessingVersion',
  2554. Writable => 'undef',
  2555. RawConv => '$val=~s/\0+$//; $val', # (may be null terminated)
  2556. Count => 4,
  2557. },
  2558. 0x100 => { Name => 'WB_RBLevels', Writable => 'int16u', Count => 2 }, #6
  2559. # 0x101 - in-camera AutoWB unless it is all 0's or all 256's (ref 21)
  2560. 0x102 => { Name => 'WB_RBLevels3000K', Writable => 'int16u', Count => 2 }, #11
  2561. 0x103 => { Name => 'WB_RBLevels3300K', Writable => 'int16u', Count => 2 }, #11
  2562. 0x104 => { Name => 'WB_RBLevels3600K', Writable => 'int16u', Count => 2 }, #11
  2563. 0x105 => { Name => 'WB_RBLevels3900K', Writable => 'int16u', Count => 2 }, #11
  2564. 0x106 => { Name => 'WB_RBLevels4000K', Writable => 'int16u', Count => 2 }, #11
  2565. 0x107 => { Name => 'WB_RBLevels4300K', Writable => 'int16u', Count => 2 }, #11
  2566. 0x108 => { Name => 'WB_RBLevels4500K', Writable => 'int16u', Count => 2 }, #11
  2567. 0x109 => { Name => 'WB_RBLevels4800K', Writable => 'int16u', Count => 2 }, #11
  2568. 0x10a => { Name => 'WB_RBLevels5300K', Writable => 'int16u', Count => 2 }, #11
  2569. 0x10b => { Name => 'WB_RBLevels6000K', Writable => 'int16u', Count => 2 }, #11
  2570. 0x10c => { Name => 'WB_RBLevels6600K', Writable => 'int16u', Count => 2 }, #11
  2571. 0x10d => { Name => 'WB_RBLevels7500K', Writable => 'int16u', Count => 2 }, #11
  2572. 0x10e => { Name => 'WB_RBLevelsCWB1', Writable => 'int16u', Count => 2 }, #11
  2573. 0x10f => { Name => 'WB_RBLevelsCWB2', Writable => 'int16u', Count => 2 }, #11
  2574. 0x110 => { Name => 'WB_RBLevelsCWB3', Writable => 'int16u', Count => 2 }, #11
  2575. 0x111 => { Name => 'WB_RBLevelsCWB4', Writable => 'int16u', Count => 2 }, #11
  2576. 0x113 => { Name => 'WB_GLevel3000K', Writable => 'int16u' }, #11
  2577. 0x114 => { Name => 'WB_GLevel3300K', Writable => 'int16u' }, #11
  2578. 0x115 => { Name => 'WB_GLevel3600K', Writable => 'int16u' }, #11
  2579. 0x116 => { Name => 'WB_GLevel3900K', Writable => 'int16u' }, #11
  2580. 0x117 => { Name => 'WB_GLevel4000K', Writable => 'int16u' }, #11
  2581. 0x118 => { Name => 'WB_GLevel4300K', Writable => 'int16u' }, #11
  2582. 0x119 => { Name => 'WB_GLevel4500K', Writable => 'int16u' }, #11
  2583. 0x11a => { Name => 'WB_GLevel4800K', Writable => 'int16u' }, #11
  2584. 0x11b => { Name => 'WB_GLevel5300K', Writable => 'int16u' }, #11
  2585. 0x11c => { Name => 'WB_GLevel6000K', Writable => 'int16u' }, #11
  2586. 0x11d => { Name => 'WB_GLevel6600K', Writable => 'int16u' }, #11
  2587. 0x11e => { Name => 'WB_GLevel7500K', Writable => 'int16u' }, #11
  2588. 0x11f => { Name => 'WB_GLevel', Writable => 'int16u' }, #11
  2589. # 0x121 = WB preset for flash (about 6000K) (ref 21)
  2590. # 0x125 = WB preset for underwater (ref 21)
  2591. 0x200 => { #6
  2592. Name => 'ColorMatrix',
  2593. Writable => 'int16u',
  2594. Format => 'int16s',
  2595. Count => 9,
  2596. },
  2597. # color matrices (ref 11):
  2598. # 0x0201-0x020d are sRGB color matrices
  2599. # 0x020e-0x021a are Adobe RGB color matrices
  2600. # 0x021b-0x0227 are ProPhoto RGB color matrices
  2601. # 0x0228 and 0x0229 are ColorMatrix for E-330
  2602. # 0x0250-0x0252 are sRGB color matrices
  2603. # 0x0253-0x0255 are Adobe RGB color matrices
  2604. # 0x0256-0x0258 are ProPhoto RGB color matrices
  2605. 0x300 => { Name => 'Enhancer', Writable => 'int16u' }, #11
  2606. 0x301 => { Name => 'EnhancerValues', Writable => 'int16u', Count => 7 }, #11
  2607. 0x310 => { Name => 'CoringFilter', Writable => 'int16u' }, #11
  2608. 0x311 => { Name => 'CoringValues', Writable => 'int16u', Count => 7 }, #11
  2609. 0x600 => { Name => 'BlackLevel2', Writable => 'int16u', Count => 4 }, #11
  2610. 0x610 => { Name => 'GainBase', Writable => 'int16u' }, #11
  2611. 0x611 => { Name => 'ValidBits', Writable => 'int16u', Count => 2 }, #4/6
  2612. 0x612 => { Name => 'CropLeft', Writable => 'int16u', Count => 2 }, #11
  2613. 0x613 => { Name => 'CropTop', Writable => 'int16u', Count => 2 }, #11
  2614. 0x614 => { Name => 'CropWidth', Writable => 'int32u' }, #PH/11
  2615. 0x615 => { Name => 'CropHeight', Writable => 'int32u' }, #PH/11
  2616. 0x635 => { #PH (data starts with "CMIO\x01\0")
  2617. Name => 'UnknownBlock1',
  2618. Writable => 'undef',
  2619. Notes => 'large unknown data block in ORF images but not JPG images',
  2620. # 'Drop' because too large for APP1 in JPEG images
  2621. Flags => [ 'Unknown', 'Binary', 'Drop' ],
  2622. },
  2623. 0x636 => { #PH (data starts with "CMIO\x01\0")
  2624. Name => 'UnknownBlock2',
  2625. Writable => 'undef',
  2626. Notes => 'large unknown data block in ORF images but not JPG images',
  2627. # 'Drop' because too large for APP1 in JPEG images
  2628. Flags => [ 'Unknown', 'Binary', 'Drop' ],
  2629. },
  2630. # 0x800 LensDistortionParams, float[9] (ref 11)
  2631. # 0x801 LensShadingParams, int16u[16] (ref 11)
  2632. 0x0805 => { #21
  2633. Name => 'SensorCalibration',
  2634. Notes => '2 numbers: 1. recommended maximum, 2. calibration midpoint',
  2635. Writable => 'int16s',
  2636. Count => 2,
  2637. },
  2638. # 0x1010-0x1012 are the processing options used in camera or in
  2639. # Olympus software, which 0x050a-0x050c are in-camera only (ref 6)
  2640. 0x1010 => { #PH/4
  2641. Name => 'NoiseReduction2',
  2642. Writable => 'int16u',
  2643. PrintConv => {
  2644. 0 => '(none)',
  2645. BITMASK => {
  2646. 0 => 'Noise Reduction',
  2647. 1 => 'Noise Filter',
  2648. 2 => 'Noise Filter (ISO Boost)',
  2649. },
  2650. },
  2651. },
  2652. 0x1011 => { #6
  2653. Name => 'DistortionCorrection2',
  2654. Writable => 'int16u',
  2655. PrintConv => \%offOn,
  2656. },
  2657. 0x1012 => { #PH/4
  2658. Name => 'ShadingCompensation2',
  2659. Writable => 'int16u',
  2660. PrintConv => \%offOn,
  2661. },
  2662. 0x101c => { #11
  2663. Name => 'MultipleExposureMode',
  2664. Writable => 'int16u',
  2665. Count => 2,
  2666. PrintConv => [{
  2667. 0 => 'Off',
  2668. 2 => 'On (2 frames)',
  2669. 3 => 'On (3 frames)',
  2670. }],
  2671. },
  2672. 0x1103 => { #PH
  2673. Name => 'UnknownBlock3',
  2674. Writable => 'undef',
  2675. Notes => 'large unknown data block in ORF images but not JPG images',
  2676. # 'Drop' because too large for APP1 in JPEG images
  2677. Flags => [ 'Unknown', 'Binary', 'Drop' ],
  2678. },
  2679. 0x1104 => { #PH (overlaps data for 0x1103 in E-M5 ORF images)
  2680. Name => 'UnknownBlock4',
  2681. Writable => 'undef',
  2682. Notes => 'large unknown data block in ORF images but not JPG images',
  2683. # 'Drop' because too large for APP1 in JPEG images
  2684. Flags => [ 'Unknown', 'Binary', 'Drop' ],
  2685. },
  2686. 0x1112 => { #11
  2687. Name => 'AspectRatio',
  2688. Writable => 'int8u',
  2689. Count => 2,
  2690. PrintConv => {
  2691. # '0 0' - have seen this with a 16:9 XZ-1 image - PH
  2692. '1 1' => '4:3',
  2693. '1 4' => '1:1', #PH (E-P5 Storyboard effect, does this indicate 4:3 converted to 6:6?)
  2694. '2 1' => '3:2 (RAW)', #forum6285
  2695. '2 2' => '3:2',
  2696. '3 1' => '16:9 (RAW)', #forum6285
  2697. '3 3' => '16:9',
  2698. '4 1' => '1:1 (RAW)', #forum6285
  2699. '4 4' => '6:6',
  2700. '5 5' => '5:4',
  2701. '6 6' => '7:6',
  2702. '7 7' => '6:5',
  2703. '8 8' => '7:5',
  2704. '9 1' => '3:4 (RAW)', #forum6285
  2705. '9 9' => '3:4',
  2706. },
  2707. },
  2708. 0x1113 => { Name => 'AspectFrame', Writable => 'int16u', Count => 4 }, #11
  2709. 0x1200 => { #11/PH
  2710. Name => 'FacesDetected',
  2711. Writable => 'int32u',
  2712. Count => -1,
  2713. Notes => '2 or 3 values',
  2714. },
  2715. 0x1201 => { #11/PH
  2716. Name => 'FaceDetectArea',
  2717. Writable => 'int16s',
  2718. Count => -1, # (varies with model)
  2719. Binary => 1, # (too long)
  2720. Notes => q{
  2721. for models with 2 values in FacesDetected this gives X/Y coordinates in the
  2722. FaceDetectFrame for all 4 corners of the face rectangle. For models with 3
  2723. values in FacesDetected this gives X/Y coordinates, size and rotation angle
  2724. of the face detect square
  2725. },
  2726. },
  2727. 0x1202 => { Name => 'MaxFaces', Writable => 'int32u', Count => 3 }, #PH
  2728. 0x1203 => { #PH
  2729. Name => 'FaceDetectFrameSize',
  2730. Writable => 'int16u',
  2731. Count => 6,
  2732. Notes => 'width/height of the full face detect frame',
  2733. },
  2734. 0x1207 => { #PH
  2735. Name => 'FaceDetectFrameCrop',
  2736. Writable => 'int16s',
  2737. Count => 12,
  2738. Notes => 'X/Y offset and width/height of the cropped face detect frame',
  2739. },
  2740. 0x1306 => { #PH (NC, E-M1)
  2741. Name => 'CameraTemperature',
  2742. Writable => 'int16u',
  2743. Format => 'int16s', #(NC)
  2744. ValueConv => '$val ? $val : undef', # zero for some models (how to differentiate from 0 C?)
  2745. Notes => 'this seems to be in degrees C only for some models',
  2746. },
  2747. # 0x1905 - focal length (PH, E-M1)
  2748. );
  2749. # Olympus Focus Info IFD
  2750. %Image::ExifTool::Olympus::FocusInfo = (
  2751. WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
  2752. CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
  2753. WRITABLE => 1,
  2754. GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
  2755. 0x000 => { #PH
  2756. Name => 'FocusInfoVersion',
  2757. Writable => 'undef',
  2758. RawConv => '$val=~s/\0+$//; $val', # (may be null terminated)
  2759. Count => 4,
  2760. },
  2761. 0x209 => { #PH/4
  2762. Name => 'AutoFocus',
  2763. Writable => 'int16u',
  2764. PrintConv => \%offOn,
  2765. Unknown => 1, #6
  2766. },
  2767. 0x210 => { Name => 'SceneDetect', Writable => 'int16u' }, #11
  2768. 0x211 => { #11
  2769. Name => 'SceneArea',
  2770. Writable => 'int32u',
  2771. Count => 8,
  2772. Unknown => 1, # (numbers don't make much sense?)
  2773. },
  2774. 0x212 => { #11
  2775. Name => 'SceneDetectData',
  2776. Writable => 'int32u',
  2777. Count => 720,
  2778. Binary => 1,
  2779. Unknown => 1, # (but what does it mean?)
  2780. },
  2781. # 0x214 - int16u: normally 0, but 1 for E-M1 focus-bracketing, and have seen 1 and 256 at other times
  2782. 0x300 => { Name => 'ZoomStepCount', Writable => 'int16u' }, #6
  2783. 0x301 => { Name => 'FocusStepCount', Writable => 'int16u' }, #11
  2784. 0x303 => { Name => 'FocusStepInfinity', Writable => 'int16u' }, #11
  2785. 0x304 => { Name => 'FocusStepNear', Writable => 'int16u' }, #11
  2786. 0x305 => { #4
  2787. Name => 'FocusDistance',
  2788. Writable => 'rational64u',
  2789. # this rational value looks like it is in mm when the denominator is
  2790. # 1 (E-1), and cm when denominator is 10 (E-300), so if we ignore the
  2791. # denominator we are consistently in mm - PH
  2792. Format => 'int32u',
  2793. Count => 2,
  2794. ValueConv => q{
  2795. my ($a,$b) = split ' ',$val;
  2796. return 0 if $a == 0xffffffff;
  2797. return $a / 1000;
  2798. },
  2799. ValueConvInv => q{
  2800. return '4294967295 1' unless $val;
  2801. $val = int($val * 1000 + 0.5);
  2802. return "$val 1";
  2803. },
  2804. PrintConv => '$val ? "$val m" : "inf"',
  2805. PrintConvInv => '$val eq "inf" ? 0 : $val=~s/\s*m$//, $val',
  2806. },
  2807. 0x308 => [ # NEED A BETTER WAY TO DETERMINE WHICH MODELS USE WHICH ENCODING!
  2808. {
  2809. Name => 'AFPoint',
  2810. Condition => '$$self{Model} =~ /E-(3|5|30)\b/',
  2811. Writable => 'int16u',
  2812. PrintHex => 1,
  2813. # decoded by ref 6
  2814. Notes => q{
  2815. for the E-3, E-5 and E-30 the value is separated into 2 parts: low 5 bits
  2816. give AF point, upper bits give AF target selection mode
  2817. },
  2818. ValueConv => '($val & 0x1f) . " " . ($val & 0xffe0)',
  2819. ValueConvInv => 'my @v=split(" ",$val); @v == 2 ? $v[0] + $v[1] : $val',
  2820. PrintConvColumns => 2,
  2821. PrintConv => [
  2822. {
  2823. 0x00 => '(none)',
  2824. 0x01 => 'Top-left (horizontal)',
  2825. 0x02 => 'Top-center (horizontal)',
  2826. 0x03 => 'Top-right (horizontal)',
  2827. 0x04 => 'Left (horizontal)',
  2828. 0x05 => 'Mid-left (horizontal)',
  2829. 0x06 => 'Center (horizontal)',
  2830. 0x07 => 'Mid-right (horizontal)',
  2831. 0x08 => 'Right (horizontal)',
  2832. 0x09 => 'Bottom-left (horizontal)',
  2833. 0x0a => 'Bottom-center (horizontal)',
  2834. 0x0b => 'Bottom-right (horizontal)',
  2835. 0x0c => 'Top-left (vertical)',
  2836. 0x0d => 'Top-center (vertical)',
  2837. 0x0e => 'Top-right (vertical)',
  2838. 0x0f => 'Left (vertical)',
  2839. 0x10 => 'Mid-left (vertical)',
  2840. 0x11 => 'Center (vertical)',
  2841. 0x12 => 'Mid-right (vertical)',
  2842. 0x13 => 'Right (vertical)',
  2843. 0x14 => 'Bottom-left (vertical)',
  2844. 0x15 => 'Bottom-center (vertical)',
  2845. 0x16 => 'Bottom-right (vertical)',
  2846. 0x1f => 'n/a', #PH (NC, E-3)
  2847. },
  2848. {
  2849. 0x00 => 'Single Target',
  2850. 0x40 => 'All Target',
  2851. 0x80 => 'Dynamic Single Target',
  2852. 0xe0 => 'n/a', #PH (NC, E-3)
  2853. }
  2854. ],
  2855. },{ #PH (models with 7-point AF)
  2856. Name => 'AFPoint',
  2857. Condition => '$$self{Model} =~ /E-(520|600|620)\b/',
  2858. Notes => 'models with 7-point AF',
  2859. Writable => 'int16u',
  2860. PrintHex => 1,
  2861. ValueConv => '($val & 0x1f) . " " . ($val & 0xffe0)',
  2862. ValueConvInv => 'my @v=split(" ",$val); @v == 2 ? $v[0] + $v[1] : $val',
  2863. PrintConv => [
  2864. {
  2865. 0x00 => '(none)',
  2866. 0x01 => 'Center',
  2867. # need to fill this in...
  2868. },
  2869. {
  2870. 0x00 => 'Single Target',
  2871. 0x40 => 'All Target', # (guess)
  2872. },
  2873. ]
  2874. },{ #11
  2875. Name => 'AFPoint',
  2876. Writable => 'int16u',
  2877. Notes => 'other models',
  2878. RawConv => '($val or $$self{Model} ne "E-P1") ? $val : undef',
  2879. PrintConv => {
  2880. # (E-P1 always writes 0, maybe other models do too - PH)
  2881. 0 => 'Left (or n/a)',
  2882. 1 => 'Center (horizontal)', #6 (E-510)
  2883. 2 => 'Right',
  2884. 3 => 'Center (vertical)', #6 (E-510)
  2885. 255 => 'None',
  2886. },
  2887. }
  2888. ],
  2889. # 0x31a Continuous AF parameters?
  2890. 0x328 => { #PH
  2891. Name => 'AFInfo',
  2892. SubDirectory => { TagTable => 'Image::ExifTool::Olympus::AFInfo' },
  2893. },
  2894. # 0x1200-0x1209 Flash information:
  2895. 0x1201 => { #6
  2896. Name => 'ExternalFlash',
  2897. Writable => 'int16u',
  2898. Count => 2,
  2899. PrintConv => {
  2900. '0 0' => 'Off',
  2901. '1 0' => 'On',
  2902. },
  2903. },
  2904. 0x1203 => { #11
  2905. Name => 'ExternalFlashGuideNumber',
  2906. Writable => 'rational64s',
  2907. Unknown => 1, # (needs verification)
  2908. },
  2909. 0x1204 => { #11(reversed)/7
  2910. Name => 'ExternalFlashBounce',
  2911. Writable => 'int16u',
  2912. PrintConv => {
  2913. 0 => 'Bounce or Off',
  2914. 1 => 'Direct',
  2915. },
  2916. },
  2917. 0x1205 => { Name => 'ExternalFlashZoom', Writable => 'rational64u' }, #11 (ref converts to mm using table)
  2918. 0x1208 => { #6
  2919. Name => 'InternalFlash',
  2920. Writable => 'int16u',
  2921. Count => -1,
  2922. PrintConv => {
  2923. '0' => 'Off',
  2924. '1' => 'On',
  2925. '0 0' => 'Off',
  2926. '1 0' => 'On',
  2927. },
  2928. },
  2929. 0x1209 => { #6
  2930. Name => 'ManualFlash',
  2931. Writable => 'int16u',
  2932. Count => 2,
  2933. Notes => '2 numbers: 1. 0=Off, 1=On, 2. Flash strength',
  2934. PrintConv => q{
  2935. my ($a,$b) = split ' ',$val;
  2936. return 'Off' unless $a;
  2937. $b = ($b == 1) ? 'Full' : "1/$b";
  2938. return "On ($b strength)";
  2939. },
  2940. },
  2941. 0x120a => { #PH
  2942. Name => 'MacroLED',
  2943. Writable => 'int16u',
  2944. PrintConv => \%offOn,
  2945. },
  2946. 0x1500 => [{ #6
  2947. Name => 'SensorTemperature',
  2948. # (Stylus 1 stores values like "34 0 0")
  2949. Condition => '$$self{Model} =~ /E-(1|M5)\b/ || $count != 1',
  2950. Writable => 'int16s',
  2951. PrintConv => '$val=~s/ 0 0$//; "$val C"',
  2952. PrintConvInv => '$val=~s/ ?C$//; $val',
  2953. },{
  2954. Name => 'SensorTemperature',
  2955. Writable => 'int16s',
  2956. RawConv => '($val and $val ne "-32768") ? $val : undef', # ignore 0 and -32768
  2957. # ValueConv => '-2*(($val/135)**2)+55', #11
  2958. ValueConv => '84 - 3 * $val / 26', #http://u88.n24.queensu.ca/exiftool/forum/index.php/topic,5423.0.html
  2959. ValueConvInv => 'int((84 - $val) * 26 / 3 + 0.5)',
  2960. PrintConv => 'sprintf("%.1f C",$val)',
  2961. PrintConvInv => '$val=~s/ ?C$//; $val',
  2962. # data from test shots by Eric Sibert:
  2963. # E-510 E-620
  2964. # Raw Ambient Raw Ambient
  2965. # --- ------- --- -------
  2966. # 534 22.7 518 22.7
  2967. # 550 20.6 531 19.3
  2968. # 552 20.8 533 17.9
  2969. # 558 19.3 582 17.2
  2970. # 564 19.1 621 12.3
  2971. # 567 17.8 634 9.7
  2972. # 576 18.6 650 8.0
  2973. # 582 17.2 660 7.7
  2974. # 599 13.8 703 3.3
  2975. # 631 10.7 880 -20.6
  2976. # 642 12.4 880 -20.6
  2977. # 652 9.6 892 -24.4
  2978. # 692 5.2 892 -22.7
  2979. # 714 3.3
  2980. # 895 -19.8
  2981. # 895 -19.2
  2982. # 900 -21.7
  2983. }],
  2984. 0x1600 => { # ref http://fourthirdsphoto.com/vbb/showpost.php?p=107607&postcount=15
  2985. Name => 'ImageStabilization',
  2986. # (the other value is more reliable, so ignore this totally if the other exists)
  2987. Condition => 'not defined $$self{ImageStabilization}',
  2988. Writable => 'undef',
  2989. # if the first 4 bytes are non-zero, then bit 0x01 of byte 44
  2990. # gives the stabilization mode
  2991. PrintConv => q{
  2992. $val =~ /^\0{4}/ ? 'Off' : 'On, ' .
  2993. (unpack('x44C',$val) & 0x01 ? 'Mode 1' : 'Mode 2')
  2994. },
  2995. },
  2996. # 0x102a same as Subdir4-0x300
  2997. );
  2998. # AF information (ref PH)
  2999. %Image::ExifTool::Olympus::AFInfo = (
  3000. PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
  3001. GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
  3002. FIRST_ENTRY => 0,
  3003. # 0x2a - int8u: ImagerAFMode? 0=Manual, 1=Auto
  3004. # 0x30 - int16u: AFAreaXPosition?
  3005. # 0x32 - int16u: AFAreaWidth? (202)
  3006. # 0x34 - int16u: AFAreaYPosition?
  3007. # 0x36 - int16u: AFAreaHeight? (50)
  3008. # (AF area positions above give the top-left coordinates of the AF area in the
  3009. # AF frame. Increasing Y is downwards, and the AF frame size is about 1280x256)
  3010. );
  3011. # Olympus raw information tags (ref 6)
  3012. %Image::ExifTool::Olympus::RawInfo = (
  3013. WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
  3014. CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
  3015. NOTES => 'These tags are found only in ORF images of some models (eg. C8080WZ).',
  3016. GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
  3017. 0x000 => {
  3018. Name => 'RawInfoVersion',
  3019. Writable => 'undef',
  3020. RawConv => '$val=~s/\0+$//; $val', # (may be null terminated)
  3021. Count => 4,
  3022. },
  3023. 0x100 => { Name => 'WB_RBLevelsUsed', Writable => 'int16u', Count => 2 },
  3024. 0x110 => { Name => 'WB_RBLevelsAuto', Writable => 'int16u', Count => 2 },
  3025. 0x120 => { Name => 'WB_RBLevelsShade', Writable => 'int16u', Count => 2 },
  3026. 0x121 => { Name => 'WB_RBLevelsCloudy', Writable => 'int16u', Count => 2 },
  3027. 0x122 => { Name => 'WB_RBLevelsFineWeather', Writable => 'int16u', Count => 2 },
  3028. 0x123 => { Name => 'WB_RBLevelsTungsten', Writable => 'int16u', Count => 2 },
  3029. 0x124 => { Name => 'WB_RBLevelsEveningSunlight',Writable => 'int16u', Count => 2 },
  3030. 0x130 => { Name => 'WB_RBLevelsDaylightFluor', Writable => 'int16u', Count => 2 },
  3031. 0x131 => { Name => 'WB_RBLevelsDayWhiteFluor', Writable => 'int16u', Count => 2 },
  3032. 0x132 => { Name => 'WB_RBLevelsCoolWhiteFluor', Writable => 'int16u', Count => 2 },
  3033. 0x133 => { Name => 'WB_RBLevelsWhiteFluorescent',Writable => 'int16u', Count => 2 },
  3034. 0x200 => {
  3035. Name => 'ColorMatrix2',
  3036. Format => 'int16s',
  3037. Writable => 'int16u',
  3038. Count => 9,
  3039. },
  3040. # 0x240 => 'ColorMatrixDefault', ?
  3041. # 0x250 => 'ColorMatrixSaturation', ?
  3042. # 0x251 => 'ColorMatrixHue', ?
  3043. # 0x252 => 'ColorMatrixContrast', ?
  3044. # 0x300 => sharpness-related
  3045. # 0x301 => list of sharpness-related values
  3046. 0x310 => { Name => 'CoringFilter', Writable => 'int16u' },
  3047. 0x311 => { Name => 'CoringValues', Writable => 'int16u', Count => 11 },
  3048. 0x600 => { Name => 'BlackLevel2', Writable => 'int16u', Count => 4 },
  3049. 0x601 => {
  3050. Name => 'YCbCrCoefficients',
  3051. Notes => 'stored as int16u[6], but extracted as rational32u[3]',
  3052. Format => 'rational32u',
  3053. },
  3054. 0x611 => { Name => 'ValidPixelDepth', Writable => 'int16u', Count => 2 },
  3055. 0x612 => { Name => 'CropLeft', Writable => 'int16u' }, #11
  3056. 0x613 => { Name => 'CropTop', Writable => 'int16u' }, #11
  3057. 0x614 => { Name => 'CropWidth', Writable => 'int32u' },
  3058. 0x615 => { Name => 'CropHeight', Writable => 'int32u' },
  3059. 0x1000 => {
  3060. Name => 'LightSource',
  3061. Writable => 'int16u',
  3062. PrintConv => {
  3063. 0 => 'Unknown',
  3064. 16 => 'Shade',
  3065. 17 => 'Cloudy',
  3066. 18 => 'Fine Weather',
  3067. 20 => 'Tungsten (Incandescent)',
  3068. 22 => 'Evening Sunlight',
  3069. 33 => 'Daylight Fluorescent',
  3070. 34 => 'Day White Fluorescent',
  3071. 35 => 'Cool White Fluorescent',
  3072. 36 => 'White Fluorescent',
  3073. 256 => 'One Touch White Balance',
  3074. 512 => 'Custom 1-4',
  3075. },
  3076. },
  3077. # the following 5 tags all have 3 values: val, min, max
  3078. 0x1001 => { Name => 'WhiteBalanceComp', Writable => 'int16s', Count => 3 },
  3079. 0x1010 => { Name => 'SaturationSetting', Writable => 'int16s', Count => 3 },
  3080. 0x1011 => { Name => 'HueSetting', Writable => 'int16s', Count => 3 },
  3081. 0x1012 => { Name => 'ContrastSetting', Writable => 'int16s', Count => 3 },
  3082. 0x1013 => { Name => 'SharpnessSetting', Writable => 'int16s', Count => 3 },
  3083. # settings written by Camedia Master 4.x
  3084. 0x2000 => { Name => 'CMExposureCompensation', Writable => 'rational64s' },
  3085. 0x2001 => { Name => 'CMWhiteBalance', Writable => 'int16u' },
  3086. 0x2002 => { Name => 'CMWhiteBalanceComp', Writable => 'int16s' },
  3087. 0x2010 => { Name => 'CMWhiteBalanceGrayPoint', Writable => 'int16u', Count => 3 },
  3088. 0x2020 => { Name => 'CMSaturation', Writable => 'int16s', Count => 3 },
  3089. 0x2021 => { Name => 'CMHue', Writable => 'int16s', Count => 3 },
  3090. 0x2022 => { Name => 'CMContrast', Writable => 'int16s', Count => 3 },
  3091. 0x2023 => { Name => 'CMSharpness', Writable => 'int16s', Count => 3 },
  3092. );
  3093. # Olympus unknown information tags
  3094. %Image::ExifTool::Olympus::UnknownInfo = (
  3095. WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
  3096. CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
  3097. GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
  3098. );
  3099. # Tags found only in some FE models
  3100. %Image::ExifTool::Olympus::FETags = (
  3101. WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
  3102. CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
  3103. GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
  3104. NOTES => q{
  3105. Some FE models write a large number of tags here, but most of this
  3106. information remains unknown.
  3107. },
  3108. 0x0100 => {
  3109. Name => 'BodyFirmwareVersion',
  3110. Writable => 'string',
  3111. },
  3112. );
  3113. # tags in Olympus QuickTime videos (ref PH)
  3114. # (similar information in Kodak,Minolta,Nikon,Olympus,Pentax and Sanyo videos)
  3115. %Image::ExifTool::Olympus::MOV1 = (
  3116. PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
  3117. GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
  3118. FIRST_ENTRY => 0,
  3119. NOTES => q{
  3120. This information is found in MOV videos from Olympus models such as the
  3121. D540Z, D595Z, FE100, FE110, FE115, FE170 and FE200.
  3122. },
  3123. 0x00 => {
  3124. Name => 'Make',
  3125. Format => 'string[24]',
  3126. },
  3127. 0x18 => {
  3128. Name => 'Model',
  3129. Description => 'Camera Model Name',
  3130. Format => 'string[8]',
  3131. SeparateTable => 'CameraType',
  3132. PrintConv => \%olympusCameraTypes,
  3133. },
  3134. # (01 00 at offset 0x20)
  3135. 0x26 => {
  3136. Name => 'ExposureUnknown',
  3137. Unknown => 1,
  3138. Format => 'int32u',
  3139. # this conversion doesn't work for all models (eg. gives "1/100000")
  3140. ValueConv => '$val ? 10 / $val : 0',
  3141. PrintConv => 'Image::ExifTool::Exif::PrintExposureTime($val)',
  3142. },
  3143. 0x2a => {
  3144. Name => 'FNumber',
  3145. Format => 'rational64u',
  3146. PrintConv => 'sprintf("%.1f",$val)',
  3147. },
  3148. 0x32 => { #(NC)
  3149. Name => 'ExposureCompensation',
  3150. Format => 'rational64s',
  3151. PrintConv => 'Image::ExifTool::Exif::PrintFraction($val)',
  3152. },
  3153. # 0x44 => WhiteBalance ?
  3154. 0x48 => {
  3155. Name => 'FocalLength',
  3156. Format => 'rational64u',
  3157. PrintConv => 'sprintf("%.1f mm",$val)',
  3158. },
  3159. # 0xb1 => 'ISO', #(I don't think this works - PH)
  3160. );
  3161. # tags in Olympus QuickTime videos (ref PH)
  3162. # (similar information in Kodak,Minolta,Nikon,Olympus,Pentax and Sanyo videos)
  3163. %Image::ExifTool::Olympus::MOV2 = (
  3164. PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
  3165. GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
  3166. FIRST_ENTRY => 0,
  3167. NOTES => q{
  3168. This information is found in MOV videos from Olympus models such as the
  3169. FE120, FE140 and FE190.
  3170. },
  3171. 0x00 => {
  3172. Name => 'Make',
  3173. Format => 'string[24]',
  3174. },
  3175. 0x18 => {
  3176. Name => 'Model',
  3177. Description => 'Camera Model Name',
  3178. Format => 'string[24]',
  3179. Notes => 'the actual model name, no decoding necessary',
  3180. },
  3181. # (01 00 at offset 0x30)
  3182. 0x36 => {
  3183. Name => 'ExposureTime',
  3184. Format => 'int32u',
  3185. ValueConv => '$val ? 10 / $val : 0',
  3186. PrintConv => 'Image::ExifTool::Exif::PrintExposureTime($val)',
  3187. },
  3188. 0x3a => {
  3189. Name => 'FNumber',
  3190. Format => 'rational64u',
  3191. PrintConv => 'sprintf("%.1f",$val)',
  3192. },
  3193. 0x42 => { #(NC)
  3194. Name => 'ExposureCompensation',
  3195. Format => 'rational64s',
  3196. PrintConv => 'Image::ExifTool::Exif::PrintFraction($val)',
  3197. },
  3198. 0x58 => {
  3199. Name => 'FocalLength',
  3200. Format => 'rational64u',
  3201. PrintConv => 'sprintf("%.1f mm",$val)',
  3202. },
  3203. 0xc1 => {
  3204. Name => 'ISO',
  3205. Format => 'int16u',
  3206. },
  3207. );
  3208. # tags in Olympus MP4 videos (ref PH)
  3209. %Image::ExifTool::Olympus::MP4 = (
  3210. PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
  3211. GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
  3212. FIRST_ENTRY => 0,
  3213. NOTES => q{
  3214. This information is found in MP4 videos from Olympus models such as the
  3215. u7040 and u9010.
  3216. },
  3217. 0x00 => {
  3218. Name => 'Make',
  3219. Format => 'string[24]',
  3220. },
  3221. 0x18 => {
  3222. Name => 'Model',
  3223. Description => 'Camera Model Name',
  3224. Format => 'string[24]',
  3225. Notes => 'oddly different than CameraType values in JPEG images by the same camera',
  3226. PrintConv => {
  3227. SG472 => 'u7040,S7040',
  3228. SG473 => 'u9010,S9010',
  3229. SG475 => 'SP800UZ',
  3230. SG551 => 'SZ-30MR',
  3231. SG553 => 'SP-610UZ',
  3232. SG554 => 'SZ-10',
  3233. SG555 => 'SZ-20',
  3234. SG573 => 'SZ-14',
  3235. SG575 => 'SP-620UZ',
  3236. },
  3237. },
  3238. 0x28 => {
  3239. Name => 'FNumber',
  3240. Format => 'rational64u',
  3241. PrintConv => 'sprintf("%.1f",$val)',
  3242. },
  3243. 0x30 => { #(NC)
  3244. Name => 'ExposureCompensation',
  3245. Format => 'rational64s',
  3246. PrintConv => 'Image::ExifTool::Exif::PrintFraction($val)',
  3247. },
  3248. # 0x38 - int32u: 3
  3249. # 0x3c - int32u: 1
  3250. # 0x40 - int16u: 5
  3251. # 0x42 - int16u: 0,4,9
  3252. # 0x64 - int32u: 0,6000,12000
  3253. # 0x48 - int32u: 100 (ISO?)
  3254. 0x68 => {
  3255. Name => 'MovableInfo',
  3256. Condition => '$$valPt =~ /^DIGI/',
  3257. SubDirectory => { TagTable => 'Image::ExifTool::Olympus::MovableInfo' },
  3258. },
  3259. 0x72 => {
  3260. Name => 'MovableInfo',
  3261. Condition => '$$valPt =~ /^DIGI/',
  3262. SubDirectory => { TagTable => 'Image::ExifTool::Olympus::MovableInfo' },
  3263. },
  3264. );
  3265. # yet a different QuickTime TAGS format (PH, E-M5)
  3266. %Image::ExifTool::Olympus::MOV3 = (
  3267. GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
  3268. NOTES => 'QuickTime information found in the TAGS atom of MOV videos from the E-M5.',
  3269. OLYM => {
  3270. Name => 'OlympusAtom',
  3271. SubDirectory => { TagTable => 'Image::ExifTool::Olympus::OLYM2' },
  3272. },
  3273. );
  3274. # yet a different QuickTime OLYM atom format (PH, E-M5)
  3275. %Image::ExifTool::Olympus::OLYM2 = (
  3276. GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
  3277. prms => {
  3278. Name => 'MakerNotes',
  3279. SubDirectory => { TagTable => 'Image::ExifTool::Olympus::prms' },
  3280. },
  3281. thmb =>{
  3282. Name => 'ThumbInfo',
  3283. SubDirectory => { TagTable => 'Image::ExifTool::Olympus::thmb2' },
  3284. },
  3285. scrn =>{
  3286. Name => 'PreviewInfo',
  3287. SubDirectory => { TagTable => 'Image::ExifTool::Olympus::scrn2' },
  3288. },
  3289. );
  3290. # the "prms" atom in E-M5 MOV videos (PH, E-M5)
  3291. %Image::ExifTool::Olympus::prms = (
  3292. PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
  3293. GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
  3294. FIRST_ENTRY => 0,
  3295. NOTES => q{
  3296. Information extracted from the "prms" atom in MOV videos from Olympus models
  3297. such as the OM E-M5.
  3298. },
  3299. 0x12 => {
  3300. Name => 'Make',
  3301. Format => 'string[24]',
  3302. },
  3303. 0x2c => {
  3304. Name => 'Model',
  3305. Description => 'Camera Model Name',
  3306. Format => 'string[24]',
  3307. SeparateTable => 'CameraType',
  3308. PrintConv => \%olympusCameraTypes,
  3309. },
  3310. 0x83 => {
  3311. Name => 'DateTime1',
  3312. Format => 'string[24]',
  3313. Groups => { 2 => 'Time' },
  3314. },
  3315. 0x9d => {
  3316. Name => 'DateTime2',
  3317. Format => 'string[24]',
  3318. Groups => { 2 => 'Time' },
  3319. },
  3320. );
  3321. # yet a different "thmb" atom format (PH, E-M5)
  3322. %Image::ExifTool::Olympus::thmb2 = (
  3323. PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
  3324. GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
  3325. 0 => {
  3326. Name => 'ThumbnailWidth',
  3327. Format => 'int16u',
  3328. },
  3329. 2 => {
  3330. Name => 'ThumbnailHeight',
  3331. Format => 'int16u',
  3332. },
  3333. 4 => {
  3334. Name => 'ThumbnailLength',
  3335. Format => 'int32u',
  3336. },
  3337. 8 => {
  3338. Name => 'ThumbnailImage',
  3339. Groups => { 2 => 'Preview' },
  3340. Format => 'undef[$val{4}]',
  3341. Notes => '160x120 JPEG thumbnail image',
  3342. RawConv => '$self->ValidateImage(\$val,$tag)',
  3343. },
  3344. );
  3345. # yet a different "scrn" atom format (PH, E-M5)
  3346. %Image::ExifTool::Olympus::scrn2 = (
  3347. PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
  3348. GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
  3349. # 0 => int16u: 1 - number of preview images?
  3350. 2 => {
  3351. Name => 'OlympusPreview',
  3352. SubDirectory => { TagTable => 'Image::ExifTool::Olympus::scrn' },
  3353. },
  3354. );
  3355. # movable information found in MP4 videos
  3356. %Image::ExifTool::Olympus::MovableInfo = (
  3357. PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
  3358. GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
  3359. FIRST_ENTRY => 0,
  3360. 0x04 => { #(NC)
  3361. Name => 'ISO',
  3362. Format => 'int32u',
  3363. },
  3364. 0x2c => {
  3365. Name => 'EncoderVersion',
  3366. Format => 'string[16]',
  3367. },
  3368. 0x3c => {
  3369. Name => 'DecoderVersion',
  3370. Format => 'string[16]',
  3371. },
  3372. 0x83 => {
  3373. Name => 'Thumbnail',
  3374. SubDirectory => {
  3375. TagTable => 'Image::ExifTool::Olympus::Thumbnail',
  3376. Base => '$start', # (use a separate table because of this)
  3377. },
  3378. },
  3379. );
  3380. # thumbnail image information found in MP4 videos (similar in Olympus,Samsung,Sanyo) (ref PH)
  3381. %Image::ExifTool::Olympus::Thumbnail = (
  3382. PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
  3383. GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
  3384. FIRST_ENTRY => 0,
  3385. FORMAT => 'int32u',
  3386. 1 => 'ThumbnailWidth',
  3387. 2 => 'ThumbnailHeight',
  3388. 3 => 'ThumbnailLength',
  3389. 4 => { Name => 'ThumbnailOffset', IsOffset => 1 },
  3390. );
  3391. # thumbnail information found in 'thmb' atom of MP4 videos from the TG-810 (ref PH)
  3392. %Image::ExifTool::Olympus::thmb = (
  3393. NOTES => 'Information extracted from the "thmb" atom of Olympus MP4 videos.',
  3394. PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
  3395. GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
  3396. 0 => {
  3397. Name => 'ThumbnailLength',
  3398. Format => 'int32u',
  3399. },
  3400. 4 => {
  3401. Name => 'ThumbnailImage',
  3402. Groups => { 2 => 'Preview' },
  3403. Format => 'undef[$val{0}]',
  3404. Notes => '160x120 JPEG thumbnail image',
  3405. RawConv => '$self->ValidateImage(\$val,$tag)',
  3406. },
  3407. );
  3408. # thumbnail information found in 'scrn' atom of MP4 videos from the TG-810 (ref PH)
  3409. %Image::ExifTool::Olympus::scrn = (
  3410. NOTES => 'Information extracted from the "scrn" atom of Olympus MP4 videos.',
  3411. PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
  3412. GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
  3413. 0 => {
  3414. Name => 'PreviewImageLength',
  3415. Format => 'int32u',
  3416. },
  3417. 4 => {
  3418. Name => 'PreviewImage',
  3419. Groups => { 2 => 'Preview' },
  3420. Format => 'undef[$val{0}]',
  3421. Notes => '640x480 JPEG preview image',
  3422. RawConv => '$self->ValidateImage(\$val,$tag)',
  3423. },
  3424. );
  3425. # information in OLYM atom of MP4 videos from the TG-810 (ref PH)
  3426. %Image::ExifTool::Olympus::OLYM = (
  3427. NOTES => 'Tags found in the OLYM atom of MP4 videos from the TG-810.',
  3428. PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
  3429. GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
  3430. 0x0e => {
  3431. Name => 'Make',
  3432. Format => 'string[26]',
  3433. },
  3434. 0x28 => {
  3435. Name => 'Model',
  3436. Description => 'Camera Model Name',
  3437. Format => 'string[24]',
  3438. SeparateTable => 'CameraType',
  3439. PrintConv => \%olympusCameraTypes,
  3440. },
  3441. 0x5a => {
  3442. Name => 'FNumber',
  3443. Format => 'rational64u',
  3444. PrintConv => 'sprintf("%.1f",$val)',
  3445. },
  3446. 0x7f => {
  3447. Name => 'DateTimeOriginal', #(NC)
  3448. Format => 'string[24]',
  3449. Groups => { 2 => 'Time' },
  3450. PrintConv => '$self->ConvertDateTime($val)',
  3451. },
  3452. 0x99 => {
  3453. Name => 'DateTime2',
  3454. Format => 'string[24]',
  3455. Groups => { 2 => 'Time' },
  3456. },
  3457. 0x109 => {
  3458. Name => 'ThumbnailWidth',
  3459. Format => 'int16u',
  3460. },
  3461. 0x10b => {
  3462. Name => 'ThumbnailHeight',
  3463. Format => 'int16u',
  3464. },
  3465. );
  3466. # tags in Olympus AVI videos (ref PH)
  3467. # (very similar to Pentax::Junk2 tags)
  3468. %Image::ExifTool::Olympus::AVI = (
  3469. PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
  3470. GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
  3471. FIRST_ENTRY => 0,
  3472. NOTES => 'This information is found in Olympus AVI videos.',
  3473. 0x12 => {
  3474. Name => 'Make',
  3475. Format => 'string[24]',
  3476. },
  3477. 0x2c => {
  3478. Name => 'Model',
  3479. Description => 'Camera Model Name',
  3480. Format => 'string[24]',
  3481. SeparateTable => 'CameraType',
  3482. PrintConv => \%olympusCameraTypes,
  3483. },
  3484. 0x5e => {
  3485. Name => 'FNumber',
  3486. Format => 'rational64u',
  3487. PrintConv => 'sprintf("%.1f",$val)',
  3488. },
  3489. 0x83 => {
  3490. Name => 'DateTime1',
  3491. Format => 'string[24]',
  3492. Groups => { 2 => 'Time' },
  3493. },
  3494. 0x9d => {
  3495. Name => 'DateTime2',
  3496. Format => 'string[24]',
  3497. Groups => { 2 => 'Time' },
  3498. },
  3499. 0x129 => {
  3500. Name => 'ThumbInfo',
  3501. SubDirectory => { TagTable => 'Image::ExifTool::Olympus::thmb2' },
  3502. },
  3503. );
  3504. # tags in WAV files from Olympus PCM linear recorders (ref 18)
  3505. %Image::ExifTool::Olympus::WAV = (
  3506. PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
  3507. GROUPS => { 0 => 'MakerNotes', 2 => 'Audio' },
  3508. FIRST_ENTRY => 0,
  3509. NOTES => q{
  3510. This information is found in WAV files from Olympus PCM linear recorders
  3511. like the LS-5, LS-10, LS-11.
  3512. },
  3513. 0x0c => {
  3514. Name => 'Model',
  3515. Description => 'Camera Model Name',
  3516. Format => 'string[16]',
  3517. },
  3518. 0x1c => {
  3519. Name => 'FileNumber',
  3520. Format => 'int32u',
  3521. PrintConv => 'sprintf("%.4d", $val)',
  3522. },
  3523. 0x26 => {
  3524. Name => 'DateTimeOriginal',
  3525. Description => 'Date/Time Original',
  3526. Groups => { 2 => 'Time' },
  3527. Format => 'undef[12]',
  3528. Notes => 'time at start of recording',
  3529. ValueConv => q{
  3530. return undef unless $val =~ /^(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$/;
  3531. my $y = $1 < 70 ? "20$1" : "19$1";
  3532. return "$y:$2:$3 $4:$5:$6";
  3533. },
  3534. PrintConv => '$self->ConvertDateTime($val)',
  3535. },
  3536. 0x32 => {
  3537. Name => 'DateTimeEnd',
  3538. Groups => { 2 => 'Time' },
  3539. Format => 'undef[12]',
  3540. Notes => 'time at end of recording',
  3541. ValueConv => q{
  3542. return undef unless $val =~ /^(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$/;
  3543. my $y = $1 < 70 ? "20$1" : "19$1";
  3544. return "$y:$2:$3 $4:$5:$6";
  3545. },
  3546. PrintConv => '$self->ConvertDateTime($val)',
  3547. },
  3548. 0x3e => {
  3549. Name => 'RecordingTime',
  3550. Format => 'undef[6]',
  3551. ValueConv => '$val =~ s/^(\d{2})(\d{2})/$1:$2:/; $val',
  3552. },
  3553. 0x200 => {
  3554. Name => 'Duration',
  3555. Format => 'int32u',
  3556. ValueConv => '$val / 1000',
  3557. PrintConv => 'ConvertDuration($val)',
  3558. },
  3559. 0x20a => { Name => 'Index01', %indexInfo },
  3560. 0x214 => { Name => 'Index02', %indexInfo },
  3561. 0x21e => { Name => 'Index03', %indexInfo },
  3562. 0x228 => { Name => 'Index04', %indexInfo },
  3563. 0x232 => { Name => 'Index05', %indexInfo },
  3564. 0x23c => { Name => 'Index06', %indexInfo },
  3565. 0x246 => { Name => 'Index07', %indexInfo },
  3566. 0x250 => { Name => 'Index08', %indexInfo },
  3567. 0x25a => { Name => 'Index09', %indexInfo },
  3568. 0x264 => { Name => 'Index10', %indexInfo },
  3569. 0x26e => { Name => 'Index11', %indexInfo },
  3570. 0x278 => { Name => 'Index12', %indexInfo },
  3571. 0x282 => { Name => 'Index13', %indexInfo },
  3572. 0x28c => { Name => 'Index14', %indexInfo },
  3573. 0x296 => { Name => 'Index15', %indexInfo },
  3574. 0x2a0 => { Name => 'Index16', %indexInfo },
  3575. );
  3576. # DSS information written by Olympus voice recorders (ref PH)
  3577. %Image::ExifTool::Olympus::DSS = (
  3578. PROCESS_PROC => \&Image::ExifTool::ProcessBinaryData,
  3579. GROUPS => { 0 => 'MakerNotes', 2 => 'Audio' },
  3580. FIRST_ENTRY => 0,
  3581. NOTES => q{
  3582. Information extracted from DSS/DS2 files and the ID3 XOLY frame of MP3 files
  3583. written by some Olympus voice recorders.
  3584. },
  3585. # 0 - file format:
  3586. # "\x02dss"(DSS file and XOLY frame in MP3 file)
  3587. # "\x03ds2"(DS2 file)
  3588. # "\x03mp3"(ID3 XOLY frame in MP3 file)
  3589. 12 => { Name => 'Model', Format => 'string[16]' }, # (name truncated by some models)
  3590. 38 => {
  3591. Name => 'StartTime',
  3592. Format => 'string[12]',
  3593. Groups => { 2 => 'Time' },
  3594. ValueConv => '$val =~ s/(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})/20$1:$2:$3 $4:$5:$6/; $val',
  3595. PrintConv => '$self->ConvertDateTime($val)',
  3596. },
  3597. 50 => {
  3598. Name => 'EndTime',
  3599. Format => 'string[12]',
  3600. Groups => { 2 => 'Time' },
  3601. ValueConv => '$val =~ s/(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})/20$1:$2:$3 $4:$5:$6/; $val',
  3602. PrintConv => '$self->ConvertDateTime($val)',
  3603. },
  3604. 62 => {
  3605. Name => 'Duration',
  3606. Format => 'string[6]',
  3607. ValueConv => '$val =~ /(\d{2})(\d{2})(\d{2})/ ? ($1 * 60 + $2) * 60 + $3 : undef',
  3608. PrintConv => 'ConvertDuration($val)',
  3609. },
  3610. 798 => { # (ref http://search.cpan.org/~rgibson/Audio-DSS-0.02/)
  3611. Name => 'Comment',
  3612. Format => 'string[100]',
  3613. },
  3614. );
  3615. # Olympus composite tags
  3616. %Image::ExifTool::Olympus::Composite = (
  3617. GROUPS => { 2 => 'Camera' },
  3618. ExtenderStatus => {
  3619. Notes => q{
  3620. Olympus cameras have the quirk that they may retain the extender settings
  3621. after the extender is removed until the camera is powered off. This tag is
  3622. an attempt to represent the actual status of the extender.
  3623. },
  3624. Require => {
  3625. 0 => 'Olympus:Extender',
  3626. 1 => 'Olympus:LensType',
  3627. 2 => 'MaxApertureValue',
  3628. },
  3629. ValueConv => 'Image::ExifTool::Olympus::ExtenderStatus($val[0],$prt[1],$val[2])',
  3630. PrintConv => {
  3631. 0 => 'Not attached',
  3632. 1 => 'Attached',
  3633. 2 => 'Removed',
  3634. },
  3635. },
  3636. ZoomedPreviewImage => {
  3637. Groups => { 2 => 'Preview' },
  3638. Require => {
  3639. 0 => 'ZoomedPreviewStart',
  3640. 1 => 'ZoomedPreviewLength',
  3641. },
  3642. RawConv => 'Image::ExifTool::Exif::ExtractImage($self,$val[0],$val[1],"ZoomedPreviewImage")',
  3643. },
  3644. );
  3645. # add our composite tags
  3646. Image::ExifTool::AddCompositeTags('Image::ExifTool::Olympus');
  3647. #------------------------------------------------------------------------------
  3648. # Determine if the extender (EX-25/EC-14) was really attached (ref 9)
  3649. # Inputs: 0) Extender, 1) LensType string, 2) MaxApertureAtMaxFocal
  3650. # Returns: 0=not attached, 1=attached, 2=could have been removed
  3651. # Notes: Olympus has a bug in the in-camera firmware which results in the
  3652. # extender information being cached and written into the EXIF data even after
  3653. # the extender has been removed. You must power cycle the camera to prevent it
  3654. # from writing the cached extender information into the EXIF data.
  3655. sub ExtenderStatus($$$)
  3656. {
  3657. my ($extender, $lensType, $maxAperture) = @_;
  3658. my @info = split ' ', $extender;
  3659. # validate that extender identifier is reasonable
  3660. return 0 unless @info >= 2 and hex($info[1]);
  3661. # if it's not an EC-14 (id '0 04') then assume it was really attached
  3662. # (other extenders don't seem to affect the reported max aperture)
  3663. return 1 if "$info[0] $info[1]" ne '0 04';
  3664. # get the maximum aperture for this lens (in $1)
  3665. $lensType =~ / F(\d+(\.\d+)?)/ or return 1;
  3666. # If the maximum aperture at the maximum focal length is greater than the
  3667. # known max/max aperture of the lens, then the extender must be attached
  3668. return ($maxAperture - $1 > 0.2) ? 1 : 2;
  3669. }
  3670. #------------------------------------------------------------------------------
  3671. # Print AF points
  3672. # Inputs: 0) AF point data (string of integers)
  3673. # Notes: I'm just guessing that the 2nd and 4th bytes are the Y coordinates,
  3674. # and that more AF points will show up in the future (derived from E-1 images,
  3675. # and the E-1 uses just one of 3 possible AF points, all centered in Y) - PH
  3676. sub PrintAFAreas($)
  3677. {
  3678. my $val = shift;
  3679. my @points = split ' ', $val;
  3680. my %afPointNames = (
  3681. 0x36794285 => 'Left',
  3682. 0x79798585 => 'Center',
  3683. 0xBD79C985 => 'Right',
  3684. );
  3685. $val = '';
  3686. my $pt;
  3687. foreach $pt (@points) {
  3688. next unless $pt;
  3689. $val and $val .= ', ';
  3690. $afPointNames{$pt} and $val .= $afPointNames{$pt} . ' ';
  3691. my @coords = unpack('C4',pack('N',$pt));
  3692. $val .= "($coords[0],$coords[1])-($coords[2],$coords[3])";
  3693. }
  3694. $val or $val = 'none';
  3695. return $val;
  3696. }
  3697. #------------------------------------------------------------------------------
  3698. # Extract information from a DSS/DS2 voice recorder audio file or ID3 XOLY frame
  3699. # Inputs: 0) ExifTool object reference, 1) dirInfo reference
  3700. # Returns: 1 on success
  3701. sub ProcessDSS($$;$)
  3702. {
  3703. my ($et, $dirInfo) = @_;
  3704. # allow this to be called with either RAF or DataPt
  3705. my $raf = $$dirInfo{RAF};
  3706. if ($raf) {
  3707. my $buff;
  3708. $raf->Read($buff, 898) > 68 or return 0;
  3709. $buff =~ /^(\x02dss|\x03ds2)/ or return 0;
  3710. $dirInfo = { DataPt => \$buff };
  3711. $et->SetFileType(uc substr $buff, 1, 3);
  3712. }
  3713. my $tagTablePtr = GetTagTable('Image::ExifTool::Olympus::DSS');
  3714. return $et->ProcessBinaryData($dirInfo, $tagTablePtr);
  3715. }
  3716. #------------------------------------------------------------------------------
  3717. # Process ORF file
  3718. # Inputs: 0) ExifTool object reference, 1) directory information reference
  3719. # Returns: 1 if this looked like a valid ORF file, 0 otherwise
  3720. sub ProcessORF($$)
  3721. {
  3722. my ($et, $dirInfo) = @_;
  3723. return $et->ProcessTIFF($dirInfo);
  3724. }
  3725. 1; # end
  3726. __END__
  3727. =head1 NAME
  3728. Image::ExifTool::Olympus - Olympus/Epson maker notes tags
  3729. =head1 SYNOPSIS
  3730. This module is loaded automatically by Image::ExifTool when required.
  3731. =head1 DESCRIPTION
  3732. This module contains definitions required by Image::ExifTool to interpret
  3733. Olympus or Epson maker notes in EXIF information.
  3734. =head1 AUTHOR
  3735. Copyright 2003-2016, Phil Harvey (phil at owl.phy.queensu.ca)
  3736. This library is free software; you can redistribute it and/or modify it
  3737. under the same terms as Perl itself.
  3738. =head1 REFERENCES
  3739. =over 4
  3740. =item L<http://park2.wakwak.com/~tsuruzoh/Computer/Digicams/exif-e.html>
  3741. =item L<http://www.cybercom.net/~dcoffin/dcraw/>
  3742. =item L<http://www.ozhiker.com/electronics/pjmt/jpeg_info/olympus_mn.html>
  3743. =item L<http://olypedia.de/Olympus_Makernotes>
  3744. =back
  3745. =head1 ACKNOWLEDGEMENTS
  3746. Thanks to Markku Hanninen, Remi Guyomarch, Frank Ledwon, Michael Meissner,
  3747. Mark Dapoz, Ioannis Panagiotopoulos and Tomasz Kawecki for their help
  3748. figuring out some Olympus tags, and Lilo Huang, Chris Shaw and Viktor
  3749. Lushnikov for adding to the LensType list.
  3750. =head1 SEE ALSO
  3751. L<Image::ExifTool::TagNames/Olympus Tags>,
  3752. L<Image::ExifTool(3pm)|Image::ExifTool>
  3753. =cut