ArtDen, it will be interesting if/when you share your program because then people could create RAW profiles that would perfectly emulate their favorite settings on their cameras
I have to say this is really weird. Color gamut of LCD monitors is not as wide as the cameras gamut. Not to mention all the issues involved in photographing computer displays...
Could this program be useful in comparing photos of the actual XRite/Gretag-Macbeth color targets?
Code: [Select]1,307006 -0,490421 -0,194771-0,271197 1,444538 0,037449-0,119053 0,286961 0,455555It produces little brighter images then Jpeg but seems colors are correct.
1,307006 -0,490421 -0,194771-0,271197 1,444538 0,037449-0,119053 0,286961 0,455555
program Delphi;{$APPTYPE CONSOLE}uses Windows, SysUtils;function BufScanBytes(const A, Pattern: array of Byte; PatternLength, StartOffset, EndOffset: Integer): Integer;// search for byte pattern "Pattern" in byte array "A"; Returns offset, or -1 if not foundvar i, j: Integer; diff: Boolean;begin for i := StartOffset to EndOffset - PatternLength do begin diff := False; for j := 0 to PatternLength - 1 do if A[i+j] <> Pattern[j] then begin diff := True; Break; end; if not diff then begin Result := i; Exit; end; end; Result := -1;end;var FileSize: Integer; f: File; Buf: array[0..20000000] of Byte; Pattern: array[0..100] of Byte; WPattern: array[0..50] of Word absolute Pattern; ValueOffset: Integer; p, e, n: Integer;begin if ParamCount <> 1 then begin WriteLn('Usage: DngResetBaseline <DNG FileName>'); WriteLn; Sleep(2000); Halt; end; // read file AssignFile(f, ParamStr(1)); Reset(f, 1); BlockRead(f, Buf, SizeOf(Buf), FileSize); Close(f); if FileSize > 1024 then WriteLn('File read OK') else begin WriteLn(ParamStr(1), ' - File read error'); Sleep(2000); Halt; end; // reset BaselineExposure WPattern[0] := $C62A; // tag WPattern[1] := $000A; // type WPattern[2] := $0001; // count p := BufScanBytes(Buf, Pattern, 3 * SizeOf(Word), 0, FileSize); if p > 0 then begin Move(Buf[p+8], ValueOffset, 4); p := ValueOffset; n := 0; // <---- exposure value here Move(n, Buf[p], 4); Inc(p, 4); n := 100; Move(n, Buf[p], 4); WriteLn('Baseline exposure set to 0/100'); end else WriteLn('Can''t find Baseline exposure'); // write file AssignFile(f, ParamStr(1)); Reset(f, 1); BlockWrite(f, Buf, FileSize); Close(f); e := IOResult; if e = 0 then WriteLn('File write OK') else WriteLn(ParamStr(1), ' - File write error #', e);end.
As I explained in DngSetmatrix readme, brightness of image made from dng depends on BaselineExposure tag value
Here's another A720: http://www.zshare.net/download/692551053568a6/
0.815000, -0.265224, -0.126610, -0.198011, 0.933790, 0.071668, -0.036675, 0.197160, 0.248759
Started by Allbest « 1 2 » AllBest's Builds
Started by lhow2000 General Help and Assistance on using CHDK stable releases
Started by mx3 Non-CANON cameras development
Started by mikerussell General Help and Assistance on using CHDK stable releases
Started by acseven « 1 2 3 4 » Forum related topics (including issues)
