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

version 2.05 beta

Browse Source
This commit is contained in:
zueuk 2006-10-29 16:39:27 +00:00
parent c132463c76
commit ae773f206a
4 changed files with 40 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
2.10/Source/Main.dfm
View File

@ -299,6 +299,7 @@ object MainForm: TMainForm
Caption = 'ToolButton2'
ImageIndex = 39
Style = tbsSeparator
Visible = False
end
object tbShowTrace: TToolButton
Left = 579
@ -306,6 +307,7 @@ object MainForm: TMainForm
Hint = 'Show trace window'
Caption = 'tbShowTrace'
ImageIndex = 38
Visible = False
OnClick = tbShowTraceClick
end
end

12
2.10/Source/RenderTypes.pas
View File

@ -95,21 +95,21 @@ var
begin
n := Trunc(t);
Result := '';
if n>0 then begin
if n > 0 then begin
Result := Result + Format(' %d day', [n]);
if (n mod 10) <> 1 then Result := Result + 's';
if n <> 1 then Result := Result + 's';
end;
t := t * 24;
n := Trunc(t) mod 24;
if n>0 then begin
if n > 0 then begin
Result := Result + Format(' %d hour', [n]);
if (n mod 10) <> 1 then Result := Result + 's';
if n <> 1 then Result := Result + 's';
end;
t := t * 60;
n := Trunc(t) mod 60;
if n>0 then begin
if n > 0 then begin
Result := Result + Format(' %d minute', [n]);
if (n mod 10) <> 1 then Result := Result + 's';
if n <> 1 then Result := Result + 's';
end;
t := t * 60;
t := t - (Trunc(t) div 60) * 60;

2
2.10/Source/Tracer.pas
View File

@ -70,7 +70,7 @@ procedure TTraceForm.FormCreate(Sender: TObject);
var
Registry: TRegistry;
begin
//TraceLevel := 0; // Tracer disabled in release version
TraceLevel := 0; // Tracer disabled in release version
{ Read position from registry }
Registry := TRegistry.Create;

31
2.10/Source/varpdj.pas
View File

@ -5,6 +5,8 @@ interface
uses
BaseVariation, XFormMan;
{$define _ASM_}
type
TVariationPDJ = class(TBaseVariation)
private
@ -34,9 +36,38 @@ uses
///////////////////////////////////////////////////////////////////////////////
procedure TVariationPDJ.CalcFunction;
{$ifndef _ASM_}
begin
FPx^ := FPx^ + vvar * (sin(FA * FTy^) - cos(FB * FTx^));
FPy^ := FPy^ + vvar * (sin(FC * FTx^) - cos(FD * FTy^));
{$else}
asm
fld qword ptr [eax + vvar]
mov edx, [eax + FTx]
fld qword ptr [edx + 8] // FTy
fld qword ptr [edx] // FTx
fld st(1)
fmul qword ptr [eax + Fa]
fsin
fld st(1)
fmul qword ptr [eax + Fb]
fcos
fsubp st(1), st
fmul st, st(3)
fadd qword ptr [edx + 16] // FPx
fstp qword ptr [edx + 16]
fmul qword ptr [eax + Fc]
fsin
fxch st(1)
fmul qword ptr [eax + Fd]
fcos
fsubp st(1), st
fmulp
fadd qword ptr [edx + 24] // FPy
fstp qword ptr [edx + 24]
{$endif}
end;
///////////////////////////////////////////////////////////////////////////////