/[svn]/linuxsampler/trunk/src/engines/EngineBase.h
ViewVC logotype

Diff of /linuxsampler/trunk/src/engines/EngineBase.h

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3360 by schoenebeck, Fri Oct 27 21:19:18 2017 UTC revision 3701 by schoenebeck, Sat Jan 4 18:15:04 2020 UTC
# Line 885  namespace LinuxSampler { Line 885  namespace LinuxSampler {
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"));
# Line 909  namespace LinuxSampler { Line 910  namespace LinuxSampler {
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"));
# Line 934  namespace LinuxSampler { Line 946  namespace LinuxSampler {
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    
# Line 1479  namespace LinuxSampler { Line 1499  namespace LinuxSampler {
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                      }                      }
# Line 1556  namespace LinuxSampler { Line 1602  namespace LinuxSampler {
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"));
# Line 1629  namespace LinuxSampler { Line 1747  namespace LinuxSampler {
1747                          }                          }
1748                          break;                          break;
1749                      }                      }
1750                      case 98: { // NRPN controller LSB                      case 96: { // data increment (data entry +1)
1751                            //dmsg(1,("DATA INC\n"));
1752                            if (pChannel->GetMidiRpnParameter() >= 0) { // RPN parameter number was sent previously ...
1753                                pChannel->SetMidiRpnData(
1754                                    pChannel->GetMidiRpnData() + 1
1755                                );
1756                                bIsRpn = true;
1757    
1758                                int ch = itControlChangeEvent->Param.CC.Channel;
1759                                int param = pChannel->GetMidiRpnParameter();
1760                                int value = pChannel->GetMidiRpnData();
1761    
1762                                // transform event type: CC event -> RPN event
1763                                itControlChangeEvent->Type = Event::type_rpn;
1764                                itControlChangeEvent->Param.RPN.Channel = ch;
1765                                itControlChangeEvent->Param.RPN.Parameter = param;
1766                                itControlChangeEvent->Param.RPN.Value = value;
1767    
1768                                // if there's a RPN script handler, run it ...
1769                                if (pChannel->pScript->handlerRpn) {
1770                                    const event_id_t eventID =
1771                                        pEventPool->getID(itControlChangeEvent);
1772                                    // run the RPN script handler
1773                                    ProcessEventByScript(
1774                                        pChannel, itControlChangeEvent,
1775                                        pChannel->pScript->handlerRpn
1776                                    );
1777                                    // if RPN event was dropped by script, abort
1778                                    // here to avoid hard coded RPN processing below
1779                                    if (!pEventPool->fromID(eventID))
1780                                        break;
1781                                }
1782    
1783                                // do the actual (hard-coded) RPN value change processing
1784                                ProcessHardcodedRpn(pEngineChannel, itControlChangeEvent);
1785    
1786                            } else if (pChannel->GetMidiNrpnParameter() >= 0) { // NRPN parameter number was sent previously ...
1787                                pChannel->SetMidiNrpnData(
1788                                    pChannel->GetMidiNrpnData() + 1
1789                                );
1790                                bIsNrpn = true;
1791    
1792                                int ch = itControlChangeEvent->Param.CC.Channel;
1793                                int param = pChannel->GetMidiNrpnParameter();
1794                                int value = pChannel->GetMidiNrpnData();
1795    
1796                                // transform event type: CC event -> NRPN event
1797                                itControlChangeEvent->Type = Event::type_nrpn;
1798                                itControlChangeEvent->Param.NRPN.Channel = ch;
1799                                itControlChangeEvent->Param.NRPN.Parameter = param;
1800                                itControlChangeEvent->Param.NRPN.Value = value;
1801    
1802                                // if there's a NRPN script handler, run it ...
1803                                if (pChannel->pScript->handlerNrpn) {
1804                                    const event_id_t eventID =
1805                                        pEventPool->getID(itControlChangeEvent);
1806                                    // run the NRPN script handler
1807                                    ProcessEventByScript(
1808                                        pChannel, itControlChangeEvent,
1809                                        pChannel->pScript->handlerNrpn
1810                                    );
1811                                    // if NRPN event was dropped by script, abort
1812                                    // here to avoid hard coded NRPN processing below
1813                                    if (!pEventPool->fromID(eventID))
1814                                        break;
1815                                }
1816    
1817                                // do the actual (hard-coded) NRPN value change processing
1818                                ProcessHardcodedNrpn(pEngineChannel, itControlChangeEvent);
1819                            }
1820                            break;
1821                        }
1822                        case 97: { // data decrement (data entry -1)
1823                            //dmsg(1,("DATA DEC\n"));
1824                            if (pChannel->GetMidiRpnParameter() >= 0) { // RPN parameter number was sent previously ...
1825                                pChannel->SetMidiRpnData(
1826                                    pChannel->GetMidiRpnData() - 1
1827                                );
1828                                bIsRpn = true;
1829    
1830                                int ch = itControlChangeEvent->Param.CC.Channel;
1831                                int param = pChannel->GetMidiRpnParameter();
1832                                int value = pChannel->GetMidiRpnData();
1833    
1834                                // transform event type: CC event -> RPN event
1835                                itControlChangeEvent->Type = Event::type_rpn;
1836                                itControlChangeEvent->Param.RPN.Channel = ch;
1837                                itControlChangeEvent->Param.RPN.Parameter = param;
1838                                itControlChangeEvent->Param.RPN.Value = value;
1839    
1840                                // if there's a RPN script handler, run it ...
1841                                if (pChannel->pScript->handlerRpn) {
1842                                    const event_id_t eventID =
1843                                        pEventPool->getID(itControlChangeEvent);
1844                                    // run the RPN script handler
1845                                    ProcessEventByScript(
1846                                        pChannel, itControlChangeEvent,
1847                                        pChannel->pScript->handlerRpn
1848                                    );
1849                                    // if RPN event was dropped by script, abort
1850                                    // here to avoid hard coded RPN processing below
1851                                    if (!pEventPool->fromID(eventID))
1852                                        break;
1853                                }
1854    
1855                                // do the actual (hard-coded) RPN value change processing
1856                                ProcessHardcodedRpn(pEngineChannel, itControlChangeEvent);
1857    
1858                            } else if (pChannel->GetMidiNrpnParameter() >= 0) { // NRPN parameter number was sent previously ...
1859                                pChannel->SetMidiNrpnData(
1860                                    pChannel->GetMidiNrpnData() - 1
1861                                );
1862                                bIsNrpn = true;
1863    
1864                                int ch = itControlChangeEvent->Param.CC.Channel;
1865                                int param = pChannel->GetMidiNrpnParameter();
1866                                int value = pChannel->GetMidiNrpnData();
1867    
1868                                // transform event type: CC event -> NRPN event
1869                                itControlChangeEvent->Type = Event::type_nrpn;
1870                                itControlChangeEvent->Param.NRPN.Channel = ch;
1871                                itControlChangeEvent->Param.NRPN.Parameter = param;
1872                                itControlChangeEvent->Param.NRPN.Value = value;
1873    
1874                                // if there's a NRPN script handler, run it ...
1875                                if (pChannel->pScript->handlerNrpn) {
1876                                    const event_id_t eventID =
1877                                        pEventPool->getID(itControlChangeEvent);
1878                                    // run the NRPN script handler
1879                                    ProcessEventByScript(
1880                                        pChannel, itControlChangeEvent,
1881                                        pChannel->pScript->handlerNrpn
1882                                    );
1883                                    // if NRPN event was dropped by script, abort
1884                                    // here to avoid hard coded NRPN processing below
1885                                    if (!pEventPool->fromID(eventID))
1886                                        break;
1887                                }
1888    
1889                                // do the actual (hard-coded) NRPN value change processing
1890                                ProcessHardcodedNrpn(pEngineChannel, itControlChangeEvent);
1891                            }
1892                            break;
1893                        }
1894                        case 98: { // NRPN parameter LSB
1895                          dmsg(4,("NRPN LSB %d\n", itControlChangeEvent->Param.CC.Value));                          dmsg(4,("NRPN LSB %d\n", itControlChangeEvent->Param.CC.Value));
1896                          pEngineChannel->SetMidiNrpnControllerLsb(itControlChangeEvent->Param.CC.Value);                          bIsNrpn = true;
1897                            pEngineChannel->SetMidiNrpnParameterLsb(itControlChangeEvent->Param.CC.Value);
1898                          break;                          break;
1899                      }                      }
1900                      case 99: { // NRPN controller MSB                      case 99: { // NRPN parameter MSB
1901                          dmsg(4,("NRPN MSB %d\n", itControlChangeEvent->Param.CC.Value));                          dmsg(4,("NRPN MSB %d\n", itControlChangeEvent->Param.CC.Value));
1902                          pEngineChannel->SetMidiNrpnControllerMsb(itControlChangeEvent->Param.CC.Value);                          bIsNrpn = true;
1903                            pEngineChannel->SetMidiNrpnParameterMsb(itControlChangeEvent->Param.CC.Value);
1904                          break;                          break;
1905                      }                      }
1906                      case 100: { // RPN controller LSB                      case 100: { // RPN parameter LSB
1907                          dmsg(4,("RPN LSB %d\n", itControlChangeEvent->Param.CC.Value));                          dmsg(4,("RPN LSB %d\n", itControlChangeEvent->Param.CC.Value));
1908                          pEngineChannel->SetMidiRpnControllerLsb(itControlChangeEvent->Param.CC.Value);                          bIsRpn = true;
1909                            pEngineChannel->SetMidiRpnParameterLsb(itControlChangeEvent->Param.CC.Value);
1910                          break;                          break;
1911                      }                      }
1912                      case 101: { // RPN controller MSB                      case 101: { // RPN parameter MSB
1913                          dmsg(4,("RPN MSB %d\n", itControlChangeEvent->Param.CC.Value));                          dmsg(4,("RPN MSB %d\n", itControlChangeEvent->Param.CC.Value));
1914                          pEngineChannel->SetMidiRpnControllerMsb(itControlChangeEvent->Param.CC.Value);                          bIsRpn = true;
1915                            pEngineChannel->SetMidiRpnParameterMsb(itControlChangeEvent->Param.CC.Value);
1916                          break;                          break;
1917                      }                      }
1918    
# Line 1680  namespace LinuxSampler { Line 1946  namespace LinuxSampler {
1946                          break;                          break;
1947                      }                      }
1948                  }                  }
1949    
1950                    // reset cached RPN/NRPN parameter number and data in case this
1951                    // CC event had nothing to do with RPN/NRPN
1952                    if (!bIsRpn && pChannel->GetMidiRpnParameter() >= 0)
1953                        pChannel->ResetMidiRpnParameter();
1954                    if (!bIsNrpn && pChannel->GetMidiNrpnParameter() >= 0)
1955                        pChannel->ResetMidiNrpnParameter();
1956                }
1957    
1958                /**
1959                 * Process MIDI RPN events with hard coded behavior.
1960                 *
1961                 * @param pEngineChannel - engine channel on which the MIDI RPN
1962                 *                         event was received
1963                 * @param itRpnEvent - the actual MIDI RPN event
1964                 */
1965                void ProcessHardcodedRpn(EngineChannel* pEngineChannel,
1966                                         Pool<Event>::Iterator& itRpnEvent)
1967                {
1968                    EngineChannelBase<V, R, I>* pChannel =
1969                        static_cast<EngineChannelBase<V, R, I>*>(pEngineChannel);
1970    
1971                    if (itRpnEvent->Param.RPN.Parameter == 2) { // coarse tuning in half tones
1972                        int transpose = (int) itRpnEvent->Param.RPN.ValueMSB() - 64;
1973                        // limit to +- two octaves for now
1974                        transpose = RTMath::Min(transpose,  24);
1975                        transpose = RTMath::Max(transpose, -24);
1976                        pChannel->GlobalTranspose = transpose;
1977                        // workaround, so we won't have hanging notes
1978                        pChannel->ReleaseAllVoices(itRpnEvent);
1979                    } else if (itRpnEvent->Param.RPN.Parameter == 16383) { // null function RPN
1980                        // disable subsequent data entry/increment/decrement processing
1981                        pChannel->ResetMidiRpnParameter();
1982                    }
1983                }
1984    
1985                /**
1986                 * Process MIDI NRPN events with hard coded behavior.
1987                 *
1988                 * @param pEngineChannel - engine channel on which the MIDI NRPN
1989                 *                         event was received
1990                 * @param itRpnEvent - the actual MIDI NRPN event
1991                 */
1992                void ProcessHardcodedNrpn(EngineChannel* pEngineChannel,
1993                                          Pool<Event>::Iterator& itNrpnEvent)
1994                {
1995                    EngineChannelBase<V, R, I>* pChannel =
1996                        static_cast<EngineChannelBase<V, R, I>*>(pEngineChannel);
1997    
1998                    switch (itNrpnEvent->Param.NRPN.ParameterMSB()) {
1999                        case 0x1a: { // volume level of note (Roland GS NRPN)
2000                            const uint note = itNrpnEvent->Param.NRPN.ParameterLSB();
2001                            const uint vol  = itNrpnEvent->Param.NRPN.ValueMSB();
2002                            dmsg(4,("Note Volume NRPN received (note=%d,vol=%d).\n", note, vol));
2003                            if (note < 128 && vol < 128)
2004                                pChannel->pMIDIKeyInfo[note].Volume = VolumeCurve[vol];
2005                            break;
2006                        }
2007                        case 0x1c: { // panpot of note (Roland GS NRPN)
2008                            const uint note = itNrpnEvent->Param.NRPN.ParameterLSB();
2009                            const uint pan  = itNrpnEvent->Param.NRPN.ValueMSB();
2010                            dmsg(4,("Note Pan NRPN received (note=%d,pan=%d).\n", note, pan));
2011                            if (note < 128 && pan < 128) {
2012                                pChannel->pMIDIKeyInfo[note].PanLeft  = PanCurve[128 - pan];
2013                                pChannel->pMIDIKeyInfo[note].PanRight = PanCurve[pan];
2014                            }
2015                            break;
2016                        }
2017                        case 0x1d: { // reverb send of note (Roland GS NRPN)
2018                            const uint note = itNrpnEvent->Param.NRPN.ParameterLSB();
2019                            const float reverb = float(itNrpnEvent->Param.NRPN.Value) / 16383.f;
2020                            dmsg(4,("Note Reverb Send NRPN received (note=%d,send=%f).\n", note, reverb));
2021                            if (note < 128)
2022                                pChannel->pMIDIKeyInfo[note].ReverbSend = reverb;
2023                            break;
2024                        }
2025                        case 0x1e: { // chorus send of note (Roland GS NRPN)
2026                            const uint note = itNrpnEvent->Param.NRPN.ParameterLSB();
2027                            const float chorus = float(itNrpnEvent->Param.NRPN.Value) / 16383.f;
2028                            dmsg(4,("Note Chorus Send NRPN received (note=%d,send=%f).\n", note, chorus));
2029                            if (note < 128)
2030                                pChannel->pMIDIKeyInfo[note].ChorusSend = chorus;
2031                            break;
2032                        }
2033                        case 0x7f: {
2034                            if (itNrpnEvent->Param.NRPN.ParameterLSB() == 0x7f) { // null function NRPN
2035                                // disable subsequent data entry/increment/decrement processing
2036                                pChannel->ResetMidiNrpnParameter();
2037                            }
2038                            break;
2039                        }
2040                    }
2041              }              }
2042    
2043              virtual D* CreateDiskThread() = 0;              virtual D* CreateDiskThread() = 0;
# Line 1922  namespace LinuxSampler { Line 2280  namespace LinuxSampler {
2280                      if (bShouldRelease) {                      if (bShouldRelease) {
2281                          itNoteOffEventOnKeyList->Type = Event::type_release_key; // transform event type                          itNoteOffEventOnKeyList->Type = Event::type_release_key; // transform event type
2282                          // spawn release triggered voice(s) if needed                          // spawn release triggered voice(s) if needed
2283                          ProcessReleaseTrigger(pChannel, itNoteOffEventOnKeyList, pKey);                          if (pKey->ReleaseTrigger & release_trigger_noteoff)
2284                                ProcessReleaseTrigger(pChannel, itNoteOffEventOnKeyList, pKey);
2285                      }                      }
2286                  } else if (itNoteOffEventOnKeyList->Type == Event::type_stop_note) {                  } else if (itNoteOffEventOnKeyList->Type == Event::type_stop_note) {
2287                      // This programmatically caused event is caused by a call to                      // This programmatically caused event is caused by a call to
# Line 1953  namespace LinuxSampler { Line 2312  namespace LinuxSampler {
2312               * @param pEngineChannel - engine channel on which this event occurred on               * @param pEngineChannel - engine channel on which this event occurred on
2313               * @param itEvent - release trigger event (contains note number)               * @param itEvent - release trigger event (contains note number)
2314               */               */
2315              virtual void ProcessReleaseTrigger(EngineChannel* pEngineChannel, RTList<Event>::Iterator& itEvent) OVERRIDE {              virtual void ProcessReleaseTriggerBySustain(EngineChannel* pEngineChannel, RTList<Event>::Iterator& itEvent) OVERRIDE {
2316                  EngineChannelBase<V, R, I>* pChannel = static_cast<EngineChannelBase<V, R, I>*>(pEngineChannel);                  EngineChannelBase<V, R, I>* pChannel = static_cast<EngineChannelBase<V, R, I>*>(pEngineChannel);
2317    
2318                  const int iKey = itEvent->Param.Note.Key;                  const int iKey = itEvent->Param.Note.Key;
# Line 1981  namespace LinuxSampler { Line 2340  namespace LinuxSampler {
2340                          // allocate and trigger new release voice(s)                          // allocate and trigger new release voice(s)
2341                          TriggerReleaseVoices(pChannel, itEvent);                          TriggerReleaseVoices(pChannel, itEvent);
2342                      }                      }
2343                      pKey->ReleaseTrigger = false;                      pKey->ReleaseTrigger = release_trigger_none;
2344                  }                  }
2345              }              }
2346    
# Line 2027  namespace LinuxSampler { Line 2386  namespace LinuxSampler {
2386                  NoteBase* pNote = pChannel->pEngine->NoteByID( itEvent->Param.NoteSynthParam.NoteID );                  NoteBase* pNote = pChannel->pEngine->NoteByID( itEvent->Param.NoteSynthParam.NoteID );
2387                  if (!pNote || pNote->hostKey < 0 || pNote->hostKey >= 128) return;                  if (!pNote || pNote->hostKey < 0 || pNote->hostKey >= 128) return;
2388    
                 const bool& relative = itEvent->Param.NoteSynthParam.Relative;  
   
2389                  switch (itEvent->Param.NoteSynthParam.Type) {                  switch (itEvent->Param.NoteSynthParam.Type) {
2390                      case Event::synth_param_volume:                      case Event::synth_param_volume:
2391                          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;  
2392                          break;                          break;
2393                      case Event::synth_param_volume_time:                      case Event::synth_param_volume_time:
2394                          pNote->Override.VolumeTime = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->Override.VolumeTime = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;
# Line 2045  namespace LinuxSampler { Line 2398  namespace LinuxSampler {
2398                          pNote->Override.VolumeCurve = (fade_curve_t) itEvent->Param.NoteSynthParam.AbsValue;                          pNote->Override.VolumeCurve = (fade_curve_t) itEvent->Param.NoteSynthParam.AbsValue;
2399                          break;                          break;
2400                      case Event::synth_param_pitch:                      case Event::synth_param_pitch:
2401                          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;  
2402                          break;                          break;
2403                      case Event::synth_param_pitch_time:                      case Event::synth_param_pitch_time:
2404                          pNote->Override.PitchTime = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->Override.PitchTime = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;
# Line 2059  namespace LinuxSampler { Line 2408  namespace LinuxSampler {
2408                          pNote->Override.PitchCurve = (fade_curve_t) itEvent->Param.NoteSynthParam.AbsValue;                          pNote->Override.PitchCurve = (fade_curve_t) itEvent->Param.NoteSynthParam.AbsValue;
2409                          break;                          break;
2410                      case Event::synth_param_pan:                      case Event::synth_param_pan:
2411                          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;  
2412                          break;                          break;
2413                      case Event::synth_param_pan_time:                      case Event::synth_param_pan_time:
2414                          pNote->Override.PanTime = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->Override.PanTime = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;
# Line 2075  namespace LinuxSampler { Line 2418  namespace LinuxSampler {
2418                          pNote->Override.PanCurve = (fade_curve_t) itEvent->Param.NoteSynthParam.AbsValue;                          pNote->Override.PanCurve = (fade_curve_t) itEvent->Param.NoteSynthParam.AbsValue;
2419                          break;                          break;
2420                      case Event::synth_param_cutoff:                      case Event::synth_param_cutoff:
2421                          pNote->Override.Cutoff = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::Cutoff);
2422                          break;                          break;
2423                      case Event::synth_param_resonance:                      case Event::synth_param_resonance:
2424                          pNote->Override.Resonance = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::Resonance);
2425                          break;                          break;
2426                      case Event::synth_param_attack:                      case Event::synth_param_attack:
2427                          pNote->Override.Attack = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::Attack);
2428                          break;                          break;
2429                      case Event::synth_param_decay:                      case Event::synth_param_decay:
2430                          pNote->Override.Decay = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::Decay);
2431                          break;                          break;
2432                      case Event::synth_param_sustain:                      case Event::synth_param_sustain:
2433                          pNote->Override.Sustain = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::Sustain);
2434                          break;                          break;
2435                      case Event::synth_param_release:                      case Event::synth_param_release:
2436                          pNote->Override.Release = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::Release);
2437                          break;                          break;
2438    
2439                      case Event::synth_param_cutoff_attack:                      case Event::synth_param_cutoff_attack:
2440                          pNote->Override.CutoffAttack = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::CutoffAttack);
2441                          break;                          break;
2442                      case Event::synth_param_cutoff_decay:                      case Event::synth_param_cutoff_decay:
2443                          pNote->Override.CutoffDecay = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::CutoffDecay);
2444                          break;                          break;
2445                      case Event::synth_param_cutoff_sustain:                      case Event::synth_param_cutoff_sustain:
2446                          pNote->Override.CutoffSustain = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::CutoffSustain);
2447                          break;                          break;
2448                      case Event::synth_param_cutoff_release:                      case Event::synth_param_cutoff_release:
2449                          pNote->Override.CutoffRelease = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::CutoffRelease);
2450                          break;                          break;
2451    
2452                      case Event::synth_param_amp_lfo_depth:                      case Event::synth_param_amp_lfo_depth:
2453                          pNote->Override.AmpLFODepth = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::AmpLFODepth);
2454                          break;                          break;
2455                      case Event::synth_param_amp_lfo_freq:                      case Event::synth_param_amp_lfo_freq:
2456                          pNote->Override.AmpLFOFreq = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::AmpLFOFreq);
2457                          break;                          break;
2458                      case Event::synth_param_cutoff_lfo_depth:                      case Event::synth_param_cutoff_lfo_depth:
2459                          pNote->Override.CutoffLFODepth = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::CutoffLFODepth);
2460                          break;                          break;
2461                      case Event::synth_param_cutoff_lfo_freq:                      case Event::synth_param_cutoff_lfo_freq:
2462                          pNote->Override.CutoffLFOFreq = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::CutoffLFOFreq);
2463                          break;                          break;
2464                      case Event::synth_param_pitch_lfo_depth:                      case Event::synth_param_pitch_lfo_depth:
2465                          pNote->Override.PitchLFODepth = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::PitchLFODepth);
2466                          break;                          break;
2467                      case Event::synth_param_pitch_lfo_freq:                      case Event::synth_param_pitch_lfo_freq:
2468                          pNote->Override.PitchLFOFreq = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::PitchLFOFreq);
2469                          break;                          break;
2470                  }                  }
2471    
# Line 2257  namespace LinuxSampler { Line 2600  namespace LinuxSampler {
2600                          // already done in LaunchNewNote()                          // already done in LaunchNewNote()
2601                          pChannel->markKeyAsActive(pKey);                          pChannel->markKeyAsActive(pKey);
2602    
2603                          if (itNewVoice->Type & Voice::type_release_trigger_required) pKey->ReleaseTrigger = true; // mark key for the need of release triggered voice(s)                          if (itNewVoice->Type & Voice::type_release_trigger_required)
2604                                pKey->ReleaseTrigger |= itNewVoice->GetReleaseTriggerFlags(); // mark key for the need of release triggered voice(s)
2605                          return 0; // success                          return 0; // success
2606                      }                      }
2607                  }                  }
Legend:
Removed from v.3360  
changed lines
  Added in v.3701
  ViewVC Help
Powered by ViewVC