some minor optimizations
This commit is contained in:
parent
af28de8e5f
commit
15a2fb2558
@ -452,7 +452,8 @@ var
|
|||||||
dx, dy: double;
|
dx, dy: double;
|
||||||
sinr, cosr: extended;
|
sinr, cosr: extended;
|
||||||
begin
|
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;
|
dy := PI * FTy;
|
||||||
SinCos(dy, sinr, cosr);
|
SinCos(dy, sinr, cosr);
|
||||||
FPx := FPx + vars[18] * cosr * dx;
|
FPx := FPx + vars[18] * cosr * dx;
|
||||||
|
@ -88,8 +88,8 @@ begin
|
|||||||
FHigh := Value;
|
FHigh := Value;
|
||||||
Result := True;
|
Result := True;
|
||||||
end else if Name = 'blob_waves' then begin
|
end else if Name = 'blob_waves' then begin
|
||||||
Value := Round(Value);
|
//???????????? what for?: // Value := Round(Value);
|
||||||
FWaves := Value;
|
FWaves := Round(Value);
|
||||||
Result := True;
|
Result := True;
|
||||||
end
|
end
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user