From: Peter S. <zu...@us...> - 2008-08-25 14:58:27
|
Update of /cvsroot/apophysis/2.10/Source In directory sc8-pr-cvs11.sourceforge.net:/tmp/cvs-serv18008 Modified Files: ImageMaker.pas Log Message: fixed apo/flam3 brightness difference Index: ImageMaker.pas =================================================================== RCS file: /cvsroot/apophysis/2.10/Source/ImageMaker.pas,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** ImageMaker.pas 6 Sep 2006 12:44:29 -0000 1.9 --- ImageMaker.pas 25 Aug 2008 14:58:34 -0000 1.10 *************** *** 321,325 **** bucket := GetBucket(bx + jj, by + ii); ! ls := lsa[Min(1023, bucket.Count)]; fp[0] := fp[0] + filterValue * ls * bucket.Red; --- 321,328 ---- bucket := GetBucket(bx + jj, by + ii); ! if bucket.count < 1024 then ! ls := lsa[bucket.Count] ! else ! ls := (k1 * log10(1 + fcp.White_level * bucket.count * k2)) / (fcp.White_level * bucket.count); fp[0] := fp[0] + filterValue * ls * bucket.Red; *************** *** 336,340 **** end else begin bucket := GetBucket(bx, by); ! ls := lsa[Min(1023, bucket.count)] / PREFILTER_WHITE; fp[0] := ls * bucket.Red; --- 339,346 ---- end else begin bucket := GetBucket(bx, by); ! if bucket.count < 1024 then ! ls := lsa[bucket.count] / PREFILTER_WHITE ! else ! ls := (k1 * log10(1 + fcp.White_level * bucket.count * k2)) / (fcp.White_level * bucket.count) / PREFILTER_WHITE; fp[0] := ls * bucket.Red; |