some minor optimizations

This commit is contained in:
zueuk 2005-09-16 10:30:13 +00:00
parent af28de8e5f
commit 15a2fb2558
2 changed files with 4 additions and 3 deletions

View File

@ -452,7 +452,8 @@ var
dx, dy: double;
sinr, cosr: extended;
begin
dx := exp(FTx)/ 2.718281828459045;
dx := exp(FTx - 1); // exp(FTx)/ 2.718281828459045;
// --Z-- (e^x)/e = e^(x-1), isn't it?!
dy := PI * FTy;
SinCos(dy, sinr, cosr);
FPx := FPx + vars[18] * cosr * dx;

View File

@ -88,8 +88,8 @@ begin
FHigh := Value;
Result := True;
end else if Name = 'blob_waves' then begin
Value := Round(Value);
FWaves := Value;
//???????????? what for?: // Value := Round(Value);
FWaves := Round(Value);
Result := True;
end
end;