moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-01-31 15:20:24 -05:00
Code Issues Releases Wiki Activity

Added s0me log st00f + new vers number.

Browse Source
This commit is contained in:
Raymond 2010-04-18 18:08:30 +02:00
parent a7eccb53d2
commit 850620d946
3 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Projects/SAMufasaGUI/testunit.pas
View File

@ -46,7 +46,7 @@ uses
CastaliaSimplePasPar, v_AutoCompleteForm, PSDump; CastaliaSimplePasPar, v_AutoCompleteForm, PSDump;
const const
SimbaVersion = 630; SimbaVersion = 632;
type type

8
Units/MMLAddon/PSInc/Wrappers/math.inc
View File

@ -155,3 +155,11 @@ function ps_floor(e : extended) : integer; extdecl;
begin; begin;
result := floor(e); result := floor(e);
end; end;
function ps_logn(base, x : extended): extended;extdecl;
begin
result := logn(base,x);
end;
function ps_ln(x : extended) : extended;extdecl;
begin
result := ln(x);
end;

2
Units/MMLAddon/PSInc/psexportedmethods.inc
View File

@ -69,6 +69,8 @@ AddFunction(@ps_DecEx,'procedure DecEx(var x : integer; Decrease : integer);');
AddFunction(@ps_BinCoe,'function BinCoe(a, b: LongInt): Extended;'); AddFunction(@ps_BinCoe,'function BinCoe(a, b: LongInt): Extended;');
AddFunction(@ps_FixD,'function FixD(Degrees : extended) : Extended;'); AddFunction(@ps_FixD,'function FixD(Degrees : extended) : Extended;');
AddFunction(@ps_InRange,'function InRange(const value,min,max : integer) : boolean;'); AddFunction(@ps_InRange,'function InRange(const value,min,max : integer) : boolean;');
AddFunction(@ps_logn,'function logn(base, x : extended): extended;');
AddFunction(@ps_ln,'function ln(x : extended) : extended;');
{window} {window}
SetCurrSection('Window'); SetCurrSection('Window');