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

whoops!

Browse Source
This commit is contained in:
zueuk 2005-09-21 15:14:13 +00:00
parent 1f58b0b896
commit 6f3af378af
2 changed files with 31 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
2.10/Source/Editor.pas
View File

@ -2567,7 +2567,7 @@ begin
vleVariables.Values[vleVariables.Keys[varDragIndex+1]] := '0'; vleVariables.Values[vleVariables.Keys[varDragIndex+1]] := '0';
end; end;
UpdateFlameX; UpdateFlame(true);
end; end;
{ **************************************************************************** } { **************************************************************************** }

60
2.10/Source/XForm.pas
View File

@ -213,26 +213,26 @@ begin
(vars[12] <> 0.0) or (vars[13] <> 0.0) or (vars[21] <> 0.0) or (vars[22] <> 0.0); (vars[12] <> 0.0) or (vars[13] <> 0.0) or (vars[21] <> 0.0) or (vars[22] <> 0.0);
// CalculateLength := False; // CalculateLength := False;
CalculateSinCos := (vars[4] <> 0.0) or (vars[9] <> 0.0) or {z! (vars[10] <> 0.0) or} CalculateSinCos := (vars[4] <> 0.0) or (vars[9] <> 0.0) or {z! (vars[10] <> 0.0) or}
(vars[11] <> 0.0) or {z! (vars[16] <> 0.0)} or (vars[19] <> 0.0) or (vars[11] <> 0.0) or {z! (vars[16] <> 0.0) or} (vars[19] <> 0.0) or
(vars[21] <> 0.0); (vars[21] <> 0.0);
end; end;
/////////////////////////////////////////////////////////////////////////////// //--0--////////////////////////////////////////////////////////////////////////
procedure TXForm.Linear; procedure TXForm.Linear;
begin begin
FPx := FPx + vars[0] * FTx; FPx := FPx + vars[0] * FTx;
FPy := FPy + vars[0] * FTy; FPy := FPy + vars[0] * FTy;
end; end;
/////////////////////////////////////////////////////////////////////////////// //--1--////////////////////////////////////////////////////////////////////////
procedure TXForm.Sinusoidal; procedure TXForm.Sinusoidal;
begin begin
FPx := FPx + vars[1] * sin(FTx); FPx := FPx + vars[1] * sin(FTx);
FPy := FPy + vars[1] * sin(FTy); FPy := FPy + vars[1] * sin(FTy);
end; end;
/////////////////////////////////////////////////////////////////////////////// //--2--////////////////////////////////////////////////////////////////////////
procedure TXForm.Spherical; procedure TXForm.Spherical;
var var
r2, rr2: double; r2, rr2: double;
@ -243,7 +243,7 @@ begin
FPy := FPy + vars[2] * (FTy * rr2); FPy := FPy + vars[2] * (FTy * rr2);
end; end;
/////////////////////////////////////////////////////////////////////////////// //--3--////////////////////////////////////////////////////////////////////////
procedure TXForm.Swirl; procedure TXForm.Swirl;
var var
c1, c2, r2: double; c1, c2, r2: double;
@ -255,7 +255,7 @@ begin
FPy := FPy + vars[3] * (c2 * FTx + c1 * FTy); FPy := FPy + vars[3] * (c2 * FTx + c1 * FTy);
end; end;
/////////////////////////////////////////////////////////////////////////////// //--4--////////////////////////////////////////////////////////////////////////
procedure TXForm.Horseshoe; procedure TXForm.Horseshoe;
//var //var
// a, c1, c2: double; // a, c1, c2: double;
@ -270,7 +270,7 @@ begin
FPy := FPy + vars[4] * (FCosA* FTx + FSinA * FTy); FPy := FPy + vars[4] * (FCosA* FTx + FSinA * FTy);
end; end;
/////////////////////////////////////////////////////////////////////////////// //--5--////////////////////////////////////////////////////////////////////////
procedure TXForm.Polar; procedure TXForm.Polar;
{var {var
ny: double; ny: double;
@ -286,7 +286,7 @@ begin
FPy := FPy + vars[5] * (sqrt(FTx * FTx + FTy * FTy) - 1.0); FPy := FPy + vars[5] * (sqrt(FTx * FTx + FTy * FTy) - 1.0);
end; end;
/////////////////////////////////////////////////////////////////////////////// //--6--////////////////////////////////////////////////////////////////////////
procedure TXForm.FoldedHandkerchief; procedure TXForm.FoldedHandkerchief;
var var
r: double; r: double;
@ -296,7 +296,7 @@ begin
FPy := FPy + vars[6] * cos(FAngle - r) * r; FPy := FPy + vars[6] * cos(FAngle - r) * r;
end; end;
/////////////////////////////////////////////////////////////////////////////// //--7--////////////////////////////////////////////////////////////////////////
procedure TXForm.Heart; procedure TXForm.Heart;
var var
r: double; r: double;
@ -307,7 +307,7 @@ begin
FPy := FPy + vars[7] * cos(FAngle * r) * -r; FPy := FPy + vars[7] * cos(FAngle * r) * -r;
end; end;
/////////////////////////////////////////////////////////////////////////////// //--8--////////////////////////////////////////////////////////////////////////
procedure TXForm.Disc; procedure TXForm.Disc;
const const
rPI: double = 0.31830989; rPI: double = 0.31830989;
@ -324,7 +324,7 @@ begin
FPy := FPy + vars[8] * cosr * FAngle * rPI; FPy := FPy + vars[8] * cosr * FAngle * rPI;
end; end;
/////////////////////////////////////////////////////////////////////////////// //--9--////////////////////////////////////////////////////////////////////////
procedure TXForm.Spiral; procedure TXForm.Spiral;
var var
r, rr: double; r, rr: double;
@ -338,7 +338,7 @@ begin
FPy := FPy + vars[9] * (FsinA - cosr) * rr; FPy := FPy + vars[9] * (FsinA - cosr) * rr;
end; end;
/////////////////////////////////////////////////////////////////////////////// //--10--///////////////////////////////////////////////////////////////////////
procedure TXForm.Hyperbolic; procedure TXForm.Hyperbolic;
{ {
var var
@ -360,7 +360,7 @@ begin
FPy := FPy + vars[10] * FTy; FPy := FPy + vars[10] * FTy;
end; end;
/////////////////////////////////////////////////////////////////////////////// //--11--///////////////////////////////////////////////////////////////////////
procedure TXForm.Square; procedure TXForm.Square;
var var
// r: double; // r: double;
@ -372,7 +372,7 @@ begin
FPy := FPy + vars[11] * FCosA * sinr; FPy := FPy + vars[11] * FCosA * sinr;
end; end;
/////////////////////////////////////////////////////////////////////////////// //--12--///////////////////////////////////////////////////////////////////////
procedure TXForm.Ex; procedure TXForm.Ex;
var var
r: double; r: double;
@ -387,7 +387,7 @@ begin
FPy := FPy + vars[12] * (m0 - m1); FPy := FPy + vars[12] * (m0 - m1);
end; end;
/////////////////////////////////////////////////////////////////////////////// //--13--///////////////////////////////////////////////////////////////////////
procedure TXForm.Julia; procedure TXForm.Julia;
var var
a,r: double; a,r: double;
@ -400,7 +400,7 @@ begin
FPy := FPy + vars[13] * r * sinr; FPy := FPy + vars[13] * r * sinr;
end; end;
/////////////////////////////////////////////////////////////////////////////// //--14--///////////////////////////////////////////////////////////////////////
procedure TXForm.Bent; procedure TXForm.Bent;
var var
nx, ny: double; nx, ny: double;
@ -415,7 +415,7 @@ begin
FPy := FPy + vars[14] * ny; FPy := FPy + vars[14] * ny;
end; end;
/////////////////////////////////////////////////////////////////////////////// //--15--///////////////////////////////////////////////////////////////////////
procedure TXForm.Waves; procedure TXForm.Waves;
var var
dx,dy,nx,ny: double; dx,dy,nx,ny: double;
@ -428,7 +428,7 @@ begin
FPy := FPy + vars[15] * ny; FPy := FPy + vars[15] * ny;
end; end;
/////////////////////////////////////////////////////////////////////////////// //--16--///////////////////////////////////////////////////////////////////////
procedure TXForm.Fisheye; procedure TXForm.Fisheye;
var var
{ a,} r: double; { a,} r: double;
@ -448,7 +448,7 @@ begin
end; end;
/////////////////////////////////////////////////////////////////////////////// //--17--///////////////////////////////////////////////////////////////////////
procedure TXForm.Popcorn; procedure TXForm.Popcorn;
var var
dx, dy: double; dx, dy: double;
@ -466,7 +466,7 @@ begin
FPy := FPy + vars[17] * ny; FPy := FPy + vars[17] * ny;
end; end;
/////////////////////////////////////////////////////////////////////////////// //--18--///////////////////////////////////////////////////////////////////////
procedure TXForm.Exponential; procedure TXForm.Exponential;
var var
dx, dy: double; dx, dy: double;
@ -480,7 +480,7 @@ begin
FPy := FPy + vars[18] * sinr * dx; FPy := FPy + vars[18] * sinr * dx;
end; end;
/////////////////////////////////////////////////////////////////////////////// //--19--///////////////////////////////////////////////////////////////////////
procedure TXForm.Power; procedure TXForm.Power;
var var
r: double; r: double;
@ -495,7 +495,7 @@ begin
FPy := FPy + vars[19] * r * FSinA; FPy := FPy + vars[19] * r * FSinA;
end; end;
/////////////////////////////////////////////////////////////////////////////// //--20--///////////////////////////////////////////////////////////////////////
procedure TXForm.Cosine; procedure TXForm.Cosine;
var var
nx, ny: double; nx, ny: double;
@ -508,7 +508,7 @@ begin
FPy := FPy + vars[20] * ny; FPy := FPy + vars[20] * ny;
end; end;
/////////////////////////////////////////////////////////////////////////////// //--21--///////////////////////////////////////////////////////////////////////
procedure TXForm.Rings; procedure TXForm.Rings;
var var
r: double; r: double;
@ -519,12 +519,11 @@ begin
r := FLength; r := FLength;
r := r + dx - System.Int((r + dx)/(2 * dx)) * 2 * dx - dx + r * (1-dx); r := r + dx - System.Int((r + dx)/(2 * dx)) * 2 * dx - dx + r * (1-dx);
SinCos(FAngle, sinr, cosr); SinCos(FAngle, sinr, cosr);
FPx := FPx + vars[21] * r * cosr; FPx := FPx + vars[21] * r * cosr;
FPy := FPy + vars[21] * r * sinr; FPy := FPy + vars[21] * r * sinr;
end; end;
/////////////////////////////////////////////////////////////////////////////// //--22--///////////////////////////////////////////////////////////////////////
procedure TXForm.Fan; procedure TXForm.Fan;
var var
r,t,a : double; r,t,a : double;
@ -549,7 +548,7 @@ begin
end; end;
/////////////////////////////////////////////////////////////////////////////// //--23--///////////////////////////////////////////////////////////////////////
procedure TXForm.Triblob; procedure TXForm.Triblob;
var var
r : double; r : double;
@ -569,7 +568,7 @@ begin
FPy := FPy + vars[23] * r * sinr; FPy := FPy + vars[23] * r * sinr;
end; end;
/////////////////////////////////////////////////////////////////////////////// //--24--///////////////////////////////////////////////////////////////////////
procedure TXForm.Daisy; procedure TXForm.Daisy;
var var
r : double; r : double;
@ -590,7 +589,7 @@ begin
FPy := FPy + vars[24] * r * sinr; FPy := FPy + vars[24] * r * sinr;
end; end;
/////////////////////////////////////////////////////////////////////////////// //--25--///////////////////////////////////////////////////////////////////////
procedure TXForm.Checkers; procedure TXForm.Checkers;
var var
dx: double; dx: double;
@ -604,7 +603,7 @@ begin
FPy := FPy + vars[25] * FTy; FPy := FPy + vars[25] * FTy;
end; end;
/////////////////////////////////////////////////////////////////////////////// //--26--///////////////////////////////////////////////////////////////////////
procedure TXForm.CRot; procedure TXForm.CRot;
var var
r : double; r : double;
@ -627,7 +626,8 @@ begin
FPy := FPy + vars[26] * r * sinr; FPy := FPy + vars[26] * r * sinr;
end; end;
/////////////////////////////////////////////////////////////////////////////// //***************************************************************************//
procedure TXForm.NextPoint(var px,py,pc: double); procedure TXForm.NextPoint(var px,py,pc: double);
var var
i: Integer; i: Integer;