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

fixed errors in MM rendering

Browse Source
This commit is contained in:
zueuk
2006-04-05 11:01:07 +00:00
parent d85cf9e346
commit 4f76d9b2a3
4 changed files with 59 additions and 62 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
2.10/Source/Render64MT.pas
View File

@ -54,7 +54,6 @@ type
FImageMaker: TImageMaker;
procedure InitValues;
procedure InitBuffers;
procedure ClearBuffers;
@ -223,6 +222,7 @@ begin
on EOutOfMemory do begin
Application.MessageBox('Error: not enough memory for this render!', 'Apophysis', 48);
FStop := true;
exit;
end;
end;
@ -230,17 +230,6 @@ begin
FImageMaker.SetBucketData(Buckets, BucketWidth);
end;
///////////////////////////////////////////////////////////////////////////////
procedure TRenderer64MT.InitValues;
begin
InitBuffers;
CreateCamera;
CreateColorMap;
fcp.Prepare;
end;
///////////////////////////////////////////////////////////////////////////////
procedure TRenderer64MT.SetPixelsMT;
var
@ -278,6 +267,12 @@ begin
end;
end;
{ for i := 0 to NrOfTreads - 1 do
begin
WorkingThreads[i].Terminate;
WorkingThreads[i].Free;
end;}
DeleteCriticalSection(CriticalSection);
Progress(1);
end;
@ -314,7 +309,14 @@ begin
FImageMaker.SetCP(FCP);
FImageMaker.Init;
InitValues;
InitBuffers;
if FStop then exit; // memory allocation error
CreateColorMap;
fcp.Prepare;
CreateCamera;
ClearBuffers;
SetPixelsMT;