Audio pitch change implementation

src/lime/_internal/backend/flash/FlashAudioSource.hx

@@ -117,6 +117,16 @@ class FlashAudioSource
 		return loops = value;
 	}
 
+	public function getPitch():Float
+	{
+		return 1;
+	}
+
+	public function setPitch(value:Float):Float
+	{
+		return getPitch();
+	}
+
 	public function getPosition():Vector4
 	{
 		position.x = channel.soundTransform.pan;

src/lime/_internal/backend/html5/HTML5AudioSource.hx

@@ -204,6 +204,21 @@ class HTML5AudioSource
 		return loops = value;
 	}
 
+	public function getPitch():Float
+	{
+		return parent.buffer.__srcHowl.rate();
+	}
+
+	public function setPitch(value:Float):Float
+	{
+		#if lime_howlerjs
+		parent.buffer.__srcHowl.rate(value);
+		#end
+
+		return getPitch();
+	}
+
+
 	public function getPosition():Vector4
 	{
 		#if lime_howlerjs

src/lime/_internal/backend/native/NativeAudioSource.hx

@@ -386,6 +386,11 @@ class NativeAudioSource
 
 	public function setCurrentTime(value:Int):Int
 	{
+		if (value == getCurrentTime())
+		{
+			return value;
+		}
+
 		if (handle != null)
 		{
 			if (stream)
@@ -424,7 +429,7 @@ class NativeAudioSource
 				timer.stop();
 			}
 
-			var timeRemaining = getLength() - value;
+			var timeRemaining = Std.int((getLength() - value) / getPitch());
 
 			if (timeRemaining > 0)
 			{
@@ -483,7 +488,7 @@ class NativeAudioSource
 				timer.stop();
 			}
 
-			var timeRemaining = value - getCurrentTime();
+			var timeRemaining = Std.int((value - getCurrentTime()) / getPitch());
 
 			if (timeRemaining > 0)
 			{
@@ -505,6 +510,34 @@ class NativeAudioSource
 		return loops = value;
 	}
 
+	public function getPitch():Float
+	{
+		return AL.getSourcef(handle, AL.PITCH);
+	}
+
+	public function setPitch(value:Float):Float
+	{
+		if (playing && value != getPitch())
+		{
+			if (timer != null)
+			{
+				timer.stop();
+			}
+
+			var timeRemaining = Std.int((getLength() - getCurrentTime()) / value);
+
+			if (timeRemaining > 0)
+			{
+				timer = new Timer(timeRemaining);
+				timer.run = timer_onRun;
+			}
+		}
+
+		AL.sourcef(handle, AL.PITCH, value);
+
+		return value;
+	}
+
 	public function getPosition():Vector4
 	{
 		if (handle != null)

src/lime/media/AudioSource.hx

@@ -17,6 +17,7 @@ class AudioSource
 	public var gain(get, set):Float;
 	public var length(get, set):Int;
 	public var loops(get, set):Int;
+	public var pitch(get, set):Float;
 	public var offset:Int;
 	public var position(get, set):Vector4;
 
@@ -36,6 +37,8 @@ class AudioSource
 
 		this.loops = loops;
 
+		pitch = 1;
+
 		if (buffer != null)
 		{
 			init();
@@ -108,6 +111,16 @@ class AudioSource
 		return __backend.setLoops(value);
 	}
 
+	@:noCompletion private function get_pitch():Float
+	{
+		return __backend.getPitch();
+	}
+
+	@:noCompletion private function set_pitch(value:Float):Float
+	{
+		return __backend.setPitch(value);
+	}
+
 	@:noCompletion private function get_position():Vector4
 	{
 		return __backend.getPosition();