From 542d05d7c8d8347392e23857e5068f250d2daf03 Mon Sep 17 00:00:00 2001
From: bruce <bruces1@gmail.com>
Date: Sat, 21 Sep 2013 01:44:59 +0800
Subject: [PATCH] Carrier attenuation set according to MIDI velocity (ie
 implement keyboard volume).

---
 Source/PluginProcessor.cpp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Source/PluginProcessor.cpp b/Source/PluginProcessor.cpp
index 8b7cd3b..795fe52 100644
--- a/Source/PluginProcessor.cpp
+++ b/Source/PluginProcessor.cpp
@@ -499,6 +499,7 @@ void JuceOplvstiAudioProcessor::processBlock (AudioSampleBuffer& buffer, MidiBuf
 			while (ch <= Hiopl::CHANNELS && NO_NOTE != active_notes[ch]) {
 				ch += 1;
 			}
+			Opl->SetAttenuation(ch, 2, 63 - (midi_message.getVelocity() / 2));
 			Opl->KeyOn(ch, noteHz);
 			active_notes[ch] = n;
 		}