mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

bugfixes

Browse Source
This commit is contained in:
zueuk
2006-09-06 12:34:00 +00:00
parent 8289fc9b91
commit 0d6de238b2
5 changed files with 221 additions and 123 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
2.10/Source/RenderST.pas
View File

@ -75,12 +75,10 @@ var
nsamples: int64;
IterateBatchProc: procedure of object;
begin
if Assigned(strOutput) then begin
if FNumSlices > 1 then
strOutput.Add(TimeToStr(Now) + Format(' : Rendering slice #%d...', [FSlice + 1]))
else
strOutput.Add(TimeToStr(Now) + ' : Rendering...');
end;
if FNumSlices > 1 then
TimeTrace(Format('Rendering slice #%d of %d...', [FSlice + 1, FNumSlices]))
else
TimeTrace('Rendering...');
Randomize;
@ -105,7 +103,7 @@ begin
for i := 0 to FNumBatches-1 do begin
if FStop <> 0 then begin
// if (FStop < 0) or (i >= FMinBatches) then begin //?
// if (FStop <> 0) or (i >= FMinBatches) then begin //?
fcp.actual_density := fcp.actual_density +
fcp.sample_density * i / FNumBatches; // actual quality of incomplete render
FNumBatches := i;