/[svn]/linuxsampler/trunk/src/engines/gig/Engine.cpp
ViewVC logotype

Diff of /linuxsampler/trunk/src/engines/gig/Engine.cpp

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

revision 242 by schoenebeck, Wed Sep 15 13:59:08 2004 UTC revision 376 by senkov, Sat Feb 12 23:48:50 2005 UTC
# Line 23  Line 23 
23  #include <sstream>  #include <sstream>
24  #include "DiskThread.h"  #include "DiskThread.h"
25  #include "Voice.h"  #include "Voice.h"
26    #include "EGADSR.h"
27    
28  #include "Engine.h"  #include "Engine.h"
29    
30    #if defined(__APPLE__)
31    # include <stdlib.h>
32    #else
33    # include <malloc.h>
34    #endif
35    
36  namespace LinuxSampler { namespace gig {  namespace LinuxSampler { namespace gig {
37    
38      InstrumentResourceManager Engine::Instruments;      InstrumentResourceManager Engine::Instruments;
# Line 37  namespace LinuxSampler { namespace gig { Line 44  namespace LinuxSampler { namespace gig {
44          pAudioOutputDevice = NULL;          pAudioOutputDevice = NULL;
45          pDiskThread        = NULL;          pDiskThread        = NULL;
46          pEventGenerator    = NULL;          pEventGenerator    = NULL;
47          pEventQueue        = new RingBuffer<Event>(MAX_EVENTS_PER_FRAGMENT);          pSysexBuffer       = new RingBuffer<uint8_t>(SYSEX_BUFFER_SIZE, 0);
48          pEventPool         = new RTELMemoryPool<Event>(MAX_EVENTS_PER_FRAGMENT);          pEventQueue        = new RingBuffer<Event>(MAX_EVENTS_PER_FRAGMENT, 0);
49          pVoicePool         = new RTELMemoryPool<Voice>(MAX_AUDIO_VOICES);          pEventPool         = new Pool<Event>(MAX_EVENTS_PER_FRAGMENT);
50          pActiveKeys        = new RTELMemoryPool<uint>(128);          pVoicePool         = new Pool<Voice>(MAX_AUDIO_VOICES);
51          pEvents            = new RTEList<Event>(pEventPool);          pActiveKeys        = new Pool<uint>(128);
52          pCCEvents          = new RTEList<Event>(pEventPool);          pVoiceStealingQueue = new RTList<Event>(pEventPool);
53            pEvents            = new RTList<Event>(pEventPool);
54            pCCEvents          = new RTList<Event>(pEventPool);
55          for (uint i = 0; i < Event::destination_count; i++) {          for (uint i = 0; i < Event::destination_count; i++) {
56              pSynthesisEvents[i] = new RTEList<Event>(pEventPool);              pSynthesisEvents[i] = new RTList<Event>(pEventPool);
57          }          }
58          for (uint i = 0; i < 128; i++) {          for (uint i = 0; i < 128; i++) {
59              pMIDIKeyInfo[i].pActiveVoices  = new RTEList<Voice>(pVoicePool);              pMIDIKeyInfo[i].pActiveVoices  = new RTList<Voice>(pVoicePool);
60              pMIDIKeyInfo[i].KeyPressed     = false;              pMIDIKeyInfo[i].KeyPressed     = false;
61              pMIDIKeyInfo[i].Active         = false;              pMIDIKeyInfo[i].Active         = false;
62              pMIDIKeyInfo[i].ReleaseTrigger = false;              pMIDIKeyInfo[i].ReleaseTrigger = false;
63              pMIDIKeyInfo[i].pSelf          = NULL;              pMIDIKeyInfo[i].pEvents        = new RTList<Event>(pEventPool);
             pMIDIKeyInfo[i].pEvents        = new RTEList<Event>(pEventPool);  
64          }          }
65          for (Voice* pVoice = pVoicePool->alloc(); pVoice; pVoice = pVoicePool->alloc()) {          for (RTList<Voice>::Iterator iterVoice = pVoicePool->allocAppend(); iterVoice == pVoicePool->last(); iterVoice = pVoicePool->allocAppend()) {
66              pVoice->SetEngine(this);              iterVoice->SetEngine(this);
67          }          }
68          pVoicePool->clear();          pVoicePool->clear();
69    
# Line 74  namespace LinuxSampler { namespace gig { Line 82  namespace LinuxSampler { namespace gig {
82    
83      Engine::~Engine() {      Engine::~Engine() {
84          if (pDiskThread) {          if (pDiskThread) {
85                dmsg(1,("Stopping disk thread..."));
86              pDiskThread->StopThread();              pDiskThread->StopThread();
87              delete pDiskThread;              delete pDiskThread;
88                dmsg(1,("OK\n"));
89          }          }
90    
91            if (pInstrument) Instruments.HandBack(pInstrument, this);
92    
93          if (pGig)  delete pGig;          if (pGig)  delete pGig;
94          if (pRIFF) delete pRIFF;          if (pRIFF) delete pRIFF;
95          for (uint i = 0; i < 128; i++) {          for (uint i = 0; i < 128; i++) {
# Line 86  namespace LinuxSampler { namespace gig { Line 99  namespace LinuxSampler { namespace gig {
99          for (uint i = 0; i < Event::destination_count; i++) {          for (uint i = 0; i < Event::destination_count; i++) {
100              if (pSynthesisEvents[i]) delete pSynthesisEvents[i];              if (pSynthesisEvents[i]) delete pSynthesisEvents[i];
101          }          }
         delete[] pSynthesisEvents;  
102          if (pEvents)     delete pEvents;          if (pEvents)     delete pEvents;
103          if (pCCEvents)   delete pCCEvents;          if (pCCEvents)   delete pCCEvents;
104          if (pEventQueue) delete pEventQueue;          if (pEventQueue) delete pEventQueue;
105          if (pEventPool)  delete pEventPool;          if (pEventPool)  delete pEventPool;
106          if (pVoicePool)  delete pVoicePool;          if (pVoicePool) {
107                    pVoicePool->clear();
108                    delete pVoicePool;
109            }
110          if (pActiveKeys) delete pActiveKeys;          if (pActiveKeys) delete pActiveKeys;
111            if (pSysexBuffer) delete pSysexBuffer;
112          if (pEventGenerator) delete pEventGenerator;          if (pEventGenerator) delete pEventGenerator;
113          if (pMainFilterParameters) delete[] pMainFilterParameters;          if (pMainFilterParameters) delete[] pMainFilterParameters;
114          if (pBasicFilterParameters) delete[] pBasicFilterParameters;          if (pBasicFilterParameters) delete[] pBasicFilterParameters;
115          if (pSynthesisParameters[0]) delete[] pSynthesisParameters[0];          if (pSynthesisParameters[0]) free(pSynthesisParameters[0]);
116            if (pVoiceStealingQueue) delete pVoiceStealingQueue;
117      }      }
118    
119      void Engine::Enable() {      void Engine::Enable() {
# Line 154  namespace LinuxSampler { namespace gig { Line 171  namespace LinuxSampler { namespace gig {
171          ActiveVoiceCount    = 0;          ActiveVoiceCount    = 0;
172          ActiveVoiceCountMax = 0;          ActiveVoiceCountMax = 0;
173          GlobalVolume        = 1.0;          GlobalVolume        = 1.0;
174            CurrentKeyDimension = 0;
175    
176            // reset voice stealing parameters
177            itLastStolenVoice = RTList<Voice>::Iterator();
178            iuiLastStolenKey  = RTList<uint>::Iterator();
179            pVoiceStealingQueue->clear();
180    
181            // reset to normal chromatic scale (means equal temper)
182            memset(&ScaleTuning[0], 0x00, 12);
183    
184          // set all MIDI controller values to zero          // set all MIDI controller values to zero
185          memset(ControllerTable, 0x00, 128);          memset(ControllerTable, 0x00, 128);
# Line 165  namespace LinuxSampler { namespace gig { Line 191  namespace LinuxSampler { namespace gig {
191              pMIDIKeyInfo[i].KeyPressed     = false;              pMIDIKeyInfo[i].KeyPressed     = false;
192              pMIDIKeyInfo[i].Active         = false;              pMIDIKeyInfo[i].Active         = false;
193              pMIDIKeyInfo[i].ReleaseTrigger = false;              pMIDIKeyInfo[i].ReleaseTrigger = false;
194              pMIDIKeyInfo[i].pSelf          = NULL;              pMIDIKeyInfo[i].itSelf         = Pool<uint>::Iterator();
195          }          }
196    
197          // reset all key groups          // reset all key groups
# Line 173  namespace LinuxSampler { namespace gig { Line 199  namespace LinuxSampler { namespace gig {
199          for (; iter != ActiveKeyGroups.end(); iter++) iter->second = NULL;          for (; iter != ActiveKeyGroups.end(); iter++) iter->second = NULL;
200    
201          // reset all voices          // reset all voices
202          for (Voice* pVoice = pVoicePool->alloc(); pVoice; pVoice = pVoicePool->alloc()) {          for (RTList<Voice>::Iterator iterVoice = pVoicePool->allocAppend(); iterVoice == pVoicePool->last(); iterVoice = pVoicePool->allocAppend()) {
203              pVoice->Reset();              iterVoice->Reset();
204          }          }
205          pVoicePool->clear();          pVoicePool->clear();
206    
# Line 246  namespace LinuxSampler { namespace gig { Line 272  namespace LinuxSampler { namespace gig {
272          for (::gig::Region* pRegion = pInstrument->GetFirstRegion(); pRegion; pRegion = pInstrument->GetNextRegion())          for (::gig::Region* pRegion = pInstrument->GetFirstRegion(); pRegion; pRegion = pInstrument->GetNextRegion())
273              if (pRegion->KeyGroup) ActiveKeyGroups[pRegion->KeyGroup] = NULL;              if (pRegion->KeyGroup) ActiveKeyGroups[pRegion->KeyGroup] = NULL;
274    
275            InstrumentIdxName = pInstrument->pInfo->Name;
276          InstrumentStat = 100;          InstrumentStat = 100;
277    
278          // inform audio driver for the need of two channels          // inform audio driver for the need of two channels
# Line 302  namespace LinuxSampler { namespace gig { Line 329  namespace LinuxSampler { namespace gig {
329          this->MaxSamplesPerCycle      = pAudioOutputDevice->MaxSamplesPerCycle();          this->MaxSamplesPerCycle      = pAudioOutputDevice->MaxSamplesPerCycle();
330          this->SampleRate              = pAudioOutputDevice->SampleRate();          this->SampleRate              = pAudioOutputDevice->SampleRate();
331    
332            // FIXME: audio drivers with varying fragment sizes might be a problem here
333            MaxFadeOutPos = MaxSamplesPerCycle - int(double(SampleRate) * EG_MIN_RELEASE_TIME) - 1;
334            if (MaxFadeOutPos < 0)
335                throw LinuxSamplerException("EG_MIN_RELEASE_TIME in EGADSR.h to big for current audio fragment size / sampling rate!");
336    
337          // (re)create disk thread          // (re)create disk thread
338          if (this->pDiskThread) {          if (this->pDiskThread) {
339                dmsg(1,("Stopping disk thread..."));
340              this->pDiskThread->StopThread();              this->pDiskThread->StopThread();
341              delete this->pDiskThread;              delete this->pDiskThread;
342                dmsg(1,("OK\n"));
343          }          }
344          this->pDiskThread = new DiskThread(((pAudioOut->MaxSamplesPerCycle() << MAX_PITCH) << 1) + 6); //FIXME: assuming stereo          this->pDiskThread = new DiskThread(((pAudioOut->MaxSamplesPerCycle() << MAX_PITCH) << 1) + 6); //FIXME: assuming stereo
345          if (!pDiskThread) {          if (!pDiskThread) {
# Line 313  namespace LinuxSampler { namespace gig { Line 347  namespace LinuxSampler { namespace gig {
347              exit(EXIT_FAILURE);              exit(EXIT_FAILURE);
348          }          }
349    
350          for (Voice* pVoice = pVoicePool->alloc(); pVoice; pVoice = pVoicePool->alloc()) {          for (RTList<Voice>::Iterator iterVoice = pVoicePool->allocAppend(); iterVoice == pVoicePool->last(); iterVoice = pVoicePool->allocAppend()) {
351              pVoice->pDiskThread = this->pDiskThread;              iterVoice->pDiskThread = this->pDiskThread;
352              dmsg(3,("d"));              dmsg(3,("d"));
353          }          }
354          pVoicePool->clear();          pVoicePool->clear();
# Line 324  namespace LinuxSampler { namespace gig { Line 358  namespace LinuxSampler { namespace gig {
358          pEventGenerator = new EventGenerator(pAudioOut->SampleRate());          pEventGenerator = new EventGenerator(pAudioOut->SampleRate());
359    
360          // (re)allocate synthesis parameter matrix          // (re)allocate synthesis parameter matrix
361          if (pSynthesisParameters[0]) delete[] pSynthesisParameters[0];          if (pSynthesisParameters[0]) free(pSynthesisParameters[0]);
362          pSynthesisParameters[0] = new float[Event::destination_count * pAudioOut->MaxSamplesPerCycle()];  
363            #if defined(__APPLE__)
364            pSynthesisParameters[0] = (float *) malloc(Event::destination_count * sizeof(float) * pAudioOut->MaxSamplesPerCycle());
365            #else
366            pSynthesisParameters[0] = (float *) memalign(16,(Event::destination_count * sizeof(float) * pAudioOut->MaxSamplesPerCycle()));
367            #endif
368          for (int dst = 1; dst < Event::destination_count; dst++)          for (int dst = 1; dst < Event::destination_count; dst++)
369              pSynthesisParameters[dst] = pSynthesisParameters[dst - 1] + pAudioOut->MaxSamplesPerCycle();              pSynthesisParameters[dst] = pSynthesisParameters[dst - 1] + pAudioOut->MaxSamplesPerCycle();
370    
# Line 339  namespace LinuxSampler { namespace gig { Line 378  namespace LinuxSampler { namespace gig {
378          pDiskThread->StartThread();          pDiskThread->StartThread();
379          dmsg(1,("OK\n"));          dmsg(1,("OK\n"));
380    
381          for (Voice* pVoice = pVoicePool->first(); pVoice; pVoice = pVoicePool->next()) {          for (RTList<Voice>::Iterator iterVoice = pVoicePool->allocAppend(); iterVoice == pVoicePool->last(); iterVoice = pVoicePool->allocAppend()) {
382              if (!pVoice->pDiskThread) {              if (!iterVoice->pDiskThread) {
383                  dmsg(0,("Engine -> voice::trigger: !pDiskThread\n"));                  dmsg(0,("Engine -> voice::trigger: !pDiskThread\n"));
384                  exit(EXIT_FAILURE);                  exit(EXIT_FAILURE);
385              }              }
# Line 381  namespace LinuxSampler { namespace gig { Line 420  namespace LinuxSampler { namespace gig {
420          }          }
421    
422    
423            // update time of start and end of this audio fragment (as events' time stamps relate to this)
424            pEventGenerator->UpdateFragmentTime(Samples);
425    
426    
427          // empty the event lists for the new fragment          // empty the event lists for the new fragment
428          pEvents->clear();          pEvents->clear();
429          pCCEvents->clear();          pCCEvents->clear();
430          for (uint i = 0; i < Event::destination_count; i++) {          for (uint i = 0; i < Event::destination_count; i++) {
431              pSynthesisEvents[i]->clear();              pSynthesisEvents[i]->clear();
432          }          }
433            {
434          // read and copy events from input queue              RTList<uint>::Iterator iuiKey = pActiveKeys->first();
435          Event event = pEventGenerator->CreateEvent();              RTList<uint>::Iterator end    = pActiveKeys->end();
436          while (true) {              for(; iuiKey != end; ++iuiKey) {
437              if (!pEventQueue->pop(&event)) break;                  pMIDIKeyInfo[*iuiKey].pEvents->clear(); // free all events on the key
438              pEvents->alloc_assign(event);              }
439          }          }
440    
441    
442          // update time of start and end of this audio fragment (as events' time stamps relate to this)          // get all events from the input event queue which belong to the current fragment
443          pEventGenerator->UpdateFragmentTime(Samples);          {
444                RingBuffer<Event>::NonVolatileReader eventQueueReader = pEventQueue->get_non_volatile_reader();
445                Event* pEvent;
446                while (true) {
447                    // get next event from input event queue
448                    if (!(pEvent = eventQueueReader.pop())) break;
449                    // if younger event reached, ignore that and all subsequent ones for now
450                    if (pEvent->FragmentPos() >= Samples) {
451                        eventQueueReader--;
452                        dmsg(2,("Younger Event, pos=%d ,Samples=%d!\n",pEvent->FragmentPos(),Samples));
453                        pEvent->ResetFragmentPos();
454                        break;
455                    }
456                    // copy event to internal event list
457                    if (pEvents->poolIsEmpty()) {
458                        dmsg(1,("Event pool emtpy!\n"));
459                        break;
460                    }
461                    *pEvents->allocAppend() = *pEvent;
462                }
463                eventQueueReader.free(); // free all copied events from input queue
464            }
465    
466    
467          // process events          // process events
468          Event* pNextEvent = pEvents->first();          {
469          while (pNextEvent) {              RTList<Event>::Iterator itEvent = pEvents->first();
470              Event* pEvent = pNextEvent;              RTList<Event>::Iterator end     = pEvents->end();
471              pEvents->set_current(pEvent);              for (; itEvent != end; ++itEvent) {
472              pNextEvent = pEvents->next();                  switch (itEvent->Type) {
473              switch (pEvent->Type) {                      case Event::type_note_on:
474                  case Event::type_note_on:                          dmsg(5,("Engine: Note on received\n"));
475                      dmsg(5,("Audio Thread: Note on received\n"));                          ProcessNoteOn(itEvent);
476                      ProcessNoteOn(pEvent);                          break;
477                      break;                      case Event::type_note_off:
478                  case Event::type_note_off:                          dmsg(5,("Engine: Note off received\n"));
479                      dmsg(5,("Audio Thread: Note off received\n"));                          ProcessNoteOff(itEvent);
480                      ProcessNoteOff(pEvent);                          break;
481                      break;                      case Event::type_control_change:
482                  case Event::type_control_change:                          dmsg(5,("Engine: MIDI CC received\n"));
483                      dmsg(5,("Audio Thread: MIDI CC received\n"));                          ProcessControlChange(itEvent);
484                      ProcessControlChange(pEvent);                          break;
485                      break;                      case Event::type_pitchbend:
486                  case Event::type_pitchbend:                          dmsg(5,("Engine: Pitchbend received\n"));
487                      dmsg(5,("Audio Thread: Pitchbend received\n"));                          ProcessPitchbend(itEvent);
488                      ProcessPitchbend(pEvent);                          break;
489                      break;                      case Event::type_sysex:
490                            dmsg(5,("Engine: Sysex received\n"));
491                            ProcessSysex(itEvent);
492                            break;
493                    }
494              }              }
495          }          }
496    
497    
         // render audio from all active voices  
498          int active_voices = 0;          int active_voices = 0;
499          uint* piKey = pActiveKeys->first();  
500          while (piKey) { // iterate through all active keys          // render audio from all active voices
501              midi_key_info_t* pKey = &pMIDIKeyInfo[*piKey];          {
502              pActiveKeys->set_current(piKey);              RTList<uint>::Iterator iuiKey = pActiveKeys->first();
503              piKey = pActiveKeys->next();              RTList<uint>::Iterator end    = pActiveKeys->end();
504                while (iuiKey != end) { // iterate through all active keys
505              Voice* pVoiceNext = pKey->pActiveVoices->first();                  midi_key_info_t* pKey = &pMIDIKeyInfo[*iuiKey];
506              while (pVoiceNext) { // iterate through all voices on this key                  ++iuiKey;
507                  // already get next voice on key  
508                  Voice* pVoice = pVoiceNext;                  RTList<Voice>::Iterator itVoice     = pKey->pActiveVoices->first();
509                  pKey->pActiveVoices->set_current(pVoice);                  RTList<Voice>::Iterator itVoicesEnd = pKey->pActiveVoices->end();
510                  pVoiceNext = pKey->pActiveVoices->next();                  for (; itVoice != itVoicesEnd; ++itVoice) { // iterate through all voices on this key
511                        // now render current voice
512                  // now render current voice                      itVoice->Render(Samples);
513                  pVoice->Render(Samples);                      if (itVoice->IsActive()) active_voices++; // still active
514                  if (pVoice->IsActive()) active_voices++; // still active                      else { // voice reached end, is now inactive
515                  else { // voice reached end, is now inactive                          FreeVoice(itVoice); // remove voice from the list of active voices
516                      KillVoiceImmediately(pVoice); // remove voice from the list of active voices                      }
517                  }                  }
518              }              }
519              pKey->pEvents->clear(); // free all events on the key          }
520    
521    
522            // now render all postponed voices from voice stealing
523            {
524                RTList<Event>::Iterator itVoiceStealEvent = pVoiceStealingQueue->first();
525                RTList<Event>::Iterator end               = pVoiceStealingQueue->end();
526                for (; itVoiceStealEvent != end; ++itVoiceStealEvent) {
527                    Pool<Voice>::Iterator itNewVoice = LaunchVoice(itVoiceStealEvent, itVoiceStealEvent->Param.Note.Layer, itVoiceStealEvent->Param.Note.ReleaseTrigger, false);
528                    if (itNewVoice) {
529                        for (; itNewVoice; itNewVoice = itNewVoice->itChildVoice) {
530                            itNewVoice->Render(Samples);
531                            if (itNewVoice->IsActive()) active_voices++; // still active
532                            else { // voice reached end, is now inactive
533                                FreeVoice(itNewVoice); // remove voice from the list of active voices
534                            }
535                        }
536                    }
537                    else dmsg(1,("gig::Engine: ERROR, voice stealing didn't work out!\n"));
538                }
539            }
540            // reset voice stealing for the new fragment
541            pVoiceStealingQueue->clear();
542            itLastStolenVoice = RTList<Voice>::Iterator();
543            iuiLastStolenKey  = RTList<uint>::Iterator();
544    
545    
546            // free all keys which have no active voices left
547            {
548                RTList<uint>::Iterator iuiKey = pActiveKeys->first();
549                RTList<uint>::Iterator end    = pActiveKeys->end();
550                while (iuiKey != end) { // iterate through all active keys
551                    midi_key_info_t* pKey = &pMIDIKeyInfo[*iuiKey];
552                    ++iuiKey;
553                    if (pKey->pActiveVoices->isEmpty()) FreeKey(pKey);
554                    #if DEVMODE
555                    else { // FIXME: should be removed before the final release (purpose: just a sanity check for debugging)
556                        RTList<Voice>::Iterator itVoice     = pKey->pActiveVoices->first();
557                        RTList<Voice>::Iterator itVoicesEnd = pKey->pActiveVoices->end();
558                        for (; itVoice != itVoicesEnd; ++itVoice) { // iterate through all voices on this key
559                            if (itVoice->itKillEvent) {
560                                dmsg(1,("gig::Engine: ERROR, killed voice survived !!!\n"));
561                            }
562                        }
563                    }
564                    #endif // DEVMODE
565                }
566          }          }
567    
568    
# Line 470  namespace LinuxSampler { namespace gig { Line 583  namespace LinuxSampler { namespace gig {
583       *  @param Velocity - MIDI velocity value of the triggered key       *  @param Velocity - MIDI velocity value of the triggered key
584       */       */
585      void Engine::SendNoteOn(uint8_t Key, uint8_t Velocity) {      void Engine::SendNoteOn(uint8_t Key, uint8_t Velocity) {
586          Event event    = pEventGenerator->CreateEvent();          Event event               = pEventGenerator->CreateEvent();
587          event.Type     = Event::type_note_on;          event.Type                = Event::type_note_on;
588          event.Key      = Key;          event.Param.Note.Key      = Key;
589          event.Velocity = Velocity;          event.Param.Note.Velocity = Velocity;
590          if (this->pEventQueue->write_space() > 0) this->pEventQueue->push(&event);          if (this->pEventQueue->write_space() > 0) this->pEventQueue->push(&event);
591          else dmsg(1,("Engine: Input event queue full!"));          else dmsg(1,("Engine: Input event queue full!"));
592      }      }
# Line 486  namespace LinuxSampler { namespace gig { Line 599  namespace LinuxSampler { namespace gig {
599       *  @param Velocity - MIDI release velocity value of the released key       *  @param Velocity - MIDI release velocity value of the released key
600       */       */
601      void Engine::SendNoteOff(uint8_t Key, uint8_t Velocity) {      void Engine::SendNoteOff(uint8_t Key, uint8_t Velocity) {
602          Event event    = pEventGenerator->CreateEvent();          Event event               = pEventGenerator->CreateEvent();
603          event.Type     = Event::type_note_off;          event.Type                = Event::type_note_off;
604          event.Key      = Key;          event.Param.Note.Key      = Key;
605          event.Velocity = Velocity;          event.Param.Note.Velocity = Velocity;
606          if (this->pEventQueue->write_space() > 0) this->pEventQueue->push(&event);          if (this->pEventQueue->write_space() > 0) this->pEventQueue->push(&event);
607          else dmsg(1,("Engine: Input event queue full!"));          else dmsg(1,("Engine: Input event queue full!"));
608      }      }
# Line 501  namespace LinuxSampler { namespace gig { Line 614  namespace LinuxSampler { namespace gig {
614       *  @param Pitch - MIDI pitch value (-8192 ... +8191)       *  @param Pitch - MIDI pitch value (-8192 ... +8191)
615       */       */
616      void Engine::SendPitchbend(int Pitch) {      void Engine::SendPitchbend(int Pitch) {
617          Event event = pEventGenerator->CreateEvent();          Event event             = pEventGenerator->CreateEvent();
618          event.Type  = Event::type_pitchbend;          event.Type              = Event::type_pitchbend;
619          event.Pitch = Pitch;          event.Param.Pitch.Pitch = Pitch;
620          if (this->pEventQueue->write_space() > 0) this->pEventQueue->push(&event);          if (this->pEventQueue->write_space() > 0) this->pEventQueue->push(&event);
621          else dmsg(1,("Engine: Input event queue full!"));          else dmsg(1,("Engine: Input event queue full!"));
622      }      }
# Line 516  namespace LinuxSampler { namespace gig { Line 629  namespace LinuxSampler { namespace gig {
629       *  @param Value      - value of the control change       *  @param Value      - value of the control change
630       */       */
631      void Engine::SendControlChange(uint8_t Controller, uint8_t Value) {      void Engine::SendControlChange(uint8_t Controller, uint8_t Value) {
632          Event event      = pEventGenerator->CreateEvent();          Event event               = pEventGenerator->CreateEvent();
633          event.Type       = Event::type_control_change;          event.Type                = Event::type_control_change;
634          event.Controller = Controller;          event.Param.CC.Controller = Controller;
635          event.Value      = Value;          event.Param.CC.Value      = Value;
636          if (this->pEventQueue->write_space() > 0) this->pEventQueue->push(&event);          if (this->pEventQueue->write_space() > 0) this->pEventQueue->push(&event);
637          else dmsg(1,("Engine: Input event queue full!"));          else dmsg(1,("Engine: Input event queue full!"));
638      }      }
639    
640      /**      /**
641         *  Will be called by the MIDI input device whenever a MIDI system
642         *  exclusive message has arrived.
643         *
644         *  @param pData - pointer to sysex data
645         *  @param Size  - lenght of sysex data (in bytes)
646         */
647        void Engine::SendSysex(void* pData, uint Size) {
648            Event event             = pEventGenerator->CreateEvent();
649            event.Type              = Event::type_sysex;
650            event.Param.Sysex.Size  = Size;
651            if (pEventQueue->write_space() > 0) {
652                if (pSysexBuffer->write_space() >= Size) {
653                    // copy sysex data to input buffer
654                    uint toWrite = Size;
655                    uint8_t* pPos = (uint8_t*) pData;
656                    while (toWrite) {
657                        const uint writeNow = RTMath::Min(toWrite, pSysexBuffer->write_space_to_end());
658                        pSysexBuffer->write(pPos, writeNow);
659                        toWrite -= writeNow;
660                        pPos    += writeNow;
661    
662                    }
663                    // finally place sysex event into input event queue
664                    pEventQueue->push(&event);
665                }
666                else dmsg(1,("Engine: Sysex message too large (%d byte) for input buffer (%d byte)!",Size,SYSEX_BUFFER_SIZE));
667            }
668            else dmsg(1,("Engine: Input event queue full!"));
669        }
670    
671        /**
672       *  Assigns and triggers a new voice for the respective MIDI key.       *  Assigns and triggers a new voice for the respective MIDI key.
673       *       *
674       *  @param pNoteOnEvent - key, velocity and time stamp of the event       *  @param itNoteOnEvent - key, velocity and time stamp of the event
675       */       */
676      void Engine::ProcessNoteOn(Event* pNoteOnEvent) {      void Engine::ProcessNoteOn(Pool<Event>::Iterator& itNoteOnEvent) {
677          midi_key_info_t* pKey = &pMIDIKeyInfo[pNoteOnEvent->Key];  
678            const int key = itNoteOnEvent->Param.Note.Key;
679    
680            // Change key dimension value if key is in keyswitching area
681            if (key >= pInstrument->DimensionKeyRange.low && key <= pInstrument->DimensionKeyRange.high)
682                CurrentKeyDimension = ((key - pInstrument->DimensionKeyRange.low) * 128) /
683                    (pInstrument->DimensionKeyRange.high - pInstrument->DimensionKeyRange.low + 1);
684    
685            midi_key_info_t* pKey = &pMIDIKeyInfo[key];
686    
687          pKey->KeyPressed = true; // the MIDI key was now pressed down          pKey->KeyPressed = true; // the MIDI key was now pressed down
688    
689          // cancel release process of voices on this key if needed          // cancel release process of voices on this key if needed
690          if (pKey->Active && !SustainPedal) {          if (pKey->Active && !SustainPedal) {
691              Event* pCancelReleaseEvent = pKey->pEvents->alloc();              RTList<Event>::Iterator itCancelReleaseEvent = pKey->pEvents->allocAppend();
692              if (pCancelReleaseEvent) {              if (itCancelReleaseEvent) {
693                  *pCancelReleaseEvent = *pNoteOnEvent;                  *itCancelReleaseEvent = *itNoteOnEvent;                  // copy event
694                  pCancelReleaseEvent->Type = Event::type_cancel_release; // transform event type                  itCancelReleaseEvent->Type = Event::type_cancel_release; // transform event type
695              }              }
696              else dmsg(1,("Event pool emtpy!\n"));              else dmsg(1,("Event pool emtpy!\n"));
697          }          }
698    
699          // allocate and trigger a new voice for the key          // move note on event to the key's own event list
700          LaunchVoice(pNoteOnEvent);          RTList<Event>::Iterator itNoteOnEventOnKeyList = itNoteOnEvent.moveToEndOf(pKey->pEvents);
701    
702          // finally move note on event to the key's own event list          // allocate and trigger a new voice for the key
703          pEvents->move(pNoteOnEvent, pKey->pEvents);          LaunchVoice(itNoteOnEventOnKeyList, 0, false, true);
704      }      }
705    
706      /**      /**
# Line 557  namespace LinuxSampler { namespace gig { Line 709  namespace LinuxSampler { namespace gig {
709       *  sustain pedal will be released or voice turned inactive by itself (e.g.       *  sustain pedal will be released or voice turned inactive by itself (e.g.
710       *  due to completion of sample playback).       *  due to completion of sample playback).
711       *       *
712       *  @param pNoteOffEvent - key, velocity and time stamp of the event       *  @param itNoteOffEvent - key, velocity and time stamp of the event
713       */       */
714      void Engine::ProcessNoteOff(Event* pNoteOffEvent) {      void Engine::ProcessNoteOff(Pool<Event>::Iterator& itNoteOffEvent) {
715          midi_key_info_t* pKey = &pMIDIKeyInfo[pNoteOffEvent->Key];          midi_key_info_t* pKey = &pMIDIKeyInfo[itNoteOffEvent->Param.Note.Key];
716    
717          pKey->KeyPressed = false; // the MIDI key was now released          pKey->KeyPressed = false; // the MIDI key was now released
718    
719          // release voices on this key if needed          // release voices on this key if needed
720          if (pKey->Active && !SustainPedal) {          if (pKey->Active && !SustainPedal) {
721              pNoteOffEvent->Type = Event::type_release; // transform event type              itNoteOffEvent->Type = Event::type_release; // transform event type
722          }          }
723    
724            // move event to the key's own event list
725            RTList<Event>::Iterator itNoteOffEventOnKeyList = itNoteOffEvent.moveToEndOf(pKey->pEvents);
726    
727          // spawn release triggered voice(s) if needed          // spawn release triggered voice(s) if needed
728          if (pKey->ReleaseTrigger) {          if (pKey->ReleaseTrigger) {
729              LaunchVoice(pNoteOffEvent, 0, true);              LaunchVoice(itNoteOffEventOnKeyList, 0, true, false); //FIXME: for the moment we don't perform voice stealing for release triggered samples
730              pKey->ReleaseTrigger = false;              pKey->ReleaseTrigger = false;
731          }          }
   
         // move event to the key's own event list  
         pEvents->move(pNoteOffEvent, pKey->pEvents);  
732      }      }
733    
734      /**      /**
735       *  Moves pitchbend event from the general (input) event list to the pitch       *  Moves pitchbend event from the general (input) event list to the pitch
736       *  event list.       *  event list.
737       *       *
738       *  @param pPitchbendEvent - absolute pitch value and time stamp of the event       *  @param itPitchbendEvent - absolute pitch value and time stamp of the event
739       */       */
740      void Engine::ProcessPitchbend(Event* pPitchbendEvent) {      void Engine::ProcessPitchbend(Pool<Event>::Iterator& itPitchbendEvent) {
741          this->Pitch = pPitchbendEvent->Pitch; // store current pitch value          this->Pitch = itPitchbendEvent->Param.Pitch.Pitch; // store current pitch value
742          pEvents->move(pPitchbendEvent, pSynthesisEvents[Event::destination_vco]);          itPitchbendEvent.moveToEndOf(pSynthesisEvents[Event::destination_vco]);
743      }      }
744    
745      /**      /**
# Line 595  namespace LinuxSampler { namespace gig { Line 747  namespace LinuxSampler { namespace gig {
747       *  called by the ProcessNoteOn() method and by the voices itself       *  called by the ProcessNoteOn() method and by the voices itself
748       *  (e.g. to spawn further voices on the same key for layered sounds).       *  (e.g. to spawn further voices on the same key for layered sounds).
749       *       *
750       *  @param pNoteOnEvent        - key, velocity and time stamp of the event       *  @param itNoteOnEvent       - key, velocity and time stamp of the event
751       *  @param iLayer              - layer index for the new voice (optional - only       *  @param iLayer              - layer index for the new voice (optional - only
752       *                               in case of layered sounds of course)       *                               in case of layered sounds of course)
753       *  @param ReleaseTriggerVoice - if new voice is a release triggered voice       *  @param ReleaseTriggerVoice - if new voice is a release triggered voice
754       *                               (optional, default = false)       *                               (optional, default = false)
755         *  @param VoiceStealing       - if voice stealing should be performed
756         *                               when there is no free voice
757         *                               (optional, default = true)
758         *  @returns pointer to new voice or NULL if there was no free voice or
759         *           if the voice wasn't triggered (for example when no region is
760         *           defined for the given key).
761       */       */
762      void Engine::LaunchVoice(Event* pNoteOnEvent, int iLayer, bool ReleaseTriggerVoice) {      Pool<Voice>::Iterator Engine::LaunchVoice(Pool<Event>::Iterator& itNoteOnEvent, int iLayer, bool ReleaseTriggerVoice, bool VoiceStealing) {
763          midi_key_info_t* pKey = &pMIDIKeyInfo[pNoteOnEvent->Key];          midi_key_info_t* pKey = &pMIDIKeyInfo[itNoteOnEvent->Param.Note.Key];
764    
765          // allocate a new voice for the key          // allocate a new voice for the key
766          Voice* pNewVoice = pKey->pActiveVoices->alloc();          Pool<Voice>::Iterator itNewVoice = pKey->pActiveVoices->allocAppend();
767          if (pNewVoice) {          if (itNewVoice) {
768              // launch the new voice              // launch the new voice
769              if (pNewVoice->Trigger(pNoteOnEvent, this->Pitch, this->pInstrument, iLayer, ReleaseTriggerVoice) < 0) {              if (itNewVoice->Trigger(itNoteOnEvent, this->Pitch, this->pInstrument, iLayer, ReleaseTriggerVoice, VoiceStealing) < 0) {
770                  dmsg(1,("Triggering new voice failed!\n"));                  dmsg(4,("Voice not triggered\n"));
771                  pKey->pActiveVoices->free(pNewVoice);                  pKey->pActiveVoices->free(itNewVoice);
772              }              }
773              else { // on success              else { // on success
774                  uint** ppKeyGroup = NULL;                  uint** ppKeyGroup = NULL;
775                  if (pNewVoice->KeyGroup) { // if this voice / key belongs to a key group                  if (itNewVoice->KeyGroup) { // if this voice / key belongs to a key group
776                      ppKeyGroup = &ActiveKeyGroups[pNewVoice->KeyGroup];                      ppKeyGroup = &ActiveKeyGroups[itNewVoice->KeyGroup];
777                      if (*ppKeyGroup) { // if there's already an active key in that key group                      if (*ppKeyGroup) { // if there's already an active key in that key group
778                          midi_key_info_t* pOtherKey = &pMIDIKeyInfo[**ppKeyGroup];                          midi_key_info_t* pOtherKey = &pMIDIKeyInfo[**ppKeyGroup];
779                          // kill all voices on the (other) key                          // kill all voices on the (other) key
780                          Voice* pVoiceToBeKilled = pOtherKey->pActiveVoices->first();                          RTList<Voice>::Iterator itVoiceToBeKilled = pOtherKey->pActiveVoices->first();
781                          while (pVoiceToBeKilled) {                          RTList<Voice>::Iterator end               = pOtherKey->pActiveVoices->end();
782                              Voice* pVoiceToBeKilledNext = pOtherKey->pActiveVoices->next();                          for (; itVoiceToBeKilled != end; ++itVoiceToBeKilled) {
783                              if (pVoiceToBeKilled->Type != Voice::type_release_trigger) pVoiceToBeKilled->Kill(pNoteOnEvent);                              if (itVoiceToBeKilled->Type != Voice::type_release_trigger) itVoiceToBeKilled->Kill(itNoteOnEvent);
                             pOtherKey->pActiveVoices->set_current(pVoiceToBeKilled);  
                             pVoiceToBeKilled = pVoiceToBeKilledNext;  
784                          }                          }
785                      }                      }
786                  }                  }
787                  if (!pKey->Active) { // mark as active key                  if (!pKey->Active) { // mark as active key
788                      pKey->Active = true;                      pKey->Active = true;
789                      pKey->pSelf  = pActiveKeys->alloc();                      pKey->itSelf = pActiveKeys->allocAppend();
790                      *pKey->pSelf = pNoteOnEvent->Key;                      *pKey->itSelf = itNoteOnEvent->Param.Note.Key;
791                  }                  }
792                  if (pNewVoice->KeyGroup) {                  if (itNewVoice->KeyGroup) {
793                      *ppKeyGroup = pKey->pSelf; // put key as the (new) active key to its key group                      *ppKeyGroup = &*pKey->itSelf; // put key as the (new) active key to its key group
794                  }                  }
795                  if (pNewVoice->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) pKey->ReleaseTrigger = true; // mark key for the need of release triggered voice(s)
796                    return itNewVoice; // success
797                }
798            }
799            else if (VoiceStealing) {
800                // first, get total amount of required voices (dependant on amount of layers)
801                ::gig::Region* pRegion = pInstrument->GetRegion(itNoteOnEvent->Param.Note.Key);
802                if (!pRegion) return Pool<Voice>::Iterator(); // nothing defined for this MIDI key, so no voice needed
803                int voicesRequired = pRegion->Layers;
804    
805                // now steal the (remaining) amount of voices
806                for (int i = iLayer; i < voicesRequired; i++)
807                    StealVoice(itNoteOnEvent);
808    
809                // put note-on event into voice-stealing queue, so it will be reprocessed after killed voice died
810                RTList<Event>::Iterator itStealEvent = pVoiceStealingQueue->allocAppend();
811                if (itStealEvent) {
812                    *itStealEvent = *itNoteOnEvent; // copy event
813                    itStealEvent->Param.Note.Layer = iLayer;
814                    itStealEvent->Param.Note.ReleaseTrigger = ReleaseTriggerVoice;
815              }              }
816                else dmsg(1,("Voice stealing queue full!\n"));
817          }          }
818          else std::cerr << "No free voice!" << std::endl << std::flush;  
819            return Pool<Voice>::Iterator(); // no free voice or error
820      }      }
821    
822      /**      /**
823       *  Immediately kills the voice given with pVoice (no matter if sustain is       *  Will be called by LaunchVoice() method in case there are no free
824       *  pressed or not) and removes it from the MIDI key's list of active voice.       *  voices left. This method will select and kill one old voice for
825       *  This method will e.g. be called if a voice went inactive by itself.       *  voice stealing and postpone the note-on event until the selected
826         *  voice actually died.
827       *       *
828       *  @param pVoice - points to the voice to be killed       *  @param itNoteOnEvent - key, velocity and time stamp of the event
829       */       */
830      void Engine::KillVoiceImmediately(Voice* pVoice) {      void Engine::StealVoice(Pool<Event>::Iterator& itNoteOnEvent) {
831          if (pVoice) {          if (!pEventPool->poolIsEmpty()) {
832              if (pVoice->IsActive()) pVoice->KillImmediately();  
833                RTList<uint>::Iterator  iuiOldestKey;
834                RTList<Voice>::Iterator itOldestVoice;
835    
836                // Select one voice for voice stealing
837                switch (VOICE_STEAL_ALGORITHM) {
838    
839                    // try to pick the oldest voice on the key where the new
840                    // voice should be spawned, if there is no voice on that
841                    // key, or no voice left to kill there, then procceed with
842                    // 'oldestkey' algorithm
843                    case voice_steal_algo_keymask: {
844                        midi_key_info_t* pOldestKey = &pMIDIKeyInfo[itNoteOnEvent->Param.Note.Key];
845                        if (itLastStolenVoice) {
846                            itOldestVoice = itLastStolenVoice;
847                            ++itOldestVoice;
848                        }
849                        else { // no voice stolen in this audio fragment cycle yet
850                            itOldestVoice = pOldestKey->pActiveVoices->first();
851                        }
852                        if (itOldestVoice) {
853                            iuiOldestKey = pOldestKey->itSelf;
854                            break; // selection succeeded
855                        }
856                    } // no break - intentional !
857    
858              midi_key_info_t* pKey = &pMIDIKeyInfo[pVoice->MIDIKey];                  // try to pick the oldest voice on the oldest active key
859                    // (caution: must stay after 'keymask' algorithm !)
860                    case voice_steal_algo_oldestkey: {
861                        if (itLastStolenVoice) {
862                            midi_key_info_t* pOldestKey = &pMIDIKeyInfo[*iuiLastStolenKey];
863                            itOldestVoice = itLastStolenVoice;
864                            ++itOldestVoice;
865                            if (!itOldestVoice) {
866                                iuiOldestKey = iuiLastStolenKey;
867                                ++iuiOldestKey;
868                                if (iuiOldestKey) {
869                                    midi_key_info_t* pOldestKey = &pMIDIKeyInfo[*iuiOldestKey];
870                                    itOldestVoice = pOldestKey->pActiveVoices->first();
871                                }
872                                else {
873                                    dmsg(1,("gig::Engine: Warning, too less voices, even for voice stealing! - Better recompile with higher MAX_AUDIO_VOICES.\n"));
874                                    return;
875                                }
876                            }
877                            else iuiOldestKey = iuiLastStolenKey;
878                        }
879                        else { // no voice stolen in this audio fragment cycle yet
880                            iuiOldestKey = pActiveKeys->first();
881                            midi_key_info_t* pOldestKey = &pMIDIKeyInfo[*iuiOldestKey];
882                            itOldestVoice = pOldestKey->pActiveVoices->first();
883                        }
884                        break;
885                    }
886    
887                    // don't steal anything
888                    case voice_steal_algo_none:
889                    default: {
890                        dmsg(1,("No free voice (voice stealing disabled)!\n"));
891                        return;
892                    }
893                }
894    
895                //FIXME: can be removed, just a sanity check for debugging
896                if (!itOldestVoice->IsActive()) dmsg(1,("gig::Engine: ERROR, tried to steal a voice which was not active !!!\n"));
897    
898                // now kill the selected voice
899                itOldestVoice->Kill(itNoteOnEvent);
900                // remember which voice on which key we stole, so we can simply proceed for the next voice stealing
901                this->itLastStolenVoice = itOldestVoice;
902                this->iuiLastStolenKey = iuiOldestKey;
903            }
904            else dmsg(1,("Event pool emtpy!\n"));
905        }
906    
907        /**
908         *  Removes the given voice from the MIDI key's list of active voices.
909         *  This method will be called when a voice went inactive, e.g. because
910         *  it finished to playback its sample, finished its release stage or
911         *  just was killed.
912         *
913         *  @param itVoice - points to the voice to be freed
914         */
915        void Engine::FreeVoice(Pool<Voice>::Iterator& itVoice) {
916            if (itVoice) {
917                midi_key_info_t* pKey = &pMIDIKeyInfo[itVoice->MIDIKey];
918    
919                uint keygroup = itVoice->KeyGroup;
920    
921              // free the voice object              // free the voice object
922              pVoicePool->free(pVoice);              pVoicePool->free(itVoice);
923    
924              // check if there are no voices left on the MIDI key and update the key info if so              // if no other voices left and member of a key group, remove from key group
925              if (pKey->pActiveVoices->is_empty()) {              if (pKey->pActiveVoices->isEmpty() && keygroup) {
926                  if (pVoice->KeyGroup) { // if voice / key belongs to a key group                  uint** ppKeyGroup = &ActiveKeyGroups[keygroup];
927                      uint** ppKeyGroup = &ActiveKeyGroups[pVoice->KeyGroup];                  if (*ppKeyGroup == &*pKey->itSelf) *ppKeyGroup = NULL; // remove key from key group
                     if (*ppKeyGroup == pKey->pSelf) *ppKeyGroup = NULL; // remove key from key group  
                 }  
                 pKey->Active = false;  
                 pActiveKeys->free(pKey->pSelf); // remove key from list of active keys  
                 pKey->pSelf = NULL;  
                 pKey->ReleaseTrigger = false;  
                 dmsg(3,("Key has no more voices now\n"));  
928              }              }
929          }          }
930          else std::cerr << "Couldn't release voice! (pVoice == NULL)\n" << std::flush;          else std::cerr << "Couldn't release voice! (!itVoice)\n" << std::flush;
931        }
932    
933        /**
934         *  Called when there's no more voice left on a key, this call will
935         *  update the key info respectively.
936         *
937         *  @param pKey - key which is now inactive
938         */
939        void Engine::FreeKey(midi_key_info_t* pKey) {
940            if (pKey->pActiveVoices->isEmpty()) {
941                pKey->Active = false;
942                pActiveKeys->free(pKey->itSelf); // remove key from list of active keys
943                pKey->itSelf = RTList<uint>::Iterator();
944                pKey->ReleaseTrigger = false;
945                pKey->pEvents->clear();
946                dmsg(3,("Key has no more voices now\n"));
947            }
948            else dmsg(1,("gig::Engine: Oops, tried to free a key which contains voices.\n"));
949      }      }
950    
951      /**      /**
952       *  Reacts on supported control change commands (e.g. pitch bend wheel,       *  Reacts on supported control change commands (e.g. pitch bend wheel,
953       *  modulation wheel, aftertouch).       *  modulation wheel, aftertouch).
954       *       *
955       *  @param pControlChangeEvent - controller, value and time stamp of the event       *  @param itControlChangeEvent - controller, value and time stamp of the event
956       */       */
957      void Engine::ProcessControlChange(Event* pControlChangeEvent) {      void Engine::ProcessControlChange(Pool<Event>::Iterator& itControlChangeEvent) {
958          dmsg(4,("Engine::ContinuousController cc=%d v=%d\n", pControlChangeEvent->Controller, pControlChangeEvent->Value));          dmsg(4,("Engine::ContinuousController cc=%d v=%d\n", itControlChangeEvent->Param.CC.Controller, itControlChangeEvent->Param.CC.Value));
959    
960          switch (pControlChangeEvent->Controller) {          switch (itControlChangeEvent->Param.CC.Controller) {
961              case 64: {              case 64: {
962                  if (pControlChangeEvent->Value >= 64 && !SustainPedal) {                  if (itControlChangeEvent->Param.CC.Value >= 64 && !SustainPedal) {
963                      dmsg(4,("PEDAL DOWN\n"));                      dmsg(4,("PEDAL DOWN\n"));
964                      SustainPedal = true;                      SustainPedal = true;
965    
966                      // cancel release process of voices if necessary                      // cancel release process of voices if necessary
967                      uint* piKey = pActiveKeys->first();                      RTList<uint>::Iterator iuiKey = pActiveKeys->first();
968                      if (piKey) {                      if (iuiKey) {
969                          pControlChangeEvent->Type = Event::type_cancel_release; // transform event type                          itControlChangeEvent->Type = Event::type_cancel_release; // transform event type
970                          while (piKey) {                          while (iuiKey) {
971                              midi_key_info_t* pKey = &pMIDIKeyInfo[*piKey];                              midi_key_info_t* pKey = &pMIDIKeyInfo[*iuiKey];
972                              pActiveKeys->set_current(piKey);                              ++iuiKey;
                             piKey = pActiveKeys->next();  
973                              if (!pKey->KeyPressed) {                              if (!pKey->KeyPressed) {
974                                  Event* pNewEvent = pKey->pEvents->alloc();                                  RTList<Event>::Iterator itNewEvent = pKey->pEvents->allocAppend();
975                                  if (pNewEvent) *pNewEvent = *pControlChangeEvent; // copy event to the key's own event list                                  if (itNewEvent) *itNewEvent = *itControlChangeEvent; // copy event to the key's own event list
976                                  else dmsg(1,("Event pool emtpy!\n"));                                  else dmsg(1,("Event pool emtpy!\n"));
977                              }                              }
978                          }                          }
979                      }                      }
980                  }                  }
981                  if (pControlChangeEvent->Value < 64 && SustainPedal) {                  if (itControlChangeEvent->Param.CC.Value < 64 && SustainPedal) {
982                      dmsg(4,("PEDAL UP\n"));                      dmsg(4,("PEDAL UP\n"));
983                      SustainPedal = false;                      SustainPedal = false;
984    
985                      // release voices if their respective key is not pressed                      // release voices if their respective key is not pressed
986                      uint* piKey = pActiveKeys->first();                      RTList<uint>::Iterator iuiKey = pActiveKeys->first();
987                      if (piKey) {                      if (iuiKey) {
988                          pControlChangeEvent->Type = Event::type_release; // transform event type                          itControlChangeEvent->Type = Event::type_release; // transform event type
989                          while (piKey) {                          while (iuiKey) {
990                              midi_key_info_t* pKey = &pMIDIKeyInfo[*piKey];                              midi_key_info_t* pKey = &pMIDIKeyInfo[*iuiKey];
991                              pActiveKeys->set_current(piKey);                              ++iuiKey;
                             piKey = pActiveKeys->next();  
992                              if (!pKey->KeyPressed) {                              if (!pKey->KeyPressed) {
993                                  Event* pNewEvent = pKey->pEvents->alloc();                                  RTList<Event>::Iterator itNewEvent = pKey->pEvents->allocAppend();
994                                  if (pNewEvent) *pNewEvent = *pControlChangeEvent; // copy event to the key's own event list                                  if (itNewEvent) *itNewEvent = *itControlChangeEvent; // copy event to the key's own event list
995                                  else dmsg(1,("Event pool emtpy!\n"));                                  else dmsg(1,("Event pool emtpy!\n"));
996                              }                              }
997                          }                          }
# Line 730  namespace LinuxSampler { namespace gig { Line 1002  namespace LinuxSampler { namespace gig {
1002          }          }
1003    
1004          // update controller value in the engine's controller table          // update controller value in the engine's controller table
1005          ControllerTable[pControlChangeEvent->Controller] = pControlChangeEvent->Value;          ControllerTable[itControlChangeEvent->Param.CC.Controller] = itControlChangeEvent->Param.CC.Value;
1006    
1007          // move event from the unsorted event list to the control change event list          // move event from the unsorted event list to the control change event list
1008          pEvents->move(pControlChangeEvent, pCCEvents);          itControlChangeEvent.moveToEndOf(pCCEvents);
1009        }
1010    
1011        /**
1012         *  Reacts on MIDI system exclusive messages.
1013         *
1014         *  @param itSysexEvent - sysex data size and time stamp of the sysex event
1015         */
1016        void Engine::ProcessSysex(Pool<Event>::Iterator& itSysexEvent) {
1017            RingBuffer<uint8_t>::NonVolatileReader reader = pSysexBuffer->get_non_volatile_reader();
1018    
1019            uint8_t exclusive_status, id;
1020            if (!reader.pop(&exclusive_status)) goto free_sysex_data;
1021            if (!reader.pop(&id))               goto free_sysex_data;
1022            if (exclusive_status != 0xF0)       goto free_sysex_data;
1023    
1024            switch (id) {
1025                case 0x41: { // Roland
1026                    uint8_t device_id, model_id, cmd_id;
1027                    if (!reader.pop(&device_id)) goto free_sysex_data;
1028                    if (!reader.pop(&model_id))  goto free_sysex_data;
1029                    if (!reader.pop(&cmd_id))    goto free_sysex_data;
1030                    if (model_id != 0x42 /*GS*/) goto free_sysex_data;
1031                    if (cmd_id != 0x12 /*DT1*/)  goto free_sysex_data;
1032    
1033                    // command address
1034                    uint8_t addr[3]; // 2 byte addr MSB, followed by 1 byte addr LSB)
1035                    const RingBuffer<uint8_t>::NonVolatileReader checksum_reader = reader; // so we can calculate the check sum later
1036                    if (reader.read(&addr[0], 3) != 3) goto free_sysex_data;
1037                    if (addr[0] == 0x40 && addr[1] == 0x00) { // System Parameters
1038                    }
1039                    else if (addr[0] == 0x40 && addr[1] == 0x01) { // Common Parameters
1040                    }
1041                    else if (addr[0] == 0x40 && (addr[1] & 0xf0) == 0x10) { // Part Parameters (1)
1042                        switch (addr[3]) {
1043                            case 0x40: { // scale tuning
1044                                uint8_t scale_tunes[12]; // detuning of all 12 semitones of an octave
1045                                if (reader.read(&scale_tunes[0], 12) != 12) goto free_sysex_data;
1046                                uint8_t checksum;
1047                                if (!reader.pop(&checksum))                      goto free_sysex_data;
1048                                if (GSCheckSum(checksum_reader, 12) != checksum) goto free_sysex_data;
1049                                for (int i = 0; i < 12; i++) scale_tunes[i] -= 64;
1050                                AdjustScale((int8_t*) scale_tunes);
1051                                break;
1052                            }
1053                        }
1054                    }
1055                    else if (addr[0] == 0x40 && (addr[1] & 0xf0) == 0x20) { // Part Parameters (2)
1056                    }
1057                    else if (addr[0] == 0x41) { // Drum Setup Parameters
1058                    }
1059                    break;
1060                }
1061            }
1062    
1063            free_sysex_data: // finally free sysex data
1064            pSysexBuffer->increment_read_ptr(itSysexEvent->Param.Sysex.Size);
1065        }
1066    
1067        /**
1068         * Calculates the Roland GS sysex check sum.
1069         *
1070         * @param AddrReader - reader which currently points to the first GS
1071         *                     command address byte of the GS sysex message in
1072         *                     question
1073         * @param DataSize   - size of the GS message data (in bytes)
1074         */
1075        uint8_t Engine::GSCheckSum(const RingBuffer<uint8_t>::NonVolatileReader AddrReader, uint DataSize) {
1076            RingBuffer<uint8_t>::NonVolatileReader reader = AddrReader;
1077            uint bytes = 3 /*addr*/ + DataSize;
1078            uint8_t addr_and_data[bytes];
1079            reader.read(&addr_and_data[0], bytes);
1080            uint8_t sum = 0;
1081            for (uint i = 0; i < bytes; i++) sum += addr_and_data[i];
1082            return 128 - sum % 128;
1083        }
1084    
1085        /**
1086         * Allows to tune each of the twelve semitones of an octave.
1087         *
1088         * @param ScaleTunes - detuning of all twelve semitones (in cents)
1089         */
1090        void Engine::AdjustScale(int8_t ScaleTunes[12]) {
1091            memcpy(&this->ScaleTuning[0], &ScaleTunes[0], 12); //TODO: currently not sample accurate
1092      }      }
1093    
1094      /**      /**
# Line 827  namespace LinuxSampler { namespace gig { Line 1182  namespace LinuxSampler { namespace gig {
1182          return InstrumentFile;          return InstrumentFile;
1183      }      }
1184    
1185        String Engine::InstrumentName() {
1186            return InstrumentIdxName;
1187        }
1188    
1189      int Engine::InstrumentIndex() {      int Engine::InstrumentIndex() {
1190          return InstrumentIdx;          return InstrumentIdx;
1191      }      }
# Line 840  namespace LinuxSampler { namespace gig { Line 1199  namespace LinuxSampler { namespace gig {
1199      }      }
1200    
1201      String Engine::Version() {      String Engine::Version() {
1202          String s = "$Revision: 1.11 $";          String s = "$Revision: 1.24 $";
1203          return s.substr(11, s.size() - 13); // cut dollar signs, spaces and CVS macro keyword          return s.substr(11, s.size() - 13); // cut dollar signs, spaces and CVS macro keyword
1204      }      }
1205    
Legend:
Removed from v.242  
changed lines
  Added in v.376
  ViewVC Help
Powered by ViewVC