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

some small fixes

Browse Source
This commit is contained in:
zueuk
2006-06-03 02:11:35 +00:00
parent b7b42c244d
commit a52cdba04a
4 changed files with 5 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
2.10/Source/ImageMaker.pas
View File

@ -21,6 +21,8 @@ type
FBuckets: TBucketArray;
FOnProgress: TOnProgress;
MaxA: int64; // for reuse in following slices
procedure CreateFilter;
procedure NormalizeFilter;
procedure SetOnProgress(const Value: TOnProgress);
@ -49,6 +51,7 @@ type
property OnProgress: TOnProgress
read FOnProgress
write SetOnProgress;
property MaxCount: int64 read MaxA;
end;
implementation
@ -366,10 +369,6 @@ begin
Progress(1);
end;
// global variable for reuse in follong slices
var
MaxA: int64;
///////////////////////////////////////////////////////////////////////////////
// michael baranov transparancy code from flamesong
procedure TImageMaker.CreateImage_MB(YOffset: integer);