/[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 3561 by schoenebeck, Fri Aug 23 11:44:00 2019 UTC revision 3696 by schoenebeck, Sat Jan 4 11:30:38 2020 UTC
# Line 910  namespace LinuxSampler { Line 910  namespace LinuxSampler {
910                                  dmsg(5,("Engine: MIDI CC received\n"));                                  dmsg(5,("Engine: MIDI CC received\n"));
911                                  ProcessControlChange((EngineChannel*)itEvent->pEngineChannel, itEvent);                                  ProcessControlChange((EngineChannel*)itEvent->pEngineChannel, itEvent);
912                                  break;                                  break;
913                                case Event::type_rpn: // this can only be reached here by an instrument script having called set_rpn()
914                                    dmsg(5,("Engine: MIDI RPN received\n"));
915                                    ProcessHardcodedRpn((EngineChannel*)itEvent->pEngineChannel, itEvent);
916                                    break;
917                                case Event::type_nrpn: // this can only be reached here by an instrument script having called set_nrpn()
918                                    dmsg(5,("Engine: MIDI NRPN received\n"));
919                                    ProcessHardcodedNrpn((EngineChannel*)itEvent->pEngineChannel, itEvent);
920                                    break;
921                              case Event::type_channel_pressure:                              case Event::type_channel_pressure:
922                                  dmsg(5,("Engine: MIDI Chan. Pressure received\n"));                                  dmsg(5,("Engine: MIDI Chan. Pressure received\n"));
923                                  ProcessChannelPressure((EngineChannel*)itEvent->pEngineChannel, itEvent);                                  ProcessChannelPressure((EngineChannel*)itEvent->pEngineChannel, itEvent);
# Line 1484  namespace LinuxSampler { Line 1492  namespace LinuxSampler {
1492                          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;
1493                          break;                          break;
1494                      }                      }
1495                      case 6: { // data entry (currently only used for RPN and NRPN controllers)                      case 6: { // data entry (MSB)
1496                          //dmsg(1,("DATA ENTRY %d\n", itControlChangeEvent->Param.CC.Value));                          //dmsg(1,("DATA ENTRY MSB %d\n", itControlChangeEvent->Param.CC.Value));
1497                          if (pChannel->GetMidiRpnController() >= 0) { // RPN controller number was sent previously ...  
1498                              dmsg(4,("Guess it's an RPN ...\n"));                          // look-ahead: if next MIDI event is data entry LSB,
1499                              if (pChannel->GetMidiRpnController() == 2) { // coarse tuning in half tones                          // then skip this event here for now (to avoid double
1500                                  int transpose = (int) itControlChangeEvent->Param.CC.Value - 64;                          // handling of what's supposed to be one RPN/NRPN event)
1501                                  // limit to +- two octaves for now                          if (isNextEventCCNr(itControlChangeEvent, 38))
1502                                  transpose = RTMath::Min(transpose,  24);                              break;
1503                                  transpose = RTMath::Max(transpose, -24);  
1504                                  pChannel->GlobalTranspose = transpose;                          if (pChannel->GetMidiRpnParameter() >= 0) { // RPN parameter number was sent previously ...
1505                                  // workaround, so we won't have hanging notes                              int ch = itControlChangeEvent->Param.CC.Channel;
1506                                  pChannel->ReleaseAllVoices(itControlChangeEvent);                              int param = pChannel->GetMidiRpnParameter();
1507                              }                              int value = itControlChangeEvent->Param.CC.Value << 7;
1508                              // to prevent other MIDI CC #6 messages to be misenterpreted as RPN controller data  
1509                              pChannel->ResetMidiRpnController();                              // transform event type: CC event -> RPN event
1510                          } else if (pChannel->GetMidiNrpnController() >= 0) { // NRPN controller number was sent previously ...                              itControlChangeEvent->Type = Event::type_rpn;
1511                              dmsg(4,("Guess it's an NRPN ...\n"));                              itControlChangeEvent->Param.RPN.Channel = ch;
1512                              const int NrpnCtrlMSB = pChannel->GetMidiNrpnController() >> 8;                              itControlChangeEvent->Param.RPN.Parameter = param;
1513                              const int NrpnCtrlLSB = pChannel->GetMidiNrpnController() & 0xff;                              itControlChangeEvent->Param.RPN.Value = value;
1514                              dmsg(4,("NRPN MSB=%d LSB=%d Data=%d\n", NrpnCtrlMSB, NrpnCtrlLSB, itControlChangeEvent->Param.CC.Value));  
1515                              switch (NrpnCtrlMSB) {                              // if there's a RPN script handler, run it ...
1516                                  case 0x1a: { // volume level of note (Roland GS NRPN)                              if (pChannel->pScript->handlerRpn) {
1517                                      const uint note = NrpnCtrlLSB;                                  const event_id_t eventID =
1518                                      const uint vol  = itControlChangeEvent->Param.CC.Value;                                      pEventPool->getID(itControlChangeEvent);
1519                                      dmsg(4,("Note Volume NRPN received (note=%d,vol=%d).\n", note, vol));                                  // run the RPN script handler
1520                                      if (note < 128 && vol < 128)                                  ProcessEventByScript(
1521                                          pChannel->pMIDIKeyInfo[note].Volume = VolumeCurve[vol];                                      pChannel, itControlChangeEvent,
1522                                      break;                                      pChannel->pScript->handlerRpn
1523                                  }                                  );
1524                                  case 0x1c: { // panpot of note (Roland GS NRPN)                                  // if RPN event was dropped by script, abort
1525                                      const uint note = NrpnCtrlLSB;                                  // here to avoid hard coded RPN processing below
1526                                      const uint pan  = itControlChangeEvent->Param.CC.Value;                                  if (!pEventPool->fromID(eventID)) {
1527                                      dmsg(4,("Note Pan NRPN received (note=%d,pan=%d).\n", note, pan));                                      // to prevent other data entry messages to be misenterpreted as RPN value
1528                                      if (note < 128 && pan < 128) {                                      pChannel->ResetMidiRpnParameter();
                                         pChannel->pMIDIKeyInfo[note].PanLeft  = PanCurve[128 - pan];  
                                         pChannel->pMIDIKeyInfo[note].PanRight = PanCurve[pan];  
                                     }  
                                     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;  
1529                                      break;                                      break;
1530                                  }                                  }
1531                                  case 0x1e: { // chorus send of note (Roland GS NRPN)                              }
1532                                      const uint note = NrpnCtrlLSB;  
1533                                      const float chorus = float(itControlChangeEvent->Param.CC.Value) / 127.0f;                              // do the actual (hard-coded) RPN value change processing
1534                                      dmsg(4,("Note Chorus Send NRPN received (note=%d,send=%f).\n", note, chorus));                              ProcessHardcodedRpn(pEngineChannel, itControlChangeEvent);
1535                                      if (note < 128)  
1536                                          pChannel->pMIDIKeyInfo[note].ChorusSend = chorus;                              // to prevent other data entry messages to be misenterpreted as RPN value
1537                                pChannel->ResetMidiRpnParameter();
1538                            } else if (pChannel->GetMidiNrpnParameter() >= 0) { // NRPN parameter number was sent previously ...
1539                                int ch = itControlChangeEvent->Param.CC.Channel;
1540                                int param = pChannel->GetMidiNrpnParameter();
1541                                int value = itControlChangeEvent->Param.CC.Value << 7;
1542    
1543                                // transform event type: CC event -> NRPN event
1544                                itControlChangeEvent->Type = Event::type_nrpn;
1545                                itControlChangeEvent->Param.NRPN.Channel = ch;
1546                                itControlChangeEvent->Param.NRPN.Parameter = param;
1547                                itControlChangeEvent->Param.NRPN.Value = value;
1548    
1549                                // if there's a NRPN script handler, run it ...
1550                                if (pChannel->pScript->handlerNrpn) {
1551                                    const event_id_t eventID =
1552                                        pEventPool->getID(itControlChangeEvent);
1553                                    // run the NRPN script handler
1554                                    ProcessEventByScript(
1555                                        pChannel, itControlChangeEvent,
1556                                        pChannel->pScript->handlerNrpn
1557                                    );
1558                                    // if NRPN event was dropped by script, abort
1559                                    // here to avoid hard coded NRPN processing below
1560                                    if (!pEventPool->fromID(eventID)) {
1561                                        // to prevent other data entry messages to be misenterpreted as NRPN value
1562                                        pChannel->ResetMidiNrpnParameter();
1563                                      break;                                      break;
1564                                  }                                  }
1565                              }                              }
1566                              // to prevent other MIDI CC #6 messages to be misenterpreted as NRPN controller data  
1567                              pChannel->ResetMidiNrpnController();                              // do the actual (hard-coded) NRPN value change processing
1568                                ProcessHardcodedNrpn(pEngineChannel, itControlChangeEvent);
1569    
1570                                // to prevent other data entry messages to be misenterpreted as NRPN value
1571                                pChannel->ResetMidiNrpnParameter();
1572                          }                          }
1573                          break;                          break;
1574                      }                      }
# Line 1556  namespace LinuxSampler { Line 1583  namespace LinuxSampler {
1583                          pChannel->iLastPanRequest = itControlChangeEvent->Param.CC.Value;                          pChannel->iLastPanRequest = itControlChangeEvent->Param.CC.Value;
1584                          break;                          break;
1585                      }                      }
1586                        case 38: { // data entry (LSB)
1587                            //dmsg(1,("DATA ENTRY LSB %d\n", itControlChangeEvent->Param.CC.Value));
1588                            int value = 0;
1589    
1590                            // look-back: if previous MIDI event was data entry MSB,
1591                            // then obtain that value for the MSB value portion
1592                            if (isPrevEventCCNr(itControlChangeEvent, 6))
1593                                value = prevEventOf(itControlChangeEvent)->Param.CC.Value << 7;
1594    
1595                            if (pChannel->GetMidiRpnParameter() >= 0) { // RPN parameter number was sent previously ...
1596                                int ch = itControlChangeEvent->Param.CC.Channel;
1597                                int param = pChannel->GetMidiRpnParameter();
1598                                value |= itControlChangeEvent->Param.CC.Value;
1599    
1600                                // transform event type: CC event -> RPN event
1601                                itControlChangeEvent->Type = Event::type_rpn;
1602                                itControlChangeEvent->Param.RPN.Channel = ch;
1603                                itControlChangeEvent->Param.RPN.Parameter = param;
1604                                itControlChangeEvent->Param.RPN.Value = value;
1605    
1606                                // if there's a RPN script handler, run it ...
1607                                if (pChannel->pScript->handlerRpn) {
1608                                    const event_id_t eventID =
1609                                        pEventPool->getID(itControlChangeEvent);
1610                                    // run the RPN script handler
1611                                    ProcessEventByScript(
1612                                        pChannel, itControlChangeEvent,
1613                                        pChannel->pScript->handlerRpn
1614                                    );
1615                                    // if RPN event was dropped by script, abort
1616                                    // here to avoid hard coded RPN processing below
1617                                    if (!pEventPool->fromID(eventID)) {
1618                                        // to prevent other data entry messages to be misenterpreted as RPN value
1619                                        pChannel->ResetMidiRpnParameter();
1620                                        break;
1621                                    }
1622                                }
1623    
1624                                // do the actual (hard-coded) RPN value change processing
1625                                ProcessHardcodedRpn(pEngineChannel, itControlChangeEvent);
1626    
1627                                // to prevent other data entry messages to be misenterpreted as RPN value
1628                                pChannel->ResetMidiRpnParameter();
1629                            } else if (pChannel->GetMidiNrpnParameter() >= 0) { // NRPN parameter number was sent previously ...
1630                                int ch = itControlChangeEvent->Param.CC.Channel;
1631                                int param = pChannel->GetMidiNrpnParameter();
1632                                value |= itControlChangeEvent->Param.CC.Value;
1633    
1634                                // transform event type: CC event -> NRPN event
1635                                itControlChangeEvent->Type = Event::type_nrpn;
1636                                itControlChangeEvent->Param.NRPN.Channel = ch;
1637                                itControlChangeEvent->Param.NRPN.Parameter = param;
1638                                itControlChangeEvent->Param.NRPN.Value = value;
1639    
1640                                // if there's a NRPN script handler, run it ...
1641                                if (pChannel->pScript->handlerNrpn) {
1642                                    const event_id_t eventID =
1643                                        pEventPool->getID(itControlChangeEvent);
1644                                    // run the NRPN script handler
1645                                    ProcessEventByScript(
1646                                        pChannel, itControlChangeEvent,
1647                                        pChannel->pScript->handlerNrpn
1648                                    );
1649                                    // if NRPN event was dropped by script, abort
1650                                    // here to avoid hard coded NRPN processing below
1651                                    if (!pEventPool->fromID(eventID)) {
1652                                        // to prevent other data entry messages to be misenterpreted as NRPN value
1653                                        pChannel->ResetMidiNrpnParameter();
1654                                        break;
1655                                    }
1656                                }
1657    
1658                                // do the actual (hard-coded) NRPN value change processing
1659                                ProcessHardcodedNrpn(pEngineChannel, itControlChangeEvent);
1660    
1661                                // to prevent other data entry messages to be misenterpreted as NRPN value
1662                                pChannel->ResetMidiNrpnParameter();
1663                            }
1664                            break;
1665                        }
1666                      case 64: { // sustain                      case 64: { // sustain
1667                          if (itControlChangeEvent->Param.CC.Value >= 64 && !pChannel->SustainPedal) {                          if (itControlChangeEvent->Param.CC.Value >= 64 && !pChannel->SustainPedal) {
1668                              dmsg(4,("DAMPER (RIGHT) PEDAL DOWN\n"));                              dmsg(4,("DAMPER (RIGHT) PEDAL DOWN\n"));
# Line 1629  namespace LinuxSampler { Line 1736  namespace LinuxSampler {
1736                          }                          }
1737                          break;                          break;
1738                      }                      }
1739                      case 98: { // NRPN controller LSB                      case 98: { // NRPN parameter LSB
1740                          dmsg(4,("NRPN LSB %d\n", itControlChangeEvent->Param.CC.Value));                          dmsg(4,("NRPN LSB %d\n", itControlChangeEvent->Param.CC.Value));
1741                          pEngineChannel->SetMidiNrpnControllerLsb(itControlChangeEvent->Param.CC.Value);                          pEngineChannel->SetMidiNrpnParameterLsb(itControlChangeEvent->Param.CC.Value);
1742                          break;                          break;
1743                      }                      }
1744                      case 99: { // NRPN controller MSB                      case 99: { // NRPN parameter MSB
1745                          dmsg(4,("NRPN MSB %d\n", itControlChangeEvent->Param.CC.Value));                          dmsg(4,("NRPN MSB %d\n", itControlChangeEvent->Param.CC.Value));
1746                          pEngineChannel->SetMidiNrpnControllerMsb(itControlChangeEvent->Param.CC.Value);                          pEngineChannel->SetMidiNrpnParameterMsb(itControlChangeEvent->Param.CC.Value);
1747                          break;                          break;
1748                      }                      }
1749                      case 100: { // RPN controller LSB                      case 100: { // RPN parameter LSB
1750                          dmsg(4,("RPN LSB %d\n", itControlChangeEvent->Param.CC.Value));                          dmsg(4,("RPN LSB %d\n", itControlChangeEvent->Param.CC.Value));
1751                          pEngineChannel->SetMidiRpnControllerLsb(itControlChangeEvent->Param.CC.Value);                          pEngineChannel->SetMidiRpnParameterLsb(itControlChangeEvent->Param.CC.Value);
1752                          break;                          break;
1753                      }                      }
1754                      case 101: { // RPN controller MSB                      case 101: { // RPN parameter MSB
1755                          dmsg(4,("RPN MSB %d\n", itControlChangeEvent->Param.CC.Value));                          dmsg(4,("RPN MSB %d\n", itControlChangeEvent->Param.CC.Value));
1756                          pEngineChannel->SetMidiRpnControllerMsb(itControlChangeEvent->Param.CC.Value);                          pEngineChannel->SetMidiRpnParameterMsb(itControlChangeEvent->Param.CC.Value);
1757                          break;                          break;
1758                      }                      }
1759    
# Line 1680  namespace LinuxSampler { Line 1787  namespace LinuxSampler {
1787                          break;                          break;
1788                      }                      }
1789                  }                  }
1790                }
1791    
1792                /**
1793                 * Process MIDI RPN events with hard coded behavior.
1794                 *
1795                 * @param pEngineChannel - engine channel on which the MIDI RPN
1796                 *                         event was received
1797                 * @param itRpnEvent - the actual MIDI RPN event
1798                 */
1799                void ProcessHardcodedRpn(EngineChannel* pEngineChannel,
1800                                         Pool<Event>::Iterator& itRpnEvent)
1801                {
1802                    EngineChannelBase<V, R, I>* pChannel =
1803                        static_cast<EngineChannelBase<V, R, I>*>(pEngineChannel);
1804    
1805                    if (itRpnEvent->Param.RPN.Parameter == 2) { // coarse tuning in half tones
1806                        int transpose = (int) itRpnEvent->Param.RPN.ValueMSB() - 64;
1807                        // limit to +- two octaves for now
1808                        transpose = RTMath::Min(transpose,  24);
1809                        transpose = RTMath::Max(transpose, -24);
1810                        pChannel->GlobalTranspose = transpose;
1811                        // workaround, so we won't have hanging notes
1812                        pChannel->ReleaseAllVoices(itRpnEvent);
1813                    }
1814                }
1815    
1816                /**
1817                 * Process MIDI NRPN events with hard coded behavior.
1818                 *
1819                 * @param pEngineChannel - engine channel on which the MIDI NRPN
1820                 *                         event was received
1821                 * @param itRpnEvent - the actual MIDI NRPN event
1822                 */
1823                void ProcessHardcodedNrpn(EngineChannel* pEngineChannel,
1824                                          Pool<Event>::Iterator& itNrpnEvent)
1825                {
1826                    EngineChannelBase<V, R, I>* pChannel =
1827                        static_cast<EngineChannelBase<V, R, I>*>(pEngineChannel);
1828    
1829                    switch (itNrpnEvent->Param.NRPN.ParameterMSB()) {
1830                        case 0x1a: { // volume level of note (Roland GS NRPN)
1831                            const uint note = itNrpnEvent->Param.NRPN.ParameterLSB();
1832                            const uint vol  = itNrpnEvent->Param.NRPN.ValueMSB();
1833                            dmsg(4,("Note Volume NRPN received (note=%d,vol=%d).\n", note, vol));
1834                            if (note < 128 && vol < 128)
1835                                pChannel->pMIDIKeyInfo[note].Volume = VolumeCurve[vol];
1836                            break;
1837                        }
1838                        case 0x1c: { // panpot of note (Roland GS NRPN)
1839                            const uint note = itNrpnEvent->Param.NRPN.ParameterLSB();
1840                            const uint pan  = itNrpnEvent->Param.NRPN.ValueMSB();
1841                            dmsg(4,("Note Pan NRPN received (note=%d,pan=%d).\n", note, pan));
1842                            if (note < 128 && pan < 128) {
1843                                pChannel->pMIDIKeyInfo[note].PanLeft  = PanCurve[128 - pan];
1844                                pChannel->pMIDIKeyInfo[note].PanRight = PanCurve[pan];
1845                            }
1846                            break;
1847                        }
1848                        case 0x1d: { // reverb send of note (Roland GS NRPN)
1849                            const uint note = itNrpnEvent->Param.NRPN.ParameterLSB();
1850                            const float reverb = float(itNrpnEvent->Param.NRPN.Value) / 16383.f;
1851                            dmsg(4,("Note Reverb Send NRPN received (note=%d,send=%f).\n", note, reverb));
1852                            if (note < 128)
1853                                pChannel->pMIDIKeyInfo[note].ReverbSend = reverb;
1854                            break;
1855                        }
1856                        case 0x1e: { // chorus send of note (Roland GS NRPN)
1857                            const uint note = itNrpnEvent->Param.NRPN.ParameterLSB();
1858                            const float chorus = float(itNrpnEvent->Param.NRPN.Value) / 16383.f;
1859                            dmsg(4,("Note Chorus Send NRPN received (note=%d,send=%f).\n", note, chorus));
1860                            if (note < 128)
1861                                pChannel->pMIDIKeyInfo[note].ChorusSend = chorus;
1862                            break;
1863                        }
1864                    }
1865              }              }
1866    
1867              virtual D* CreateDiskThread() = 0;              virtual D* CreateDiskThread() = 0;
Legend:
Removed from v.3561  
changed lines
  Added in v.3696
  ViewVC Help
Powered by ViewVC