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

64-bit rendering removed

Browse Source
This commit is contained in:
zueuk 2009-04-20 07:43:43 +00:00
parent c21d6ecbb1
commit 4998861d1e
3 changed files with 14 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
2.10/Source/ImageMaker.pas
View File

@ -27,7 +27,7 @@ type
FBucketHeight: integer;
FBucketWidth: integer;
FBuckets64: TBucket64Array;
// FBuckets64: TBucket64Array;
FBuckets48: TBucket48Array;
FBuckets32: TBucket32Array;
FBuckets32f: TBucket32fArray;
@ -35,7 +35,7 @@ type
FOnProgress: TOnProgress;
FGetBucket: function(x, y: integer): TBucket64 of object;
function GetBucket64(x, y: integer): TBucket64;
// function GetBucket64(x, y: integer): TBucket64;
function GetBucket48(x, y: integer): TBucket64;
function GetBucket32(x, y: integer): TBucket64;
function GetBucket32f(x, y: integer): TBucket64;
@ -207,7 +207,7 @@ end;
///////////////////////////////////////////////////////////////////////////////
procedure TImageMaker.SetBucketData(const Buckets: pointer; BucketWidth, BucketHeight: integer; bits: integer);
begin
FBuckets64 := TBucket64Array(Buckets);
//FBuckets64 := TBucket64Array(Buckets);
FBuckets48 := TBucket48Array(Buckets);
FBuckets32f := TBucket32fArray(Buckets);
FBuckets32 := TBucket32Array(Buckets);
@ -219,7 +219,7 @@ begin
BITS_32: FGetBucket := GetBucket32;
BITS_32f: FGetBucket := GetBucket32f;
BITS_48: FGetBucket := GetBucket48;
BITS_64: FGetBucket := GetBucket64;
//BITS_64: FGetBucket := GetBucket64;
else assert(false);
end;
end;
@ -560,10 +560,12 @@ end;
///////////////////////////////////////////////////////////////////////////////
{
function TImageMaker.GetBucket64(x, y: integer): TBucket64;
begin
Result := FBuckets64[y][x];
end;
}
function TImageMaker.GetBucket32(x, y: integer): TBucket64;
begin

9
2.10/Source/RenderThread.pas
View File

@ -25,7 +25,6 @@ uses
Classes, Windows, Messages, Graphics,
ControlPoint, Render,
Global, RenderTypes, PngImage,
Render64, Render64MT,
Render48, Render48MT,
Render32, Render32MT,
Render32f, Render32fMT;
@ -171,14 +170,14 @@ begin
0: FRenderer := TRenderer32.Create;
1: FRenderer := TRenderer32f.Create;
2: FRenderer := TRenderer48.Create;
3: FRenderer := TRenderer64.Create;
//3: FRenderer := TRenderer64.Create;
end;
end else begin
case FBitsPerSample of
0: FRenderer := TRenderer32MM.Create;
1: FRenderer := TRenderer32fMM.Create;
2: FRenderer := TRenderer48MM.Create;
3: FRenderer := TRenderer64MM.Create;
//3: FRenderer := TRenderer64MM.Create;
end;
FRenderer.MaxMem := MaxMem;
end;
@ -189,14 +188,14 @@ begin
0: FRenderer := TRenderer32MT.Create;
1: FRenderer := TRenderer32fMT.Create;
2: FRenderer := TRenderer48MT.Create;
3: FRenderer := TRenderer64MT.Create;
//3: FRenderer := TRenderer64MT.Create;
end;
end else begin
case FBitsPerSample of
0: FRenderer := TRenderer32MT_MM.Create;
1: FRenderer := TRenderer32fMT_MM.Create;
2: FRenderer := TRenderer48MT_MM.Create;
3: FRenderer := TRenderer64MT_MM.Create;
//3: FRenderer := TRenderer64MT_MM.Create;
end;
FRenderer.MaxMem := MaxMem;
end;

11
2.10/Source/RenderTypes.pas
View File

@ -27,9 +27,8 @@ type
Blue,
Count: Int64;
end;
PBucket64 = ^TBucket64;
TBucket64Array = array of array of TBucket64;
// PBucket64Array = ^PBucket64Array;
// PBucket64 = ^TBucket64;
// TBucket64Array = array of array of TBucket64;
TBucket48 = packed record
rl: longword; rh: word;
@ -39,7 +38,6 @@ type
end;
PBucket48 = ^TBucket48;
TBucket48Array = array of array of TBucket48;
// PBucket48Array = ^PBucket48Array;
TBucket32f = record
Red,
@ -49,7 +47,6 @@ type
end;
PBucket32f = ^TBucket32f;
TBucket32fArray = array of array of TBucket32f;
// PBucket32fArray = ^PBucket32fArray;
TBucket32 = Record
Red,
@ -74,8 +71,8 @@ const
BITS_32 = 0;
BITS_32f = 1;
BITS_48 = 2;
BITS_64 = 3;
SizeOfBucket: array[0..3] of byte = (16, 16, 24, 32);
//BITS_64 = 3;
SizeOfBucket: array[0..2] of byte = (16, 16, 24); //, 32);
type
TBucketStats = record