/[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 3221 by schoenebeck, Fri May 26 18:30:42 2017 UTC revision 3690 by schoenebeck, Fri Jan 3 10:18:21 2020 UTC
# Line 202  namespace LinuxSampler { Line 202  namespace LinuxSampler {
202                      PostProcess(engineChannels[i]);                      PostProcess(engineChannels[i]);
203                  }                  }
204    
205                    // Just for debugging: dump the amount of free Note objects to
206                    // the terminal (note due to the static variables being used,
207                    // this is currently just intended for debugging with only one
208                    // engine channel).
209                    #if (CONFIG_DEBUG_LEVEL >= 3)
210                    {
211                        static int slice = 0;
212                        static int noteCount = -1;
213                        if (slice++ % 10 == 0) {
214                            int n = pNotePool->countFreeElements();
215                            if (n != noteCount) {
216                                noteCount = n;
217                                dmsg(1,("[%d] free Note objects count = %d\n", slice / 10, n));
218                            }
219                        }
220                    }
221                    #endif
222    
223                  // empty the engine's event list for the next audio fragment                  // empty the engine's event list for the next audio fragment
224                  ClearEventLists();                  ClearEventLists();
# Line 379  namespace LinuxSampler { Line 396  namespace LinuxSampler {
396                  }                  }
397                  pVoicePool->clear();                  pVoicePool->clear();
398    
399                  // (re)create event generator                  // update event generator
400                  if (pEventGenerator) delete pEventGenerator;                  pEventGenerator->SetSampleRate(pAudioOut->SampleRate());
                 pEventGenerator = new EventGenerator(pAudioOut->SampleRate());  
401    
402                  dmsg(1,("Starting disk thread..."));                  dmsg(1,("Starting disk thread..."));
403                  pDiskThread->StartThread();                  pDiskThread->StartThread();
# Line 740  namespace LinuxSampler { Line 756  namespace LinuxSampler {
756                  // move new note to its host key                  // move new note to its host key
757                  MidiKey* pKey = &pChannel->pMIDIKeyInfo[itNewNote->hostKey];                  MidiKey* pKey = &pChannel->pMIDIKeyInfo[itNewNote->hostKey];
758                  itNewNote.moveToEndOf(pKey->pActiveNotes);                  itNewNote.moveToEndOf(pKey->pActiveNotes);
759                    pChannel->markKeyAsActive(pKey);
760    
761                  // assign unique note ID of this new note to the original note on event                  // assign unique note ID of this new note to the original note on event
762                  itNoteOnEvent->Param.Note.ID = newNoteID;                  itNoteOnEvent->Param.Note.ID = newNoteID;
# Line 1025  namespace LinuxSampler { Line 1042  namespace LinuxSampler {
1042                  itScriptEvent->executionSlices = 0;                  itScriptEvent->executionSlices = 0;
1043                  itScriptEvent->ignoreAllWaitCalls = false;                  itScriptEvent->ignoreAllWaitCalls = false;
1044                  itScriptEvent->handlerType = pEventHandler->eventHandlerType();                  itScriptEvent->handlerType = pEventHandler->eventHandlerType();
1045                    itScriptEvent->parentHandlerID = 0;
1046                    itScriptEvent->childHandlerID[0] = 0;
1047                    itScriptEvent->autoAbortByParent = false;
1048                    itScriptEvent->forkIndex = 0;
1049                  // this is the native representation of the $EVENT_ID script variable                  // this is the native representation of the $EVENT_ID script variable
1050                  itScriptEvent->id =                  itScriptEvent->id =
1051                      (itEvent->Type == Event::type_note_on)                      (itEvent->Type == Event::type_note_on)
# Line 1137  namespace LinuxSampler { Line 1158  namespace LinuxSampler {
1158               *  @returns 0 on success, a value < 0 if no active voice could be picked for voice stealing               *  @returns 0 on success, a value < 0 if no active voice could be picked for voice stealing
1159               */               */
1160              int StealVoice(EngineChannel* pEngineChannel, Pool<Event>::Iterator& itNoteOnEvent) {              int StealVoice(EngineChannel* pEngineChannel, Pool<Event>::Iterator& itNoteOnEvent) {
1161                    dmsg(3,("StealVoice()\n"));
1162                  if (VoiceSpawnsLeft <= 0) {                  if (VoiceSpawnsLeft <= 0) {
1163                      dmsg(1,("Max. voice thefts per audio fragment reached (you may raise CONFIG_MAX_VOICES).\n"));                      dmsg(1,("Max. voice thefts per audio fragment reached (you may raise CONFIG_MAX_VOICES).\n"));
1164                      return -1;                      return -1;
# Line 1161  namespace LinuxSampler { Line 1183  namespace LinuxSampler {
1183                  int                          iChannelIndex;                  int                          iChannelIndex;
1184                  VoiceIterator                itSelectedVoice;                  VoiceIterator                itSelectedVoice;
1185    
1186                    #if CONFIG_DEVMODE
1187                    EngineChannel* pBegin = NULL; // to detect endless loop
1188                    #endif
1189    
1190                  // select engine channel                  // select engine channel
1191                  if (pLastStolenChannel) {                  if (pLastStolenChannel) {
1192                      pSelectedChannel = pLastStolenChannel;                      pSelectedChannel = pLastStolenChannel;
# Line 1203  namespace LinuxSampler { Line 1229  namespace LinuxSampler {
1229                  }                  }
1230    
1231                  #if CONFIG_DEVMODE                  #if CONFIG_DEVMODE
1232                  EngineChannel* pBegin = pSelectedChannel; // to detect endless loop                  pBegin = pSelectedChannel; // to detect endless loop
1233                  #endif // CONFIG_DEVMODE                  #endif // CONFIG_DEVMODE
1234    
1235                  while (true) { // iterate through engine channels                                          while (true) { // iterate through engine channels                        
# Line 1296  namespace LinuxSampler { Line 1322  namespace LinuxSampler {
1322                              RTList<ScriptEvent>::Iterator itScriptEvent =                              RTList<ScriptEvent>::Iterator itScriptEvent =
1323                                  pEngineChannel->pScript->pEvents->allocAppend();                                  pEngineChannel->pScript->pEvents->allocAppend();
1324    
1325                                itScriptEvent->cause = pEventGenerator->CreateEvent(0);
1326                                itScriptEvent->cause.Type = (Event::type_t) -1; // some invalid type to avoid random event processing
1327                              itScriptEvent->cause.pEngineChannel = pEngineChannel;                              itScriptEvent->cause.pEngineChannel = pEngineChannel;
1328                                itScriptEvent->cause.pMidiInputPort = pEngineChannel->GetMidiInputPort();
1329                                itScriptEvent->id = 0;
1330                              itScriptEvent->handlers[0] = pEngineChannel->pScript->handlerInit;                              itScriptEvent->handlers[0] = pEngineChannel->pScript->handlerInit;
1331                              itScriptEvent->handlers[1] = NULL;                              itScriptEvent->handlers[1] = NULL;
1332                              itScriptEvent->currentHandler = 0;                              itScriptEvent->currentHandler = 0;
1333                              itScriptEvent->executionSlices = 0;                              itScriptEvent->executionSlices = 0;
1334                              itScriptEvent->ignoreAllWaitCalls = false;                              itScriptEvent->ignoreAllWaitCalls = false;
1335                              itScriptEvent->handlerType = VM_EVENT_HANDLER_INIT;                              itScriptEvent->handlerType = VM_EVENT_HANDLER_INIT;
1336                                itScriptEvent->parentHandlerID = 0;
1337                                itScriptEvent->childHandlerID[0] = 0;
1338                                itScriptEvent->autoAbortByParent = false;
1339                                itScriptEvent->forkIndex = 0;
1340    
1341                              VMExecStatus_t res;                              VMExecStatus_t res;
1342                              size_t instructionsCount = 0;                              size_t instructionsCount = 0;
# Line 1378  namespace LinuxSampler { Line 1412  namespace LinuxSampler {
1412                          // usually there should already be a new Note object                          // usually there should already be a new Note object
1413                          NoteIterator itNote = GetNotePool()->fromID(itVoiceStealEvent->Param.Note.ID);                          NoteIterator itNote = GetNotePool()->fromID(itVoiceStealEvent->Param.Note.ID);
1414                          if (!itNote) { // should not happen, but just to be sure ...                          if (!itNote) { // should not happen, but just to be sure ...
1415                                dmsg(2,("Engine: No Note object for stolen voice!\n"));
1416                              const note_id_t noteID = LaunchNewNote(pEngineChannel, itVoiceStealEvent);                              const note_id_t noteID = LaunchNewNote(pEngineChannel, itVoiceStealEvent);
1417                              if (!noteID) {                              if (!noteID) {
1418                                  dmsg(1,("Engine: Voice stealing failed; No Note object and Note pool empty!\n"));                                  dmsg(1,("Engine: Voice stealing failed; No Note object and Note pool empty!\n"));
# Line 1422  namespace LinuxSampler { Line 1457  namespace LinuxSampler {
1457              void PostProcess(EngineChannel* pEngineChannel) {              void PostProcess(EngineChannel* pEngineChannel) {
1458                  EngineChannelBase<V, R, I>* pChannel =                  EngineChannelBase<V, R, I>* pChannel =
1459                      static_cast<EngineChannelBase<V, R, I>*>(pEngineChannel);                      static_cast<EngineChannelBase<V, R, I>*>(pEngineChannel);
1460                   pChannel->FreeAllInactiveKyes();                   pChannel->FreeAllInactiveKeys();
1461    
1462                  // empty the engine channel's own event lists                  // empty the engine channel's own event lists
1463                  // (only events of the current audio fragment cycle)                  // (only events of the current audio fragment cycle)
# Line 1449  namespace LinuxSampler { Line 1484  namespace LinuxSampler {
1484                          pChannel->PortamentoTime = (float) itControlChangeEvent->Param.CC.Value / 127.0f * (float) CONFIG_PORTAMENTO_TIME_MAX + (float) CONFIG_PORTAMENTO_TIME_MIN;                          pChannel->PortamentoTime = (float) itControlChangeEvent->Param.CC.Value / 127.0f * (float) CONFIG_PORTAMENTO_TIME_MAX + (float) CONFIG_PORTAMENTO_TIME_MIN;
1485                          break;                          break;
1486                      }                      }
1487                      case 6: { // data entry (currently only used for RPN and NRPN controllers)                      case 6: { // data entry (MSB)
1488                          //dmsg(1,("DATA ENTRY %d\n", itControlChangeEvent->Param.CC.Value));                          //dmsg(1,("DATA ENTRY MSB %d\n", itControlChangeEvent->Param.CC.Value));
1489                          if (pChannel->GetMidiRpnController() >= 0) { // RPN controller number was sent previously ...  
1490                              dmsg(4,("Guess it's an RPN ...\n"));                          // look-ahead: if next MIDI event is data entry LSB,
1491                              if (pChannel->GetMidiRpnController() == 2) { // coarse tuning in half tones                          // then skip this event here for now (to avoid double
1492                                  int transpose = (int) itControlChangeEvent->Param.CC.Value - 64;                          // handling of what's supposed to be one RPN/NRPN event)
1493                                  // limit to +- two octaves for now                          if (isNextEventCCNr(itControlChangeEvent, 38))
1494                                  transpose = RTMath::Min(transpose,  24);                              break;
1495                                  transpose = RTMath::Max(transpose, -24);  
1496                                  pChannel->GlobalTranspose = transpose;                          if (pChannel->GetMidiRpnParameter() >= 0) { // RPN parameter number was sent previously ...
1497                                  // workaround, so we won't have hanging notes                              int ch = itControlChangeEvent->Param.CC.Channel;
1498                                  pChannel->ReleaseAllVoices(itControlChangeEvent);                              int param = pChannel->GetMidiRpnParameter();
1499                              }                              int value = itControlChangeEvent->Param.CC.Value << 7;
1500                              // to prevent other MIDI CC #6 messages to be misenterpreted as RPN controller data  
1501                              pChannel->ResetMidiRpnController();                              // transform event type: CC event -> RPN event
1502                          } else if (pChannel->GetMidiNrpnController() >= 0) { // NRPN controller number was sent previously ...                              itControlChangeEvent->Type = Event::type_rpn;
1503                              dmsg(4,("Guess it's an NRPN ...\n"));                              itControlChangeEvent->Param.RPN.Channel = ch;
1504                              const int NrpnCtrlMSB = pChannel->GetMidiNrpnController() >> 8;                              itControlChangeEvent->Param.RPN.Parameter = param;
1505                              const int NrpnCtrlLSB = pChannel->GetMidiNrpnController() & 0xff;                              itControlChangeEvent->Param.RPN.Value = value;
1506                              dmsg(4,("NRPN MSB=%d LSB=%d Data=%d\n", NrpnCtrlMSB, NrpnCtrlLSB, itControlChangeEvent->Param.CC.Value));  
1507                              switch (NrpnCtrlMSB) {                              // if there's a RPN script handler, run it ...
1508                                  case 0x1a: { // volume level of note (Roland GS NRPN)                              if (pChannel->pScript->handlerRpn) {
1509                                      const uint note = NrpnCtrlLSB;                                  const event_id_t eventID =
1510                                      const uint vol  = itControlChangeEvent->Param.CC.Value;                                      pEventPool->getID(itControlChangeEvent);
1511                                      dmsg(4,("Note Volume NRPN received (note=%d,vol=%d).\n", note, vol));                                  // run the RPN script handler
1512                                      if (note < 128 && vol < 128)                                  ProcessEventByScript(
1513                                          pChannel->pMIDIKeyInfo[note].Volume = VolumeCurve[vol];                                      pChannel, itControlChangeEvent,
1514                                      break;                                      pChannel->pScript->handlerRpn
1515                                  }                                  );
1516                                  case 0x1c: { // panpot of note (Roland GS NRPN)                                  // if RPN event was dropped by script, abort
1517                                      const uint note = NrpnCtrlLSB;                                  // here to avoid hard coded RPN processing below
1518                                      const uint pan  = itControlChangeEvent->Param.CC.Value;                                  if (!pEventPool->fromID(eventID)) {
1519                                      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
1520                                      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;  
1521                                      break;                                      break;
1522                                  }                                  }
1523                                  case 0x1e: { // chorus send of note (Roland GS NRPN)                              }
1524                                      const uint note = NrpnCtrlLSB;  
1525                                      const float chorus = float(itControlChangeEvent->Param.CC.Value) / 127.0f;                              // do the actual (hard-coded) RPN value change processing
1526                                      dmsg(4,("Note Chorus Send NRPN received (note=%d,send=%f).\n", note, chorus));                              ProcessHardcodedRpn(pEngineChannel, itControlChangeEvent);
1527                                      if (note < 128)  
1528                                          pChannel->pMIDIKeyInfo[note].ChorusSend = chorus;                              // to prevent other data entry messages to be misenterpreted as RPN value
1529                                pChannel->ResetMidiRpnParameter();
1530                            } else if (pChannel->GetMidiNrpnParameter() >= 0) { // NRPN parameter number was sent previously ...
1531                                int ch = itControlChangeEvent->Param.CC.Channel;
1532                                int param = pChannel->GetMidiNrpnParameter();
1533                                int value = itControlChangeEvent->Param.CC.Value << 7;
1534    
1535                                // transform event type: CC event -> NRPN event
1536                                itControlChangeEvent->Type = Event::type_nrpn;
1537                                itControlChangeEvent->Param.RPN.Channel = ch;
1538                                itControlChangeEvent->Param.RPN.Parameter = param;
1539                                itControlChangeEvent->Param.RPN.Value = value;
1540    
1541                                // if there's a NRPN script handler, run it ...
1542                                if (pChannel->pScript->handlerNrpn) {
1543                                    const event_id_t eventID =
1544                                        pEventPool->getID(itControlChangeEvent);
1545                                    // run the NRPN script handler
1546                                    ProcessEventByScript(
1547                                        pChannel, itControlChangeEvent,
1548                                        pChannel->pScript->handlerNrpn
1549                                    );
1550                                    // if NRPN event was dropped by script, abort
1551                                    // here to avoid hard coded NRPN processing below
1552                                    if (!pEventPool->fromID(eventID)) {
1553                                        // to prevent other data entry messages to be misenterpreted as NRPN value
1554                                        pChannel->ResetMidiNrpnParameter();
1555                                      break;                                      break;
1556                                  }                                  }
1557                              }                              }
1558                              // to prevent other MIDI CC #6 messages to be misenterpreted as NRPN controller data  
1559                              pChannel->ResetMidiNrpnController();                              // do the actual (hard-coded) NRPN value change processing
1560                                ProcessHardcodedNrpn(pEngineChannel, itControlChangeEvent);
1561    
1562                                // to prevent other data entry messages to be misenterpreted as NRPN value
1563                                pChannel->ResetMidiNrpnParameter();
1564                          }                          }
1565                          break;                          break;
1566                      }                      }
# Line 1521  namespace LinuxSampler { Line 1575  namespace LinuxSampler {
1575                          pChannel->iLastPanRequest = itControlChangeEvent->Param.CC.Value;                          pChannel->iLastPanRequest = itControlChangeEvent->Param.CC.Value;
1576                          break;                          break;
1577                      }                      }
1578                        case 38: { // data entry (LSB)
1579                            //dmsg(1,("DATA ENTRY LSB %d\n", itControlChangeEvent->Param.CC.Value));
1580                            int value = 0;
1581    
1582                            // look-back: if previous MIDI event was data entry MSB,
1583                            // then obtain that value for the MSB value portion
1584                            if (isPrevEventCCNr(itControlChangeEvent, 6))
1585                                value = prevEventOf(itControlChangeEvent)->Param.CC.Value << 7;
1586    
1587                            if (pChannel->GetMidiRpnParameter() >= 0) { // RPN parameter number was sent previously ...
1588                                int ch = itControlChangeEvent->Param.CC.Channel;
1589                                int param = pChannel->GetMidiRpnParameter();
1590                                value |= itControlChangeEvent->Param.CC.Value;
1591    
1592                                // transform event type: CC event -> RPN event
1593                                itControlChangeEvent->Type = Event::type_rpn;
1594                                itControlChangeEvent->Param.RPN.Channel = ch;
1595                                itControlChangeEvent->Param.RPN.Parameter = param;
1596                                itControlChangeEvent->Param.RPN.Value = value;
1597    
1598                                // if there's a RPN script handler, run it ...
1599                                if (pChannel->pScript->handlerRpn) {
1600                                    const event_id_t eventID =
1601                                        pEventPool->getID(itControlChangeEvent);
1602                                    // run the RPN script handler
1603                                    ProcessEventByScript(
1604                                        pChannel, itControlChangeEvent,
1605                                        pChannel->pScript->handlerRpn
1606                                    );
1607                                    // if RPN event was dropped by script, abort
1608                                    // here to avoid hard coded RPN processing below
1609                                    if (!pEventPool->fromID(eventID)) {
1610                                        // to prevent other data entry messages to be misenterpreted as RPN value
1611                                        pChannel->ResetMidiRpnParameter();
1612                                        break;
1613                                    }
1614                                }
1615    
1616                                // do the actual (hard-coded) RPN value change processing
1617                                ProcessHardcodedRpn(pEngineChannel, itControlChangeEvent);
1618    
1619                                // to prevent other data entry messages to be misenterpreted as RPN value
1620                                pChannel->ResetMidiRpnParameter();
1621                            } else if (pChannel->GetMidiNrpnParameter() >= 0) { // NRPN parameter number was sent previously ...
1622                                int ch = itControlChangeEvent->Param.CC.Channel;
1623                                int param = pChannel->GetMidiNrpnParameter();
1624                                value |= itControlChangeEvent->Param.CC.Value;
1625    
1626                                // transform event type: CC event -> NRPN event
1627                                itControlChangeEvent->Type = Event::type_nrpn;
1628                                itControlChangeEvent->Param.RPN.Channel = ch;
1629                                itControlChangeEvent->Param.RPN.Parameter = param;
1630                                itControlChangeEvent->Param.RPN.Value = value;
1631    
1632                                // if there's a NRPN script handler, run it ...
1633                                if (pChannel->pScript->handlerNrpn) {
1634                                    const event_id_t eventID =
1635                                        pEventPool->getID(itControlChangeEvent);
1636                                    // run the NRPN script handler
1637                                    ProcessEventByScript(
1638                                        pChannel, itControlChangeEvent,
1639                                        pChannel->pScript->handlerNrpn
1640                                    );
1641                                    // if NRPN event was dropped by script, abort
1642                                    // here to avoid hard coded NRPN processing below
1643                                    if (!pEventPool->fromID(eventID)) {
1644                                        // to prevent other data entry messages to be misenterpreted as NRPN value
1645                                        pChannel->ResetMidiNrpnParameter();
1646                                        break;
1647                                    }
1648                                }
1649    
1650                                // do the actual (hard-coded) NRPN value change processing
1651                                ProcessHardcodedNrpn(pEngineChannel, itControlChangeEvent);
1652    
1653                                // to prevent other data entry messages to be misenterpreted as NRPN value
1654                                pChannel->ResetMidiNrpnParameter();
1655                            }
1656                            break;
1657                        }
1658                      case 64: { // sustain                      case 64: { // sustain
1659                          if (itControlChangeEvent->Param.CC.Value >= 64 && !pChannel->SustainPedal) {                          if (itControlChangeEvent->Param.CC.Value >= 64 && !pChannel->SustainPedal) {
1660                              dmsg(4,("DAMPER (RIGHT) PEDAL DOWN\n"));                              dmsg(4,("DAMPER (RIGHT) PEDAL DOWN\n"));
# Line 1594  namespace LinuxSampler { Line 1728  namespace LinuxSampler {
1728                          }                          }
1729                          break;                          break;
1730                      }                      }
1731                      case 98: { // NRPN controller LSB                      case 98: { // NRPN parameter LSB
1732                          dmsg(4,("NRPN LSB %d\n", itControlChangeEvent->Param.CC.Value));                          dmsg(4,("NRPN LSB %d\n", itControlChangeEvent->Param.CC.Value));
1733                          pEngineChannel->SetMidiNrpnControllerLsb(itControlChangeEvent->Param.CC.Value);                          pEngineChannel->SetMidiNrpnParameterLsb(itControlChangeEvent->Param.CC.Value);
1734                          break;                          break;
1735                      }                      }
1736                      case 99: { // NRPN controller MSB                      case 99: { // NRPN parameter MSB
1737                          dmsg(4,("NRPN MSB %d\n", itControlChangeEvent->Param.CC.Value));                          dmsg(4,("NRPN MSB %d\n", itControlChangeEvent->Param.CC.Value));
1738                          pEngineChannel->SetMidiNrpnControllerMsb(itControlChangeEvent->Param.CC.Value);                          pEngineChannel->SetMidiNrpnParameterMsb(itControlChangeEvent->Param.CC.Value);
1739                          break;                          break;
1740                      }                      }
1741                      case 100: { // RPN controller LSB                      case 100: { // RPN parameter LSB
1742                          dmsg(4,("RPN LSB %d\n", itControlChangeEvent->Param.CC.Value));                          dmsg(4,("RPN LSB %d\n", itControlChangeEvent->Param.CC.Value));
1743                          pEngineChannel->SetMidiRpnControllerLsb(itControlChangeEvent->Param.CC.Value);                          pEngineChannel->SetMidiRpnParameterLsb(itControlChangeEvent->Param.CC.Value);
1744                          break;                          break;
1745                      }                      }
1746                      case 101: { // RPN controller MSB                      case 101: { // RPN parameter MSB
1747                          dmsg(4,("RPN MSB %d\n", itControlChangeEvent->Param.CC.Value));                          dmsg(4,("RPN MSB %d\n", itControlChangeEvent->Param.CC.Value));
1748                          pEngineChannel->SetMidiRpnControllerMsb(itControlChangeEvent->Param.CC.Value);                          pEngineChannel->SetMidiRpnParameterMsb(itControlChangeEvent->Param.CC.Value);
1749                          break;                          break;
1750                      }                      }
1751    
# Line 1647  namespace LinuxSampler { Line 1781  namespace LinuxSampler {
1781                  }                  }
1782              }              }
1783    
1784                /**
1785                 * Process MIDI RPN events with hard coded behavior.
1786                 *
1787                 * @param pEngineChannel - engine channel on which the MIDI RPN
1788                 *                         event was received
1789                 * @param itRpnEvent - the actual MIDI RPN event
1790                 */
1791                void ProcessHardcodedRpn(EngineChannel* pEngineChannel,
1792                                         Pool<Event>::Iterator& itRpnEvent)
1793                {
1794                    EngineChannelBase<V, R, I>* pChannel =
1795                        static_cast<EngineChannelBase<V, R, I>*>(pEngineChannel);
1796    
1797                    if (itRpnEvent->Param.RPN.Parameter == 2) { // coarse tuning in half tones
1798                        int transpose = (int) itRpnEvent->Param.RPN.ValueMSB() - 64;
1799                        // limit to +- two octaves for now
1800                        transpose = RTMath::Min(transpose,  24);
1801                        transpose = RTMath::Max(transpose, -24);
1802                        pChannel->GlobalTranspose = transpose;
1803                        // workaround, so we won't have hanging notes
1804                        pChannel->ReleaseAllVoices(itRpnEvent);
1805                    }
1806                }
1807    
1808                /**
1809                 * Process MIDI NRPN events with hard coded behavior.
1810                 *
1811                 * @param pEngineChannel - engine channel on which the MIDI NRPN
1812                 *                         event was received
1813                 * @param itRpnEvent - the actual MIDI NRPN event
1814                 */
1815                void ProcessHardcodedNrpn(EngineChannel* pEngineChannel,
1816                                          Pool<Event>::Iterator& itNrpnEvent)
1817                {
1818                    EngineChannelBase<V, R, I>* pChannel =
1819                        static_cast<EngineChannelBase<V, R, I>*>(pEngineChannel);
1820    
1821                    switch (itNrpnEvent->Param.NRPN.ParameterMSB()) {
1822                        case 0x1a: { // volume level of note (Roland GS NRPN)
1823                            const uint note = itNrpnEvent->Param.NRPN.ParameterLSB();
1824                            const uint vol  = itNrpnEvent->Param.NRPN.ValueMSB();
1825                            dmsg(4,("Note Volume NRPN received (note=%d,vol=%d).\n", note, vol));
1826                            if (note < 128 && vol < 128)
1827                                pChannel->pMIDIKeyInfo[note].Volume = VolumeCurve[vol];
1828                            break;
1829                        }
1830                        case 0x1c: { // panpot of note (Roland GS NRPN)
1831                            const uint note = itNrpnEvent->Param.NRPN.ParameterLSB();
1832                            const uint pan  = itNrpnEvent->Param.NRPN.ValueMSB();
1833                            dmsg(4,("Note Pan NRPN received (note=%d,pan=%d).\n", note, pan));
1834                            if (note < 128 && pan < 128) {
1835                                pChannel->pMIDIKeyInfo[note].PanLeft  = PanCurve[128 - pan];
1836                                pChannel->pMIDIKeyInfo[note].PanRight = PanCurve[pan];
1837                            }
1838                            break;
1839                        }
1840                        case 0x1d: { // reverb send of note (Roland GS NRPN)
1841                            const uint note = itNrpnEvent->Param.NRPN.ParameterLSB();
1842                            const float reverb = float(itNrpnEvent->Param.NRPN.Value) / 16383.f;
1843                            dmsg(4,("Note Reverb Send NRPN received (note=%d,send=%f).\n", note, reverb));
1844                            if (note < 128)
1845                                pChannel->pMIDIKeyInfo[note].ReverbSend = reverb;
1846                            break;
1847                        }
1848                        case 0x1e: { // chorus send of note (Roland GS NRPN)
1849                            const uint note = itNrpnEvent->Param.NRPN.ParameterLSB();
1850                            const float chorus = float(itNrpnEvent->Param.NRPN.Value) / 16383.f;
1851                            dmsg(4,("Note Chorus Send NRPN received (note=%d,send=%f).\n", note, chorus));
1852                            if (note < 128)
1853                                pChannel->pMIDIKeyInfo[note].ChorusSend = chorus;
1854                            break;
1855                        }
1856                    }
1857                }
1858    
1859              virtual D* CreateDiskThread() = 0;              virtual D* CreateDiskThread() = 0;
1860    
1861              /**              /**
# Line 1887  namespace LinuxSampler { Line 2096  namespace LinuxSampler {
2096                      if (bShouldRelease) {                      if (bShouldRelease) {
2097                          itNoteOffEventOnKeyList->Type = Event::type_release_key; // transform event type                          itNoteOffEventOnKeyList->Type = Event::type_release_key; // transform event type
2098                          // spawn release triggered voice(s) if needed                          // spawn release triggered voice(s) if needed
2099                          ProcessReleaseTrigger(pChannel, itNoteOffEventOnKeyList, pKey);                          if (pKey->ReleaseTrigger & release_trigger_noteoff)
2100                                ProcessReleaseTrigger(pChannel, itNoteOffEventOnKeyList, pKey);
2101                      }                      }
2102                  } else if (itNoteOffEventOnKeyList->Type == Event::type_stop_note) {                  } else if (itNoteOffEventOnKeyList->Type == Event::type_stop_note) {
2103                      // This programmatically caused event is caused by a call to                      // This programmatically caused event is caused by a call to
# Line 1918  namespace LinuxSampler { Line 2128  namespace LinuxSampler {
2128               * @param pEngineChannel - engine channel on which this event occurred on               * @param pEngineChannel - engine channel on which this event occurred on
2129               * @param itEvent - release trigger event (contains note number)               * @param itEvent - release trigger event (contains note number)
2130               */               */
2131              virtual void ProcessReleaseTrigger(EngineChannel* pEngineChannel, RTList<Event>::Iterator& itEvent) OVERRIDE {              virtual void ProcessReleaseTriggerBySustain(EngineChannel* pEngineChannel, RTList<Event>::Iterator& itEvent) OVERRIDE {
2132                  EngineChannelBase<V, R, I>* pChannel = static_cast<EngineChannelBase<V, R, I>*>(pEngineChannel);                  EngineChannelBase<V, R, I>* pChannel = static_cast<EngineChannelBase<V, R, I>*>(pEngineChannel);
2133    
2134                  const int iKey = itEvent->Param.Note.Key;                  const int iKey = itEvent->Param.Note.Key;
# Line 1946  namespace LinuxSampler { Line 2156  namespace LinuxSampler {
2156                          // allocate and trigger new release voice(s)                          // allocate and trigger new release voice(s)
2157                          TriggerReleaseVoices(pChannel, itEvent);                          TriggerReleaseVoices(pChannel, itEvent);
2158                      }                      }
2159                      pKey->ReleaseTrigger = false;                      pKey->ReleaseTrigger = release_trigger_none;
2160                  }                  }
2161              }              }
2162    
# Line 1992  namespace LinuxSampler { Line 2202  namespace LinuxSampler {
2202                  NoteBase* pNote = pChannel->pEngine->NoteByID( itEvent->Param.NoteSynthParam.NoteID );                  NoteBase* pNote = pChannel->pEngine->NoteByID( itEvent->Param.NoteSynthParam.NoteID );
2203                  if (!pNote || pNote->hostKey < 0 || pNote->hostKey >= 128) return;                  if (!pNote || pNote->hostKey < 0 || pNote->hostKey >= 128) return;
2204    
                 const bool& relative = itEvent->Param.NoteSynthParam.Relative;  
   
2205                  switch (itEvent->Param.NoteSynthParam.Type) {                  switch (itEvent->Param.NoteSynthParam.Type) {
2206                      case Event::synth_param_volume:                      case Event::synth_param_volume:
2207                          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;  
2208                          break;                          break;
2209                      case Event::synth_param_volume_time:                      case Event::synth_param_volume_time:
2210                          pNote->Override.VolumeTime = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->Override.VolumeTime = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;
2211                          break;                          break;
2212                        case Event::synth_param_volume_curve:
2213                            itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;
2214                            pNote->Override.VolumeCurve = (fade_curve_t) itEvent->Param.NoteSynthParam.AbsValue;
2215                            break;
2216                      case Event::synth_param_pitch:                      case Event::synth_param_pitch:
2217                          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;  
2218                          break;                          break;
2219                      case Event::synth_param_pitch_time:                      case Event::synth_param_pitch_time:
2220                          pNote->Override.PitchTime = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->Override.PitchTime = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;
2221                          break;                          break;
2222                        case Event::synth_param_pitch_curve:
2223                            itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;
2224                            pNote->Override.PitchCurve = (fade_curve_t) itEvent->Param.NoteSynthParam.AbsValue;
2225                            break;
2226                      case Event::synth_param_pan:                      case Event::synth_param_pan:
2227                          if (relative) {                          pNote->apply(itEvent, &NoteBase::_Override::Pan);
2228                              pNote->Override.Pan = RTMath::RelativeSummedAvg(pNote->Override.Pan, itEvent->Param.NoteSynthParam.Delta, ++pNote->Override.PanSources);                          break;
2229                          } else {                      case Event::synth_param_pan_time:
2230                              pNote->Override.Pan = itEvent->Param.NoteSynthParam.Delta;                          pNote->Override.PanTime = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;
2231                              pNote->Override.PanSources = 1; // only relevant on subsequent change_pan() instrument script calls on same note with 'relative' argument being set                          break;
2232                          }                      case Event::synth_param_pan_curve:
2233                          itEvent->Param.NoteSynthParam.AbsValue = pNote->Override.Pan;                          itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;
2234                            pNote->Override.PanCurve = (fade_curve_t) itEvent->Param.NoteSynthParam.AbsValue;
2235                          break;                          break;
2236                      case Event::synth_param_cutoff:                      case Event::synth_param_cutoff:
2237                          pNote->Override.Cutoff = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::Cutoff);
2238                          break;                          break;
2239                      case Event::synth_param_resonance:                      case Event::synth_param_resonance:
2240                          pNote->Override.Resonance = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::Resonance);
2241                          break;                          break;
2242                      case Event::synth_param_attack:                      case Event::synth_param_attack:
2243                          pNote->Override.Attack = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::Attack);
2244                          break;                          break;
2245                      case Event::synth_param_decay:                      case Event::synth_param_decay:
2246                          pNote->Override.Decay = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::Decay);
2247                            break;
2248                        case Event::synth_param_sustain:
2249                            pNote->apply(itEvent, &NoteBase::_Override::Sustain);
2250                          break;                          break;
2251                      case Event::synth_param_release:                      case Event::synth_param_release:
2252                          pNote->Override.Release = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::Release);
2253                            break;
2254    
2255                        case Event::synth_param_cutoff_attack:
2256                            pNote->apply(itEvent, &NoteBase::_Override::CutoffAttack);
2257                            break;
2258                        case Event::synth_param_cutoff_decay:
2259                            pNote->apply(itEvent, &NoteBase::_Override::CutoffDecay);
2260                            break;
2261                        case Event::synth_param_cutoff_sustain:
2262                            pNote->apply(itEvent, &NoteBase::_Override::CutoffSustain);
2263                          break;                          break;
2264                        case Event::synth_param_cutoff_release:
2265                            pNote->apply(itEvent, &NoteBase::_Override::CutoffRelease);
2266                            break;
2267    
2268                      case Event::synth_param_amp_lfo_depth:                      case Event::synth_param_amp_lfo_depth:
2269                          pNote->Override.AmpLFODepth = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::AmpLFODepth);
2270                          break;                          break;
2271                      case Event::synth_param_amp_lfo_freq:                      case Event::synth_param_amp_lfo_freq:
2272                          pNote->Override.AmpLFOFreq = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::AmpLFOFreq);
2273                            break;
2274                        case Event::synth_param_cutoff_lfo_depth:
2275                            pNote->apply(itEvent, &NoteBase::_Override::CutoffLFODepth);
2276                            break;
2277                        case Event::synth_param_cutoff_lfo_freq:
2278                            pNote->apply(itEvent, &NoteBase::_Override::CutoffLFOFreq);
2279                          break;                          break;
2280                      case Event::synth_param_pitch_lfo_depth:                      case Event::synth_param_pitch_lfo_depth:
2281                          pNote->Override.PitchLFODepth = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::PitchLFODepth);
2282                          break;                          break;
2283                      case Event::synth_param_pitch_lfo_freq:                      case Event::synth_param_pitch_lfo_freq:
2284                          pNote->Override.PitchLFOFreq = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::PitchLFOFreq);
2285                          break;                          break;
2286                  }                  }
2287    
# Line 2179  namespace LinuxSampler { Line 2411  namespace LinuxSampler {
2411                      }                      }
2412                      else { // on success                      else { // on success
2413                          --VoiceSpawnsLeft;                          --VoiceSpawnsLeft;
2414                          if (!pKey->Active) { // mark as active key  
2415                              pKey->Active = true;                          // should actually be superfluous now, since this is
2416                              pKey->itSelf = pChannel->pActiveKeys->allocAppend();                          // already done in LaunchNewNote()
2417                              *pKey->itSelf = itNoteOnEvent->Param.Note.Key;                          pChannel->markKeyAsActive(pKey);
2418                          }  
2419                          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)
2420                                pKey->ReleaseTrigger |= itNewVoice->GetReleaseTriggerFlags(); // mark key for the need of release triggered voice(s)
2421                          return 0; // success                          return 0; // success
2422                      }                      }
2423                  }                  }
Legend:
Removed from v.3221  
changed lines
  Added in v.3690
  ViewVC Help
Powered by ViewVC