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

fixed handkerchief and heart variations

Browse Source
This commit is contained in:
zueuk 2005-10-30 05:53:39 +00:00
parent 150d37d1bb
commit 7fc40c0661
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
2.10/Source/XForm.pas
View File

@ -311,20 +311,22 @@ procedure TXForm.FoldedHandkerchief;
var var
r: double; r: double;
begin begin
r := vars[6] * sqrt(sqr(FTx) + sqr(FTy)); r := sqrt(sqr(FTx) + sqr(FTy));
FPx := FPx + sin(FAngle + r) * r; FPx := FPx + vars[6] * sin(FAngle + r) * r;
FPy := FPy + cos(FAngle - r) * r; FPy := FPy + vars[6] * cos(FAngle - r) * r;
end; end;
//--7--//////////////////////////////////////////////////////////////////////// //--7--////////////////////////////////////////////////////////////////////////
procedure TXForm.Heart; procedure TXForm.Heart;
var var
r: double; r: double;
sinr, cosr: double;
begin begin
r := vars[7] * sqrt(sqr(FTx) + sqr(FTy)); r := sqrt(sqr(FTx) + sqr(FTy));
Sincos(r * FAngle, sinr, cosr);
FPx := FPx + sin(FAngle * r) * r; r := r * vars[7];
FPy := FPy - cos(FAngle * r) * r; FPx := FPx + r * sinr;
FPy := FPy - r * cosr;
end; end;
//--8--//////////////////////////////////////////////////////////////////////// //--8--////////////////////////////////////////////////////////////////////////