From 850620d9461ce31daf98d1d6552991d26bcab2e2 Mon Sep 17 00:00:00 2001
From: Raymond <Raymond@.(none)>
Date: Sun, 18 Apr 2010 18:08:30 +0200
Subject: [PATCH] Added s0me log st00f + new vers number.

---
 Projects/SAMufasaGUI/testunit.pas          | 2 +-
 Units/MMLAddon/PSInc/Wrappers/math.inc     | 8 ++++++++
 Units/MMLAddon/PSInc/psexportedmethods.inc | 2 ++
 3 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/Projects/SAMufasaGUI/testunit.pas b/Projects/SAMufasaGUI/testunit.pas
index edeffe7..b72a28d 100644
--- a/Projects/SAMufasaGUI/testunit.pas
+++ b/Projects/SAMufasaGUI/testunit.pas
@@ -46,7 +46,7 @@ uses
   CastaliaSimplePasPar, v_AutoCompleteForm, PSDump;
 
 const
-  SimbaVersion = 630;
+  SimbaVersion = 632;
 
 type
 
diff --git a/Units/MMLAddon/PSInc/Wrappers/math.inc b/Units/MMLAddon/PSInc/Wrappers/math.inc
index 7ae1342..486dbce 100644
--- a/Units/MMLAddon/PSInc/Wrappers/math.inc
+++ b/Units/MMLAddon/PSInc/Wrappers/math.inc
@@ -155,3 +155,11 @@ function ps_floor(e : extended) : integer; extdecl;
 begin;
   result := floor(e);
 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;
diff --git a/Units/MMLAddon/PSInc/psexportedmethods.inc b/Units/MMLAddon/PSInc/psexportedmethods.inc
index 2c3f81a..e6747ac 100644
--- a/Units/MMLAddon/PSInc/psexportedmethods.inc
+++ b/Units/MMLAddon/PSInc/psexportedmethods.inc
@@ -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_FixD,'function FixD(Degrees : extended) : Extended;');
 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}
 SetCurrSection('Window');