--- deliantra/Deliantra-Client/Client.xs	2007/04/27 21:27:51	1.192
+++ deliantra/Deliantra-Client/Client.xs	2007/07/14 12:05:52	1.195
@@ -8,6 +8,11 @@
 # pragma warning(disable:4761)
 #endif
 
+//#define DEBUG 1
+#if DEBUG
+# include <valgrind/memcheck.h>
+#endif
+
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
@@ -884,6 +889,15 @@
         _exit (retval);
 #endif
 
+void
+debug ()
+	CODE:
+{
+#if DEBUG
+	VALGRIND_DO_LEAK_CHECK;
+#endif
+}
+
 MODULE = CFPlus	PACKAGE = CFPlus::Font
 
 CFPlus::Font
@@ -2128,6 +2142,13 @@
 	OUTPUT:
         RETVAL
 
+int
+fade_out (int ms)
+	CODE:
+        RETVAL = Mix_FadeOutMusic (ms);
+	OUTPUT:
+        RETVAL
+
 CFPlus::MixMusic
 new_from_file (SV *class, char *path)
 	CODE:
@@ -2147,6 +2168,13 @@
 	OUTPUT:
         RETVAL
 
+int
+fade_in_pos (CFPlus::MixMusic self, int loops, int ms, double position)
+	CODE:
+        RETVAL = Mix_FadeInMusicPos (self, loops, ms, position);
+	OUTPUT:
+        RETVAL
+
 MODULE = CFPlus	PACKAGE = CFPlus::OpenGL
 
 BOOT: