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

some optimization

Browse Source
This commit is contained in:
zueuk
2006-01-05 18:24:25 +00:00
parent ae676f26d9
commit 5ee487cc41
5 changed files with 93 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
2.10/Source/varPerspective.pas
View File

@ -6,8 +6,8 @@ uses
BaseVariation, XFormMan;
const
var_a_name='perspective_angle';
var_f_name='perspective_dist';
var_a_name = 'perspective_angle';
var_f_name = 'perspective_dist';
type
TVariationPerspective = class(TBaseVariation)
@ -39,12 +39,6 @@ uses
// TVariationPerspective
///////////////////////////////////////////////////////////////////////////////
constructor TVariationPerspective.Create;
begin
angle := random;
focus := 2*random + 1;
end;
procedure TVariationPerspective.Prepare;
begin
vsin := sin(angle*pi/2);
@ -84,6 +78,12 @@ asm
end;
///////////////////////////////////////////////////////////////////////////////
constructor TVariationPerspective.Create;
begin
angle := random;
focus := 2*random + 1;
end;
class function TVariationPerspective.GetInstance: TBaseVariation;
begin
Result := TVariationPerspective.Create;