1484 |
pChannel->PortamentoTime = (float) itControlChangeEvent->Param.CC.Value / 127.0f * (float) CONFIG_PORTAMENTO_TIME_MAX + (float) CONFIG_PORTAMENTO_TIME_MIN; |
pChannel->PortamentoTime = (float) itControlChangeEvent->Param.CC.Value / 127.0f * (float) CONFIG_PORTAMENTO_TIME_MAX + (float) CONFIG_PORTAMENTO_TIME_MIN; |
1485 |
break; |
break; |
1486 |
} |
} |
1487 |
case 6: { // data entry (currently only used for RPN and NRPN controllers) |
case 6: { // data entry (currently only used for RPN and NRPN parameters) |
1488 |
//dmsg(1,("DATA ENTRY %d\n", itControlChangeEvent->Param.CC.Value)); |
//dmsg(1,("DATA ENTRY %d\n", itControlChangeEvent->Param.CC.Value)); |
1489 |
if (pChannel->GetMidiRpnController() >= 0) { // RPN controller number was sent previously ... |
if (pChannel->GetMidiRpnParameter() >= 0) { // RPN parameter number was sent previously ... |
1490 |
dmsg(4,("Guess it's an RPN ...\n")); |
dmsg(4,("Guess it's an RPN ...\n")); |
1491 |
if (pChannel->GetMidiRpnController() == 2) { // coarse tuning in half tones |
if (pChannel->GetMidiRpnParameter() == 2) { // coarse tuning in half tones |
1492 |
int transpose = (int) itControlChangeEvent->Param.CC.Value - 64; |
int transpose = (int) itControlChangeEvent->Param.CC.Value - 64; |
1493 |
// limit to +- two octaves for now |
// limit to +- two octaves for now |
1494 |
transpose = RTMath::Min(transpose, 24); |
transpose = RTMath::Min(transpose, 24); |
1497 |
// workaround, so we won't have hanging notes |
// workaround, so we won't have hanging notes |
1498 |
pChannel->ReleaseAllVoices(itControlChangeEvent); |
pChannel->ReleaseAllVoices(itControlChangeEvent); |
1499 |
} |
} |
1500 |
// to prevent other MIDI CC #6 messages to be misenterpreted as RPN controller data |
// to prevent other MIDI CC #6 messages to be misenterpreted as RPN value |
1501 |
pChannel->ResetMidiRpnController(); |
pChannel->ResetMidiRpnParameter(); |
1502 |
} else if (pChannel->GetMidiNrpnController() >= 0) { // NRPN controller number was sent previously ... |
} else if (pChannel->GetMidiNrpnParameter() >= 0) { // NRPN parameter number was sent previously ... |
1503 |
dmsg(4,("Guess it's an NRPN ...\n")); |
dmsg(4,("Guess it's an NRPN ...\n")); |
1504 |
const int NrpnCtrlMSB = pChannel->GetMidiNrpnController() >> 8; |
const int NrpnMSB = pChannel->GetMidiNrpnParameter() >> 7; |
1505 |
const int NrpnCtrlLSB = pChannel->GetMidiNrpnController() & 0xff; |
const int NrpnLSB = pChannel->GetMidiNrpnParameter() & 127; |
1506 |
dmsg(4,("NRPN MSB=%d LSB=%d Data=%d\n", NrpnCtrlMSB, NrpnCtrlLSB, itControlChangeEvent->Param.CC.Value)); |
dmsg(4,("NRPN MSB=%d LSB=%d Data=%d\n", NrpnMSB, NrpnLSB, itControlChangeEvent->Param.CC.Value)); |
1507 |
switch (NrpnCtrlMSB) { |
switch (NrpnMSB) { |
1508 |
case 0x1a: { // volume level of note (Roland GS NRPN) |
case 0x1a: { // volume level of note (Roland GS NRPN) |
1509 |
const uint note = NrpnCtrlLSB; |
const uint note = NrpnLSB; |
1510 |
const uint vol = itControlChangeEvent->Param.CC.Value; |
const uint vol = itControlChangeEvent->Param.CC.Value; |
1511 |
dmsg(4,("Note Volume NRPN received (note=%d,vol=%d).\n", note, vol)); |
dmsg(4,("Note Volume NRPN received (note=%d,vol=%d).\n", note, vol)); |
1512 |
if (note < 128 && vol < 128) |
if (note < 128 && vol < 128) |
1514 |
break; |
break; |
1515 |
} |
} |
1516 |
case 0x1c: { // panpot of note (Roland GS NRPN) |
case 0x1c: { // panpot of note (Roland GS NRPN) |
1517 |
const uint note = NrpnCtrlLSB; |
const uint note = NrpnLSB; |
1518 |
const uint pan = itControlChangeEvent->Param.CC.Value; |
const uint pan = itControlChangeEvent->Param.CC.Value; |
1519 |
dmsg(4,("Note Pan NRPN received (note=%d,pan=%d).\n", note, pan)); |
dmsg(4,("Note Pan NRPN received (note=%d,pan=%d).\n", note, pan)); |
1520 |
if (note < 128 && pan < 128) { |
if (note < 128 && pan < 128) { |
1524 |
break; |
break; |
1525 |
} |
} |
1526 |
case 0x1d: { // reverb send of note (Roland GS NRPN) |
case 0x1d: { // reverb send of note (Roland GS NRPN) |
1527 |
const uint note = NrpnCtrlLSB; |
const uint note = NrpnLSB; |
1528 |
const float reverb = float(itControlChangeEvent->Param.CC.Value) / 127.0f; |
const float reverb = float(itControlChangeEvent->Param.CC.Value) / 127.0f; |
1529 |
dmsg(4,("Note Reverb Send NRPN received (note=%d,send=%f).\n", note, reverb)); |
dmsg(4,("Note Reverb Send NRPN received (note=%d,send=%f).\n", note, reverb)); |
1530 |
if (note < 128) |
if (note < 128) |
1532 |
break; |
break; |
1533 |
} |
} |
1534 |
case 0x1e: { // chorus send of note (Roland GS NRPN) |
case 0x1e: { // chorus send of note (Roland GS NRPN) |
1535 |
const uint note = NrpnCtrlLSB; |
const uint note = NrpnLSB; |
1536 |
const float chorus = float(itControlChangeEvent->Param.CC.Value) / 127.0f; |
const float chorus = float(itControlChangeEvent->Param.CC.Value) / 127.0f; |
1537 |
dmsg(4,("Note Chorus Send NRPN received (note=%d,send=%f).\n", note, chorus)); |
dmsg(4,("Note Chorus Send NRPN received (note=%d,send=%f).\n", note, chorus)); |
1538 |
if (note < 128) |
if (note < 128) |
1540 |
break; |
break; |
1541 |
} |
} |
1542 |
} |
} |
1543 |
// to prevent other MIDI CC #6 messages to be misenterpreted as NRPN controller data |
// to prevent other MIDI CC #6 messages to be misenterpreted as NRPN value |
1544 |
pChannel->ResetMidiNrpnController(); |
pChannel->ResetMidiNrpnParameter(); |
1545 |
} |
} |
1546 |
break; |
break; |
1547 |
} |
} |
1629 |
} |
} |
1630 |
break; |
break; |
1631 |
} |
} |
1632 |
case 98: { // NRPN controller LSB |
case 98: { // NRPN parameter LSB |
1633 |
dmsg(4,("NRPN LSB %d\n", itControlChangeEvent->Param.CC.Value)); |
dmsg(4,("NRPN LSB %d\n", itControlChangeEvent->Param.CC.Value)); |
1634 |
pEngineChannel->SetMidiNrpnControllerLsb(itControlChangeEvent->Param.CC.Value); |
pEngineChannel->SetMidiNrpnParameterLsb(itControlChangeEvent->Param.CC.Value); |
1635 |
break; |
break; |
1636 |
} |
} |
1637 |
case 99: { // NRPN controller MSB |
case 99: { // NRPN parameter MSB |
1638 |
dmsg(4,("NRPN MSB %d\n", itControlChangeEvent->Param.CC.Value)); |
dmsg(4,("NRPN MSB %d\n", itControlChangeEvent->Param.CC.Value)); |
1639 |
pEngineChannel->SetMidiNrpnControllerMsb(itControlChangeEvent->Param.CC.Value); |
pEngineChannel->SetMidiNrpnParameterMsb(itControlChangeEvent->Param.CC.Value); |
1640 |
break; |
break; |
1641 |
} |
} |
1642 |
case 100: { // RPN controller LSB |
case 100: { // RPN parameter LSB |
1643 |
dmsg(4,("RPN LSB %d\n", itControlChangeEvent->Param.CC.Value)); |
dmsg(4,("RPN LSB %d\n", itControlChangeEvent->Param.CC.Value)); |
1644 |
pEngineChannel->SetMidiRpnControllerLsb(itControlChangeEvent->Param.CC.Value); |
pEngineChannel->SetMidiRpnParameterLsb(itControlChangeEvent->Param.CC.Value); |
1645 |
break; |
break; |
1646 |
} |
} |
1647 |
case 101: { // RPN controller MSB |
case 101: { // RPN parameter MSB |
1648 |
dmsg(4,("RPN MSB %d\n", itControlChangeEvent->Param.CC.Value)); |
dmsg(4,("RPN MSB %d\n", itControlChangeEvent->Param.CC.Value)); |
1649 |
pEngineChannel->SetMidiRpnControllerMsb(itControlChangeEvent->Param.CC.Value); |
pEngineChannel->SetMidiRpnParameterMsb(itControlChangeEvent->Param.CC.Value); |
1650 |
break; |
break; |
1651 |
} |
} |
1652 |
|
|
2028 |
NoteBase* pNote = pChannel->pEngine->NoteByID( itEvent->Param.NoteSynthParam.NoteID ); |
NoteBase* pNote = pChannel->pEngine->NoteByID( itEvent->Param.NoteSynthParam.NoteID ); |
2029 |
if (!pNote || pNote->hostKey < 0 || pNote->hostKey >= 128) return; |
if (!pNote || pNote->hostKey < 0 || pNote->hostKey >= 128) return; |
2030 |
|
|
|
const bool& relative = itEvent->Param.NoteSynthParam.Relative; |
|
|
|
|
2031 |
switch (itEvent->Param.NoteSynthParam.Type) { |
switch (itEvent->Param.NoteSynthParam.Type) { |
2032 |
case Event::synth_param_volume: |
case Event::synth_param_volume: |
2033 |
if (relative) |
pNote->apply(itEvent, &NoteBase::_Override::Volume); |
|
pNote->Override.Volume *= itEvent->Param.NoteSynthParam.Delta; |
|
|
else |
|
|
pNote->Override.Volume = itEvent->Param.NoteSynthParam.Delta; |
|
|
itEvent->Param.NoteSynthParam.AbsValue = pNote->Override.Volume; |
|
2034 |
break; |
break; |
2035 |
case Event::synth_param_volume_time: |
case Event::synth_param_volume_time: |
2036 |
pNote->Override.VolumeTime = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->Override.VolumeTime = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
2040 |
pNote->Override.VolumeCurve = (fade_curve_t) itEvent->Param.NoteSynthParam.AbsValue; |
pNote->Override.VolumeCurve = (fade_curve_t) itEvent->Param.NoteSynthParam.AbsValue; |
2041 |
break; |
break; |
2042 |
case Event::synth_param_pitch: |
case Event::synth_param_pitch: |
2043 |
if (relative) |
pNote->apply(itEvent, &NoteBase::_Override::Pitch); |
|
pNote->Override.Pitch *= itEvent->Param.NoteSynthParam.Delta; |
|
|
else |
|
|
pNote->Override.Pitch = itEvent->Param.NoteSynthParam.Delta; |
|
|
itEvent->Param.NoteSynthParam.AbsValue = pNote->Override.Pitch; |
|
2044 |
break; |
break; |
2045 |
case Event::synth_param_pitch_time: |
case Event::synth_param_pitch_time: |
2046 |
pNote->Override.PitchTime = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->Override.PitchTime = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
2050 |
pNote->Override.PitchCurve = (fade_curve_t) itEvent->Param.NoteSynthParam.AbsValue; |
pNote->Override.PitchCurve = (fade_curve_t) itEvent->Param.NoteSynthParam.AbsValue; |
2051 |
break; |
break; |
2052 |
case Event::synth_param_pan: |
case Event::synth_param_pan: |
2053 |
if (relative) { |
pNote->apply(itEvent, &NoteBase::_Override::Pan); |
|
pNote->Override.Pan = RTMath::RelativeSummedAvg(pNote->Override.Pan, itEvent->Param.NoteSynthParam.Delta, ++pNote->Override.PanSources); |
|
|
} else { |
|
|
pNote->Override.Pan = itEvent->Param.NoteSynthParam.Delta; |
|
|
pNote->Override.PanSources = 1; // only relevant on subsequent change_pan() instrument script calls on same note with 'relative' argument being set |
|
|
} |
|
|
itEvent->Param.NoteSynthParam.AbsValue = pNote->Override.Pan; |
|
2054 |
break; |
break; |
2055 |
case Event::synth_param_pan_time: |
case Event::synth_param_pan_time: |
2056 |
pNote->Override.PanTime = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->Override.PanTime = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
2060 |
pNote->Override.PanCurve = (fade_curve_t) itEvent->Param.NoteSynthParam.AbsValue; |
pNote->Override.PanCurve = (fade_curve_t) itEvent->Param.NoteSynthParam.AbsValue; |
2061 |
break; |
break; |
2062 |
case Event::synth_param_cutoff: |
case Event::synth_param_cutoff: |
2063 |
pNote->Override.Cutoff = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::Cutoff); |
2064 |
break; |
break; |
2065 |
case Event::synth_param_resonance: |
case Event::synth_param_resonance: |
2066 |
pNote->Override.Resonance = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::Resonance); |
2067 |
break; |
break; |
2068 |
case Event::synth_param_attack: |
case Event::synth_param_attack: |
2069 |
pNote->Override.Attack = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::Attack); |
2070 |
break; |
break; |
2071 |
case Event::synth_param_decay: |
case Event::synth_param_decay: |
2072 |
pNote->Override.Decay = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::Decay); |
2073 |
break; |
break; |
2074 |
case Event::synth_param_sustain: |
case Event::synth_param_sustain: |
2075 |
pNote->Override.Sustain = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::Sustain); |
2076 |
break; |
break; |
2077 |
case Event::synth_param_release: |
case Event::synth_param_release: |
2078 |
pNote->Override.Release = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::Release); |
2079 |
break; |
break; |
2080 |
|
|
2081 |
case Event::synth_param_cutoff_attack: |
case Event::synth_param_cutoff_attack: |
2082 |
pNote->Override.CutoffAttack = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::CutoffAttack); |
2083 |
break; |
break; |
2084 |
case Event::synth_param_cutoff_decay: |
case Event::synth_param_cutoff_decay: |
2085 |
pNote->Override.CutoffDecay = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::CutoffDecay); |
2086 |
break; |
break; |
2087 |
case Event::synth_param_cutoff_sustain: |
case Event::synth_param_cutoff_sustain: |
2088 |
pNote->Override.CutoffSustain = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::CutoffSustain); |
2089 |
break; |
break; |
2090 |
case Event::synth_param_cutoff_release: |
case Event::synth_param_cutoff_release: |
2091 |
pNote->Override.CutoffRelease = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::CutoffRelease); |
2092 |
break; |
break; |
2093 |
|
|
2094 |
case Event::synth_param_amp_lfo_depth: |
case Event::synth_param_amp_lfo_depth: |
2095 |
pNote->Override.AmpLFODepth = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::AmpLFODepth); |
2096 |
break; |
break; |
2097 |
case Event::synth_param_amp_lfo_freq: |
case Event::synth_param_amp_lfo_freq: |
2098 |
pNote->Override.AmpLFOFreq = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::AmpLFOFreq); |
2099 |
break; |
break; |
2100 |
case Event::synth_param_cutoff_lfo_depth: |
case Event::synth_param_cutoff_lfo_depth: |
2101 |
pNote->Override.CutoffLFODepth = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::CutoffLFODepth); |
2102 |
break; |
break; |
2103 |
case Event::synth_param_cutoff_lfo_freq: |
case Event::synth_param_cutoff_lfo_freq: |
2104 |
pNote->Override.CutoffLFOFreq = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::CutoffLFOFreq); |
2105 |
break; |
break; |
2106 |
case Event::synth_param_pitch_lfo_depth: |
case Event::synth_param_pitch_lfo_depth: |
2107 |
pNote->Override.PitchLFODepth = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::PitchLFODepth); |
2108 |
break; |
break; |
2109 |
case Event::synth_param_pitch_lfo_freq: |
case Event::synth_param_pitch_lfo_freq: |
2110 |
pNote->Override.PitchLFOFreq = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::PitchLFOFreq); |
2111 |
break; |
break; |
2112 |
} |
} |
2113 |
|
|