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

renderthread priority control disabled

Browse Source
This commit is contained in:
zueuk 2008-09-29 09:47:11 +00:00
parent a98cf43f5c
commit 46277d04a2
5 changed files with 42 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
2.10/Source/FormRender.dfm
View File

@ -568,7 +568,9 @@ object RenderForm: TRenderForm
Width = 73
Height = 17
Caption = 'Low priority'
Enabled = False
TabOrder = 10
Visible = False
OnClick = chkThreadPriorityClick
end
object SaveDialog: TSaveDialog

14
2.10/Source/FormRender.pas
View File

@ -511,19 +511,19 @@ begin
Renderer := TRenderThread.Create;
assert(Renderer <> nil);
{
if chkThreadPriority.Checked then
Renderer.SetPriority(tpLower)
else
Renderer.SetPriority(tpNormal);
}
Renderer.BitsPerSample := BitsPerSample;
if chkLimitMem.checked then
Renderer.MaxMem := MaxMemory;//StrToInt(cbMaxMemory.text);
Renderer.OnProgress := OnProgress;
Renderer.TargetHandle := self.Handle;
Renderer.SetCP(cp);
//Renderer.Priority := tpLower;
Renderer.Priority := tpLower;
Renderer.NrThreads := NrTreads;
Renderer.Output := Output.Lines;
Renderer.Resume;
@ -584,12 +584,12 @@ begin
Renderer := TRenderThread.Create;
assert(Renderer <> nil);
{
if chkThreadPriority.Checked then
Renderer.SetPriority(tpLower)
else
Renderer.SetPriority(tpNormal);
}
Renderer.BitsPerSample := BitsPerSample;
if chkLimitMem.checked then
Renderer.MaxMem := MaxMemory;//StrToInt(cbMaxMemory.text);
@ -598,7 +598,7 @@ begin
// Renderer.Output := Output.Lines;
// Renderer.Compatibility := compatibility;
Renderer.SetCP(cp);
//Renderer.Priority := tpLower;
Renderer.Priority := tpLower;
Renderer.NrThreads := NrTreads;
Renderer.Output := Output.Lines;
@ -1056,12 +1056,14 @@ procedure TRenderForm.chkThreadPriorityClick(Sender: TObject);
begin
LowerRenderPriority := chkThreadPriority.Checked;
{
if Assigned(Renderer) then begin
if LowerRenderPriority then
Renderer.SetPriority(tpLower)
else
Renderer.SetPriority(tpNormal);
end;
}
end;
end.

6
2.10/Source/RenderMT.pas
View File

@ -172,8 +172,8 @@ var
begin
inherited;
for i := 0 to High(WorkingThreads) do
WorkingThreads[i].Priority := p;
//for i := 0 to High(WorkingThreads) do
// WorkingThreads[i].Priority := p;
end;
///////////////////////////////////////////////////////////////////////////////
@ -181,7 +181,7 @@ function TBaseMTRenderer.NewThread: TBucketFillerThread;
begin
Result := TBucketFillerThread.Create(fcp);
assert(Result<>nil);
Result.Priority := FThreadPriority;
//Result.Priority := FThreadPriority;
if FCP.FAngle = 0 then
Result.AddPointsProc := self.AddPointsToBuckets

2
2.10/Source/RenderThread.pas
View File

@ -204,7 +204,7 @@ begin
end;
FRenderer.SetCP(FCP);
FRenderer.SetThreadPriority(self.Priority);
// FRenderer.SetThreadPriority(self.Priority);
// FRenderer.compatibility := compatibility;
FRenderer.MinDensity := FMinDensity;
FRenderer.OnProgress := FOnProgress;

65
2.10/Source/ScriptForm.pas
View File

@ -1973,7 +1973,6 @@ procedure TOperationLibrary.DeleteTransformProc(AMachine: TatVirtualMachine);
var
i, j: integer;
begin
if NumTransforms > 0 then
try
// I'm not sure, but *maybe* this will help scripts not to screw up finalXform
if ActiveTransform = NumTransforms then
@ -1984,30 +1983,28 @@ begin
scriptEditor.cp.finalXformEnabled := false;
exit;
end;
if ActiveTransform = (NumTransforms - 1) then
{ Last triangle...just reduce number}
begin
if NumTransforms <= 1 then exit;
// delete xform from all probability tables
for i := 0 to NumTransforms-1 do
with scriptEditor.cp.xform[i] do begin
for j := ActiveTransform to NumTransforms-1 do
modWeights[j] := modWeights[j+1];
modWeights[NumTransforms-1] := 1;
end;
//
with scriptEditor.cp do begin
if ActiveTransform = (NumTransforms - 1) then
Dec(ActiveTransform)
else begin
for i := ActiveTransform to NumTransforms - 2 do
xform[i].Assign(xform[i + 1]);
end;
Dec(NumTransforms);
ActiveTransform := NumTransforms - 1;
// scriptEditor.cp.xform[NumTransforms].density := 0;
scriptEditor.cp.xform[NumTransforms].Assign(scriptEditor.cp.xform[NumTransforms+1]);
end
else
begin
for i := ActiveTransform to NumTransforms - 2 do
scriptEditor.cp.xform[i].Assign(scriptEditor.cp.xform[i + 1]);
{ begin
// copy higher transforms down
ScriptEditor.cp.xform[i].density := ScriptEditor.cp.xform[i + 1].density;
ScriptEditor.cp.xform[i].color := ScriptEditor.cp.xform[i + 1].color;
ScriptEditor.cp.xform[i].symmetry := ScriptEditor.cp.xform[i + 1].symmetry;
for j := 0 to NRVAR - 1 do
ScriptEditor.cp.xform[i].vars[j] := ScriptEditor.cp.xform[i + 1].vars[j];
end;}
NumTransforms := NumTransforms - 1;
// ScriptEditor.cp.xform[Numtransforms].density := 0;
scriptEditor.cp.xform[NumTransforms].Assign(scriptEditor.cp.xform[NumTransforms+1]);
end
xform[NumTransforms].Assign(xform[NumTransforms+1]);
xform[NumTransforms+1].Clear;
end;
except
begin
Application.ProcessMessages;
@ -2024,23 +2021,17 @@ var
begin
try
if NumTransforms < NXFORMS then
with ScriptEditor.cp do
begin
old := ActiveTransform;
ActiveTransform := NumTransforms;
inc(NumTransforms);
ScriptEditor.cp.xform[NumTransforms].Assign(ScriptEditor.cp.xform[ActiveTransform]); // final xform
ScriptEditor.cp.xform[ActiveTransform].Assign(ScriptEditor.cp.xform[old]);
{
ScriptEditor.cp.xform[ActiveTransform].c[0, 1] := ScriptEditor.cp.xform[old].c[0, 1];
ScriptEditor.cp.xform[ActiveTransform].c[1, 0] := ScriptEditor.cp.xform[old].c[1, 0];
ScriptEditor.cp.xform[ActiveTransform].c[1, 1] := ScriptEditor.cp.xform[old].c[1, 1];
ScriptEditor.cp.xform[ActiveTransform].c[2, 0] := ScriptEditor.cp.xform[old].c[2, 0];
ScriptEditor.cp.xform[ActiveTransform].c[2, 1] := ScriptEditor.cp.xform[old].c[2, 1];
ScriptEditor.cp.xform[ActiveTransform].color := ScriptEditor.cp.xform[old].color;
ScriptEditor.cp.xform[ActiveTransform].density := ScriptEditor.cp.xform[old].density;
for i := 0 to NRVAR - 1 do
ScriptEditor.cp.xform[ActiveTransform].vars[i] := ScriptEditor.cp.xform[old].vars[i]
}
xform[NumTransforms].Assign(xform[ActiveTransform]); // final xform
xform[ActiveTransform].Assign(xform[old]);
for i := 0 to NumTransforms-1 do
xform[i].modWeights[ActiveTransform] := xform[i].modWeights[old];
xform[ActiveTransform].modWeights[ActiveTransform] := xform[old].modWeights[old];
end
else raise EFormatInvalid.Create('Too many transforms.');
except on E: EFormatInvalid do