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