/[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 3205 by schoenebeck, Wed May 24 20:05:38 2017 UTC revision 3704 by schoenebeck, Wed Jan 8 20:20:46 2020 UTC
# Line 3  Line 3 
3   *   LinuxSampler - modular, streaming capable sampler                     *   *   LinuxSampler - modular, streaming capable sampler                     *
4   *                                                                         *   *                                                                         *
5   *   Copyright (C) 2003,2004 by Benno Senoner and Christian Schoenebeck    *   *   Copyright (C) 2003,2004 by Benno Senoner and Christian Schoenebeck    *
6   *   Copyright (C) 2005-2008 Christian Schoenebeck                         *   *   Copyright (C) 2005-2020 Christian Schoenebeck                         *
7   *   Copyright (C) 2009-2012 Christian Schoenebeck and Grigor Iliev        *   *   Copyright (C) 2009-2012 Grigor Iliev                                  *
8   *   Copyright (C) 2012-2017 Christian Schoenebeck and Andreas Persson     *   *   Copyright (C) 2012-2017 Andreas Persson                               *
9   *                                                                         *   *                                                                         *
10   *   This program is free software; you can redistribute it and/or modify  *   *   This program is free software; you can redistribute it and/or modify  *
11   *   it under the terms of the GNU General Public License as published by  *   *   it under the terms of the GNU General Public License as published by  *
# 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 807  namespace LinuxSampler { Line 824  namespace LinuxSampler {
824                                  //TODO: ...                                  //TODO: ...
825                                  break;                                  break;
826    
827                                case Event::type_rpn: // rpn handled in ProcessHardcodedControllers() instead ATM
828                                case Event::type_nrpn: // nrpn handled in ProcessHardcodedControllers() instead ATM
829                              case Event::type_cancel_release_key:                              case Event::type_cancel_release_key:
830                              case Event::type_release_key:                              case Event::type_release_key:
831                              case Event::type_release_note:                              case Event::type_release_note:
# Line 868  namespace LinuxSampler { Line 887  namespace LinuxSampler {
887                      RTList<Event>::Iterator itEvent = pChannel->pEvents->first();                      RTList<Event>::Iterator itEvent = pChannel->pEvents->first();
888                      RTList<Event>::Iterator end     = pChannel->pEvents->end();                      RTList<Event>::Iterator end     = pChannel->pEvents->end();
889                      for (; itEvent != end; ++itEvent) {                      for (; itEvent != end; ++itEvent) {
890                            bool bIsCC = false; // just for resetting RPN/NRPN below
891                          switch (itEvent->Type) {                          switch (itEvent->Type) {
892                              case Event::type_note_on:                              case Event::type_note_on:
893                                  dmsg(5,("Engine: Note on received\n"));                                  dmsg(5,("Engine: Note on received\n"));
# Line 892  namespace LinuxSampler { Line 912  namespace LinuxSampler {
912                              case Event::type_control_change:                              case Event::type_control_change:
913                                  dmsg(5,("Engine: MIDI CC received\n"));                                  dmsg(5,("Engine: MIDI CC received\n"));
914                                  ProcessControlChange((EngineChannel*)itEvent->pEngineChannel, itEvent);                                  ProcessControlChange((EngineChannel*)itEvent->pEngineChannel, itEvent);
915                                    bIsCC = true;
916                                    break;
917                                case Event::type_rpn: // this can only be reached here by an instrument script having called set_rpn()
918                                    dmsg(5,("Engine: MIDI RPN received\n"));
919                                    ProcessHardcodedRpn((EngineChannel*)itEvent->pEngineChannel, itEvent);
920                                    bIsCC = true;
921                                    break;
922                                case Event::type_nrpn: // this can only be reached here by an instrument script having called set_nrpn()
923                                    dmsg(5,("Engine: MIDI NRPN received\n"));
924                                    ProcessHardcodedNrpn((EngineChannel*)itEvent->pEngineChannel, itEvent);
925                                    bIsCC = true;
926                                  break;                                  break;
927                              case Event::type_channel_pressure:                              case Event::type_channel_pressure:
928                                  dmsg(5,("Engine: MIDI Chan. Pressure received\n"));                                  dmsg(5,("Engine: MIDI Chan. Pressure received\n"));
# Line 917  namespace LinuxSampler { Line 948  namespace LinuxSampler {
948                              case Event::type_release_note:                              case Event::type_release_note:
949                                  break; // noop                                  break; // noop
950                          }                          }
951                            // reset cached RPN/NRPN parameter number and data in
952                            // case this event was not a control change event
953                            if (!bIsCC) {
954                                if (pChannel->GetMidiRpnParameter() >= 0)
955                                    pChannel->ResetMidiRpnParameter();
956                                if (pChannel->GetMidiNrpnParameter() >= 0)
957                                    pChannel->ResetMidiNrpnParameter();
958                            }
959                      }                      }
960                  }                  }
961    
# Line 984  namespace LinuxSampler { Line 1023  namespace LinuxSampler {
1023                      // script event object                      // script event object
1024                      RTList<ScriptEvent>::Iterator itScriptEvent =                      RTList<ScriptEvent>::Iterator itScriptEvent =
1025                          pChannel->pScript->pEvents->allocAppend();                          pChannel->pScript->pEvents->allocAppend();
1026                        // if event handler uses polyphonic variables, reset them
1027                        // to zero values before starting to execute the handler
1028                        if (pEventHandler->isPolyphonic())
1029                            itScriptEvent->execCtx->resetPolyphonicData();
1030                      ProcessScriptEvent(                      ProcessScriptEvent(
1031                          pChannel, itEvent, pEventHandler, itScriptEvent                          pChannel, itEvent, pEventHandler, itScriptEvent
1032                      );                      );
# Line 1021  namespace LinuxSampler { Line 1064  namespace LinuxSampler {
1064                  itScriptEvent->executionSlices = 0;                  itScriptEvent->executionSlices = 0;
1065                  itScriptEvent->ignoreAllWaitCalls = false;                  itScriptEvent->ignoreAllWaitCalls = false;
1066                  itScriptEvent->handlerType = pEventHandler->eventHandlerType();                  itScriptEvent->handlerType = pEventHandler->eventHandlerType();
1067                    itScriptEvent->parentHandlerID = 0;
1068                    itScriptEvent->childHandlerID[0] = 0;
1069                    itScriptEvent->autoAbortByParent = false;
1070                    itScriptEvent->forkIndex = 0;
1071                  // this is the native representation of the $EVENT_ID script variable                  // this is the native representation of the $EVENT_ID script variable
1072                  itScriptEvent->id =                  itScriptEvent->id =
1073                      (itEvent->Type == Event::type_note_on)                      (itEvent->Type == Event::type_note_on)
# Line 1133  namespace LinuxSampler { Line 1180  namespace LinuxSampler {
1180               *  @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
1181               */               */
1182              int StealVoice(EngineChannel* pEngineChannel, Pool<Event>::Iterator& itNoteOnEvent) {              int StealVoice(EngineChannel* pEngineChannel, Pool<Event>::Iterator& itNoteOnEvent) {
1183                    dmsg(3,("StealVoice()\n"));
1184                  if (VoiceSpawnsLeft <= 0) {                  if (VoiceSpawnsLeft <= 0) {
1185                      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"));
1186                      return -1;                      return -1;
# Line 1157  namespace LinuxSampler { Line 1205  namespace LinuxSampler {
1205                  int                          iChannelIndex;                  int                          iChannelIndex;
1206                  VoiceIterator                itSelectedVoice;                  VoiceIterator                itSelectedVoice;
1207    
1208                    #if CONFIG_DEVMODE
1209                    EngineChannel* pBegin = NULL; // to detect endless loop
1210                    #endif
1211    
1212                  // select engine channel                  // select engine channel
1213                  if (pLastStolenChannel) {                  if (pLastStolenChannel) {
1214                      pSelectedChannel = pLastStolenChannel;                      pSelectedChannel = pLastStolenChannel;
# Line 1199  namespace LinuxSampler { Line 1251  namespace LinuxSampler {
1251                  }                  }
1252    
1253                  #if CONFIG_DEVMODE                  #if CONFIG_DEVMODE
1254                  EngineChannel* pBegin = pSelectedChannel; // to detect endless loop                  pBegin = pSelectedChannel; // to detect endless loop
1255                  #endif // CONFIG_DEVMODE                  #endif // CONFIG_DEVMODE
1256    
1257                  while (true) { // iterate through engine channels                                          while (true) { // iterate through engine channels                        
# Line 1292  namespace LinuxSampler { Line 1344  namespace LinuxSampler {
1344                              RTList<ScriptEvent>::Iterator itScriptEvent =                              RTList<ScriptEvent>::Iterator itScriptEvent =
1345                                  pEngineChannel->pScript->pEvents->allocAppend();                                  pEngineChannel->pScript->pEvents->allocAppend();
1346    
1347                                itScriptEvent->cause = pEventGenerator->CreateEvent(0);
1348                                itScriptEvent->cause.Type = (Event::type_t) -1; // some invalid type to avoid random event processing
1349                              itScriptEvent->cause.pEngineChannel = pEngineChannel;                              itScriptEvent->cause.pEngineChannel = pEngineChannel;
1350                                itScriptEvent->cause.pMidiInputPort = pEngineChannel->GetMidiInputPort();
1351                                itScriptEvent->id = 0;
1352                              itScriptEvent->handlers[0] = pEngineChannel->pScript->handlerInit;                              itScriptEvent->handlers[0] = pEngineChannel->pScript->handlerInit;
1353                              itScriptEvent->handlers[1] = NULL;                              itScriptEvent->handlers[1] = NULL;
1354                              itScriptEvent->currentHandler = 0;                              itScriptEvent->currentHandler = 0;
1355                              itScriptEvent->executionSlices = 0;                              itScriptEvent->executionSlices = 0;
1356                              itScriptEvent->ignoreAllWaitCalls = false;                              itScriptEvent->ignoreAllWaitCalls = false;
1357                              itScriptEvent->handlerType = VM_EVENT_HANDLER_INIT;                              itScriptEvent->handlerType = VM_EVENT_HANDLER_INIT;
1358                                itScriptEvent->parentHandlerID = 0;
1359                              /*VMExecStatus_t res = */ pScriptVM->exec(                              itScriptEvent->childHandlerID[0] = 0;
1360                                  pEngineChannel->pScript->parserContext, &*itScriptEvent                              itScriptEvent->autoAbortByParent = false;
1361                              );                              itScriptEvent->forkIndex = 0;
1362    
1363                                VMExecStatus_t res;
1364                                size_t instructionsCount = 0;
1365                                const size_t maxInstructions = 200000; // aiming approx. 1 second max. (based on very roughly 5us / instruction)
1366                                bool bWarningShown = false;
1367                                do {
1368                                    res = pScriptVM->exec(
1369                                        pEngineChannel->pScript->parserContext, &*itScriptEvent
1370                                    );
1371                                    instructionsCount += itScriptEvent->execCtx->instructionsPerformed();
1372                                    if (instructionsCount > maxInstructions && !bWarningShown) {
1373                                        bWarningShown = true;
1374                                        dmsg(0,("[ScriptVM] WARNING: \"init\" event handler of instrument script executing for long time!\n"));
1375                                    }
1376                                } while (res & VM_EXEC_SUSPENDED && !(res & VM_EXEC_ERROR));
1377    
1378                              pEngineChannel->pScript->pEvents->free(itScriptEvent);                              pEngineChannel->pScript->pEvents->free(itScriptEvent);
1379                          }                          }
# Line 1363  namespace LinuxSampler { Line 1434  namespace LinuxSampler {
1434                          // usually there should already be a new Note object                          // usually there should already be a new Note object
1435                          NoteIterator itNote = GetNotePool()->fromID(itVoiceStealEvent->Param.Note.ID);                          NoteIterator itNote = GetNotePool()->fromID(itVoiceStealEvent->Param.Note.ID);
1436                          if (!itNote) { // should not happen, but just to be sure ...                          if (!itNote) { // should not happen, but just to be sure ...
1437                                dmsg(2,("Engine: No Note object for stolen voice!\n"));
1438                              const note_id_t noteID = LaunchNewNote(pEngineChannel, itVoiceStealEvent);                              const note_id_t noteID = LaunchNewNote(pEngineChannel, itVoiceStealEvent);
1439                              if (!noteID) {                              if (!noteID) {
1440                                  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 1407  namespace LinuxSampler { Line 1479  namespace LinuxSampler {
1479              void PostProcess(EngineChannel* pEngineChannel) {              void PostProcess(EngineChannel* pEngineChannel) {
1480                  EngineChannelBase<V, R, I>* pChannel =                  EngineChannelBase<V, R, I>* pChannel =
1481                      static_cast<EngineChannelBase<V, R, I>*>(pEngineChannel);                      static_cast<EngineChannelBase<V, R, I>*>(pEngineChannel);
1482                   pChannel->FreeAllInactiveKyes();                   pChannel->FreeAllInactiveKeys();
1483    
1484                  // empty the engine channel's own event lists                  // empty the engine channel's own event lists
1485                  // (only events of the current audio fragment cycle)                  // (only events of the current audio fragment cycle)
# Line 1429  namespace LinuxSampler { Line 1501  namespace LinuxSampler {
1501                  EngineChannelBase<V, R, I>* pChannel =                  EngineChannelBase<V, R, I>* pChannel =
1502                      static_cast<EngineChannelBase<V, R, I>*>(pEngineChannel);                      static_cast<EngineChannelBase<V, R, I>*>(pEngineChannel);
1503    
1504                    // will be set to true if this CC event has anything to do with RPN/NRPN
1505                    bool bIsRpn = false, bIsNrpn = false;
1506    
1507                  switch (itControlChangeEvent->Param.CC.Controller) {                  switch (itControlChangeEvent->Param.CC.Controller) {
1508                      case 5: { // portamento time                      case 5: { // portamento time
1509                          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;
1510                          break;                          break;
1511                      }                      }
1512                      case 6: { // data entry (currently only used for RPN and NRPN controllers)                      case 6: { // data entry (MSB)
1513                          //dmsg(1,("DATA ENTRY %d\n", itControlChangeEvent->Param.CC.Value));                          //dmsg(1,("DATA ENTRY MSB %d\n", itControlChangeEvent->Param.CC.Value));
1514                          if (pChannel->GetMidiRpnController() >= 0) { // RPN controller number was sent previously ...                          if (pChannel->GetMidiRpnParameter() >= 0) { // RPN parameter number was sent previously ...
1515                              dmsg(4,("Guess it's an RPN ...\n"));                              pChannel->SetMidiRpnDataMsb(
1516                              if (pChannel->GetMidiRpnController() == 2) { // coarse tuning in half tones                                  itControlChangeEvent->Param.CC.Value
1517                                  int transpose = (int) itControlChangeEvent->Param.CC.Value - 64;                              );
1518                                  // limit to +- two octaves for now                              bIsRpn = true;
1519                                  transpose = RTMath::Min(transpose,  24);  
1520                                  transpose = RTMath::Max(transpose, -24);                              // look-ahead: if next MIDI event is data entry LSB,
1521                                  pChannel->GlobalTranspose = transpose;                              // then skip this event here for now (to avoid double
1522                                  // workaround, so we won't have hanging notes                              // handling of what's supposed to be one RPN event)
1523                                  pChannel->ReleaseAllVoices(itControlChangeEvent);                              if (isNextEventCCNr(itControlChangeEvent, 38))
1524                              }                                  break;
1525                              // to prevent other MIDI CC #6 messages to be misenterpreted as RPN controller data  
1526                              pChannel->ResetMidiRpnController();                              int ch = itControlChangeEvent->Param.CC.Channel;
1527                          } else if (pChannel->GetMidiNrpnController() >= 0) { // NRPN controller number was sent previously ...                              int param = pChannel->GetMidiRpnParameter();
1528                              dmsg(4,("Guess it's an NRPN ...\n"));                              int value = pChannel->GetMidiRpnData();
1529                              const int NrpnCtrlMSB = pChannel->GetMidiNrpnController() >> 8;  
1530                              const int NrpnCtrlLSB = pChannel->GetMidiNrpnController() & 0xff;                              // transform event type: CC event -> RPN event
1531                              dmsg(4,("NRPN MSB=%d LSB=%d Data=%d\n", NrpnCtrlMSB, NrpnCtrlLSB, itControlChangeEvent->Param.CC.Value));                              itControlChangeEvent->Type = Event::type_rpn;
1532                              switch (NrpnCtrlMSB) {                              itControlChangeEvent->Param.RPN.Channel = ch;
1533                                  case 0x1a: { // volume level of note (Roland GS NRPN)                              itControlChangeEvent->Param.RPN.Parameter = param;
1534                                      const uint note = NrpnCtrlLSB;                              itControlChangeEvent->Param.RPN.Value = value;
1535                                      const uint vol  = itControlChangeEvent->Param.CC.Value;  
1536                                      dmsg(4,("Note Volume NRPN received (note=%d,vol=%d).\n", note, vol));                              // if there's a RPN script handler, run it ...
1537                                      if (note < 128 && vol < 128)                              if (pChannel->pScript->handlerRpn) {
1538                                          pChannel->pMIDIKeyInfo[note].Volume = VolumeCurve[vol];                                  const event_id_t eventID =
1539                                      break;                                      pEventPool->getID(itControlChangeEvent);
1540                                  }                                  // run the RPN script handler
1541                                  case 0x1c: { // panpot of note (Roland GS NRPN)                                  ProcessEventByScript(
1542                                      const uint note = NrpnCtrlLSB;                                      pChannel, itControlChangeEvent,
1543                                      const uint pan  = itControlChangeEvent->Param.CC.Value;                                      pChannel->pScript->handlerRpn
1544                                      dmsg(4,("Note Pan NRPN received (note=%d,pan=%d).\n", note, pan));                                  );
1545                                      if (note < 128 && pan < 128) {                                  // if RPN event was dropped by script, abort
1546                                          pChannel->pMIDIKeyInfo[note].PanLeft  = PanCurve[128 - pan];                                  // here to avoid hard coded RPN processing below
1547                                          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;  
1548                                      break;                                      break;
1549                                  }                              }
1550                                  case 0x1e: { // chorus send of note (Roland GS NRPN)  
1551                                      const uint note = NrpnCtrlLSB;                              // do the actual (hard-coded) RPN value change processing
1552                                      const float chorus = float(itControlChangeEvent->Param.CC.Value) / 127.0f;                              ProcessHardcodedRpn(pEngineChannel, itControlChangeEvent);
1553                                      dmsg(4,("Note Chorus Send NRPN received (note=%d,send=%f).\n", note, chorus));  
1554                                      if (note < 128)                          } else if (pChannel->GetMidiNrpnParameter() >= 0) { // NRPN parameter number was sent previously ...
1555                                          pChannel->pMIDIKeyInfo[note].ChorusSend = chorus;                              pChannel->SetMidiNrpnDataMsb(
1556                                    itControlChangeEvent->Param.CC.Value
1557                                );
1558                                bIsNrpn = true;
1559    
1560                                // look-ahead: if next MIDI event is data entry LSB,
1561                                // then skip this event here for now (to avoid double
1562                                // handling of what's supposed to be one NRPN event)
1563                                if (isNextEventCCNr(itControlChangeEvent, 38))
1564                                    break;
1565    
1566                                int ch = itControlChangeEvent->Param.CC.Channel;
1567                                int param = pChannel->GetMidiNrpnParameter();
1568                                int value = pChannel->GetMidiNrpnData();
1569    
1570                                // transform event type: CC event -> NRPN event
1571                                itControlChangeEvent->Type = Event::type_nrpn;
1572                                itControlChangeEvent->Param.NRPN.Channel = ch;
1573                                itControlChangeEvent->Param.NRPN.Parameter = param;
1574                                itControlChangeEvent->Param.NRPN.Value = value;
1575    
1576                                // if there's a NRPN script handler, run it ...
1577                                if (pChannel->pScript->handlerNrpn) {
1578                                    const event_id_t eventID =
1579                                        pEventPool->getID(itControlChangeEvent);
1580                                    // run the NRPN script handler
1581                                    ProcessEventByScript(
1582                                        pChannel, itControlChangeEvent,
1583                                        pChannel->pScript->handlerNrpn
1584                                    );
1585                                    // if NRPN event was dropped by script, abort
1586                                    // here to avoid hard coded NRPN processing below
1587                                    if (!pEventPool->fromID(eventID))
1588                                      break;                                      break;
                                 }  
1589                              }                              }
1590                              // to prevent other MIDI CC #6 messages to be misenterpreted as NRPN controller data  
1591                              pChannel->ResetMidiNrpnController();                              // do the actual (hard-coded) NRPN value change processing
1592                                ProcessHardcodedNrpn(pEngineChannel, itControlChangeEvent);
1593                          }                          }
1594                          break;                          break;
1595                      }                      }
# Line 1506  namespace LinuxSampler { Line 1604  namespace LinuxSampler {
1604                          pChannel->iLastPanRequest = itControlChangeEvent->Param.CC.Value;                          pChannel->iLastPanRequest = itControlChangeEvent->Param.CC.Value;
1605                          break;                          break;
1606                      }                      }
1607                        case 38: { // data entry (LSB)
1608                            //dmsg(1,("DATA ENTRY LSB %d\n", itControlChangeEvent->Param.CC.Value));
1609                            if (pChannel->GetMidiRpnParameter() >= 0) { // RPN parameter number was sent previously ...
1610                                pChannel->SetMidiRpnDataLsb(
1611                                    itControlChangeEvent->Param.CC.Value
1612                                );
1613                                bIsRpn = true;
1614    
1615                                int ch = itControlChangeEvent->Param.CC.Channel;
1616                                int param = pChannel->GetMidiRpnParameter();
1617                                int value = pChannel->GetMidiRpnData();
1618    
1619                                // transform event type: CC event -> RPN event
1620                                itControlChangeEvent->Type = Event::type_rpn;
1621                                itControlChangeEvent->Param.RPN.Channel = ch;
1622                                itControlChangeEvent->Param.RPN.Parameter = param;
1623                                itControlChangeEvent->Param.RPN.Value = value;
1624    
1625                                // if there's a RPN script handler, run it ...
1626                                if (pChannel->pScript->handlerRpn) {
1627                                    const event_id_t eventID =
1628                                        pEventPool->getID(itControlChangeEvent);
1629                                    // run the RPN script handler
1630                                    ProcessEventByScript(
1631                                        pChannel, itControlChangeEvent,
1632                                        pChannel->pScript->handlerRpn
1633                                    );
1634                                    // if RPN event was dropped by script, abort
1635                                    // here to avoid hard coded RPN processing below
1636                                    if (!pEventPool->fromID(eventID))
1637                                        break;
1638                                }
1639    
1640                                // do the actual (hard-coded) RPN value change processing
1641                                ProcessHardcodedRpn(pEngineChannel, itControlChangeEvent);
1642    
1643                            } else if (pChannel->GetMidiNrpnParameter() >= 0) { // NRPN parameter number was sent previously ...
1644                                pChannel->SetMidiNrpnDataLsb(
1645                                    itControlChangeEvent->Param.CC.Value
1646                                );
1647                                bIsNrpn = true;
1648    
1649                                int ch = itControlChangeEvent->Param.CC.Channel;
1650                                int param = pChannel->GetMidiNrpnParameter();
1651                                int value = pChannel->GetMidiNrpnData();
1652    
1653                                // transform event type: CC event -> NRPN event
1654                                itControlChangeEvent->Type = Event::type_nrpn;
1655                                itControlChangeEvent->Param.NRPN.Channel = ch;
1656                                itControlChangeEvent->Param.NRPN.Parameter = param;
1657                                itControlChangeEvent->Param.NRPN.Value = value;
1658    
1659                                // if there's a NRPN script handler, run it ...
1660                                if (pChannel->pScript->handlerNrpn) {
1661                                    const event_id_t eventID =
1662                                        pEventPool->getID(itControlChangeEvent);
1663                                    // run the NRPN script handler
1664                                    ProcessEventByScript(
1665                                        pChannel, itControlChangeEvent,
1666                                        pChannel->pScript->handlerNrpn
1667                                    );
1668                                    // if NRPN event was dropped by script, abort
1669                                    // here to avoid hard coded NRPN processing below
1670                                    if (!pEventPool->fromID(eventID))
1671                                        break;
1672                                }
1673    
1674                                // do the actual (hard-coded) NRPN value change processing
1675                                ProcessHardcodedNrpn(pEngineChannel, itControlChangeEvent);
1676                            }
1677                            break;
1678                        }
1679                      case 64: { // sustain                      case 64: { // sustain
1680                          if (itControlChangeEvent->Param.CC.Value >= 64 && !pChannel->SustainPedal) {                          if (itControlChangeEvent->Param.CC.Value >= 64 && !pChannel->SustainPedal) {
1681                              dmsg(4,("DAMPER (RIGHT) PEDAL DOWN\n"));                              dmsg(4,("DAMPER (RIGHT) PEDAL DOWN\n"));
# Line 1579  namespace LinuxSampler { Line 1749  namespace LinuxSampler {
1749                          }                          }
1750                          break;                          break;
1751                      }                      }
1752                      case 98: { // NRPN controller LSB                      case 96: { // data increment (data entry +1)
1753                            //dmsg(1,("DATA INC\n"));
1754                            if (pChannel->GetMidiRpnParameter() >= 0) { // RPN parameter number was sent previously ...
1755                                pChannel->SetMidiRpnData(
1756                                    pChannel->GetMidiRpnData() + 1
1757                                );
1758                                bIsRpn = true;
1759    
1760                                int ch = itControlChangeEvent->Param.CC.Channel;
1761                                int param = pChannel->GetMidiRpnParameter();
1762                                int value = pChannel->GetMidiRpnData();
1763    
1764                                // transform event type: CC event -> RPN event
1765                                itControlChangeEvent->Type = Event::type_rpn;
1766                                itControlChangeEvent->Param.RPN.Channel = ch;
1767                                itControlChangeEvent->Param.RPN.Parameter = param;
1768                                itControlChangeEvent->Param.RPN.Value = value;
1769    
1770                                // if there's a RPN script handler, run it ...
1771                                if (pChannel->pScript->handlerRpn) {
1772                                    const event_id_t eventID =
1773                                        pEventPool->getID(itControlChangeEvent);
1774                                    // run the RPN script handler
1775                                    ProcessEventByScript(
1776                                        pChannel, itControlChangeEvent,
1777                                        pChannel->pScript->handlerRpn
1778                                    );
1779                                    // if RPN event was dropped by script, abort
1780                                    // here to avoid hard coded RPN processing below
1781                                    if (!pEventPool->fromID(eventID))
1782                                        break;
1783                                }
1784    
1785                                // do the actual (hard-coded) RPN value change processing
1786                                ProcessHardcodedRpn(pEngineChannel, itControlChangeEvent);
1787    
1788                            } else if (pChannel->GetMidiNrpnParameter() >= 0) { // NRPN parameter number was sent previously ...
1789                                pChannel->SetMidiNrpnData(
1790                                    pChannel->GetMidiNrpnData() + 1
1791                                );
1792                                bIsNrpn = true;
1793    
1794                                int ch = itControlChangeEvent->Param.CC.Channel;
1795                                int param = pChannel->GetMidiNrpnParameter();
1796                                int value = pChannel->GetMidiNrpnData();
1797    
1798                                // transform event type: CC event -> NRPN event
1799                                itControlChangeEvent->Type = Event::type_nrpn;
1800                                itControlChangeEvent->Param.NRPN.Channel = ch;
1801                                itControlChangeEvent->Param.NRPN.Parameter = param;
1802                                itControlChangeEvent->Param.NRPN.Value = value;
1803    
1804                                // if there's a NRPN script handler, run it ...
1805                                if (pChannel->pScript->handlerNrpn) {
1806                                    const event_id_t eventID =
1807                                        pEventPool->getID(itControlChangeEvent);
1808                                    // run the NRPN script handler
1809                                    ProcessEventByScript(
1810                                        pChannel, itControlChangeEvent,
1811                                        pChannel->pScript->handlerNrpn
1812                                    );
1813                                    // if NRPN event was dropped by script, abort
1814                                    // here to avoid hard coded NRPN processing below
1815                                    if (!pEventPool->fromID(eventID))
1816                                        break;
1817                                }
1818    
1819                                // do the actual (hard-coded) NRPN value change processing
1820                                ProcessHardcodedNrpn(pEngineChannel, itControlChangeEvent);
1821                            }
1822                            break;
1823                        }
1824                        case 97: { // data decrement (data entry -1)
1825                            //dmsg(1,("DATA DEC\n"));
1826                            if (pChannel->GetMidiRpnParameter() >= 0) { // RPN parameter number was sent previously ...
1827                                pChannel->SetMidiRpnData(
1828                                    pChannel->GetMidiRpnData() - 1
1829                                );
1830                                bIsRpn = true;
1831    
1832                                int ch = itControlChangeEvent->Param.CC.Channel;
1833                                int param = pChannel->GetMidiRpnParameter();
1834                                int value = pChannel->GetMidiRpnData();
1835    
1836                                // transform event type: CC event -> RPN event
1837                                itControlChangeEvent->Type = Event::type_rpn;
1838                                itControlChangeEvent->Param.RPN.Channel = ch;
1839                                itControlChangeEvent->Param.RPN.Parameter = param;
1840                                itControlChangeEvent->Param.RPN.Value = value;
1841    
1842                                // if there's a RPN script handler, run it ...
1843                                if (pChannel->pScript->handlerRpn) {
1844                                    const event_id_t eventID =
1845                                        pEventPool->getID(itControlChangeEvent);
1846                                    // run the RPN script handler
1847                                    ProcessEventByScript(
1848                                        pChannel, itControlChangeEvent,
1849                                        pChannel->pScript->handlerRpn
1850                                    );
1851                                    // if RPN event was dropped by script, abort
1852                                    // here to avoid hard coded RPN processing below
1853                                    if (!pEventPool->fromID(eventID))
1854                                        break;
1855                                }
1856    
1857                                // do the actual (hard-coded) RPN value change processing
1858                                ProcessHardcodedRpn(pEngineChannel, itControlChangeEvent);
1859    
1860                            } else if (pChannel->GetMidiNrpnParameter() >= 0) { // NRPN parameter number was sent previously ...
1861                                pChannel->SetMidiNrpnData(
1862                                    pChannel->GetMidiNrpnData() - 1
1863                                );
1864                                bIsNrpn = true;
1865    
1866                                int ch = itControlChangeEvent->Param.CC.Channel;
1867                                int param = pChannel->GetMidiNrpnParameter();
1868                                int value = pChannel->GetMidiNrpnData();
1869    
1870                                // transform event type: CC event -> NRPN event
1871                                itControlChangeEvent->Type = Event::type_nrpn;
1872                                itControlChangeEvent->Param.NRPN.Channel = ch;
1873                                itControlChangeEvent->Param.NRPN.Parameter = param;
1874                                itControlChangeEvent->Param.NRPN.Value = value;
1875    
1876                                // if there's a NRPN script handler, run it ...
1877                                if (pChannel->pScript->handlerNrpn) {
1878                                    const event_id_t eventID =
1879                                        pEventPool->getID(itControlChangeEvent);
1880                                    // run the NRPN script handler
1881                                    ProcessEventByScript(
1882                                        pChannel, itControlChangeEvent,
1883                                        pChannel->pScript->handlerNrpn
1884                                    );
1885                                    // if NRPN event was dropped by script, abort
1886                                    // here to avoid hard coded NRPN processing below
1887                                    if (!pEventPool->fromID(eventID))
1888                                        break;
1889                                }
1890    
1891                                // do the actual (hard-coded) NRPN value change processing
1892                                ProcessHardcodedNrpn(pEngineChannel, itControlChangeEvent);
1893                            }
1894                            break;
1895                        }
1896                        case 98: { // NRPN parameter LSB
1897                          dmsg(4,("NRPN LSB %d\n", itControlChangeEvent->Param.CC.Value));                          dmsg(4,("NRPN LSB %d\n", itControlChangeEvent->Param.CC.Value));
1898                          pEngineChannel->SetMidiNrpnControllerLsb(itControlChangeEvent->Param.CC.Value);                          bIsNrpn = true;
1899                            pEngineChannel->SetMidiNrpnParameterLsb(itControlChangeEvent->Param.CC.Value);
1900                          break;                          break;
1901                      }                      }
1902                      case 99: { // NRPN controller MSB                      case 99: { // NRPN parameter MSB
1903                          dmsg(4,("NRPN MSB %d\n", itControlChangeEvent->Param.CC.Value));                          dmsg(4,("NRPN MSB %d\n", itControlChangeEvent->Param.CC.Value));
1904                          pEngineChannel->SetMidiNrpnControllerMsb(itControlChangeEvent->Param.CC.Value);                          bIsNrpn = true;
1905                            pEngineChannel->SetMidiNrpnParameterMsb(itControlChangeEvent->Param.CC.Value);
1906                          break;                          break;
1907                      }                      }
1908                      case 100: { // RPN controller LSB                      case 100: { // RPN parameter LSB
1909                          dmsg(4,("RPN LSB %d\n", itControlChangeEvent->Param.CC.Value));                          dmsg(4,("RPN LSB %d\n", itControlChangeEvent->Param.CC.Value));
1910                          pEngineChannel->SetMidiRpnControllerLsb(itControlChangeEvent->Param.CC.Value);                          bIsRpn = true;
1911                            pEngineChannel->SetMidiRpnParameterLsb(itControlChangeEvent->Param.CC.Value);
1912                          break;                          break;
1913                      }                      }
1914                      case 101: { // RPN controller MSB                      case 101: { // RPN parameter MSB
1915                          dmsg(4,("RPN MSB %d\n", itControlChangeEvent->Param.CC.Value));                          dmsg(4,("RPN MSB %d\n", itControlChangeEvent->Param.CC.Value));
1916                          pEngineChannel->SetMidiRpnControllerMsb(itControlChangeEvent->Param.CC.Value);                          bIsRpn = true;
1917                            pEngineChannel->SetMidiRpnParameterMsb(itControlChangeEvent->Param.CC.Value);
1918                          break;                          break;
1919                      }                      }
1920    
# Line 1630  namespace LinuxSampler { Line 1948  namespace LinuxSampler {
1948                          break;                          break;
1949                      }                      }
1950                  }                  }
1951    
1952                    // reset cached RPN/NRPN parameter number and data in case this
1953                    // CC event had nothing to do with RPN/NRPN
1954                    if (!bIsRpn && pChannel->GetMidiRpnParameter() >= 0)
1955                        pChannel->ResetMidiRpnParameter();
1956                    if (!bIsNrpn && pChannel->GetMidiNrpnParameter() >= 0)
1957                        pChannel->ResetMidiNrpnParameter();
1958                }
1959    
1960                /**
1961                 * Process MIDI RPN events with hard coded behavior.
1962                 *
1963                 * @param pEngineChannel - engine channel on which the MIDI RPN
1964                 *                         event was received
1965                 * @param itRpnEvent - the actual MIDI RPN event
1966                 */
1967                void ProcessHardcodedRpn(EngineChannel* pEngineChannel,
1968                                         Pool<Event>::Iterator& itRpnEvent)
1969                {
1970                    EngineChannelBase<V, R, I>* pChannel =
1971                        static_cast<EngineChannelBase<V, R, I>*>(pEngineChannel);
1972    
1973                    if (itRpnEvent->Param.RPN.Parameter == 2) { // coarse tuning in half tones
1974                        int transpose = (int) itRpnEvent->Param.RPN.ValueMSB() - 64;
1975                        // limit to +- two octaves for now
1976                        transpose = RTMath::Min(transpose,  24);
1977                        transpose = RTMath::Max(transpose, -24);
1978                        pChannel->GlobalTranspose = transpose;
1979                        // workaround, so we won't have hanging notes
1980                        pChannel->ReleaseAllVoices(itRpnEvent);
1981                    } else if (itRpnEvent->Param.RPN.Parameter == 16383) { // null function RPN
1982                        // disable subsequent data entry/increment/decrement processing
1983                        pChannel->ResetMidiRpnParameter();
1984                    }
1985                }
1986    
1987                /**
1988                 * Process MIDI NRPN events with hard coded behavior.
1989                 *
1990                 * @param pEngineChannel - engine channel on which the MIDI NRPN
1991                 *                         event was received
1992                 * @param itRpnEvent - the actual MIDI NRPN event
1993                 */
1994                void ProcessHardcodedNrpn(EngineChannel* pEngineChannel,
1995                                          Pool<Event>::Iterator& itNrpnEvent)
1996                {
1997                    EngineChannelBase<V, R, I>* pChannel =
1998                        static_cast<EngineChannelBase<V, R, I>*>(pEngineChannel);
1999    
2000                    switch (itNrpnEvent->Param.NRPN.ParameterMSB()) {
2001                        case 0x1a: { // volume level of note (Roland GS NRPN)
2002                            const uint note = itNrpnEvent->Param.NRPN.ParameterLSB();
2003                            const uint vol  = itNrpnEvent->Param.NRPN.ValueMSB();
2004                            dmsg(4,("Note Volume NRPN received (note=%d,vol=%d).\n", note, vol));
2005                            if (note < 128 && vol < 128)
2006                                pChannel->pMIDIKeyInfo[note].Volume = VolumeCurve[vol];
2007                            break;
2008                        }
2009                        case 0x1c: { // panpot of note (Roland GS NRPN)
2010                            const uint note = itNrpnEvent->Param.NRPN.ParameterLSB();
2011                            const uint pan  = itNrpnEvent->Param.NRPN.ValueMSB();
2012                            dmsg(4,("Note Pan NRPN received (note=%d,pan=%d).\n", note, pan));
2013                            if (note < 128 && pan < 128) {
2014                                pChannel->pMIDIKeyInfo[note].PanLeft  = PanCurve[128 - pan];
2015                                pChannel->pMIDIKeyInfo[note].PanRight = PanCurve[pan];
2016                            }
2017                            break;
2018                        }
2019                        case 0x1d: { // reverb send of note (Roland GS NRPN)
2020                            const uint note = itNrpnEvent->Param.NRPN.ParameterLSB();
2021                            const float reverb = float(itNrpnEvent->Param.NRPN.Value) / 16383.f;
2022                            dmsg(4,("Note Reverb Send NRPN received (note=%d,send=%f).\n", note, reverb));
2023                            if (note < 128)
2024                                pChannel->pMIDIKeyInfo[note].ReverbSend = reverb;
2025                            break;
2026                        }
2027                        case 0x1e: { // chorus send of note (Roland GS NRPN)
2028                            const uint note = itNrpnEvent->Param.NRPN.ParameterLSB();
2029                            const float chorus = float(itNrpnEvent->Param.NRPN.Value) / 16383.f;
2030                            dmsg(4,("Note Chorus Send NRPN received (note=%d,send=%f).\n", note, chorus));
2031                            if (note < 128)
2032                                pChannel->pMIDIKeyInfo[note].ChorusSend = chorus;
2033                            break;
2034                        }
2035                        case 0x7f: {
2036                            if (itNrpnEvent->Param.NRPN.ParameterLSB() == 0x7f) { // null function NRPN
2037                                // disable subsequent data entry/increment/decrement processing
2038                                pChannel->ResetMidiNrpnParameter();
2039                            }
2040                            break;
2041                        }
2042                    }
2043              }              }
2044    
2045              virtual D* CreateDiskThread() = 0;              virtual D* CreateDiskThread() = 0;
# Line 1872  namespace LinuxSampler { Line 2282  namespace LinuxSampler {
2282                      if (bShouldRelease) {                      if (bShouldRelease) {
2283                          itNoteOffEventOnKeyList->Type = Event::type_release_key; // transform event type                          itNoteOffEventOnKeyList->Type = Event::type_release_key; // transform event type
2284                          // spawn release triggered voice(s) if needed                          // spawn release triggered voice(s) if needed
2285                          ProcessReleaseTrigger(pChannel, itNoteOffEventOnKeyList, pKey);                          if (pKey->ReleaseTrigger & release_trigger_noteoff)
2286                                ProcessReleaseTrigger(pChannel, itNoteOffEventOnKeyList, pKey);
2287                      }                      }
2288                  } else if (itNoteOffEventOnKeyList->Type == Event::type_stop_note) {                  } else if (itNoteOffEventOnKeyList->Type == Event::type_stop_note) {
2289                      // This programmatically caused event is caused by a call to                      // This programmatically caused event is caused by a call to
# Line 1903  namespace LinuxSampler { Line 2314  namespace LinuxSampler {
2314               * @param pEngineChannel - engine channel on which this event occurred on               * @param pEngineChannel - engine channel on which this event occurred on
2315               * @param itEvent - release trigger event (contains note number)               * @param itEvent - release trigger event (contains note number)
2316               */               */
2317              virtual void ProcessReleaseTrigger(EngineChannel* pEngineChannel, RTList<Event>::Iterator& itEvent) OVERRIDE {              virtual void ProcessReleaseTriggerBySustain(EngineChannel* pEngineChannel, RTList<Event>::Iterator& itEvent) OVERRIDE {
2318                  EngineChannelBase<V, R, I>* pChannel = static_cast<EngineChannelBase<V, R, I>*>(pEngineChannel);                  EngineChannelBase<V, R, I>* pChannel = static_cast<EngineChannelBase<V, R, I>*>(pEngineChannel);
2319    
2320                  const int iKey = itEvent->Param.Note.Key;                  const int iKey = itEvent->Param.Note.Key;
# Line 1931  namespace LinuxSampler { Line 2342  namespace LinuxSampler {
2342                          // allocate and trigger new release voice(s)                          // allocate and trigger new release voice(s)
2343                          TriggerReleaseVoices(pChannel, itEvent);                          TriggerReleaseVoices(pChannel, itEvent);
2344                      }                      }
2345                      pKey->ReleaseTrigger = false;                      pKey->ReleaseTrigger = release_trigger_none;
2346                  }                  }
2347              }              }
2348    
# Line 1977  namespace LinuxSampler { Line 2388  namespace LinuxSampler {
2388                  NoteBase* pNote = pChannel->pEngine->NoteByID( itEvent->Param.NoteSynthParam.NoteID );                  NoteBase* pNote = pChannel->pEngine->NoteByID( itEvent->Param.NoteSynthParam.NoteID );
2389                  if (!pNote || pNote->hostKey < 0 || pNote->hostKey >= 128) return;                  if (!pNote || pNote->hostKey < 0 || pNote->hostKey >= 128) return;
2390    
                 const bool& relative = itEvent->Param.NoteSynthParam.Relative;  
   
2391                  switch (itEvent->Param.NoteSynthParam.Type) {                  switch (itEvent->Param.NoteSynthParam.Type) {
2392                      case Event::synth_param_volume:                      case Event::synth_param_volume:
2393                          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;  
2394                          break;                          break;
2395                      case Event::synth_param_volume_time:                      case Event::synth_param_volume_time:
2396                          pNote->Override.VolumeTime = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->Override.VolumeTime = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;
2397                          break;                          break;
2398                        case Event::synth_param_volume_curve:
2399                            itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;
2400                            pNote->Override.VolumeCurve = (fade_curve_t) itEvent->Param.NoteSynthParam.AbsValue;
2401                            break;
2402                      case Event::synth_param_pitch:                      case Event::synth_param_pitch:
2403                          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;  
2404                          break;                          break;
2405                      case Event::synth_param_pitch_time:                      case Event::synth_param_pitch_time:
2406                          pNote->Override.PitchTime = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->Override.PitchTime = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;
2407                          break;                          break;
2408                        case Event::synth_param_pitch_curve:
2409                            itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;
2410                            pNote->Override.PitchCurve = (fade_curve_t) itEvent->Param.NoteSynthParam.AbsValue;
2411                            break;
2412                      case Event::synth_param_pan:                      case Event::synth_param_pan:
2413                          if (relative) {                          pNote->apply(itEvent, &NoteBase::_Override::Pan);
2414                              pNote->Override.Pan = RTMath::RelativeSummedAvg(pNote->Override.Pan, itEvent->Param.NoteSynthParam.Delta, ++pNote->Override.PanSources);                          break;
2415                          } else {                      case Event::synth_param_pan_time:
2416                              pNote->Override.Pan = itEvent->Param.NoteSynthParam.Delta;                          pNote->Override.PanTime = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;
2417                              pNote->Override.PanSources = 1; // only relevant on subsequent change_pan() instrument script calls on same note with 'relative' argument being set                          break;
2418                          }                      case Event::synth_param_pan_curve:
2419                          itEvent->Param.NoteSynthParam.AbsValue = pNote->Override.Pan;                          itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;
2420                            pNote->Override.PanCurve = (fade_curve_t) itEvent->Param.NoteSynthParam.AbsValue;
2421                          break;                          break;
2422                      case Event::synth_param_cutoff:                      case Event::synth_param_cutoff:
2423                          pNote->Override.Cutoff = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::Cutoff);
2424                          break;                          break;
2425                      case Event::synth_param_resonance:                      case Event::synth_param_resonance:
2426                          pNote->Override.Resonance = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::Resonance);
2427                          break;                          break;
2428                      case Event::synth_param_attack:                      case Event::synth_param_attack:
2429                          pNote->Override.Attack = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::Attack);
2430                          break;                          break;
2431                      case Event::synth_param_decay:                      case Event::synth_param_decay:
2432                          pNote->Override.Decay = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::Decay);
2433                            break;
2434                        case Event::synth_param_sustain:
2435                            pNote->apply(itEvent, &NoteBase::_Override::Sustain);
2436                          break;                          break;
2437                      case Event::synth_param_release:                      case Event::synth_param_release:
2438                          pNote->Override.Release = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::Release);
2439                            break;
2440    
2441                        case Event::synth_param_cutoff_attack:
2442                            pNote->apply(itEvent, &NoteBase::_Override::CutoffAttack);
2443                            break;
2444                        case Event::synth_param_cutoff_decay:
2445                            pNote->apply(itEvent, &NoteBase::_Override::CutoffDecay);
2446                            break;
2447                        case Event::synth_param_cutoff_sustain:
2448                            pNote->apply(itEvent, &NoteBase::_Override::CutoffSustain);
2449                          break;                          break;
2450                        case Event::synth_param_cutoff_release:
2451                            pNote->apply(itEvent, &NoteBase::_Override::CutoffRelease);
2452                            break;
2453    
2454                      case Event::synth_param_amp_lfo_depth:                      case Event::synth_param_amp_lfo_depth:
2455                          pNote->Override.AmpLFODepth = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::AmpLFODepth);
2456                          break;                          break;
2457                      case Event::synth_param_amp_lfo_freq:                      case Event::synth_param_amp_lfo_freq:
2458                          pNote->Override.AmpLFOFreq = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::AmpLFOFreq);
2459                            break;
2460                        case Event::synth_param_cutoff_lfo_depth:
2461                            pNote->apply(itEvent, &NoteBase::_Override::CutoffLFODepth);
2462                            break;
2463                        case Event::synth_param_cutoff_lfo_freq:
2464                            pNote->apply(itEvent, &NoteBase::_Override::CutoffLFOFreq);
2465                          break;                          break;
2466                      case Event::synth_param_pitch_lfo_depth:                      case Event::synth_param_pitch_lfo_depth:
2467                          pNote->Override.PitchLFODepth = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::PitchLFODepth);
2468                          break;                          break;
2469                      case Event::synth_param_pitch_lfo_freq:                      case Event::synth_param_pitch_lfo_freq:
2470                          pNote->Override.PitchLFOFreq = itEvent->Param.NoteSynthParam.AbsValue = itEvent->Param.NoteSynthParam.Delta;                          pNote->apply(itEvent, &NoteBase::_Override::PitchLFOFreq);
2471                          break;                          break;
2472                  }                  }
2473    
# Line 2164  namespace LinuxSampler { Line 2597  namespace LinuxSampler {
2597                      }                      }
2598                      else { // on success                      else { // on success
2599                          --VoiceSpawnsLeft;                          --VoiceSpawnsLeft;
2600                          if (!pKey->Active) { // mark as active key  
2601                              pKey->Active = true;                          // should actually be superfluous now, since this is
2602                              pKey->itSelf = pChannel->pActiveKeys->allocAppend();                          // already done in LaunchNewNote()
2603                              *pKey->itSelf = itNoteOnEvent->Param.Note.Key;                          pChannel->markKeyAsActive(pKey);
2604                          }  
2605                          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)
2606                                pKey->ReleaseTrigger |= itNewVoice->GetReleaseTriggerFlags(); // mark key for the need of release triggered voice(s)
2607                          return 0; // success                          return 0; // success
2608                      }                      }
2609                  }                  }
Legend:
Removed from v.3205  
changed lines
  Added in v.3704
  ViewVC Help
Powered by ViewVC