1 // SPDX-License-Identifier: GPL-2.0-or-later
2 /*
3  *  NRPN / SYSEX callbacks for Emu8k/Emu10k1
4  *
5  *  Copyright (c) 1999-2000 Takashi Iwai <tiwai@suse.de>
6  */
7 
8 #include "emux_voice.h"
9 #include <sound/asoundef.h>
10 
11 /*
12  * conversion from NRPN/control parameters to Emu8000 raw parameters
13  */
14 
15 /* NRPN / CC -> Emu8000 parameter converter */
16 struct nrpn_conv_table {
17 	int control;
18 	int effect;
19 	int (*convert)(int val);
20 };
21 
22 /* effect sensitivity */
23 
24 #define FX_CUTOFF	0
25 #define FX_RESONANCE	1
26 #define FX_ATTACK	2
27 #define FX_RELEASE	3
28 #define FX_VIBRATE	4
29 #define FX_VIBDEPTH	5
30 #define FX_VIBDELAY	6
31 #define FX_NUMS		7
32 
33 /*
34  * convert NRPN/control values
35  */
36 
send_converted_effect(const struct nrpn_conv_table * table,int num_tables,struct snd_emux_port * port,struct snd_midi_channel * chan,int type,int val,int mode)37 static int send_converted_effect(const struct nrpn_conv_table *table,
38 				 int num_tables,
39 				 struct snd_emux_port *port,
40 				 struct snd_midi_channel *chan,
41 				 int type, int val, int mode)
42 {
43 	int i, cval;
44 	for (i = 0; i < num_tables; i++) {
45 		if (table[i].control == type) {
46 			cval = table[i].convert(val);
47 			snd_emux_send_effect(port, chan, table[i].effect,
48 					     cval, mode);
49 			return 1;
50 		}
51 	}
52 	return 0;
53 }
54 
55 #define DEF_FX_CUTOFF		170
56 #define DEF_FX_RESONANCE	6
57 #define DEF_FX_ATTACK		50
58 #define DEF_FX_RELEASE		50
59 #define DEF_FX_VIBRATE		30
60 #define DEF_FX_VIBDEPTH		4
61 #define DEF_FX_VIBDELAY		1500
62 
63 /* effect sensitivities for GS NRPN:
64  *  adjusted for chaos 8MB soundfonts
65  */
66 static const int gs_sense[] =
67 {
68 	DEF_FX_CUTOFF, DEF_FX_RESONANCE, DEF_FX_ATTACK, DEF_FX_RELEASE,
69 	DEF_FX_VIBRATE, DEF_FX_VIBDEPTH, DEF_FX_VIBDELAY
70 };
71 
72 /* effect sensitivities for XG controls:
73  * adjusted for chaos 8MB soundfonts
74  */
75 static const int xg_sense[] =
76 {
77 	DEF_FX_CUTOFF, DEF_FX_RESONANCE, DEF_FX_ATTACK, DEF_FX_RELEASE,
78 	DEF_FX_VIBRATE, DEF_FX_VIBDEPTH, DEF_FX_VIBDELAY
79 };
80 
81 
82 /*
83  * AWE32 NRPN effects
84  */
85 
86 static int fx_delay(int val);
87 static int fx_attack(int val);
88 static int fx_hold(int val);
89 static int fx_decay(int val);
90 static int fx_the_value(int val);
91 static int fx_twice_value(int val);
92 static int fx_conv_pitch(int val);
93 static int fx_conv_Q(int val);
94 
95 /* function for each NRPN */		/* [range]  units */
96 #define fx_env1_delay	fx_delay	/* [0,5900] 4msec */
97 #define fx_env1_attack	fx_attack	/* [0,5940] 1msec */
98 #define fx_env1_hold	fx_hold		/* [0,8191] 1msec */
99 #define fx_env1_decay	fx_decay	/* [0,5940] 4msec */
100 #define fx_env1_release	fx_decay	/* [0,5940] 4msec */
101 #define fx_env1_sustain	fx_the_value	/* [0,127] 0.75dB */
102 #define fx_env1_pitch	fx_the_value	/* [-127,127] 9.375cents */
103 #define fx_env1_cutoff	fx_the_value	/* [-127,127] 56.25cents */
104 
105 #define fx_env2_delay	fx_delay	/* [0,5900] 4msec */
106 #define fx_env2_attack	fx_attack	/* [0,5940] 1msec */
107 #define fx_env2_hold	fx_hold		/* [0,8191] 1msec */
108 #define fx_env2_decay	fx_decay	/* [0,5940] 4msec */
109 #define fx_env2_release	fx_decay	/* [0,5940] 4msec */
110 #define fx_env2_sustain	fx_the_value	/* [0,127] 0.75dB */
111 
112 #define fx_lfo1_delay	fx_delay	/* [0,5900] 4msec */
113 #define fx_lfo1_freq	fx_twice_value	/* [0,127] 84mHz */
114 #define fx_lfo1_volume	fx_twice_value	/* [0,127] 0.1875dB */
115 #define fx_lfo1_pitch	fx_the_value	/* [-127,127] 9.375cents */
116 #define fx_lfo1_cutoff	fx_twice_value	/* [-64,63] 56.25cents */
117 
118 #define fx_lfo2_delay	fx_delay	/* [0,5900] 4msec */
119 #define fx_lfo2_freq	fx_twice_value	/* [0,127] 84mHz */
120 #define fx_lfo2_pitch	fx_the_value	/* [-127,127] 9.375cents */
121 
122 #define fx_init_pitch	fx_conv_pitch	/* [-8192,8192] cents */
123 #define fx_chorus	fx_the_value	/* [0,255] -- */
124 #define fx_reverb	fx_the_value	/* [0,255] -- */
125 #define fx_cutoff	fx_twice_value	/* [0,127] 62Hz */
126 #define fx_filterQ	fx_conv_Q	/* [0,127] -- */
127 
fx_delay(int val)128 static int fx_delay(int val)
129 {
130 	return (unsigned short)snd_sf_calc_parm_delay(val);
131 }
132 
fx_attack(int val)133 static int fx_attack(int val)
134 {
135 	return (unsigned short)snd_sf_calc_parm_attack(val);
136 }
137 
fx_hold(int val)138 static int fx_hold(int val)
139 {
140 	return (unsigned short)snd_sf_calc_parm_hold(val);
141 }
142 
fx_decay(int val)143 static int fx_decay(int val)
144 {
145 	return (unsigned short)snd_sf_calc_parm_decay(val);
146 }
147 
fx_the_value(int val)148 static int fx_the_value(int val)
149 {
150 	return (unsigned short)(val & 0xff);
151 }
152 
fx_twice_value(int val)153 static int fx_twice_value(int val)
154 {
155 	return (unsigned short)((val * 2) & 0xff);
156 }
157 
fx_conv_pitch(int val)158 static int fx_conv_pitch(int val)
159 {
160 	return (short)(val * 4096 / 1200);
161 }
162 
fx_conv_Q(int val)163 static int fx_conv_Q(int val)
164 {
165 	return (unsigned short)((val / 8) & 0xff);
166 }
167 
168 
169 static const struct nrpn_conv_table awe_effects[] =
170 {
171 	{ 0, EMUX_FX_LFO1_DELAY,	fx_lfo1_delay},
172 	{ 1, EMUX_FX_LFO1_FREQ,	fx_lfo1_freq},
173 	{ 2, EMUX_FX_LFO2_DELAY,	fx_lfo2_delay},
174 	{ 3, EMUX_FX_LFO2_FREQ,	fx_lfo2_freq},
175 
176 	{ 4, EMUX_FX_ENV1_DELAY,	fx_env1_delay},
177 	{ 5, EMUX_FX_ENV1_ATTACK,fx_env1_attack},
178 	{ 6, EMUX_FX_ENV1_HOLD,	fx_env1_hold},
179 	{ 7, EMUX_FX_ENV1_DECAY,	fx_env1_decay},
180 	{ 8, EMUX_FX_ENV1_SUSTAIN,	fx_env1_sustain},
181 	{ 9, EMUX_FX_ENV1_RELEASE,	fx_env1_release},
182 
183 	{10, EMUX_FX_ENV2_DELAY,	fx_env2_delay},
184 	{11, EMUX_FX_ENV2_ATTACK,	fx_env2_attack},
185 	{12, EMUX_FX_ENV2_HOLD,	fx_env2_hold},
186 	{13, EMUX_FX_ENV2_DECAY,	fx_env2_decay},
187 	{14, EMUX_FX_ENV2_SUSTAIN,	fx_env2_sustain},
188 	{15, EMUX_FX_ENV2_RELEASE,	fx_env2_release},
189 
190 	{16, EMUX_FX_INIT_PITCH,	fx_init_pitch},
191 	{17, EMUX_FX_LFO1_PITCH,	fx_lfo1_pitch},
192 	{18, EMUX_FX_LFO2_PITCH,	fx_lfo2_pitch},
193 	{19, EMUX_FX_ENV1_PITCH,	fx_env1_pitch},
194 	{20, EMUX_FX_LFO1_VOLUME,	fx_lfo1_volume},
195 	{21, EMUX_FX_CUTOFF,		fx_cutoff},
196 	{22, EMUX_FX_FILTERQ,	fx_filterQ},
197 	{23, EMUX_FX_LFO1_CUTOFF,	fx_lfo1_cutoff},
198 	{24, EMUX_FX_ENV1_CUTOFF,	fx_env1_cutoff},
199 	{25, EMUX_FX_CHORUS,		fx_chorus},
200 	{26, EMUX_FX_REVERB,		fx_reverb},
201 };
202 
203 
204 /*
205  * GS(SC88) NRPN effects; still experimental
206  */
207 
208 /* cutoff: quarter semitone step, max=255 */
gs_cutoff(int val)209 static int gs_cutoff(int val)
210 {
211 	return (val - 64) * gs_sense[FX_CUTOFF] / 50;
212 }
213 
214 /* resonance: 0 to 15(max) */
gs_filterQ(int val)215 static int gs_filterQ(int val)
216 {
217 	return (val - 64) * gs_sense[FX_RESONANCE] / 50;
218 }
219 
220 /* attack: */
gs_attack(int val)221 static int gs_attack(int val)
222 {
223 	return -(val - 64) * gs_sense[FX_ATTACK] / 50;
224 }
225 
226 /* decay: */
gs_decay(int val)227 static int gs_decay(int val)
228 {
229 	return -(val - 64) * gs_sense[FX_RELEASE] / 50;
230 }
231 
232 /* release: */
gs_release(int val)233 static int gs_release(int val)
234 {
235 	return -(val - 64) * gs_sense[FX_RELEASE] / 50;
236 }
237 
238 /* vibrato freq: 0.042Hz step, max=255 */
gs_vib_rate(int val)239 static int gs_vib_rate(int val)
240 {
241 	return (val - 64) * gs_sense[FX_VIBRATE] / 50;
242 }
243 
244 /* vibrato depth: max=127, 1 octave */
gs_vib_depth(int val)245 static int gs_vib_depth(int val)
246 {
247 	return (val - 64) * gs_sense[FX_VIBDEPTH] / 50;
248 }
249 
250 /* vibrato delay: -0.725msec step */
gs_vib_delay(int val)251 static int gs_vib_delay(int val)
252 {
253 	return -(val - 64) * gs_sense[FX_VIBDELAY] / 50;
254 }
255 
256 static const struct nrpn_conv_table gs_effects[] =
257 {
258 	{32, EMUX_FX_CUTOFF,	gs_cutoff},
259 	{33, EMUX_FX_FILTERQ,	gs_filterQ},
260 	{99, EMUX_FX_ENV2_ATTACK, gs_attack},
261 	{100, EMUX_FX_ENV2_DECAY, gs_decay},
262 	{102, EMUX_FX_ENV2_RELEASE, gs_release},
263 	{8, EMUX_FX_LFO1_FREQ, gs_vib_rate},
264 	{9, EMUX_FX_LFO1_VOLUME, gs_vib_depth},
265 	{10, EMUX_FX_LFO1_DELAY, gs_vib_delay},
266 };
267 
268 
269 /*
270  * NRPN events
271  */
272 void
snd_emux_nrpn(void * p,struct snd_midi_channel * chan,struct snd_midi_channel_set * chset)273 snd_emux_nrpn(void *p, struct snd_midi_channel *chan,
274 	      struct snd_midi_channel_set *chset)
275 {
276 	struct snd_emux_port *port;
277 
278 	port = p;
279 	if (snd_BUG_ON(!port || !chan))
280 		return;
281 
282 	if (chan->control[MIDI_CTL_NONREG_PARM_NUM_MSB] == 127 &&
283 	    chan->control[MIDI_CTL_NONREG_PARM_NUM_LSB] <= 26) {
284 		int val;
285 		/* Win/DOS AWE32 specific NRPNs */
286 		/* both MSB/LSB necessary */
287 		val = (chan->control[MIDI_CTL_MSB_DATA_ENTRY] << 7) |
288 			chan->control[MIDI_CTL_LSB_DATA_ENTRY];
289 		val -= 8192;
290 		send_converted_effect
291 			(awe_effects, ARRAY_SIZE(awe_effects),
292 			 port, chan, chan->control[MIDI_CTL_NONREG_PARM_NUM_LSB],
293 			 val, EMUX_FX_FLAG_SET);
294 		return;
295 	}
296 
297 	if (port->chset.midi_mode == SNDRV_MIDI_MODE_GS &&
298 	    chan->control[MIDI_CTL_NONREG_PARM_NUM_MSB] == 1) {
299 		int val;
300 		/* GS specific NRPNs */
301 		/* only MSB is valid */
302 		val = chan->control[MIDI_CTL_MSB_DATA_ENTRY];
303 		send_converted_effect
304 			(gs_effects, ARRAY_SIZE(gs_effects),
305 			 port, chan, chan->control[MIDI_CTL_NONREG_PARM_NUM_LSB],
306 			 val, EMUX_FX_FLAG_ADD);
307 		return;
308 	}
309 }
310 
311 
312 /*
313  * XG control effects; still experimental
314  */
315 
316 /* cutoff: quarter semitone step, max=255 */
xg_cutoff(int val)317 static int xg_cutoff(int val)
318 {
319 	return (val - 64) * xg_sense[FX_CUTOFF] / 64;
320 }
321 
322 /* resonance: 0(open) to 15(most nasal) */
xg_filterQ(int val)323 static int xg_filterQ(int val)
324 {
325 	return (val - 64) * xg_sense[FX_RESONANCE] / 64;
326 }
327 
328 /* attack: */
xg_attack(int val)329 static int xg_attack(int val)
330 {
331 	return -(val - 64) * xg_sense[FX_ATTACK] / 64;
332 }
333 
334 /* release: */
xg_release(int val)335 static int xg_release(int val)
336 {
337 	return -(val - 64) * xg_sense[FX_RELEASE] / 64;
338 }
339 
340 static const struct nrpn_conv_table xg_effects[] =
341 {
342 	{71, EMUX_FX_CUTOFF,	xg_cutoff},
343 	{74, EMUX_FX_FILTERQ,	xg_filterQ},
344 	{72, EMUX_FX_ENV2_RELEASE, xg_release},
345 	{73, EMUX_FX_ENV2_ATTACK, xg_attack},
346 };
347 
348 int
snd_emux_xg_control(struct snd_emux_port * port,struct snd_midi_channel * chan,int param)349 snd_emux_xg_control(struct snd_emux_port *port, struct snd_midi_channel *chan,
350 		    int param)
351 {
352 	return send_converted_effect(xg_effects, ARRAY_SIZE(xg_effects),
353 				     port, chan, param,
354 				     chan->control[param],
355 				     EMUX_FX_FLAG_ADD);
356 }
357 
358 /*
359  * receive sysex
360  */
361 void
snd_emux_sysex(void * p,unsigned char * buf,int len,int parsed,struct snd_midi_channel_set * chset)362 snd_emux_sysex(void *p, unsigned char *buf, int len, int parsed,
363 	       struct snd_midi_channel_set *chset)
364 {
365 	struct snd_emux_port *port;
366 	struct snd_emux *emu;
367 
368 	port = p;
369 	if (snd_BUG_ON(!port || !chset))
370 		return;
371 	emu = port->emu;
372 
373 	switch (parsed) {
374 	case SNDRV_MIDI_SYSEX_GS_MASTER_VOLUME:
375 		snd_emux_update_port(port, SNDRV_EMUX_UPDATE_VOLUME);
376 		break;
377 	default:
378 		if (emu->ops.sysex)
379 			emu->ops.sysex(emu, buf, len, parsed, chset);
380 		break;
381 	}
382 }
383 
384