Merge HEAD from master.kernel.org:/pub/scm/linux/kernel/git/perex/alsa
[linux-2.6] / sound / synth / emux / emux_synth.c
1 /*
2  *  Midi synth routines for the Emu8k/Emu10k1
3  *
4  *  Copyright (C) 1999 Steve Ratcliffe
5  *  Copyright (c) 1999-2000 Takashi Iwai <tiwai@suse.de>
6  *
7  *  Contains code based on awe_wave.c by Takashi Iwai
8  *
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, MA  02111-1307 USA
22  *
23  */
24
25 #include "emux_voice.h"
26 #include <sound/asoundef.h>
27
28 /*
29  * Prototypes
30  */
31
32 /*
33  * Ensure a value is between two points
34  * macro evaluates its args more than once, so changed to upper-case.
35  */
36 #define LIMITVALUE(x, a, b) do { if ((x) < (a)) (x) = (a); else if ((x) > (b)) (x) = (b); } while (0)
37 #define LIMITMAX(x, a) do {if ((x) > (a)) (x) = (a); } while (0)
38
39 static int get_zone(snd_emux_t *emu, snd_emux_port_t *port, int *notep, int vel, snd_midi_channel_t *chan, snd_sf_zone_t **table);
40 static int get_bank(snd_emux_port_t *port, snd_midi_channel_t *chan);
41 static void terminate_note1(snd_emux_t *emu, int note, snd_midi_channel_t *chan, int free);
42 static void exclusive_note_off(snd_emux_t *emu, snd_emux_port_t *port, int exclass);
43 static void terminate_voice(snd_emux_t *emu, snd_emux_voice_t *vp, int free);
44 static void update_voice(snd_emux_t *emu, snd_emux_voice_t *vp, int update);
45 static void setup_voice(snd_emux_voice_t *vp);
46 static int calc_pan(snd_emux_voice_t *vp);
47 static int calc_volume(snd_emux_voice_t *vp);
48 static int calc_pitch(snd_emux_voice_t *vp);
49
50
51 /*
52  * Start a note.
53  */
54 void
55 snd_emux_note_on(void *p, int note, int vel, snd_midi_channel_t *chan)
56 {
57         snd_emux_t *emu;
58         int i, key, nvoices;
59         snd_emux_voice_t *vp;
60         snd_sf_zone_t *table[SNDRV_EMUX_MAX_MULTI_VOICES];
61         unsigned long flags;
62         snd_emux_port_t *port;
63
64         port = p;
65         snd_assert(port != NULL && chan != NULL, return);
66
67         emu = port->emu;
68         snd_assert(emu != NULL, return);
69         snd_assert(emu->ops.get_voice != NULL, return);
70         snd_assert(emu->ops.trigger != NULL, return);
71
72         key = note; /* remember the original note */
73         nvoices = get_zone(emu, port, &note, vel, chan, table);
74         if (! nvoices)
75                 return;
76
77         /* exclusive note off */
78         for (i = 0; i < nvoices; i++) {
79                 snd_sf_zone_t *zp = table[i];
80                 if (zp && zp->v.exclusiveClass)
81                         exclusive_note_off(emu, port, zp->v.exclusiveClass);
82         }
83
84 #if 0 // seems not necessary
85         /* Turn off the same note on the same channel. */
86         terminate_note1(emu, key, chan, 0);
87 #endif
88
89         spin_lock_irqsave(&emu->voice_lock, flags);
90         for (i = 0; i < nvoices; i++) {
91
92                 /* set up each voice parameter */
93                 /* at this stage, we don't trigger the voice yet. */
94
95                 if (table[i] == NULL)
96                         continue;
97
98                 vp = emu->ops.get_voice(emu, port);
99                 if (vp == NULL || vp->ch < 0)
100                         continue;
101                 if (STATE_IS_PLAYING(vp->state))
102                         emu->ops.terminate(vp);
103
104                 vp->time = emu->use_time++;
105                 vp->chan = chan;
106                 vp->port = port;
107                 vp->key = key;
108                 vp->note = note;
109                 vp->velocity = vel;
110                 vp->zone = table[i];
111                 if (vp->zone->sample)
112                         vp->block = vp->zone->sample->block;
113                 else
114                         vp->block = NULL;
115
116                 setup_voice(vp);
117
118                 vp->state = SNDRV_EMUX_ST_STANDBY;
119                 if (emu->ops.prepare) {
120                         vp->state = SNDRV_EMUX_ST_OFF;
121                         if (emu->ops.prepare(vp) >= 0)
122                                 vp->state = SNDRV_EMUX_ST_STANDBY;
123                 }
124         }
125
126         /* start envelope now */
127         for (i = 0; i < emu->max_voices; i++) {
128                 vp = &emu->voices[i];
129                 if (vp->state == SNDRV_EMUX_ST_STANDBY &&
130                     vp->chan == chan) {
131                         emu->ops.trigger(vp);
132                         vp->state = SNDRV_EMUX_ST_ON;
133                         vp->ontime = jiffies; /* remember the trigger timing */
134                 }
135         }
136         spin_unlock_irqrestore(&emu->voice_lock, flags);
137
138 #ifdef SNDRV_EMUX_USE_RAW_EFFECT
139         if (port->port_mode == SNDRV_EMUX_PORT_MODE_OSS_SYNTH) {
140                 /* clear voice position for the next note on this channel */
141                 snd_emux_effect_table_t *fx = chan->private;
142                 if (fx) {
143                         fx->flag[EMUX_FX_SAMPLE_START] = 0;
144                         fx->flag[EMUX_FX_COARSE_SAMPLE_START] = 0;
145                 }
146         }
147 #endif
148 }
149
150 /*
151  * Release a note in response to a midi note off.
152  */
153 void
154 snd_emux_note_off(void *p, int note, int vel, snd_midi_channel_t *chan)
155 {
156         int ch;
157         snd_emux_t *emu;
158         snd_emux_voice_t *vp;
159         unsigned long flags;
160         snd_emux_port_t *port;
161
162         port = p;
163         snd_assert(port != NULL && chan != NULL, return);
164
165         emu = port->emu;
166         snd_assert(emu != NULL, return);
167         snd_assert(emu->ops.release != NULL, return);
168
169         spin_lock_irqsave(&emu->voice_lock, flags);
170         for (ch = 0; ch < emu->max_voices; ch++) {
171                 vp = &emu->voices[ch];
172                 if (STATE_IS_PLAYING(vp->state) &&
173                     vp->chan == chan && vp->key == note) {
174                         vp->time = emu->use_time++;
175                         vp->state = SNDRV_EMUX_ST_RELEASED;
176                         if (vp->ontime == jiffies) {
177                                 /* if note-off is sent too shortly after
178                                  * note-on, emuX engine cannot produce the sound
179                                  * correctly.  so we'll release this note
180                                  * a bit later via timer callback.
181                                  */
182                                 vp->state = SNDRV_EMUX_ST_PENDING;
183                                 if (! emu->timer_active) {
184                                         emu->tlist.expires = jiffies + 1;
185                                         add_timer(&emu->tlist);
186                                         emu->timer_active = 1;
187                                 }
188                         } else
189                                 /* ok now release the note */
190                                 emu->ops.release(vp);
191                 }
192         }
193         spin_unlock_irqrestore(&emu->voice_lock, flags);
194 }
195
196 /*
197  * timer callback
198  *
199  * release the pending note-offs
200  */
201 void snd_emux_timer_callback(unsigned long data)
202 {
203         snd_emux_t *emu = (snd_emux_t*) data;
204         snd_emux_voice_t *vp;
205         int ch, do_again = 0;
206
207         spin_lock(&emu->voice_lock);
208         for (ch = 0; ch < emu->max_voices; ch++) {
209                 vp = &emu->voices[ch];
210                 if (vp->state == SNDRV_EMUX_ST_PENDING) {
211                         if (vp->ontime == jiffies)
212                                 do_again++; /* release this at the next interrupt */
213                         else {
214                                 emu->ops.release(vp);
215                                 vp->state = SNDRV_EMUX_ST_RELEASED;
216                         }
217                 }
218         }
219         if (do_again) {
220                 emu->tlist.expires = jiffies + 1;
221                 add_timer(&emu->tlist);
222                 emu->timer_active = 1;
223         } else
224                 emu->timer_active = 0;
225         spin_unlock(&emu->voice_lock);
226 }
227
228 /*
229  * key pressure change
230  */
231 void
232 snd_emux_key_press(void *p, int note, int vel, snd_midi_channel_t *chan)
233 {
234         int ch;
235         snd_emux_t *emu;
236         snd_emux_voice_t *vp;
237         unsigned long flags;
238         snd_emux_port_t *port;
239
240         port = p;
241         snd_assert(port != NULL && chan != NULL, return);
242
243         emu = port->emu;
244         snd_assert(emu != NULL, return);
245         snd_assert(emu->ops.update != NULL, return);
246
247         spin_lock_irqsave(&emu->voice_lock, flags);
248         for (ch = 0; ch < emu->max_voices; ch++) {
249                 vp = &emu->voices[ch];
250                 if (vp->state == SNDRV_EMUX_ST_ON &&
251                     vp->chan == chan && vp->key == note) {
252                         vp->velocity = vel;
253                         update_voice(emu, vp, SNDRV_EMUX_UPDATE_VOLUME);
254                 }
255         }
256         spin_unlock_irqrestore(&emu->voice_lock, flags);
257 }
258
259
260 /*
261  * Modulate the voices which belong to the channel
262  */
263 void
264 snd_emux_update_channel(snd_emux_port_t *port, snd_midi_channel_t *chan, int update)
265 {
266         snd_emux_t *emu;
267         snd_emux_voice_t *vp;
268         int i;
269         unsigned long flags;
270
271         if (! update)
272                 return;
273
274         emu = port->emu;
275         snd_assert(emu != NULL, return);
276         snd_assert(emu->ops.update != NULL, return);
277
278         spin_lock_irqsave(&emu->voice_lock, flags);
279         for (i = 0; i < emu->max_voices; i++) {
280                 vp = &emu->voices[i];
281                 if (vp->chan == chan)
282                         update_voice(emu, vp, update);
283         }
284         spin_unlock_irqrestore(&emu->voice_lock, flags);
285 }
286
287 /*
288  * Modulate all the voices which belong to the port.
289  */
290 void
291 snd_emux_update_port(snd_emux_port_t *port, int update)
292 {
293         snd_emux_t *emu; 
294         snd_emux_voice_t *vp;
295         int i;
296         unsigned long flags;
297
298         if (! update)
299                 return;
300
301         emu = port->emu;
302         snd_assert(emu != NULL, return);
303         snd_assert(emu->ops.update != NULL, return);
304
305         spin_lock_irqsave(&emu->voice_lock, flags);
306         for (i = 0; i < emu->max_voices; i++) {
307                 vp = &emu->voices[i];
308                 if (vp->port == port)
309                         update_voice(emu, vp, update);
310         }
311         spin_unlock_irqrestore(&emu->voice_lock, flags);
312 }
313
314
315 /*
316  * Deal with a controler type event.  This includes all types of
317  * control events, not just the midi controllers
318  */
319 void
320 snd_emux_control(void *p, int type, snd_midi_channel_t *chan)
321 {
322         snd_emux_port_t *port;
323
324         port = p;
325         snd_assert(port != NULL && chan != NULL, return);
326
327         switch (type) {
328         case MIDI_CTL_MSB_MAIN_VOLUME:
329         case MIDI_CTL_MSB_EXPRESSION:
330                 snd_emux_update_channel(port, chan, SNDRV_EMUX_UPDATE_VOLUME);
331                 break;
332                 
333         case MIDI_CTL_MSB_PAN:
334                 snd_emux_update_channel(port, chan, SNDRV_EMUX_UPDATE_PAN);
335                 break;
336
337         case MIDI_CTL_SOFT_PEDAL:
338 #ifdef SNDRV_EMUX_USE_RAW_EFFECT
339                 /* FIXME: this is an emulation */
340                 snd_emux_send_effect(port, chan, EMUX_FX_CUTOFF, -160,
341                                      EMUX_FX_FLAG_ADD);
342 #endif
343                 break;
344
345         case MIDI_CTL_PITCHBEND:
346                 snd_emux_update_channel(port, chan, SNDRV_EMUX_UPDATE_PITCH);
347                 break;
348
349         case MIDI_CTL_MSB_MODWHEEL:
350         case MIDI_CTL_CHAN_PRESSURE:
351                 snd_emux_update_channel(port, chan,
352                                         SNDRV_EMUX_UPDATE_FMMOD |
353                                         SNDRV_EMUX_UPDATE_FM2FRQ2);
354                 break;
355
356         }
357
358         if (port->chset.midi_mode == SNDRV_MIDI_MODE_XG) {
359                 snd_emux_xg_control(port, chan, type);
360         }
361 }
362
363
364 /*
365  * terminate note - if free flag is true, free the terminated voice
366  */
367 static void
368 terminate_note1(snd_emux_t *emu, int note, snd_midi_channel_t *chan, int free)
369 {
370         int  i;
371         snd_emux_voice_t *vp;
372         unsigned long flags;
373
374         spin_lock_irqsave(&emu->voice_lock, flags);
375         for (i = 0; i < emu->max_voices; i++) {
376                 vp = &emu->voices[i];
377                 if (STATE_IS_PLAYING(vp->state) && vp->chan == chan &&
378                     vp->key == note)
379                         terminate_voice(emu, vp, free);
380         }
381         spin_unlock_irqrestore(&emu->voice_lock, flags);
382 }
383
384
385 /*
386  * terminate note - exported for midi emulation
387  */
388 void
389 snd_emux_terminate_note(void *p, int note, snd_midi_channel_t *chan)
390 {
391         snd_emux_t *emu;
392         snd_emux_port_t *port;
393
394         port = p;
395         snd_assert(port != NULL && chan != NULL, return);
396
397         emu = port->emu;
398         snd_assert(emu != NULL, return);
399         snd_assert(emu->ops.terminate != NULL, return);
400
401         terminate_note1(emu, note, chan, 1);
402 }
403
404
405 /*
406  * Terminate all the notes
407  */
408 void
409 snd_emux_terminate_all(snd_emux_t *emu)
410 {
411         int i;
412         snd_emux_voice_t *vp;
413         unsigned long flags;
414
415         spin_lock_irqsave(&emu->voice_lock, flags);
416         for (i = 0; i < emu->max_voices; i++) {
417                 vp = &emu->voices[i];
418                 if (STATE_IS_PLAYING(vp->state))
419                         terminate_voice(emu, vp, 0);
420                 if (vp->state == SNDRV_EMUX_ST_OFF) {
421                         if (emu->ops.free_voice)
422                                 emu->ops.free_voice(vp);
423                         if (emu->ops.reset)
424                                 emu->ops.reset(emu, i);
425                 }
426                 vp->time = 0;
427         }
428         /* initialize allocation time */
429         emu->use_time = 0;
430         spin_unlock_irqrestore(&emu->voice_lock, flags);
431 }
432
433
434 /*
435  * Terminate all voices associated with the given port
436  */
437 void
438 snd_emux_sounds_off_all(snd_emux_port_t *port)
439 {
440         int i;
441         snd_emux_t *emu;
442         snd_emux_voice_t *vp;
443         unsigned long flags;
444
445         snd_assert(port != NULL, return);
446         emu = port->emu;
447         snd_assert(emu != NULL, return);
448         snd_assert(emu->ops.terminate != NULL, return);
449
450         spin_lock_irqsave(&emu->voice_lock, flags);
451         for (i = 0; i < emu->max_voices; i++) {
452                 vp = &emu->voices[i];
453                 if (STATE_IS_PLAYING(vp->state) &&
454                     vp->port == port)
455                         terminate_voice(emu, vp, 0);
456                 if (vp->state == SNDRV_EMUX_ST_OFF) {
457                         if (emu->ops.free_voice)
458                                 emu->ops.free_voice(vp);
459                         if (emu->ops.reset)
460                                 emu->ops.reset(emu, i);
461                 }
462         }
463         spin_unlock_irqrestore(&emu->voice_lock, flags);
464 }
465
466
467 /*
468  * Terminate all voices that have the same exclusive class.  This
469  * is mainly for drums.
470  */
471 static void
472 exclusive_note_off(snd_emux_t *emu, snd_emux_port_t *port, int exclass)
473 {
474         snd_emux_voice_t *vp;
475         int  i;
476         unsigned long flags;
477
478         spin_lock_irqsave(&emu->voice_lock, flags);
479         for (i = 0; i < emu->max_voices; i++) {
480                 vp = &emu->voices[i];
481                 if (STATE_IS_PLAYING(vp->state) && vp->port == port &&
482                     vp->reg.exclusiveClass == exclass) {
483                         terminate_voice(emu, vp, 0);
484                 }
485         }
486         spin_unlock_irqrestore(&emu->voice_lock, flags);
487 }
488
489 /*
490  * terminate a voice
491  * if free flag is true, call free_voice after termination
492  */
493 static void
494 terminate_voice(snd_emux_t *emu, snd_emux_voice_t *vp, int free)
495 {
496         emu->ops.terminate(vp);
497         vp->time = emu->use_time++;
498         vp->chan = NULL;
499         vp->port = NULL;
500         vp->zone = NULL;
501         vp->block = NULL;
502         vp->state = SNDRV_EMUX_ST_OFF;
503         if (free && emu->ops.free_voice)
504                 emu->ops.free_voice(vp);
505 }
506
507
508 /*
509  * Modulate the voice
510  */
511 static void
512 update_voice(snd_emux_t *emu, snd_emux_voice_t *vp, int update)
513 {
514         if (!STATE_IS_PLAYING(vp->state))
515                 return;
516
517         if (vp->chan == NULL || vp->port == NULL)
518                 return;
519         if (update & SNDRV_EMUX_UPDATE_VOLUME)
520                 calc_volume(vp);
521         if (update & SNDRV_EMUX_UPDATE_PITCH)
522                 calc_pitch(vp);
523         if (update & SNDRV_EMUX_UPDATE_PAN) {
524                 if (! calc_pan(vp) && (update == SNDRV_EMUX_UPDATE_PAN))
525                         return;
526         }
527         emu->ops.update(vp, update);
528 }
529
530
531 #if 0 // not used
532 /* table for volume target calculation */
533 static unsigned short voltarget[16] = { 
534         0xEAC0, 0xE0C8, 0xD740, 0xCE20, 0xC560, 0xBD08, 0xB500, 0xAD58,
535         0xA5F8, 0x9EF0, 0x9830, 0x91C0, 0x8B90, 0x85A8, 0x8000, 0x7A90
536 };
537 #endif
538
539 #define LO_BYTE(v)      ((v) & 0xff)
540 #define HI_BYTE(v)      (((v) >> 8) & 0xff)
541
542 /*
543  * Sets up the voice structure by calculating some values that
544  * will be needed later.
545  */
546 static void
547 setup_voice(snd_emux_voice_t *vp)
548 {
549         soundfont_voice_parm_t *parm;
550         int pitch;
551
552         /* copy the original register values */
553         vp->reg = vp->zone->v;
554
555 #ifdef SNDRV_EMUX_USE_RAW_EFFECT
556         snd_emux_setup_effect(vp);
557 #endif
558
559         /* reset status */
560         vp->apan = -1;
561         vp->avol = -1;
562         vp->apitch = -1;
563
564         calc_volume(vp);
565         calc_pitch(vp);
566         calc_pan(vp);
567
568         parm = &vp->reg.parm;
569
570         /* compute filter target and correct modulation parameters */
571         if (LO_BYTE(parm->modatkhld) >= 0x80 && parm->moddelay >= 0x8000) {
572                 parm->moddelay = 0xbfff;
573                 pitch = (HI_BYTE(parm->pefe) << 4) + vp->apitch;
574                 if (pitch > 0xffff)
575                         pitch = 0xffff;
576                 /* calculate filter target */
577                 vp->ftarget = parm->cutoff + LO_BYTE(parm->pefe);
578                 LIMITVALUE(vp->ftarget, 0, 255);
579                 vp->ftarget <<= 8;
580         } else {
581                 vp->ftarget = parm->cutoff;
582                 vp->ftarget <<= 8;
583                 pitch = vp->apitch;
584         }
585
586         /* compute pitch target */
587         if (pitch != 0xffff) {
588                 vp->ptarget = 1 << (pitch >> 12);
589                 if (pitch & 0x800) vp->ptarget += (vp->ptarget*0x102e)/0x2710;
590                 if (pitch & 0x400) vp->ptarget += (vp->ptarget*0x764)/0x2710;
591                 if (pitch & 0x200) vp->ptarget += (vp->ptarget*0x389)/0x2710;
592                 vp->ptarget += (vp->ptarget >> 1);
593                 if (vp->ptarget > 0xffff) vp->ptarget = 0xffff;
594         } else
595                 vp->ptarget = 0xffff;
596
597         if (LO_BYTE(parm->modatkhld) >= 0x80) {
598                 parm->modatkhld &= ~0xff;
599                 parm->modatkhld |= 0x7f;
600         }
601
602         /* compute volume target and correct volume parameters */
603         vp->vtarget = 0;
604 #if 0 /* FIXME: this leads to some clicks.. */
605         if (LO_BYTE(parm->volatkhld) >= 0x80 && parm->voldelay >= 0x8000) {
606                 parm->voldelay = 0xbfff;
607                 vp->vtarget = voltarget[vp->avol % 0x10] >> (vp->avol >> 4);
608         }
609 #endif
610
611         if (LO_BYTE(parm->volatkhld) >= 0x80) {
612                 parm->volatkhld &= ~0xff;
613                 parm->volatkhld |= 0x7f;
614         }
615 }
616
617 /*
618  * calculate pitch parameter
619  */
620 static unsigned char pan_volumes[256] = {
621 0x00,0x03,0x06,0x09,0x0c,0x0f,0x12,0x14,0x17,0x1a,0x1d,0x20,0x22,0x25,0x28,0x2a,
622 0x2d,0x30,0x32,0x35,0x37,0x3a,0x3c,0x3f,0x41,0x44,0x46,0x49,0x4b,0x4d,0x50,0x52,
623 0x54,0x57,0x59,0x5b,0x5d,0x60,0x62,0x64,0x66,0x68,0x6a,0x6c,0x6f,0x71,0x73,0x75,
624 0x77,0x79,0x7b,0x7c,0x7e,0x80,0x82,0x84,0x86,0x88,0x89,0x8b,0x8d,0x8f,0x90,0x92,
625 0x94,0x96,0x97,0x99,0x9a,0x9c,0x9e,0x9f,0xa1,0xa2,0xa4,0xa5,0xa7,0xa8,0xaa,0xab,
626 0xad,0xae,0xaf,0xb1,0xb2,0xb3,0xb5,0xb6,0xb7,0xb9,0xba,0xbb,0xbc,0xbe,0xbf,0xc0,
627 0xc1,0xc2,0xc3,0xc5,0xc6,0xc7,0xc8,0xc9,0xca,0xcb,0xcc,0xcd,0xce,0xcf,0xd0,0xd1,
628 0xd2,0xd3,0xd4,0xd5,0xd6,0xd7,0xd7,0xd8,0xd9,0xda,0xdb,0xdc,0xdc,0xdd,0xde,0xdf,
629 0xdf,0xe0,0xe1,0xe2,0xe2,0xe3,0xe4,0xe4,0xe5,0xe6,0xe6,0xe7,0xe8,0xe8,0xe9,0xe9,
630 0xea,0xeb,0xeb,0xec,0xec,0xed,0xed,0xee,0xee,0xef,0xef,0xf0,0xf0,0xf1,0xf1,0xf1,
631 0xf2,0xf2,0xf3,0xf3,0xf3,0xf4,0xf4,0xf5,0xf5,0xf5,0xf6,0xf6,0xf6,0xf7,0xf7,0xf7,
632 0xf7,0xf8,0xf8,0xf8,0xf9,0xf9,0xf9,0xf9,0xf9,0xfa,0xfa,0xfa,0xfa,0xfb,0xfb,0xfb,
633 0xfb,0xfb,0xfc,0xfc,0xfc,0xfc,0xfc,0xfc,0xfc,0xfd,0xfd,0xfd,0xfd,0xfd,0xfd,0xfd,
634 0xfd,0xfe,0xfe,0xfe,0xfe,0xfe,0xfe,0xfe,0xfe,0xfe,0xfe,0xfe,0xfe,0xfe,0xfe,0xfe,
635 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
636 0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
637 };
638
639 static int
640 calc_pan(snd_emux_voice_t *vp)
641 {
642         snd_midi_channel_t *chan = vp->chan;
643         int pan;
644
645         /* pan & loop start (pan 8bit, MSB, 0:right, 0xff:left) */
646         if (vp->reg.fixpan > 0) /* 0-127 */
647                 pan = 255 - (int)vp->reg.fixpan * 2;
648         else {
649                 pan = chan->control[MIDI_CTL_MSB_PAN] - 64;
650                 if (vp->reg.pan >= 0) /* 0-127 */
651                         pan += vp->reg.pan - 64;
652                 pan = 127 - (int)pan * 2;
653         }
654         LIMITVALUE(pan, 0, 255);
655
656         if (vp->emu->linear_panning) {
657                 /* assuming linear volume */
658                 if (pan != vp->apan) {
659                         vp->apan = pan;
660                         if (pan == 0)
661                                 vp->aaux = 0xff;
662                         else
663                                 vp->aaux = (-pan) & 0xff;
664                         return 1;
665                 } else
666                         return 0;
667         } else {
668                 /* using volume table */
669                 if (vp->apan != (int)pan_volumes[pan]) {
670                         vp->apan = pan_volumes[pan];
671                         vp->aaux = pan_volumes[255 - pan];
672                         return 1;
673                 }
674                 return 0;
675         }
676 }
677
678
679 /*
680  * calculate volume attenuation
681  *
682  * Voice volume is controlled by volume attenuation parameter.
683  * So volume becomes maximum when avol is 0 (no attenuation), and
684  * minimum when 255 (-96dB or silence).
685  */
686
687 /* tables for volume->attenuation calculation */
688 static unsigned char voltab1[128] = {
689    0x63, 0x63, 0x63, 0x63, 0x63, 0x63, 0x63, 0x63, 0x63, 0x63,
690    0x63, 0x2b, 0x29, 0x28, 0x27, 0x26, 0x25, 0x24, 0x23, 0x22,
691    0x21, 0x20, 0x1f, 0x1e, 0x1e, 0x1d, 0x1c, 0x1b, 0x1b, 0x1a,
692    0x19, 0x19, 0x18, 0x17, 0x17, 0x16, 0x16, 0x15, 0x15, 0x14,
693    0x14, 0x13, 0x13, 0x13, 0x12, 0x12, 0x11, 0x11, 0x11, 0x10,
694    0x10, 0x10, 0x0f, 0x0f, 0x0f, 0x0e, 0x0e, 0x0e, 0x0e, 0x0d,
695    0x0d, 0x0d, 0x0c, 0x0c, 0x0c, 0x0c, 0x0c, 0x0b, 0x0b, 0x0b,
696    0x0b, 0x0a, 0x0a, 0x0a, 0x0a, 0x09, 0x09, 0x09, 0x09, 0x09,
697    0x08, 0x08, 0x08, 0x08, 0x08, 0x07, 0x07, 0x07, 0x07, 0x06,
698    0x06, 0x06, 0x06, 0x06, 0x05, 0x05, 0x05, 0x05, 0x05, 0x04,
699    0x04, 0x04, 0x04, 0x04, 0x03, 0x03, 0x03, 0x03, 0x03, 0x02,
700    0x02, 0x02, 0x02, 0x02, 0x02, 0x01, 0x01, 0x01, 0x01, 0x01,
701    0x01, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
702 };
703
704 static unsigned char voltab2[128] = {
705    0x32, 0x31, 0x30, 0x2f, 0x2e, 0x2d, 0x2c, 0x2b, 0x2a, 0x2a,
706    0x29, 0x28, 0x27, 0x26, 0x25, 0x24, 0x24, 0x23, 0x22, 0x21,
707    0x21, 0x20, 0x1f, 0x1e, 0x1e, 0x1d, 0x1c, 0x1c, 0x1b, 0x1a,
708    0x1a, 0x19, 0x19, 0x18, 0x18, 0x17, 0x16, 0x16, 0x15, 0x15,
709    0x14, 0x14, 0x13, 0x13, 0x13, 0x12, 0x12, 0x11, 0x11, 0x10,
710    0x10, 0x10, 0x0f, 0x0f, 0x0f, 0x0e, 0x0e, 0x0e, 0x0d, 0x0d,
711    0x0d, 0x0c, 0x0c, 0x0c, 0x0b, 0x0b, 0x0b, 0x0b, 0x0a, 0x0a,
712    0x0a, 0x0a, 0x09, 0x09, 0x09, 0x09, 0x09, 0x08, 0x08, 0x08,
713    0x08, 0x08, 0x07, 0x07, 0x07, 0x07, 0x07, 0x06, 0x06, 0x06,
714    0x06, 0x06, 0x06, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05,
715    0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x03, 0x03, 0x03, 0x03,
716    0x03, 0x03, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x01, 0x01,
717    0x01, 0x01, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00
718 };
719
720 static unsigned char expressiontab[128] = {
721    0x7f, 0x6c, 0x62, 0x5a, 0x54, 0x50, 0x4b, 0x48, 0x45, 0x42,
722    0x40, 0x3d, 0x3b, 0x39, 0x38, 0x36, 0x34, 0x33, 0x31, 0x30,
723    0x2f, 0x2d, 0x2c, 0x2b, 0x2a, 0x29, 0x28, 0x27, 0x26, 0x25,
724    0x24, 0x24, 0x23, 0x22, 0x21, 0x21, 0x20, 0x1f, 0x1e, 0x1e,
725    0x1d, 0x1d, 0x1c, 0x1b, 0x1b, 0x1a, 0x1a, 0x19, 0x18, 0x18,
726    0x17, 0x17, 0x16, 0x16, 0x15, 0x15, 0x15, 0x14, 0x14, 0x13,
727    0x13, 0x12, 0x12, 0x11, 0x11, 0x11, 0x10, 0x10, 0x0f, 0x0f,
728    0x0f, 0x0e, 0x0e, 0x0e, 0x0d, 0x0d, 0x0d, 0x0c, 0x0c, 0x0c,
729    0x0b, 0x0b, 0x0b, 0x0a, 0x0a, 0x0a, 0x09, 0x09, 0x09, 0x09,
730    0x08, 0x08, 0x08, 0x07, 0x07, 0x07, 0x07, 0x06, 0x06, 0x06,
731    0x06, 0x05, 0x05, 0x05, 0x04, 0x04, 0x04, 0x04, 0x04, 0x03,
732    0x03, 0x03, 0x03, 0x02, 0x02, 0x02, 0x02, 0x01, 0x01, 0x01,
733    0x01, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
734 };
735
736 /*
737  * Magic to calculate the volume (actually attenuation) from all the
738  * voice and channels parameters.
739  */
740 static int
741 calc_volume(snd_emux_voice_t *vp)
742 {
743         int vol;
744         int main_vol, expression_vol, master_vol;
745         snd_midi_channel_t *chan = vp->chan;
746         snd_emux_port_t *port = vp->port;
747
748         expression_vol = chan->control[MIDI_CTL_MSB_EXPRESSION];
749         LIMITMAX(vp->velocity, 127);
750         LIMITVALUE(expression_vol, 0, 127);
751         if (port->port_mode == SNDRV_EMUX_PORT_MODE_OSS_SYNTH) {
752                 /* 0 - 127 */
753                 main_vol = chan->control[MIDI_CTL_MSB_MAIN_VOLUME];
754                 vol = (vp->velocity * main_vol * expression_vol) / (127*127);
755                 vol = vol * vp->reg.amplitude / 127;
756
757                 LIMITVALUE(vol, 0, 127);
758
759                 /* calc to attenuation */
760                 vol = snd_sf_vol_table[vol];
761
762         } else {
763                 main_vol = chan->control[MIDI_CTL_MSB_MAIN_VOLUME] * vp->reg.amplitude / 127;
764                 LIMITVALUE(main_vol, 0, 127);
765
766                 vol = voltab1[main_vol] + voltab2[vp->velocity];
767                 vol = (vol * 8) / 3;
768                 vol += vp->reg.attenuation;
769                 vol += ((0x100 - vol) * expressiontab[expression_vol])/128;
770         }
771
772         master_vol = port->chset.gs_master_volume;
773         LIMITVALUE(master_vol, 0, 127);
774         vol += snd_sf_vol_table[master_vol];
775         vol += port->volume_atten;
776
777 #ifdef SNDRV_EMUX_USE_RAW_EFFECT
778         if (chan->private) {
779                 snd_emux_effect_table_t *fx = chan->private;
780                 vol += fx->val[EMUX_FX_ATTEN];
781         }
782 #endif
783
784         LIMITVALUE(vol, 0, 255);
785         if (vp->avol == vol)
786                 return 0; /* value unchanged */
787
788         vp->avol = vol;
789         if (!SF_IS_DRUM_BANK(get_bank(port, chan))
790             && LO_BYTE(vp->reg.parm.volatkhld) < 0x7d) {
791                 int atten;
792                 if (vp->velocity < 70)
793                         atten = 70;
794                 else
795                         atten = vp->velocity;
796                 vp->acutoff = (atten * vp->reg.parm.cutoff + 0xa0) >> 7;
797         } else {
798                 vp->acutoff = vp->reg.parm.cutoff;
799         }
800
801         return 1; /* value changed */
802 }
803
804 /*
805  * calculate pitch offset
806  *
807  * 0xE000 is no pitch offset at 44100Hz sample.
808  * Every 4096 is one octave.
809  */
810
811 static int
812 calc_pitch(snd_emux_voice_t *vp)
813 {
814         snd_midi_channel_t *chan = vp->chan;
815         int offset;
816
817         /* calculate offset */
818         if (vp->reg.fixkey >= 0) {
819                 offset = (vp->reg.fixkey - vp->reg.root) * 4096 / 12;
820         } else {
821                 offset = (vp->note - vp->reg.root) * 4096 / 12;
822         }
823         offset = (offset * vp->reg.scaleTuning) / 100;
824         offset += vp->reg.tune * 4096 / 1200;
825         if (chan->midi_pitchbend != 0) {
826                 /* (128 * 8192: 1 semitone) ==> (4096: 12 semitones) */
827                 offset += chan->midi_pitchbend * chan->gm_rpn_pitch_bend_range / 3072;
828         }
829
830         /* tuning via RPN:
831          *   coarse = -8192 to 8192 (100 cent per 128)
832          *   fine = -8192 to 8192 (max=100cent)
833          */
834         /* 4096 = 1200 cents in emu8000 parameter */
835         offset += chan->gm_rpn_coarse_tuning * 4096 / (12 * 128);
836         offset += chan->gm_rpn_fine_tuning / 24;
837
838 #ifdef SNDRV_EMUX_USE_RAW_EFFECT
839         /* add initial pitch correction */
840         if (chan->private) {
841                 snd_emux_effect_table_t *fx = chan->private;
842                 if (fx->flag[EMUX_FX_INIT_PITCH])
843                         offset += fx->val[EMUX_FX_INIT_PITCH];
844         }
845 #endif
846
847         /* 0xe000: root pitch */
848         offset += 0xe000 + vp->reg.rate_offset;
849         offset += vp->emu->pitch_shift;
850         LIMITVALUE(offset, 0, 0xffff);
851         if (offset == vp->apitch)
852                 return 0; /* unchanged */
853         vp->apitch = offset;
854         return 1; /* value changed */
855 }
856
857 /*
858  * Get the bank number assigned to the channel
859  */
860 static int
861 get_bank(snd_emux_port_t *port, snd_midi_channel_t *chan)
862 {
863         int val;
864
865         switch (port->chset.midi_mode) {
866         case SNDRV_MIDI_MODE_XG:
867                 val = chan->control[MIDI_CTL_MSB_BANK];
868                 if (val == 127)
869                         return 128; /* return drum bank */
870                 return chan->control[MIDI_CTL_LSB_BANK];
871
872         case SNDRV_MIDI_MODE_GS:
873                 if (chan->drum_channel)
874                         return 128;
875                 /* ignore LSB (bank map) */
876                 return chan->control[MIDI_CTL_MSB_BANK];
877                 
878         default:
879                 if (chan->drum_channel)
880                         return 128;
881                 return chan->control[MIDI_CTL_MSB_BANK];
882         }
883 }
884
885
886 /* Look for the zones matching with the given note and velocity.
887  * The resultant zones are stored on table.
888  */
889 static int
890 get_zone(snd_emux_t *emu, snd_emux_port_t *port,
891          int *notep, int vel, snd_midi_channel_t *chan, snd_sf_zone_t **table)
892 {
893         int preset, bank, def_preset, def_bank;
894
895         bank = get_bank(port, chan);
896         preset = chan->midi_program;
897
898         if (SF_IS_DRUM_BANK(bank)) {
899                 def_preset = port->ctrls[EMUX_MD_DEF_DRUM];
900                 def_bank = bank;
901         } else {
902                 def_preset = preset;
903                 def_bank = port->ctrls[EMUX_MD_DEF_BANK];
904         }
905
906         return snd_soundfont_search_zone(emu->sflist, notep, vel, preset, bank,
907                                          def_preset, def_bank,
908                                          table, SNDRV_EMUX_MAX_MULTI_VOICES);
909 }
910
911 /*
912  */
913 void
914 snd_emux_init_voices(snd_emux_t *emu)
915 {
916         snd_emux_voice_t *vp;
917         int i;
918         unsigned long flags;
919
920         spin_lock_irqsave(&emu->voice_lock, flags);
921         for (i = 0; i < emu->max_voices; i++) {
922                 vp = &emu->voices[i];
923                 vp->ch = -1; /* not used */
924                 vp->state = SNDRV_EMUX_ST_OFF;
925                 vp->chan = NULL;
926                 vp->port = NULL;
927                 vp->time = 0;
928                 vp->emu = emu;
929                 vp->hw = emu->hw;
930         }
931         spin_unlock_irqrestore(&emu->voice_lock, flags);
932 }
933
934 /*
935  */
936 void snd_emux_lock_voice(snd_emux_t *emu, int voice)
937 {
938         unsigned long flags;
939
940         spin_lock_irqsave(&emu->voice_lock, flags);
941         if (emu->voices[voice].state == SNDRV_EMUX_ST_OFF)
942                 emu->voices[voice].state = SNDRV_EMUX_ST_LOCKED;
943         else
944                 snd_printk("invalid voice for lock %d (state = %x)\n",
945                            voice, emu->voices[voice].state);
946         spin_unlock_irqrestore(&emu->voice_lock, flags);
947 }
948
949 /*
950  */
951 void snd_emux_unlock_voice(snd_emux_t *emu, int voice)
952 {
953         unsigned long flags;
954
955         spin_lock_irqsave(&emu->voice_lock, flags);
956         if (emu->voices[voice].state == SNDRV_EMUX_ST_LOCKED)
957                 emu->voices[voice].state = SNDRV_EMUX_ST_OFF;
958         else
959                 snd_printk("invalid voice for unlock %d (state = %x)\n",
960                            voice, emu->voices[voice].state);
961         spin_unlock_irqrestore(&emu->voice_lock, flags);
962 }