4 |
* * |
* * |
5 |
* Copyright (C) 2003,2004 by Benno Senoner and Christian Schoenebeck * |
* Copyright (C) 2003,2004 by Benno Senoner and Christian Schoenebeck * |
6 |
* Copyright (C) 2005-2008 Christian Schoenebeck * |
* Copyright (C) 2005-2008 Christian Schoenebeck * |
7 |
* Copyright (C) 2009-2015 Christian Schoenebeck and Grigor Iliev * |
* Copyright (C) 2009-2012 Christian Schoenebeck and Grigor Iliev * |
8 |
|
* Copyright (C) 2013-2017 Christian Schoenebeck and Andreas Persson * |
9 |
* * |
* * |
10 |
* This program is free software; you can redistribute it and/or modify * |
* This program is free software; you can redistribute it and/or modify * |
11 |
* it under the terms of the GNU General Public License as published by * |
* it under the terms of the GNU General Public License as published by * |
129 |
AboutToTrigger(); |
AboutToTrigger(); |
130 |
|
|
131 |
// calculate volume |
// calculate volume |
132 |
const double velocityAttenuation = GetVelocityAttenuation(itNoteOnEvent->Param.Note.Velocity); |
const double velocityAttenuation = GetVelocityAttenuation(MIDIVelocity()); |
133 |
float volume = CalculateVolume(velocityAttenuation) * pKeyInfo->Volume; |
float volume = CalculateVolume(velocityAttenuation) * pKeyInfo->Volume; |
134 |
if (volume <= 0) return -1; |
if (volume <= 0) return -1; |
135 |
|
|
139 |
SYNTHESIS_MODE_SET_BITDEPTH24(SynthesisMode, SmplInfo.BitDepth == 24); |
SYNTHESIS_MODE_SET_BITDEPTH24(SynthesisMode, SmplInfo.BitDepth == 24); |
140 |
|
|
141 |
// get starting crossfade volume level |
// get starting crossfade volume level |
142 |
float crossfadeVolume = CalculateCrossfadeVolume(itNoteOnEvent->Param.Note.Velocity); |
float crossfadeVolume = CalculateCrossfadeVolume(MIDIVelocity()); |
143 |
|
|
144 |
VolumeLeft = volume * pKeyInfo->PanLeft; |
VolumeLeft = volume * pKeyInfo->PanLeft; |
145 |
VolumeRight = volume * pKeyInfo->PanRight; |
VolumeRight = volume * pKeyInfo->PanRight; |
146 |
|
|
147 |
float subfragmentRate = GetEngine()->SampleRate / CONFIG_DEFAULT_SUBFRAGMENT_SIZE; |
// this rate is used for rather mellow volume fades |
148 |
|
const float subfragmentRate = GetEngine()->SampleRate / CONFIG_DEFAULT_SUBFRAGMENT_SIZE; |
149 |
|
// this rate is used for very fast volume fades |
150 |
|
const float quickRampRate = RTMath::Min(subfragmentRate, GetEngine()->SampleRate * 0.001f /* approx. 13ms */); |
151 |
CrossfadeSmoother.trigger(crossfadeVolume, subfragmentRate); |
CrossfadeSmoother.trigger(crossfadeVolume, subfragmentRate); |
152 |
|
|
153 |
VolumeSmoother.trigger(pEngineChannel->MidiVolume, subfragmentRate); |
VolumeSmoother.trigger(pEngineChannel->MidiVolume, subfragmentRate); |
154 |
NoteVolumeSmoother.trigger(pNote ? pNote->Override.Volume : 1.f, subfragmentRate); |
NoteVolume.setCurveOnly(pNote ? pNote->Override.VolumeCurve : DEFAULT_FADE_CURVE); |
155 |
|
NoteVolume.setCurrentValue(pNote ? pNote->Override.Volume : 1.f); |
156 |
|
NoteVolume.setDefaultDuration(pNote ? pNote->Override.VolumeTime : DEFAULT_NOTE_VOLUME_TIME_S); |
157 |
|
|
158 |
// Check if the sample needs disk streaming or is too short for that |
// Check if the sample needs disk streaming or is too short for that |
159 |
long cachedsamples = GetSampleCacheSize() / SmplInfo.FrameSize; |
long cachedsamples = GetSampleCacheSize() / SmplInfo.FrameSize; |
193 |
} |
} |
194 |
|
|
195 |
Pitch = CalculatePitchInfo(PitchBend); |
Pitch = CalculatePitchInfo(PitchBend); |
196 |
NotePitch = (pNote) ? pNote->Override.Pitch : 1.0f; |
NotePitch.setCurveOnly(pNote ? pNote->Override.PitchCurve : DEFAULT_FADE_CURVE); |
197 |
|
NotePitch.setCurrentValue(pNote ? pNote->Override.Pitch : 1.0f); |
198 |
|
NotePitch.setDefaultDuration(pNote ? pNote->Override.PitchTime : DEFAULT_NOTE_PITCH_TIME_S); |
199 |
NoteCutoff = (pNote) ? pNote->Override.Cutoff : 1.0f; |
NoteCutoff = (pNote) ? pNote->Override.Cutoff : 1.0f; |
200 |
NoteResonance = (pNote) ? pNote->Override.Resonance : 1.0f; |
NoteResonance = (pNote) ? pNote->Override.Resonance : 1.0f; |
201 |
|
|
202 |
// the length of the decay and release curves are dependent on the velocity |
// the length of the decay and release curves are dependent on the velocity |
203 |
const double velrelease = 1 / GetVelocityRelease(itNoteOnEvent->Param.Note.Velocity); |
const double velrelease = 1 / GetVelocityRelease(MIDIVelocity()); |
204 |
|
|
205 |
if (pSignalUnitRack == NULL) { // setup EG 1 (VCA EG) |
if (pSignalUnitRack == NULL) { // setup EG 1 (VCA EG) |
206 |
// get current value of EG1 controller |
// get current value of EG1 controller |
207 |
double eg1controllervalue = GetEG1ControllerValue(itNoteOnEvent->Param.Note.Velocity); |
double eg1controllervalue = GetEG1ControllerValue(MIDIVelocity()); |
208 |
|
|
209 |
// calculate influence of EG1 controller on EG1's parameters |
// calculate influence of EG1 controller on EG1's parameters |
210 |
EGInfo egInfo = CalculateEG1ControllerInfluence(eg1controllervalue); |
EGInfo egInfo = CalculateEG1ControllerInfluence(eg1controllervalue); |
211 |
|
|
212 |
TriggerEG1(egInfo, velrelease, velocityAttenuation, GetEngine()->SampleRate, itNoteOnEvent->Param.Note.Velocity); |
if (pNote) { |
213 |
|
egInfo.Attack *= pNote->Override.Attack; |
214 |
|
egInfo.Decay *= pNote->Override.Decay; |
215 |
|
egInfo.Release *= pNote->Override.Release; |
216 |
|
} |
217 |
|
|
218 |
|
TriggerEG1(egInfo, velrelease, velocityAttenuation, GetEngine()->SampleRate, MIDIVelocity()); |
219 |
} else { |
} else { |
220 |
pSignalUnitRack->Trigger(); |
pSignalUnitRack->Trigger(); |
221 |
} |
} |
225 |
NotePanRight = (pNote) ? AbstractEngine::PanCurveValueNorm(pNote->Override.Pan, 1 /*right*/) : 1.f; |
NotePanRight = (pNote) ? AbstractEngine::PanCurveValueNorm(pNote->Override.Pan, 1 /*right*/) : 1.f; |
226 |
PanLeftSmoother.trigger( |
PanLeftSmoother.trigger( |
227 |
AbstractEngine::PanCurve[128 - pan] * NotePanLeft, |
AbstractEngine::PanCurve[128 - pan] * NotePanLeft, |
228 |
subfragmentRate |
quickRampRate //NOTE: maybe we should have 2 separate pan smoothers, one for MIDI CC10 (with slow rate) and one for instrument script change_pan() calls (with fast rate) |
229 |
); |
); |
230 |
PanRightSmoother.trigger( |
PanRightSmoother.trigger( |
231 |
AbstractEngine::PanCurve[pan] * NotePanRight, |
AbstractEngine::PanCurve[pan] * NotePanRight, |
232 |
subfragmentRate |
quickRampRate //NOTE: maybe we should have 2 separate pan smoothers, one for MIDI CC10 (with slow rate) and one for instrument script change_pan() calls (with fast rate) |
233 |
); |
); |
234 |
|
|
235 |
#ifdef CONFIG_INTERPOLATE_VOLUME |
#ifdef CONFIG_INTERPOLATE_VOLUME |
259 |
// setup EG 2 (VCF Cutoff EG) |
// setup EG 2 (VCF Cutoff EG) |
260 |
{ |
{ |
261 |
// get current value of EG2 controller |
// get current value of EG2 controller |
262 |
double eg2controllervalue = GetEG2ControllerValue(itNoteOnEvent->Param.Note.Velocity); |
double eg2controllervalue = GetEG2ControllerValue(MIDIVelocity()); |
263 |
|
|
264 |
// calculate influence of EG2 controller on EG2's parameters |
// calculate influence of EG2 controller on EG2's parameters |
265 |
EGInfo egInfo = CalculateEG2ControllerInfluence(eg2controllervalue); |
EGInfo egInfo = CalculateEG2ControllerInfluence(eg2controllervalue); |
266 |
|
|
267 |
TriggerEG2(egInfo, velrelease, velocityAttenuation, GetEngine()->SampleRate, itNoteOnEvent->Param.Note.Velocity); |
TriggerEG2(egInfo, velrelease, velocityAttenuation, GetEngine()->SampleRate, MIDIVelocity()); |
268 |
} |
} |
269 |
|
|
270 |
|
|
323 |
VCFResonanceCtrl.value = pEngineChannel->ControllerTable[VCFResonanceCtrl.controller]; |
VCFResonanceCtrl.value = pEngineChannel->ControllerTable[VCFResonanceCtrl.controller]; |
324 |
|
|
325 |
// calculate cutoff frequency |
// calculate cutoff frequency |
326 |
CutoffBase = CalculateCutoffBase(itNoteOnEvent->Param.Note.Velocity); |
CutoffBase = CalculateCutoffBase(MIDIVelocity()); |
327 |
|
|
328 |
VCFCutoffCtrl.fvalue = CalculateFinalCutoff(CutoffBase); |
VCFCutoffCtrl.fvalue = CalculateFinalCutoff(CutoffBase); |
329 |
|
|
348 |
} |
} |
349 |
|
|
350 |
void AbstractVoice::SetSampleStartOffset() { |
void AbstractVoice::SetSampleStartOffset() { |
351 |
finalSynthesisParameters.dPos = RgnInfo.SampleStartOffset; // offset where we should start playback of sample (0 - 2000 sample points) |
double pos = RgnInfo.SampleStartOffset; // offset where we should start playback of sample |
352 |
Pos = RgnInfo.SampleStartOffset; |
|
353 |
|
// if another sample playback start position was requested by instrument |
354 |
|
// script (built-in script function play_note()) |
355 |
|
if (pNote && pNote->Override.SampleOffset >= 0) { |
356 |
|
double overridePos = |
357 |
|
double(SmplInfo.SampleRate) * double(pNote->Override.SampleOffset) / 1000000.0; |
358 |
|
if (overridePos < SmplInfo.TotalFrameCount) |
359 |
|
pos = overridePos; |
360 |
|
} |
361 |
|
|
362 |
|
finalSynthesisParameters.dPos = pos; |
363 |
|
Pos = pos; |
364 |
} |
} |
365 |
|
|
366 |
/** |
/** |
435 |
} |
} |
436 |
} |
} |
437 |
|
|
438 |
uint killPos; |
uint killPos = 0; |
439 |
if (itKillEvent) { |
if (itKillEvent) { |
440 |
int maxFadeOutPos = Samples - GetEngine()->GetMinFadeOutSamples(); |
int maxFadeOutPos = Samples - GetEngine()->GetMinFadeOutSamples(); |
441 |
if (maxFadeOutPos < 0) { |
if (maxFadeOutPos < 0) { |
471 |
PanLeftSmoother.update(AbstractEngine::PanCurve[128 - pan] * NotePanLeft); |
PanLeftSmoother.update(AbstractEngine::PanCurve[128 - pan] * NotePanLeft); |
472 |
PanRightSmoother.update(AbstractEngine::PanCurve[pan] * NotePanRight); |
PanRightSmoother.update(AbstractEngine::PanCurve[pan] * NotePanRight); |
473 |
|
|
474 |
finalSynthesisParameters.fFinalPitch = Pitch.PitchBase * Pitch.PitchBend * NotePitch; |
finalSynthesisParameters.fFinalPitch = Pitch.PitchBase * Pitch.PitchBend * NotePitch.render(); |
475 |
|
|
476 |
float fFinalVolume = VolumeSmoother.render() * CrossfadeSmoother.render() * NoteVolumeSmoother.render(); |
float fFinalVolume = VolumeSmoother.render() * CrossfadeSmoother.render() * NoteVolume.render(); |
477 |
#ifdef CONFIG_PROCESS_MUTED_CHANNELS |
#ifdef CONFIG_PROCESS_MUTED_CHANNELS |
478 |
if (pChannel->GetMute()) fFinalVolume = 0; |
if (pChannel->GetMute()) fFinalVolume = 0; |
479 |
#endif |
#endif |
659 |
*/ |
*/ |
660 |
void AbstractVoice::processCCEvents(RTList<Event>::Iterator& itEvent, uint End) { |
void AbstractVoice::processCCEvents(RTList<Event>::Iterator& itEvent, uint End) { |
661 |
for (; itEvent && itEvent->FragmentPos() <= End; ++itEvent) { |
for (; itEvent && itEvent->FragmentPos() <= End; ++itEvent) { |
662 |
if (itEvent->Type == Event::type_control_change && itEvent->Param.CC.Controller) { // if (valid) MIDI control change event |
if ((itEvent->Type == Event::type_control_change || itEvent->Type == Event::type_channel_pressure) |
663 |
|
&& itEvent->Param.CC.Controller) // if (valid) MIDI control change event |
664 |
|
{ |
665 |
if (itEvent->Param.CC.Controller == VCFCutoffCtrl.controller) { |
if (itEvent->Param.CC.Controller == VCFCutoffCtrl.controller) { |
666 |
ProcessCutoffEvent(itEvent); |
ProcessCutoffEvent(itEvent); |
667 |
} |
} |
668 |
if (itEvent->Param.CC.Controller == VCFResonanceCtrl.controller) { |
if (itEvent->Param.CC.Controller == VCFResonanceCtrl.controller) { |
669 |
processResonanceEvent(itEvent); |
processResonanceEvent(itEvent); |
670 |
} |
} |
671 |
|
if (itEvent->Param.CC.Controller == CTRL_TABLE_IDX_AFTERTOUCH || |
672 |
|
itEvent->Type == Event::type_channel_pressure) |
673 |
|
{ |
674 |
|
ProcessChannelPressureEvent(itEvent); |
675 |
|
} |
676 |
if (pSignalUnitRack == NULL) { |
if (pSignalUnitRack == NULL) { |
677 |
if (itEvent->Param.CC.Controller == pLFO1->ExtController) { |
if (itEvent->Param.CC.Controller == pLFO1->ExtController) { |
678 |
pLFO1->update(itEvent->Param.CC.Value); |
pLFO1->updateByMIDICtrlValue(itEvent->Param.CC.Value); |
679 |
} |
} |
680 |
if (itEvent->Param.CC.Controller == pLFO2->ExtController) { |
if (itEvent->Param.CC.Controller == pLFO2->ExtController) { |
681 |
pLFO2->update(itEvent->Param.CC.Value); |
pLFO2->updateByMIDICtrlValue(itEvent->Param.CC.Value); |
682 |
} |
} |
683 |
if (itEvent->Param.CC.Controller == pLFO3->ExtController) { |
if (itEvent->Param.CC.Controller == pLFO3->ExtController) { |
684 |
pLFO3->update(itEvent->Param.CC.Value); |
pLFO3->updateByMIDICtrlValue(itEvent->Param.CC.Value); |
685 |
} |
} |
686 |
} |
} |
687 |
if (itEvent->Param.CC.Controller == 7) { // volume |
if (itEvent->Param.CC.Controller == 7) { // volume |
691 |
} |
} |
692 |
} else if (itEvent->Type == Event::type_pitchbend) { // if pitch bend event |
} else if (itEvent->Type == Event::type_pitchbend) { // if pitch bend event |
693 |
processPitchEvent(itEvent); |
processPitchEvent(itEvent); |
|
} else if (itEvent->Type == Event::type_channel_pressure) { |
|
|
ProcessChannelPressureEvent(itEvent); |
|
694 |
} else if (itEvent->Type == Event::type_note_pressure) { |
} else if (itEvent->Type == Event::type_note_pressure) { |
695 |
ProcessPolyphonicKeyPressureEvent(itEvent); |
ProcessPolyphonicKeyPressureEvent(itEvent); |
696 |
} |
} |
727 |
for (; itEvent && itEvent->FragmentPos() <= End; ++itEvent) { |
for (; itEvent && itEvent->FragmentPos() <= End; ++itEvent) { |
728 |
// some voice types ignore note off |
// some voice types ignore note off |
729 |
if (!(Type & (Voice::type_one_shot | Voice::type_release_trigger | Voice::type_controller_triggered))) { |
if (!(Type & (Voice::type_one_shot | Voice::type_release_trigger | Voice::type_controller_triggered))) { |
730 |
if (itEvent->Type == Event::type_release) { |
if (itEvent->Type == Event::type_release_key) { |
731 |
EnterReleaseStage(); |
EnterReleaseStage(); |
732 |
} else if (itEvent->Type == Event::type_cancel_release) { |
} else if (itEvent->Type == Event::type_cancel_release_key) { |
733 |
if (pSignalUnitRack == NULL) { |
if (pSignalUnitRack == NULL) { |
734 |
pEG1->update(EG::event_cancel_release, GetEngine()->SampleRate / CONFIG_DEFAULT_SUBFRAGMENT_SIZE); |
pEG1->update(EG::event_cancel_release, GetEngine()->SampleRate / CONFIG_DEFAULT_SUBFRAGMENT_SIZE); |
735 |
pEG2->update(EG::event_cancel_release, GetEngine()->SampleRate / CONFIG_DEFAULT_SUBFRAGMENT_SIZE); |
pEG2->update(EG::event_cancel_release, GetEngine()->SampleRate / CONFIG_DEFAULT_SUBFRAGMENT_SIZE); |
738 |
} |
} |
739 |
} |
} |
740 |
} |
} |
741 |
|
// process stop-note events (caused by built-in instrument script function note_off()) |
742 |
|
if (itEvent->Type == Event::type_release_note && pNote && |
743 |
|
pEngineChannel->pEngine->NoteByID( itEvent->Param.Note.ID ) == pNote) |
744 |
|
{ |
745 |
|
EnterReleaseStage(); |
746 |
|
} |
747 |
|
// process kill-note events (caused by built-in instrument script function fade_out()) |
748 |
|
if (itEvent->Type == Event::type_kill_note && pNote && |
749 |
|
pEngineChannel->pEngine->NoteByID( itEvent->Param.Note.ID ) == pNote) |
750 |
|
{ |
751 |
|
Kill(itEvent); |
752 |
|
} |
753 |
// process synthesis parameter events (caused by built-in realt-time instrument script functions) |
// process synthesis parameter events (caused by built-in realt-time instrument script functions) |
754 |
if (itEvent->Type == Event::type_note_synth_param && pNote && |
if (itEvent->Type == Event::type_note_synth_param && pNote && |
755 |
pEngineChannel->pEngine->NoteByID( itEvent->Param.NoteSynthParam.NoteID ) == pNote) |
pEngineChannel->pEngine->NoteByID( itEvent->Param.NoteSynthParam.NoteID ) == pNote) |
756 |
{ |
{ |
757 |
switch (itEvent->Param.NoteSynthParam.Type) { |
switch (itEvent->Param.NoteSynthParam.Type) { |
758 |
case Event::synth_param_volume: |
case Event::synth_param_volume: |
759 |
NoteVolumeSmoother.update(itEvent->Param.NoteSynthParam.AbsValue); |
NoteVolume.fadeTo(itEvent->Param.NoteSynthParam.AbsValue, GetEngine()->SampleRate / CONFIG_DEFAULT_SUBFRAGMENT_SIZE); |
760 |
|
break; |
761 |
|
case Event::synth_param_volume_time: |
762 |
|
NoteVolume.setDefaultDuration(itEvent->Param.NoteSynthParam.AbsValue); |
763 |
|
break; |
764 |
|
case Event::synth_param_volume_curve: |
765 |
|
NoteVolume.setCurve((fade_curve_t)itEvent->Param.NoteSynthParam.AbsValue, GetEngine()->SampleRate / CONFIG_DEFAULT_SUBFRAGMENT_SIZE); |
766 |
break; |
break; |
767 |
case Event::synth_param_pitch: |
case Event::synth_param_pitch: |
768 |
NotePitch = itEvent->Param.NoteSynthParam.AbsValue; |
NotePitch.fadeTo(itEvent->Param.NoteSynthParam.AbsValue, GetEngine()->SampleRate / CONFIG_DEFAULT_SUBFRAGMENT_SIZE); |
769 |
|
break; |
770 |
|
case Event::synth_param_pitch_time: |
771 |
|
NotePitch.setDefaultDuration(itEvent->Param.NoteSynthParam.AbsValue); |
772 |
|
break; |
773 |
|
case Event::synth_param_pitch_curve: |
774 |
|
NotePitch.setCurve((fade_curve_t)itEvent->Param.NoteSynthParam.AbsValue, GetEngine()->SampleRate / CONFIG_DEFAULT_SUBFRAGMENT_SIZE); |
775 |
break; |
break; |
776 |
case Event::synth_param_pan: |
case Event::synth_param_pan: |
777 |
NotePanLeft = AbstractEngine::PanCurveValueNorm(itEvent->Param.NoteSynthParam.AbsValue, 0 /*left*/); |
NotePanLeft = AbstractEngine::PanCurveValueNorm(itEvent->Param.NoteSynthParam.AbsValue, 0 /*left*/); |
783 |
case Event::synth_param_resonance: |
case Event::synth_param_resonance: |
784 |
NoteResonance = itEvent->Param.NoteSynthParam.AbsValue; |
NoteResonance = itEvent->Param.NoteSynthParam.AbsValue; |
785 |
break; |
break; |
786 |
|
case Event::synth_param_amp_lfo_depth: |
787 |
|
pLFO1->setScriptDepthFactor(itEvent->Param.NoteSynthParam.AbsValue); |
788 |
|
break; |
789 |
|
case Event::synth_param_amp_lfo_freq: |
790 |
|
pLFO1->setScriptFrequencyFactor(itEvent->Param.NoteSynthParam.AbsValue, GetEngine()->SampleRate / CONFIG_DEFAULT_SUBFRAGMENT_SIZE); |
791 |
|
break; |
792 |
|
case Event::synth_param_pitch_lfo_depth: |
793 |
|
pLFO3->setScriptDepthFactor(itEvent->Param.NoteSynthParam.AbsValue); |
794 |
|
break; |
795 |
|
case Event::synth_param_pitch_lfo_freq: |
796 |
|
pLFO3->setScriptFrequencyFactor(itEvent->Param.NoteSynthParam.AbsValue, GetEngine()->SampleRate / CONFIG_DEFAULT_SUBFRAGMENT_SIZE); |
797 |
|
break; |
798 |
|
|
799 |
|
case Event::synth_param_attack: |
800 |
|
case Event::synth_param_decay: |
801 |
|
case Event::synth_param_release: |
802 |
|
break; // noop |
803 |
} |
} |
804 |
} |
} |
805 |
} |
} |