885 |
RTList<Event>::Iterator itEvent = pChannel->pEvents->first(); |
RTList<Event>::Iterator itEvent = pChannel->pEvents->first(); |
886 |
RTList<Event>::Iterator end = pChannel->pEvents->end(); |
RTList<Event>::Iterator end = pChannel->pEvents->end(); |
887 |
for (; itEvent != end; ++itEvent) { |
for (; itEvent != end; ++itEvent) { |
888 |
|
bool bIsCC = false; // just for resetting RPN/NRPN below |
889 |
switch (itEvent->Type) { |
switch (itEvent->Type) { |
890 |
case Event::type_note_on: |
case Event::type_note_on: |
891 |
dmsg(5,("Engine: Note on received\n")); |
dmsg(5,("Engine: Note on received\n")); |
910 |
case Event::type_control_change: |
case Event::type_control_change: |
911 |
dmsg(5,("Engine: MIDI CC received\n")); |
dmsg(5,("Engine: MIDI CC received\n")); |
912 |
ProcessControlChange((EngineChannel*)itEvent->pEngineChannel, itEvent); |
ProcessControlChange((EngineChannel*)itEvent->pEngineChannel, itEvent); |
913 |
|
bIsCC = true; |
914 |
|
break; |
915 |
|
case Event::type_rpn: // this can only be reached here by an instrument script having called set_rpn() |
916 |
|
dmsg(5,("Engine: MIDI RPN received\n")); |
917 |
|
ProcessHardcodedRpn((EngineChannel*)itEvent->pEngineChannel, itEvent); |
918 |
|
bIsCC = true; |
919 |
|
break; |
920 |
|
case Event::type_nrpn: // this can only be reached here by an instrument script having called set_nrpn() |
921 |
|
dmsg(5,("Engine: MIDI NRPN received\n")); |
922 |
|
ProcessHardcodedNrpn((EngineChannel*)itEvent->pEngineChannel, itEvent); |
923 |
|
bIsCC = true; |
924 |
break; |
break; |
925 |
case Event::type_channel_pressure: |
case Event::type_channel_pressure: |
926 |
dmsg(5,("Engine: MIDI Chan. Pressure received\n")); |
dmsg(5,("Engine: MIDI Chan. Pressure received\n")); |
946 |
case Event::type_release_note: |
case Event::type_release_note: |
947 |
break; // noop |
break; // noop |
948 |
} |
} |
949 |
|
// reset cached RPN/NRPN parameter number and data in |
950 |
|
// case this event was not a control change event |
951 |
|
if (!bIsCC) { |
952 |
|
if (pChannel->GetMidiRpnParameter() >= 0) |
953 |
|
pChannel->ResetMidiRpnParameter(); |
954 |
|
if (pChannel->GetMidiNrpnParameter() >= 0) |
955 |
|
pChannel->ResetMidiNrpnParameter(); |
956 |
|
} |
957 |
} |
} |
958 |
} |
} |
959 |
|
|
1499 |
EngineChannelBase<V, R, I>* pChannel = |
EngineChannelBase<V, R, I>* pChannel = |
1500 |
static_cast<EngineChannelBase<V, R, I>*>(pEngineChannel); |
static_cast<EngineChannelBase<V, R, I>*>(pEngineChannel); |
1501 |
|
|
1502 |
|
// will be set to true if this CC event has anything to do with RPN/NRPN |
1503 |
|
bool bIsRpn = false, bIsNrpn = false; |
1504 |
|
|
1505 |
switch (itControlChangeEvent->Param.CC.Controller) { |
switch (itControlChangeEvent->Param.CC.Controller) { |
1506 |
case 5: { // portamento time |
case 5: { // portamento time |
1507 |
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; |
1508 |
break; |
break; |
1509 |
} |
} |
1510 |
case 6: { // data entry (currently only used for RPN and NRPN controllers) |
case 6: { // data entry (MSB) |
1511 |
//dmsg(1,("DATA ENTRY %d\n", itControlChangeEvent->Param.CC.Value)); |
//dmsg(1,("DATA ENTRY MSB %d\n", itControlChangeEvent->Param.CC.Value)); |
1512 |
if (pChannel->GetMidiRpnController() >= 0) { // RPN controller number was sent previously ... |
if (pChannel->GetMidiRpnParameter() >= 0) { // RPN parameter number was sent previously ... |
1513 |
dmsg(4,("Guess it's an RPN ...\n")); |
pChannel->SetMidiRpnDataMsb( |
1514 |
if (pChannel->GetMidiRpnController() == 2) { // coarse tuning in half tones |
itControlChangeEvent->Param.CC.Value |
1515 |
int transpose = (int) itControlChangeEvent->Param.CC.Value - 64; |
); |
1516 |
// limit to +- two octaves for now |
bIsRpn = true; |
1517 |
transpose = RTMath::Min(transpose, 24); |
|
1518 |
transpose = RTMath::Max(transpose, -24); |
// look-ahead: if next MIDI event is data entry LSB, |
1519 |
pChannel->GlobalTranspose = transpose; |
// then skip this event here for now (to avoid double |
1520 |
// workaround, so we won't have hanging notes |
// handling of what's supposed to be one RPN event) |
1521 |
pChannel->ReleaseAllVoices(itControlChangeEvent); |
if (isNextEventCCNr(itControlChangeEvent, 38)) |
1522 |
} |
break; |
1523 |
// to prevent other MIDI CC #6 messages to be misenterpreted as RPN controller data |
|
1524 |
pChannel->ResetMidiRpnController(); |
int ch = itControlChangeEvent->Param.CC.Channel; |
1525 |
} else if (pChannel->GetMidiNrpnController() >= 0) { // NRPN controller number was sent previously ... |
int param = pChannel->GetMidiRpnParameter(); |
1526 |
dmsg(4,("Guess it's an NRPN ...\n")); |
int value = pChannel->GetMidiRpnData(); |
1527 |
const int NrpnCtrlMSB = pChannel->GetMidiNrpnController() >> 8; |
|
1528 |
const int NrpnCtrlLSB = pChannel->GetMidiNrpnController() & 0xff; |
// transform event type: CC event -> RPN event |
1529 |
dmsg(4,("NRPN MSB=%d LSB=%d Data=%d\n", NrpnCtrlMSB, NrpnCtrlLSB, itControlChangeEvent->Param.CC.Value)); |
itControlChangeEvent->Type = Event::type_rpn; |
1530 |
switch (NrpnCtrlMSB) { |
itControlChangeEvent->Param.RPN.Channel = ch; |
1531 |
case 0x1a: { // volume level of note (Roland GS NRPN) |
itControlChangeEvent->Param.RPN.Parameter = param; |
1532 |
const uint note = NrpnCtrlLSB; |
itControlChangeEvent->Param.RPN.Value = value; |
1533 |
const uint vol = itControlChangeEvent->Param.CC.Value; |
|
1534 |
dmsg(4,("Note Volume NRPN received (note=%d,vol=%d).\n", note, vol)); |
// if there's a RPN script handler, run it ... |
1535 |
if (note < 128 && vol < 128) |
if (pChannel->pScript->handlerRpn) { |
1536 |
pChannel->pMIDIKeyInfo[note].Volume = VolumeCurve[vol]; |
const event_id_t eventID = |
1537 |
break; |
pEventPool->getID(itControlChangeEvent); |
1538 |
} |
// run the RPN script handler |
1539 |
case 0x1c: { // panpot of note (Roland GS NRPN) |
ProcessEventByScript( |
1540 |
const uint note = NrpnCtrlLSB; |
pChannel, itControlChangeEvent, |
1541 |
const uint pan = itControlChangeEvent->Param.CC.Value; |
pChannel->pScript->handlerRpn |
1542 |
dmsg(4,("Note Pan NRPN received (note=%d,pan=%d).\n", note, pan)); |
); |
1543 |
if (note < 128 && pan < 128) { |
// if RPN event was dropped by script, abort |
1544 |
pChannel->pMIDIKeyInfo[note].PanLeft = PanCurve[128 - pan]; |
// here to avoid hard coded RPN processing below |
1545 |
pChannel->pMIDIKeyInfo[note].PanRight = PanCurve[pan]; |
if (!pEventPool->fromID(eventID)) |
|
} |
|
|
break; |
|
|
} |
|
|
case 0x1d: { // reverb send of note (Roland GS NRPN) |
|
|
const uint note = NrpnCtrlLSB; |
|
|
const float reverb = float(itControlChangeEvent->Param.CC.Value) / 127.0f; |
|
|
dmsg(4,("Note Reverb Send NRPN received (note=%d,send=%f).\n", note, reverb)); |
|
|
if (note < 128) |
|
|
pChannel->pMIDIKeyInfo[note].ReverbSend = reverb; |
|
1546 |
break; |
break; |
1547 |
} |
} |
1548 |
case 0x1e: { // chorus send of note (Roland GS NRPN) |
|
1549 |
const uint note = NrpnCtrlLSB; |
// do the actual (hard-coded) RPN value change processing |
1550 |
const float chorus = float(itControlChangeEvent->Param.CC.Value) / 127.0f; |
ProcessHardcodedRpn(pEngineChannel, itControlChangeEvent); |
1551 |
dmsg(4,("Note Chorus Send NRPN received (note=%d,send=%f).\n", note, chorus)); |
|
1552 |
if (note < 128) |
} else if (pChannel->GetMidiNrpnParameter() >= 0) { // NRPN parameter number was sent previously ... |
1553 |
pChannel->pMIDIKeyInfo[note].ChorusSend = chorus; |
pChannel->SetMidiNrpnDataMsb( |
1554 |
|
itControlChangeEvent->Param.CC.Value |
1555 |
|
); |
1556 |
|
bIsNrpn = true; |
1557 |
|
|
1558 |
|
// look-ahead: if next MIDI event is data entry LSB, |
1559 |
|
// then skip this event here for now (to avoid double |
1560 |
|
// handling of what's supposed to be one NRPN event) |
1561 |
|
if (isNextEventCCNr(itControlChangeEvent, 38)) |
1562 |
|
break; |
1563 |
|
|
1564 |
|
int ch = itControlChangeEvent->Param.CC.Channel; |
1565 |
|
int param = pChannel->GetMidiNrpnParameter(); |
1566 |
|
int value = pChannel->GetMidiNrpnData(); |
1567 |
|
|
1568 |
|
// transform event type: CC event -> NRPN event |
1569 |
|
itControlChangeEvent->Type = Event::type_nrpn; |
1570 |
|
itControlChangeEvent->Param.NRPN.Channel = ch; |
1571 |
|
itControlChangeEvent->Param.NRPN.Parameter = param; |
1572 |
|
itControlChangeEvent->Param.NRPN.Value = value; |
1573 |
|
|
1574 |
|
// if there's a NRPN script handler, run it ... |
1575 |
|
if (pChannel->pScript->handlerNrpn) { |
1576 |
|
const event_id_t eventID = |
1577 |
|
pEventPool->getID(itControlChangeEvent); |
1578 |
|
// run the NRPN script handler |
1579 |
|
ProcessEventByScript( |
1580 |
|
pChannel, itControlChangeEvent, |
1581 |
|
pChannel->pScript->handlerNrpn |
1582 |
|
); |
1583 |
|
// if NRPN event was dropped by script, abort |
1584 |
|
// here to avoid hard coded NRPN processing below |
1585 |
|
if (!pEventPool->fromID(eventID)) |
1586 |
break; |
break; |
|
} |
|
1587 |
} |
} |
1588 |
// to prevent other MIDI CC #6 messages to be misenterpreted as NRPN controller data |
|
1589 |
pChannel->ResetMidiNrpnController(); |
// do the actual (hard-coded) NRPN value change processing |
1590 |
|
ProcessHardcodedNrpn(pEngineChannel, itControlChangeEvent); |
1591 |
} |
} |
1592 |
break; |
break; |
1593 |
} |
} |
1602 |
pChannel->iLastPanRequest = itControlChangeEvent->Param.CC.Value; |
pChannel->iLastPanRequest = itControlChangeEvent->Param.CC.Value; |
1603 |
break; |
break; |
1604 |
} |
} |
1605 |
|
case 38: { // data entry (LSB) |
1606 |
|
//dmsg(1,("DATA ENTRY LSB %d\n", itControlChangeEvent->Param.CC.Value)); |
1607 |
|
if (pChannel->GetMidiRpnParameter() >= 0) { // RPN parameter number was sent previously ... |
1608 |
|
pChannel->SetMidiRpnDataLsb( |
1609 |
|
itControlChangeEvent->Param.CC.Value |
1610 |
|
); |
1611 |
|
bIsRpn = true; |
1612 |
|
|
1613 |
|
int ch = itControlChangeEvent->Param.CC.Channel; |
1614 |
|
int param = pChannel->GetMidiRpnParameter(); |
1615 |
|
int value = pChannel->GetMidiRpnData(); |
1616 |
|
|
1617 |
|
// transform event type: CC event -> RPN event |
1618 |
|
itControlChangeEvent->Type = Event::type_rpn; |
1619 |
|
itControlChangeEvent->Param.RPN.Channel = ch; |
1620 |
|
itControlChangeEvent->Param.RPN.Parameter = param; |
1621 |
|
itControlChangeEvent->Param.RPN.Value = value; |
1622 |
|
|
1623 |
|
// if there's a RPN script handler, run it ... |
1624 |
|
if (pChannel->pScript->handlerRpn) { |
1625 |
|
const event_id_t eventID = |
1626 |
|
pEventPool->getID(itControlChangeEvent); |
1627 |
|
// run the RPN script handler |
1628 |
|
ProcessEventByScript( |
1629 |
|
pChannel, itControlChangeEvent, |
1630 |
|
pChannel->pScript->handlerRpn |
1631 |
|
); |
1632 |
|
// if RPN event was dropped by script, abort |
1633 |
|
// here to avoid hard coded RPN processing below |
1634 |
|
if (!pEventPool->fromID(eventID)) |
1635 |
|
break; |
1636 |
|
} |
1637 |
|
|
1638 |
|
// do the actual (hard-coded) RPN value change processing |
1639 |
|
ProcessHardcodedRpn(pEngineChannel, itControlChangeEvent); |
1640 |
|
|
1641 |
|
} else if (pChannel->GetMidiNrpnParameter() >= 0) { // NRPN parameter number was sent previously ... |
1642 |
|
pChannel->SetMidiNrpnDataLsb( |
1643 |
|
itControlChangeEvent->Param.CC.Value |
1644 |
|
); |
1645 |
|
bIsNrpn = true; |
1646 |
|
|
1647 |
|
int ch = itControlChangeEvent->Param.CC.Channel; |
1648 |
|
int param = pChannel->GetMidiNrpnParameter(); |
1649 |
|
int value = pChannel->GetMidiNrpnData(); |
1650 |
|
|
1651 |
|
// transform event type: CC event -> NRPN event |
1652 |
|
itControlChangeEvent->Type = Event::type_nrpn; |
1653 |
|
itControlChangeEvent->Param.NRPN.Channel = ch; |
1654 |
|
itControlChangeEvent->Param.NRPN.Parameter = param; |
1655 |
|
itControlChangeEvent->Param.NRPN.Value = value; |
1656 |
|
|
1657 |
|
// if there's a NRPN script handler, run it ... |
1658 |
|
if (pChannel->pScript->handlerNrpn) { |
1659 |
|
const event_id_t eventID = |
1660 |
|
pEventPool->getID(itControlChangeEvent); |
1661 |
|
// run the NRPN script handler |
1662 |
|
ProcessEventByScript( |
1663 |
|
pChannel, itControlChangeEvent, |
1664 |
|
pChannel->pScript->handlerNrpn |
1665 |
|
); |
1666 |
|
// if NRPN event was dropped by script, abort |
1667 |
|
// here to avoid hard coded NRPN processing below |
1668 |
|
if (!pEventPool->fromID(eventID)) |
1669 |
|
break; |
1670 |
|
} |
1671 |
|
|
1672 |
|
// do the actual (hard-coded) NRPN value change processing |
1673 |
|
ProcessHardcodedNrpn(pEngineChannel, itControlChangeEvent); |
1674 |
|
} |
1675 |
|
break; |
1676 |
|
} |
1677 |
case 64: { // sustain |
case 64: { // sustain |
1678 |
if (itControlChangeEvent->Param.CC.Value >= 64 && !pChannel->SustainPedal) { |
if (itControlChangeEvent->Param.CC.Value >= 64 && !pChannel->SustainPedal) { |
1679 |
dmsg(4,("DAMPER (RIGHT) PEDAL DOWN\n")); |
dmsg(4,("DAMPER (RIGHT) PEDAL DOWN\n")); |
1747 |
} |
} |
1748 |
break; |
break; |
1749 |
} |
} |
1750 |
case 98: { // NRPN controller LSB |
case 98: { // NRPN parameter LSB |
1751 |
dmsg(4,("NRPN LSB %d\n", itControlChangeEvent->Param.CC.Value)); |
dmsg(4,("NRPN LSB %d\n", itControlChangeEvent->Param.CC.Value)); |
1752 |
pEngineChannel->SetMidiNrpnControllerLsb(itControlChangeEvent->Param.CC.Value); |
bIsNrpn = true; |
1753 |
|
pEngineChannel->SetMidiNrpnParameterLsb(itControlChangeEvent->Param.CC.Value); |
1754 |
break; |
break; |
1755 |
} |
} |
1756 |
case 99: { // NRPN controller MSB |
case 99: { // NRPN parameter MSB |
1757 |
dmsg(4,("NRPN MSB %d\n", itControlChangeEvent->Param.CC.Value)); |
dmsg(4,("NRPN MSB %d\n", itControlChangeEvent->Param.CC.Value)); |
1758 |
pEngineChannel->SetMidiNrpnControllerMsb(itControlChangeEvent->Param.CC.Value); |
bIsNrpn = true; |
1759 |
|
pEngineChannel->SetMidiNrpnParameterMsb(itControlChangeEvent->Param.CC.Value); |
1760 |
break; |
break; |
1761 |
} |
} |
1762 |
case 100: { // RPN controller LSB |
case 100: { // RPN parameter LSB |
1763 |
dmsg(4,("RPN LSB %d\n", itControlChangeEvent->Param.CC.Value)); |
dmsg(4,("RPN LSB %d\n", itControlChangeEvent->Param.CC.Value)); |
1764 |
pEngineChannel->SetMidiRpnControllerLsb(itControlChangeEvent->Param.CC.Value); |
bIsRpn = true; |
1765 |
|
pEngineChannel->SetMidiRpnParameterLsb(itControlChangeEvent->Param.CC.Value); |
1766 |
break; |
break; |
1767 |
} |
} |
1768 |
case 101: { // RPN controller MSB |
case 101: { // RPN parameter MSB |
1769 |
dmsg(4,("RPN MSB %d\n", itControlChangeEvent->Param.CC.Value)); |
dmsg(4,("RPN MSB %d\n", itControlChangeEvent->Param.CC.Value)); |
1770 |
pEngineChannel->SetMidiRpnControllerMsb(itControlChangeEvent->Param.CC.Value); |
bIsRpn = true; |
1771 |
|
pEngineChannel->SetMidiRpnParameterMsb(itControlChangeEvent->Param.CC.Value); |
1772 |
break; |
break; |
1773 |
} |
} |
1774 |
|
|
1802 |
break; |
break; |
1803 |
} |
} |
1804 |
} |
} |
1805 |
|
|
1806 |
|
// reset cached RPN/NRPN parameter number and data in case this |
1807 |
|
// CC event had nothing to do with RPN/NRPN |
1808 |
|
if (!bIsRpn && pChannel->GetMidiRpnParameter() >= 0) |
1809 |
|
pChannel->ResetMidiRpnParameter(); |
1810 |
|
if (!bIsNrpn && pChannel->GetMidiNrpnParameter() >= 0) |
1811 |
|
pChannel->ResetMidiNrpnParameter(); |
1812 |
|
} |
1813 |
|
|
1814 |
|
/** |
1815 |
|
* Process MIDI RPN events with hard coded behavior. |
1816 |
|
* |
1817 |
|
* @param pEngineChannel - engine channel on which the MIDI RPN |
1818 |
|
* event was received |
1819 |
|
* @param itRpnEvent - the actual MIDI RPN event |
1820 |
|
*/ |
1821 |
|
void ProcessHardcodedRpn(EngineChannel* pEngineChannel, |
1822 |
|
Pool<Event>::Iterator& itRpnEvent) |
1823 |
|
{ |
1824 |
|
EngineChannelBase<V, R, I>* pChannel = |
1825 |
|
static_cast<EngineChannelBase<V, R, I>*>(pEngineChannel); |
1826 |
|
|
1827 |
|
if (itRpnEvent->Param.RPN.Parameter == 2) { // coarse tuning in half tones |
1828 |
|
int transpose = (int) itRpnEvent->Param.RPN.ValueMSB() - 64; |
1829 |
|
// limit to +- two octaves for now |
1830 |
|
transpose = RTMath::Min(transpose, 24); |
1831 |
|
transpose = RTMath::Max(transpose, -24); |
1832 |
|
pChannel->GlobalTranspose = transpose; |
1833 |
|
// workaround, so we won't have hanging notes |
1834 |
|
pChannel->ReleaseAllVoices(itRpnEvent); |
1835 |
|
} |
1836 |
|
} |
1837 |
|
|
1838 |
|
/** |
1839 |
|
* Process MIDI NRPN events with hard coded behavior. |
1840 |
|
* |
1841 |
|
* @param pEngineChannel - engine channel on which the MIDI NRPN |
1842 |
|
* event was received |
1843 |
|
* @param itRpnEvent - the actual MIDI NRPN event |
1844 |
|
*/ |
1845 |
|
void ProcessHardcodedNrpn(EngineChannel* pEngineChannel, |
1846 |
|
Pool<Event>::Iterator& itNrpnEvent) |
1847 |
|
{ |
1848 |
|
EngineChannelBase<V, R, I>* pChannel = |
1849 |
|
static_cast<EngineChannelBase<V, R, I>*>(pEngineChannel); |
1850 |
|
|
1851 |
|
switch (itNrpnEvent->Param.NRPN.ParameterMSB()) { |
1852 |
|
case 0x1a: { // volume level of note (Roland GS NRPN) |
1853 |
|
const uint note = itNrpnEvent->Param.NRPN.ParameterLSB(); |
1854 |
|
const uint vol = itNrpnEvent->Param.NRPN.ValueMSB(); |
1855 |
|
dmsg(4,("Note Volume NRPN received (note=%d,vol=%d).\n", note, vol)); |
1856 |
|
if (note < 128 && vol < 128) |
1857 |
|
pChannel->pMIDIKeyInfo[note].Volume = VolumeCurve[vol]; |
1858 |
|
break; |
1859 |
|
} |
1860 |
|
case 0x1c: { // panpot of note (Roland GS NRPN) |
1861 |
|
const uint note = itNrpnEvent->Param.NRPN.ParameterLSB(); |
1862 |
|
const uint pan = itNrpnEvent->Param.NRPN.ValueMSB(); |
1863 |
|
dmsg(4,("Note Pan NRPN received (note=%d,pan=%d).\n", note, pan)); |
1864 |
|
if (note < 128 && pan < 128) { |
1865 |
|
pChannel->pMIDIKeyInfo[note].PanLeft = PanCurve[128 - pan]; |
1866 |
|
pChannel->pMIDIKeyInfo[note].PanRight = PanCurve[pan]; |
1867 |
|
} |
1868 |
|
break; |
1869 |
|
} |
1870 |
|
case 0x1d: { // reverb send of note (Roland GS NRPN) |
1871 |
|
const uint note = itNrpnEvent->Param.NRPN.ParameterLSB(); |
1872 |
|
const float reverb = float(itNrpnEvent->Param.NRPN.Value) / 16383.f; |
1873 |
|
dmsg(4,("Note Reverb Send NRPN received (note=%d,send=%f).\n", note, reverb)); |
1874 |
|
if (note < 128) |
1875 |
|
pChannel->pMIDIKeyInfo[note].ReverbSend = reverb; |
1876 |
|
break; |
1877 |
|
} |
1878 |
|
case 0x1e: { // chorus send of note (Roland GS NRPN) |
1879 |
|
const uint note = itNrpnEvent->Param.NRPN.ParameterLSB(); |
1880 |
|
const float chorus = float(itNrpnEvent->Param.NRPN.Value) / 16383.f; |
1881 |
|
dmsg(4,("Note Chorus Send NRPN received (note=%d,send=%f).\n", note, chorus)); |
1882 |
|
if (note < 128) |
1883 |
|
pChannel->pMIDIKeyInfo[note].ChorusSend = chorus; |
1884 |
|
break; |
1885 |
|
} |
1886 |
|
} |
1887 |
} |
} |
1888 |
|
|
1889 |
virtual D* CreateDiskThread() = 0; |
virtual D* CreateDiskThread() = 0; |
2232 |
NoteBase* pNote = pChannel->pEngine->NoteByID( itEvent->Param.NoteSynthParam.NoteID ); |
NoteBase* pNote = pChannel->pEngine->NoteByID( itEvent->Param.NoteSynthParam.NoteID ); |
2233 |
if (!pNote || pNote->hostKey < 0 || pNote->hostKey >= 128) return; |
if (!pNote || pNote->hostKey < 0 || pNote->hostKey >= 128) return; |
2234 |
|
|
|
const bool& relative = itEvent->Param.NoteSynthParam.Relative; |
|
|
|
|
2235 |
switch (itEvent->Param.NoteSynthParam.Type) { |
switch (itEvent->Param.NoteSynthParam.Type) { |
2236 |
case Event::synth_param_volume: |
case Event::synth_param_volume: |
2237 |
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; |
|
2238 |
break; |
break; |
2239 |
case Event::synth_param_volume_time: |
case Event::synth_param_volume_time: |
2240 |
pNote->Override.VolumeTime = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->Override.VolumeTime = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
2244 |
pNote->Override.VolumeCurve = (fade_curve_t) itEvent->Param.NoteSynthParam.AbsValue; |
pNote->Override.VolumeCurve = (fade_curve_t) itEvent->Param.NoteSynthParam.AbsValue; |
2245 |
break; |
break; |
2246 |
case Event::synth_param_pitch: |
case Event::synth_param_pitch: |
2247 |
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; |
|
2248 |
break; |
break; |
2249 |
case Event::synth_param_pitch_time: |
case Event::synth_param_pitch_time: |
2250 |
pNote->Override.PitchTime = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->Override.PitchTime = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
2254 |
pNote->Override.PitchCurve = (fade_curve_t) itEvent->Param.NoteSynthParam.AbsValue; |
pNote->Override.PitchCurve = (fade_curve_t) itEvent->Param.NoteSynthParam.AbsValue; |
2255 |
break; |
break; |
2256 |
case Event::synth_param_pan: |
case Event::synth_param_pan: |
2257 |
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; |
|
2258 |
break; |
break; |
2259 |
case Event::synth_param_pan_time: |
case Event::synth_param_pan_time: |
2260 |
pNote->Override.PanTime = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->Override.PanTime = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
2264 |
pNote->Override.PanCurve = (fade_curve_t) itEvent->Param.NoteSynthParam.AbsValue; |
pNote->Override.PanCurve = (fade_curve_t) itEvent->Param.NoteSynthParam.AbsValue; |
2265 |
break; |
break; |
2266 |
case Event::synth_param_cutoff: |
case Event::synth_param_cutoff: |
2267 |
pNote->Override.Cutoff = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::Cutoff); |
2268 |
break; |
break; |
2269 |
case Event::synth_param_resonance: |
case Event::synth_param_resonance: |
2270 |
pNote->Override.Resonance = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::Resonance); |
2271 |
break; |
break; |
2272 |
case Event::synth_param_attack: |
case Event::synth_param_attack: |
2273 |
pNote->Override.Attack = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::Attack); |
2274 |
break; |
break; |
2275 |
case Event::synth_param_decay: |
case Event::synth_param_decay: |
2276 |
pNote->Override.Decay = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::Decay); |
2277 |
break; |
break; |
2278 |
case Event::synth_param_sustain: |
case Event::synth_param_sustain: |
2279 |
pNote->Override.Sustain = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::Sustain); |
2280 |
break; |
break; |
2281 |
case Event::synth_param_release: |
case Event::synth_param_release: |
2282 |
pNote->Override.Release = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::Release); |
2283 |
break; |
break; |
2284 |
|
|
2285 |
case Event::synth_param_cutoff_attack: |
case Event::synth_param_cutoff_attack: |
2286 |
pNote->Override.CutoffAttack = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::CutoffAttack); |
2287 |
break; |
break; |
2288 |
case Event::synth_param_cutoff_decay: |
case Event::synth_param_cutoff_decay: |
2289 |
pNote->Override.CutoffDecay = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::CutoffDecay); |
2290 |
break; |
break; |
2291 |
case Event::synth_param_cutoff_sustain: |
case Event::synth_param_cutoff_sustain: |
2292 |
pNote->Override.CutoffSustain = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::CutoffSustain); |
2293 |
break; |
break; |
2294 |
case Event::synth_param_cutoff_release: |
case Event::synth_param_cutoff_release: |
2295 |
pNote->Override.CutoffRelease = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::CutoffRelease); |
2296 |
break; |
break; |
2297 |
|
|
2298 |
case Event::synth_param_amp_lfo_depth: |
case Event::synth_param_amp_lfo_depth: |
2299 |
pNote->Override.AmpLFODepth = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::AmpLFODepth); |
2300 |
break; |
break; |
2301 |
case Event::synth_param_amp_lfo_freq: |
case Event::synth_param_amp_lfo_freq: |
2302 |
pNote->Override.AmpLFOFreq = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::AmpLFOFreq); |
2303 |
break; |
break; |
2304 |
case Event::synth_param_cutoff_lfo_depth: |
case Event::synth_param_cutoff_lfo_depth: |
2305 |
pNote->Override.CutoffLFODepth = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::CutoffLFODepth); |
2306 |
break; |
break; |
2307 |
case Event::synth_param_cutoff_lfo_freq: |
case Event::synth_param_cutoff_lfo_freq: |
2308 |
pNote->Override.CutoffLFOFreq = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::CutoffLFOFreq); |
2309 |
break; |
break; |
2310 |
case Event::synth_param_pitch_lfo_depth: |
case Event::synth_param_pitch_lfo_depth: |
2311 |
pNote->Override.PitchLFODepth = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::PitchLFODepth); |
2312 |
break; |
break; |
2313 |
case Event::synth_param_pitch_lfo_freq: |
case Event::synth_param_pitch_lfo_freq: |
2314 |
pNote->Override.PitchLFOFreq = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta; |
pNote->apply(itEvent, &NoteBase::_Override::PitchLFOFreq); |
2315 |
break; |
break; |
2316 |
} |
} |
2317 |
|
|