9779c4beba
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7327 8e941d3f-bd1b-0410-a28a-d453659cc2b4
146 lines
7.2 KiB
ObjectPascal
146 lines
7.2 KiB
ObjectPascal
unit fpeMakerNoteFuji;
|
|
|
|
{$IFDEF FPC}
|
|
{$MODE DELPHI}
|
|
//{$mode objfpc}{$H+}
|
|
{$ENDIF}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils,
|
|
fpeTags, fpeExifReadWrite;
|
|
|
|
type
|
|
TFujiMakerNoteReader = class(TMakerNoteReader)
|
|
protected
|
|
procedure GetTagDefs({%H-}AStream: TStream); override;
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
uses
|
|
fpeStrConsts;
|
|
|
|
resourcestring
|
|
rsFujiSharpnessLkup = '0:-4 (softest),1:-3 (very soft),2:-2 (soft),3:0 (normal),' +
|
|
'4:+2 (hard),5:+3 (very hard),6:+4 (hardest),130:-1 (medium soft),'+
|
|
'132:+1 (medium hard),32768:Film Simulation,65535:n/a';
|
|
rsFujiWhiteBalLkup = '0:Auto,256:Daylight,512:Cloudy,768:Daylight Fluorescent,' +
|
|
'769:Day White Fluorescent,770:White Fluorescent,771:Warm White Fluorescent,'+
|
|
'772:Living Room Warm White Fluorescent,1024:Incandescent,1280:Flash,'+
|
|
'1536:Underwater,3840:Custom,3841:Custom2,3842:Custom3,3843:Custom4,'+
|
|
'3844:Custom5,4080:Kelvin';
|
|
rsFujiSaturationLkup = '0:0 (normal),128:+1 (medium high),192:+3 (very high),'+
|
|
'224:+4 (highest),256:+2 (high),384:-1 (medium low),512:Low,768:None (B&W),'+
|
|
'769:B&W Red Filter,770:B&W Yellow Filter,771:B&W Green Filter,'+
|
|
'784:B&W Sepia,1024:-2 (low),1216:-3 (very low),1248:-4 (lowest),'+
|
|
'1280:Acros,1281:Acros Red Filter,1282:Acros Yellow Filter,'+
|
|
'1283:Acros Green Filter,32768:Film Simulation';
|
|
rsFujiContrastLkup = '0:Normal,128:Medium High,256:High,384:Medium Low,'+
|
|
'512:Low,32768:Film Simulation';
|
|
rsFujiContrastLkup1 = '0:Normal,256:High,768:Low';
|
|
rsFujiNoiseReductionLkup = '64:Low,128:Normal,256:n/a';
|
|
rsFujiHighIsoNoiseReductionLkup = '0:0 (normal),256:+2 (strong),'+
|
|
'384:+1 (medium strong),448:+3 (very strong),480:+4 (strongest)'+
|
|
'512:-2 (weak),640:-1 (medium weak),704:-3 (very weak),736:-4 (weakest)';
|
|
rsFujiFlashModeLkup = '0:Auto,1:On,2:Off,3:Red-eye reduction,4:External,'+
|
|
'16:Commander,32768:Not Attached,33056:TTL,38976:Manual,39040:Multi-flash,'+
|
|
'43296:1st Curtain (front),51488:2nd Curtain (rear),59680:High Speed Sync (HSS)';
|
|
rsFujiPictureModeLkup = '0:Auto,1:Portrait,2:Landscape,3:Macro,4:Sports,'+
|
|
'5:Night Scene,6:Program AE,7:Natural Light,8:Anti-blur,9:Beach & Snow,'+
|
|
'10:Sunset,11:Museum,12:Party,13:Flower,14:Text,15:Natural Light & Flash,'+
|
|
'16:Beach,17:Snow,18:Fireworks,19:Underwater,20:Portrait with Skin Correction,'+
|
|
'22:Panorama,23:Night (tripod),24:Pro Low-light,25:Pro Focus,26:Portrait 2,'+
|
|
'27:Dog Face Detection,28:Cat Face Detection,64:Advanced Filter,'+
|
|
'256:Aperture-priority AE,512:Shutter speed priority AE,768:Manual';
|
|
rsFujiEXRModeLkup = '128:HR (High Resolution),512:SN (Signal to Noise priority),'+
|
|
'768:DR (Dynamic Range priority)';
|
|
rsFujiShadowHighlightLkup = '-64:+4 (hardest),-48:+3 (very hard),'+
|
|
'-32:+2 (hard),-16:+1 (medium hard)';
|
|
rsFujiShutterTypeLkup = '0:Mechanical,1:Electronic';
|
|
rsFujiAutoBracketingLkup = '0:Off,1:On,2:No flash & flash';
|
|
rsFujiPanoramaDirLkup = '1:Right,2:Up,3:Left,4:Down';
|
|
rsFujiAdvancedFilterLkup = '65536:Pop Color,131072:Hi Key,196608:Toy Camera,'+
|
|
'262144:Miniature, 327680:Dynamic Tone,327681:Partial Color Red,'+
|
|
'327682:Partial Color Yellow,327683:Partial Color Green,'+
|
|
'327684:Partial Color Blue,327685:Partial Color Orange,'+
|
|
'327686:Partial Color Purple,458752:Soft Focus,589824:Low Key';
|
|
rsFujiColorModeLkup = '0:Standard,16:Chrome,48:B & W';
|
|
rsFujiBlurWarningLkup = '0:None,1:Blur Warning';
|
|
rsFujiFocusWarningLkup = '0:Good,1:Out of focus';
|
|
rsFujiExposureWarningLkup = '0:Good,1:Bad exposure';
|
|
rsFujiDynamicRangeLkup = '1:Standard,3:Wide';
|
|
rsFujiSceneRecognLkup = '0:Unrecognized,256:Portrait Image,512:Landscape Image,'+
|
|
'768:Night Scene,1024:Macro';
|
|
|
|
procedure BuildFujiTagDefs(AList: TTagDefList);
|
|
const
|
|
M = LongWord(TAGPARENT_MAKERNOTE);
|
|
begin
|
|
Assert(AList <> nil);
|
|
with AList do begin
|
|
AddBinaryTag (M+$0000, 'Version');
|
|
AddStringTag (M+$1000, 'Quality');
|
|
AddUShortTag (M+$1001, 'Sharpness', 1, '', rsFujiSharpnessLkup);
|
|
AddUShortTag (M+$1002, 'WhiteBalance', 1, '', rsFujiWhiteBalLkup);
|
|
AddUShortTag (M+$1003, 'Saturation', 1, '', rsFujiSaturationLkup);
|
|
AddUShortTag (M+$1004, 'Contrast', 1, '', rsFujiContrastLkup);
|
|
AddUShortTag (M+$1005, 'ColorTemperature');
|
|
AddUShortTag (M+$1006, 'Contrast', 1, '', rsFujiContrastLkup1);
|
|
AddURationalTag(M+$100A, 'WhiteBalanceFineTune');
|
|
AddUShortTag (M+$100B, 'NoiseReduction', 1, '', rsFujiNoiseReductionLkup);
|
|
AddUShortTag (M+$100E, 'HighISONoiseReduction', 1, '', rsFujiHighIsoNoiseReductionLkup);
|
|
AddUShortTag (M+$1010, 'FlashMode', 1, '', rsFujiFlashModeLkup);
|
|
AddURationalTag(M+$1011, 'FlashStrength');
|
|
AddUShortTag (M+$1020, 'Macro', 1, '', rsOffOn);
|
|
AddUShortTag (M+$1021, 'FocusMode', 1, '', rsAutoManual);
|
|
AddUShortTag (M+$1030, 'SlowSync', 1, '', rsOffOn);
|
|
AddUShortTag (M+$1031, 'PictureMode', 1, '', rsFujiPictureModeLkup);
|
|
AddUShortTag (M+$1032, 'ExposureCount');
|
|
AddUShortTag (M+$1033, 'EXRAuto', 1, '', rsAutoManual);
|
|
AddUShortTag (M+$1034, 'EXRMode', 1, '', rsFujiEXRModeLkup);
|
|
AddSLongTag (M+$1040, 'ShadowTone', 1, '', rsFujiShadowHighlightLkup);
|
|
AddSLongTag (M+$1041, 'HighlightTone', 1, '', rsFujiShadowHighlightLkup);
|
|
AddULongTag (M+$1044, 'DigitalZoom');
|
|
AddUShortTag (M+$1050, 'ShutterType', 1, '', rsFujiShutterTypeLkup);
|
|
AddUShortTag (M+$1100, 'AutoBracketing', 1, '', rsFujiAutoBracketingLkup);
|
|
AddUShortTag (M+$1101, 'SequenceNumber');
|
|
AddUShortTag (M+$1153, 'PanoramaAngle');
|
|
AddUShortTag (M+$1154, 'PanoramaDirection', 1, '', rsFujiPanoramaDirLkup);
|
|
AddULongTag (M+$1201, 'AdvancedFilter', 1, '', rsFujiAdvancedFilterLkup);
|
|
AddUShortTag (M+$1210, 'ColorMode', 1, '', rsFujiColorModeLkup);
|
|
AddUShortTag (M+$1300, 'BlurWarning', 1, '', rsFujiBlurWarningLkup);
|
|
AddUShortTag (M+$1301, 'FocusWarning', 1, '', rsFujiFocusWarningLkup);
|
|
AddUShortTag (M+$1302, 'ExposureWarning', 1, '', rsFujiExposureWarningLkup);
|
|
AddUShortTag (M+$1400, 'DynamicRange', 1, '', rsFujiDynamicRangeLkup);
|
|
AddURationalTag(M+$1404, 'MinFocalLength');
|
|
AddURationalTag(M+$1405, 'MaxFocalLength');
|
|
AddURationalTag(M+$1406, 'MaxApertureAtMinFocal');
|
|
AddURationalTag(M+$1407, 'MaxApertureAtMaxFocal');
|
|
AddUShortTag (M+$140B, 'AutoDynamicRange');
|
|
AddUShortTag (M+$1422, 'ImageStabilization', 3);
|
|
AddUShortTag (M+$1425, 'SceneRecognition', 1, '', rsFujiSceneRecognLkup);
|
|
AddUShortTag (M+$1431, 'Rating');
|
|
AddStringTag (M+$8000, 'FileSource');
|
|
AddULongTag (M+$8002, 'OrderNumber');
|
|
AddUShortTag (M+$8003, 'FrameNumber');
|
|
end;
|
|
end;
|
|
|
|
//==============================================================================
|
|
// TFujiMakerNoteReader
|
|
//==============================================================================
|
|
|
|
procedure TFujiMakerNoteReader.GetTagDefs(AStream: TStream);
|
|
begin
|
|
BuildFujiTagDefs(FTagDefs);
|
|
end;
|
|
|
|
initialization
|
|
RegisterMakerNoteReader(TFujiMakerNoteReader, 'Fuji', '');
|
|
|
|
end.
|
|
|