mirror of
https://github.com/moparisthebest/Simba
synced 2024-12-23 15:58:51 -05:00
Fix hypot part 2... ;-)
This commit is contained in:
parent
5556583ce0
commit
5826ca19f0
@ -48,7 +48,7 @@ uses
|
||||
CastaliaSimplePasPar, v_AutoCompleteForm, PSDump, settings;
|
||||
|
||||
const
|
||||
SimbaVersion = 706;
|
||||
SimbaVersion = 707;
|
||||
|
||||
type
|
||||
|
||||
@ -3150,3 +3150,4 @@ initialization
|
||||
|
||||
|
||||
end.
|
||||
|
||||
|
@ -77,6 +77,11 @@ begin
|
||||
Result := Round(Sqrt(Sqr(x2-x1) + Sqr(y2-y1)));
|
||||
end;
|
||||
|
||||
function ps_Hypot(X, Y: Extended): Extended;extdecl;
|
||||
begin
|
||||
result := hypot(x,y);
|
||||
end;
|
||||
|
||||
function ps_RandomRange(const aFrom, aTo: Integer): Integer; extdecl;
|
||||
begin
|
||||
Result:=Random(Abs(aFrom-aTo))+Min(aTo,AFrom);
|
||||
|
@ -69,6 +69,7 @@ AddFunction(@ps_PointInBox,'function PointInBox(PT : TPoint; Box: TBox): Boolean
|
||||
AddFunction(@ps_sqr,'function Sqr(e : extended) : extended;');
|
||||
AddFunction(@ps_point,'function Point(x,y:integer) : TPoint;');
|
||||
AddFunction(@ps_Distance,'function Distance(xs,ys,xe,ye : integer) : integer;');
|
||||
AddFunction(@ps_hypot,'function Hypot(X, Y: Extended): Extended;');
|
||||
AddFunction(@ps_RandomRange,'function RandomRange(aFrom,aTo: Integer): Integer;');
|
||||
AddFunction(@ps_incex,'procedure IncEx(var x : integer; increase : integer);');
|
||||
AddFunction(@ps_DecEx,'procedure DecEx(var x : integer; Decrease : integer);');
|
||||
@ -91,7 +92,6 @@ AddFunction(@ps_ArcTan, 'function ArcTan(e: extended): extended;');
|
||||
AddFunction(@ps_Cotan, 'function Cotan(e: extended): extended;');
|
||||
AddFunction(@ps_Secant, 'function Secant(e: extended): extended;');
|
||||
AddFunction(@ps_Cosecant, 'function Cosecant(e: extended): extended;');
|
||||
//AddFunction(@ps_Hypot, 'function Hypot(e: extended): extended;');
|
||||
AddFunction(@ps_Cot, 'function Cot(e: extended): extended;');
|
||||
AddFunction(@ps_Sec, 'function Sec(e: extended): extended;');
|
||||
AddFunction(@ps_Csc, 'function Csc(e: extended): extended;');
|
||||
|
Loading…
Reference in New Issue
Block a user