From 71f5a13bd245350b5924867f89f4621d05b9279f Mon Sep 17 00:00:00 2001
From: Mick Grierson <mickgrierson@strangebook.lan>
Date: Fri, 28 Oct 2011 09:27:37 +0100
Subject: added maxisample::playOnce with a speed setting - only uses linear
 interpolation at the moment

---
 maximilian.cpp | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'maximilian.cpp')

diff --git a/maximilian.cpp b/maximilian.cpp
index 92f1292..12ea302 100644
--- a/maximilian.cpp
+++ b/maximilian.cpp
@@ -457,6 +457,19 @@ double maxiSample::playOnce() {
 	return(output);
 }
 
+double maxiSample::playOnce(double speed) {
+	double remainder;
+	//long a,b;
+	//	long length=myDataSize*0.5;	
+	short* buffer = (short *)myData;
+	position=position+((speed*chandiv*myChannels)/(maxiSettings::sampleRate/mySampleRate));
+	if ((long) position<length)
+		output = (double) ((1-remainder) * buffer[1+ (long) position] + remainder * buffer[2+(long) position])/32767;//linear interpolation
+	else 
+		output=0;
+	return(output);
+}
+
 double maxiSample::play(double speed) {
 	double remainder;
 	long a,b;
-- 
cgit v1.3