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

Annotation of /linuxsampler/trunk/src/engines/sfz/Engine.cpp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3082 - (hide annotations) (download)
Mon Jan 9 18:39:35 2017 UTC (7 years, 2 months ago) by schoenebeck
File size: 13500 byte(s)
* Added support for sfz extension opcode 'script' which may be used to
  load real-time instrument script file (NKSP script language).
* Removed code duplication in SFZ file loading code.
* Bumped version (2.0.0.svn37).

1 iliev 2012 /***************************************************************************
2     * *
3     * LinuxSampler - modular, streaming capable sampler *
4     * *
5     * Copyright (C) 2003,2004 by Benno Senoner and Christian Schoenebeck *
6     * Copyright (C) 2005-2009 Christian Schoenebeck *
7 persson 2317 * Copyright (C) 2009-2012 Grigor Iliev *
8 iliev 2012 * *
9     * This program is free software; you can redistribute it and/or modify *
10     * it under the terms of the GNU General Public License as published by *
11     * the Free Software Foundation; either version 2 of the License, or *
12     * (at your option) any later version. *
13     * *
14     * This program is distributed in the hope that it will be useful, *
15     * but WITHOUT ANY WARRANTY; without even the implied warranty of *
16     * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
17     * GNU General Public License for more details. *
18     * *
19     * You should have received a copy of the GNU General Public License *
20     * along with this program; if not, write to the Free Software *
21     * Foundation, Inc., 59 Temple Place, Suite 330, Boston, *
22     * MA 02111-1307 USA *
23     ***************************************************************************/
24    
25     #include "Engine.h"
26     #include "EngineChannel.h"
27 schoenebeck 3082 #include "InstrumentScriptVM.h"
28 iliev 2012
29     namespace LinuxSampler { namespace sfz {
30     Engine::Format Engine::GetEngineFormat() { return SFZ; }
31 schoenebeck 3082
32     void Engine::CreateInstrumentScriptVM() {
33     dmsg(2,("sfz::Engine created SFZ format scriptvm\n"));
34     if (pScriptVM) return;
35     pScriptVM = new InstrumentScriptVM; // sfz format specific extended script runner
36     }
37 iliev 2244
38     Engine::Engine() {
39     pCCPool = new Pool<CCSignalUnit::CC>(GLOBAL_MAX_VOICES * MaxCCPerVoice);
40     pSmootherPool = new Pool<Smoother>(GLOBAL_MAX_VOICES * MaxCCPerVoice);
41     for (VoiceIterator iterVoice = GetVoicePool()->allocAppend(); iterVoice == GetVoicePool()->last(); iterVoice = GetVoicePool()->allocAppend()) {
42     (static_cast<SfzSignalUnitRack*>(iterVoice->pSignalUnitRack))->InitRTLists();
43     }
44     GetVoicePool()->clear();
45     }
46    
47     Engine::~Engine() {
48     if (pCCPool) {
49     pCCPool->clear();
50     delete pCCPool;
51     }
52    
53     if (pSmootherPool) {
54     pSmootherPool->clear();
55     delete pSmootherPool;
56     }
57     }
58    
59     void Engine::PostSetMaxVoices(int iVoices) {
60     pCCPool->resizePool(iVoices * MaxCCPerVoice);
61     pSmootherPool->resizePool(iVoices * MaxCCPerVoice);
62    
63     for (VoiceIterator iterVoice = GetVoicePool()->allocAppend(); iterVoice == GetVoicePool()->last(); iterVoice = GetVoicePool()->allocAppend()) {
64     (static_cast<SfzSignalUnitRack*>(iterVoice->pSignalUnitRack))->InitRTLists();
65     }
66     GetVoicePool()->clear();
67     }
68 iliev 2012
69     /**
70     * Reacts on supported control change commands (e.g. pitch bend wheel,
71     * modulation wheel, aftertouch).
72     *
73     * @param pEngineChannel - engine channel on which this event occured on
74     * @param itControlChangeEvent - controller, value and time stamp of the event
75     */
76     void Engine::ProcessControlChange (
77     LinuxSampler::EngineChannel* pEngineChannel,
78     Pool<Event>::Iterator& itControlChangeEvent
79     ) {
80 persson 2115 uint8_t cc = itControlChangeEvent->Param.CC.Controller;
81     dmsg(4,("Engine::ContinuousController cc=%d v=%d\n", cc, itControlChangeEvent->Param.CC.Value));
82 iliev 2012
83 persson 2106 EngineChannel* pChannel = static_cast<EngineChannel*>(pEngineChannel);
84 iliev 2012
85     // update controller value in the engine channel's controller table
86 persson 2115 pChannel->ControllerTable[cc] = itControlChangeEvent->Param.CC.Value;
87 iliev 2012
88     ProcessHardcodedControllers(pEngineChannel, itControlChangeEvent);
89    
90     // handle FX send controllers
91     ProcessFxSendControllers(pChannel, itControlChangeEvent);
92 persson 2115
93     // handle control triggered regions: a control change event
94     // can trigger a new voice
95     if (pChannel->pInstrument && cc < 128) {
96    
97     ::sfz::Query q;
98 persson 2317 q.chan = itControlChangeEvent->Param.CC.Channel + 1;
99 persson 2115 q.key = 60;
100     q.vel = 127;
101     q.bend = pChannel->Pitch;
102     q.bpm = 0;
103     q.chanaft = pChannel->ControllerTable[128];
104     q.polyaft = 0;
105     q.prog = 0;
106     q.rand = Random();
107     q.cc = pChannel->ControllerTable;
108     q.timer = 0;
109     q.sw = pChannel->PressedKeys;
110     q.last_sw_key = pChannel->LastKeySwitch;
111     q.prev_sw_key = pChannel->LastKey;
112     q.trig = TRIGGER_ATTACK | TRIGGER_FIRST;
113    
114     q.search(pChannel->pInstrument, cc);
115    
116 schoenebeck 2879 NoteIterator itNewNote;
117    
118 persson 2115 int i = 0;
119     while (::sfz::Region* region = q.next()) {
120     if (!RegionSuspended(region)) {
121     itControlChangeEvent->Param.Note.Key = 60;
122     itControlChangeEvent->Param.Note.Velocity = 127;
123     itControlChangeEvent->Param.Note.pRegion = region;
124 schoenebeck 2879 if (!itNewNote) {
125     const note_id_t noteID = LaunchNewNote(pEngineChannel, &*itControlChangeEvent);
126     itNewNote = GetNotePool()->fromID(noteID);
127     if (!itNewNote) {
128     dmsg(1,("sfz::Engine: Note pool empty!\n"));
129     return;
130     }
131     }
132     VoiceIterator itNewVoice =
133     LaunchVoice(pChannel, itControlChangeEvent, i, false, false, true);
134     if (itNewVoice)
135     itNewVoice.moveToEndOf(itNewNote->pActiveVoices);
136 persson 2115 }
137     i++;
138     }
139     }
140 iliev 2012 }
141    
142 schoenebeck 2559 void Engine::ProcessChannelPressure(LinuxSampler::EngineChannel* pEngineChannel, Pool<Event>::Iterator& itChannelPressureEvent) {
143 schoenebeck 3015 // forward this to the CC routine, so it updates the current aftertouch value
144     ProcessControlChange(pEngineChannel, itChannelPressureEvent);
145    
146 schoenebeck 2559 // if required: engine global aftertouch handling (apart from the per voice handling)
147     }
148    
149     void Engine::ProcessPolyphonicKeyPressure(LinuxSampler::EngineChannel* pEngineChannel, Pool<Event>::Iterator& itNotePressureEvent) {
150     // if required: engine global aftertouch handling (apart from the per voice handling)
151     }
152    
153 iliev 2012 DiskThread* Engine::CreateDiskThread() {
154     return new DiskThread (
155     iMaxDiskStreams,
156     ((pAudioOutputDevice->MaxSamplesPerCycle() << CONFIG_MAX_PITCH) << 1) + 6, //FIXME: assuming stereo
157     &instruments
158     );
159     }
160    
161     void Engine::TriggerNewVoices (
162     LinuxSampler::EngineChannel* pEngineChannel,
163     RTList<Event>::Iterator& itNoteOnEvent,
164     bool HandleKeyGroupConflicts
165     ) {
166     EngineChannel* pChannel = static_cast<EngineChannel*>(pEngineChannel);
167 schoenebeck 3034 //MidiKey* pKey = &pChannel->pMIDIKeyInfo[itNoteOnEvent->Param.Note.Key];
168 persson 2106 ::sfz::Query q;
169 persson 2317 q.chan = itNoteOnEvent->Param.Note.Channel + 1;
170 persson 2101 q.key = itNoteOnEvent->Param.Note.Key;
171     q.vel = itNoteOnEvent->Param.Note.Velocity;
172     q.bend = pChannel->Pitch;
173     q.bpm = 0;
174     q.chanaft = pChannel->ControllerTable[128];
175     q.polyaft = 0;
176     q.prog = 0;
177     q.rand = Random();
178     q.cc = pChannel->ControllerTable;
179     q.timer = 0;
180     q.sw = pChannel->PressedKeys;
181     q.last_sw_key = pChannel->LastKeySwitch;
182     q.prev_sw_key = pChannel->LastKey;
183     q.trig = TRIGGER_ATTACK |
184     ((pChannel->LastKey != -1 &&
185     pChannel->PressedKeys[pChannel->LastKey] &&
186     pChannel->LastKey != q.key) ?
187     TRIGGER_LEGATO : TRIGGER_FIRST);
188 iliev 2012
189 persson 2106 q.search(pChannel->pInstrument);
190    
191 schoenebeck 2879 NoteIterator itNote = GetNotePool()->fromID(itNoteOnEvent->Param.Note.ID);
192     if (!itNote) {
193     dmsg(1,("sfz::Engine: No Note object for triggering new voices!\n"));
194     return;
195     }
196    
197 persson 2101 int i = 0;
198     while (::sfz::Region* region = q.next()) {
199     if (!RegionSuspended(region)) {
200     itNoteOnEvent->Param.Note.pRegion = region;
201 schoenebeck 2879 VoiceIterator itNewVoice =
202     LaunchVoice(pChannel, itNoteOnEvent, i, false, true, HandleKeyGroupConflicts);
203     if (itNewVoice)
204     itNewVoice.moveToEndOf(itNote->pActiveVoices);
205 iliev 2012 }
206 persson 2101 i++;
207 iliev 2012 }
208     }
209    
210     void Engine::TriggerReleaseVoices (
211     LinuxSampler::EngineChannel* pEngineChannel,
212     RTList<Event>::Iterator& itNoteOffEvent
213     ) {
214     EngineChannel* pChannel = static_cast<EngineChannel*>(pEngineChannel);
215 persson 2106 ::sfz::Query q;
216 persson 2317 q.chan = itNoteOffEvent->Param.Note.Channel + 1;
217 persson 2101 q.key = itNoteOffEvent->Param.Note.Key;
218 persson 2061
219     // MIDI note-on velocity is used instead of note-off velocity
220 persson 2101 q.vel = pChannel->pMIDIKeyInfo[q.key].Velocity;
221     itNoteOffEvent->Param.Note.Velocity = q.vel;
222 persson 2061
223 persson 2101 q.bend = pChannel->Pitch;
224     q.bpm = 0;
225     q.chanaft = pChannel->ControllerTable[128];
226     q.polyaft = 0;
227     q.prog = 0;
228     q.rand = Random();
229     q.cc = pChannel->ControllerTable;
230     q.timer = 0;
231     q.sw = pChannel->PressedKeys;
232     q.last_sw_key = pChannel->LastKeySwitch;
233     q.prev_sw_key = pChannel->LastKey;
234     q.trig = TRIGGER_RELEASE;
235 iliev 2012
236 persson 2106 q.search(pChannel->pInstrument);
237    
238 schoenebeck 2879 NoteIterator itNote = GetNotePool()->fromID(itNoteOffEvent->Param.Note.ID);
239     if (!itNote) {
240     dmsg(1,("sfz::Engine: No Note object for triggering new release voices!\n"));
241     return;
242     }
243    
244 iliev 2012 // now launch the required amount of voices
245 persson 2101 int i = 0;
246     while (::sfz::Region* region = q.next()) {
247     itNoteOffEvent->Param.Note.pRegion = region;
248 schoenebeck 2879 VoiceIterator itNewVoice =
249     LaunchVoice(pChannel, itNoteOffEvent, i, true, false, true); //FIXME: for the moment we don't perform voice stealing for release triggered samples
250     if (itNewVoice)
251     itNewVoice.moveToEndOf(itNote->pActiveVoices);
252 persson 2101 i++;
253 iliev 2012 }
254     }
255    
256     Pool<Voice>::Iterator Engine::LaunchVoice (
257     LinuxSampler::EngineChannel* pEngineChannel,
258     Pool<Event>::Iterator& itNoteOnEvent,
259     int iLayer,
260     bool ReleaseTriggerVoice,
261     bool VoiceStealing,
262     bool HandleKeyGroupConflicts
263     ) {
264     EngineChannel* pChannel = static_cast<EngineChannel*>(pEngineChannel);
265 schoenebeck 3034 //int key = itNoteOnEvent->Param.Note.Key;
266 schoenebeck 2879 //EngineChannel::MidiKey* pKey = &pChannel->pMIDIKeyInfo[key];
267 persson 2115 ::sfz::Region* pRgn = static_cast< ::sfz::Region*>(itNoteOnEvent->Param.Note.pRegion);
268 iliev 2012
269 persson 2115 Voice::type_t VoiceType =
270     itNoteOnEvent->Type == Event::type_control_change ? Voice::type_controller_triggered :
271     ReleaseTriggerVoice ? Voice::type_release_trigger :
272     iLayer == 0 ? Voice::type_release_trigger_required :
273     Voice::type_normal;
274     if (pRgn->loop_mode == ::sfz::ONE_SHOT) VoiceType |= Voice::type_one_shot;
275    
276 iliev 2012 Pool<Voice>::Iterator itNewVoice;
277    
278 persson 2317 if (HandleKeyGroupConflicts) pChannel->HandleKeyGroupConflicts(pRgn->group, itNoteOnEvent);
279    
280 iliev 2012 // no need to process if sample is silent
281 persson 2317 if (!pRgn->GetSample(false) || !pRgn->GetSample()->GetTotalFrameCount()) return Pool<Voice>::Iterator();
282 iliev 2012
283     // allocate a new voice for the key
284 schoenebeck 2879 itNewVoice = GetVoicePool()->allocAppend();
285 iliev 2027 int res = InitNewVoice (
286     pChannel, pRgn, itNoteOnEvent, VoiceType, iLayer,
287 persson 2114 pRgn->off_by, ReleaseTriggerVoice, VoiceStealing, itNewVoice
288 iliev 2027 );
289     if (!res) return itNewVoice;
290 iliev 2012
291     // return if this is a release triggered voice and there is no
292     // releasetrigger dimension (could happen if an instrument
293     // change has occured between note on and off)
294     //if (ReleaseTriggerVoice && VoiceType != Voice::type_release_trigger) return Pool<Voice>::Iterator();
295    
296 iliev 2027 return Pool<Voice>::Iterator(); // no free voice or error
297 iliev 2012 }
298    
299     bool Engine::DiskStreamSupported() {
300     return true;
301     }
302    
303     String Engine::Description() {
304     return "SFZ Format Engine";
305     }
306    
307     String Engine::Version() {
308 schoenebeck 2494 String s = "$Revision$";
309 iliev 2012 return s.substr(11, s.size() - 13); // cut dollar signs, spaces and CVS macro keyword
310     }
311    
312     }} // namespace LinuxSampler::sfz

Properties

Name Value
svn:keywords Revision

  ViewVC Help
Powered by ViewVC