1 // SPDX-License-Identifier: GPL-2.0-or-later 2 /* 3 * Midi synth routines for the Emu8k/Emu10k1 4 * 5 * Copyright (C) 1999 Steve Ratcliffe 6 * Copyright (c) 1999-2000 Takashi Iwai <tiwai@suse.de> 7 * 8 * Contains code based on awe_wave.c by Takashi Iwai 9 */ 10 11 #include "emux_voice.h" 12 #include <linux/slab.h> 13 14 #ifdef SNDRV_EMUX_USE_RAW_EFFECT 15 /* 16 * effects table 17 */ 18 19 #define xoffsetof(type,tag) ((long)(&((type)NULL)->tag) - (long)(NULL)) 20 21 #define parm_offset(tag) xoffsetof(struct soundfont_voice_parm *, tag) 22 23 #define PARM_IS_BYTE (1 << 0) 24 #define PARM_IS_WORD (1 << 1) 25 #define PARM_IS_ALIGNED (3 << 2) 26 #define PARM_IS_ALIGN_HI (1 << 2) 27 #define PARM_IS_ALIGN_LO (2 << 2) 28 #define PARM_IS_SIGNED (1 << 4) 29 30 #define PARM_WORD (PARM_IS_WORD) 31 #define PARM_BYTE_LO (PARM_IS_BYTE|PARM_IS_ALIGN_LO) 32 #define PARM_BYTE_HI (PARM_IS_BYTE|PARM_IS_ALIGN_HI) 33 #define PARM_BYTE (PARM_IS_BYTE) 34 #define PARM_SIGN_LO (PARM_IS_BYTE|PARM_IS_ALIGN_LO|PARM_IS_SIGNED) 35 #define PARM_SIGN_HI (PARM_IS_BYTE|PARM_IS_ALIGN_HI|PARM_IS_SIGNED) 36 37 static struct emux_parm_defs { 38 int type; /* byte or word */ 39 int low, high; /* value range */ 40 long offset; /* offset in parameter record (-1 = not written) */ 41 int update; /* flgas for real-time update */ 42 } parm_defs[EMUX_NUM_EFFECTS] = { 43 {PARM_WORD, 0, 0x8000, parm_offset(moddelay), 0}, /* env1 delay */ 44 {PARM_BYTE_LO, 1, 0x80, parm_offset(modatkhld), 0}, /* env1 attack */ 45 {PARM_BYTE_HI, 0, 0x7e, parm_offset(modatkhld), 0}, /* env1 hold */ 46 {PARM_BYTE_LO, 1, 0x7f, parm_offset(moddcysus), 0}, /* env1 decay */ 47 {PARM_BYTE_LO, 1, 0x7f, parm_offset(modrelease), 0}, /* env1 release */ 48 {PARM_BYTE_HI, 0, 0x7f, parm_offset(moddcysus), 0}, /* env1 sustain */ 49 {PARM_BYTE_HI, 0, 0xff, parm_offset(pefe), 0}, /* env1 pitch */ 50 {PARM_BYTE_LO, 0, 0xff, parm_offset(pefe), 0}, /* env1 fc */ 51 52 {PARM_WORD, 0, 0x8000, parm_offset(voldelay), 0}, /* env2 delay */ 53 {PARM_BYTE_LO, 1, 0x80, parm_offset(volatkhld), 0}, /* env2 attack */ 54 {PARM_BYTE_HI, 0, 0x7e, parm_offset(volatkhld), 0}, /* env2 hold */ 55 {PARM_BYTE_LO, 1, 0x7f, parm_offset(voldcysus), 0}, /* env2 decay */ 56 {PARM_BYTE_LO, 1, 0x7f, parm_offset(volrelease), 0}, /* env2 release */ 57 {PARM_BYTE_HI, 0, 0x7f, parm_offset(voldcysus), 0}, /* env2 sustain */ 58 59 {PARM_WORD, 0, 0x8000, parm_offset(lfo1delay), 0}, /* lfo1 delay */ 60 {PARM_BYTE_LO, 0, 0xff, parm_offset(tremfrq), SNDRV_EMUX_UPDATE_TREMFREQ}, /* lfo1 freq */ 61 {PARM_SIGN_HI, -128, 127, parm_offset(tremfrq), SNDRV_EMUX_UPDATE_TREMFREQ}, /* lfo1 vol */ 62 {PARM_SIGN_HI, -128, 127, parm_offset(fmmod), SNDRV_EMUX_UPDATE_FMMOD}, /* lfo1 pitch */ 63 {PARM_BYTE_LO, 0, 0xff, parm_offset(fmmod), SNDRV_EMUX_UPDATE_FMMOD}, /* lfo1 cutoff */ 64 65 {PARM_WORD, 0, 0x8000, parm_offset(lfo2delay), 0}, /* lfo2 delay */ 66 {PARM_BYTE_LO, 0, 0xff, parm_offset(fm2frq2), SNDRV_EMUX_UPDATE_FM2FRQ2}, /* lfo2 freq */ 67 {PARM_SIGN_HI, -128, 127, parm_offset(fm2frq2), SNDRV_EMUX_UPDATE_FM2FRQ2}, /* lfo2 pitch */ 68 69 {PARM_WORD, 0, 0xffff, -1, SNDRV_EMUX_UPDATE_PITCH}, /* initial pitch */ 70 {PARM_BYTE, 0, 0xff, parm_offset(chorus), 0}, /* chorus */ 71 {PARM_BYTE, 0, 0xff, parm_offset(reverb), 0}, /* reverb */ 72 {PARM_BYTE, 0, 0xff, parm_offset(cutoff), SNDRV_EMUX_UPDATE_VOLUME}, /* cutoff */ 73 {PARM_BYTE, 0, 15, parm_offset(filterQ), SNDRV_EMUX_UPDATE_Q}, /* resonance */ 74 75 {PARM_WORD, 0, 0xffff, -1, 0}, /* sample start */ 76 {PARM_WORD, 0, 0xffff, -1, 0}, /* loop start */ 77 {PARM_WORD, 0, 0xffff, -1, 0}, /* loop end */ 78 {PARM_WORD, 0, 0xffff, -1, 0}, /* coarse sample start */ 79 {PARM_WORD, 0, 0xffff, -1, 0}, /* coarse loop start */ 80 {PARM_WORD, 0, 0xffff, -1, 0}, /* coarse loop end */ 81 {PARM_BYTE, 0, 0xff, -1, SNDRV_EMUX_UPDATE_VOLUME}, /* initial attenuation */ 82 }; 83 84 /* set byte effect value */ 85 static void 86 effect_set_byte(unsigned char *valp, struct snd_midi_channel *chan, int type) 87 { 88 short effect; 89 struct snd_emux_effect_table *fx = chan->private; 90 91 effect = fx->val[type]; 92 if (fx->flag[type] == EMUX_FX_FLAG_ADD) { 93 if (parm_defs[type].type & PARM_IS_SIGNED) 94 effect += *(char*)valp; 95 else 96 effect += *valp; 97 } 98 if (effect < parm_defs[type].low) 99 effect = parm_defs[type].low; 100 else if (effect > parm_defs[type].high) 101 effect = parm_defs[type].high; 102 *valp = (unsigned char)effect; 103 } 104 105 /* set word effect value */ 106 static void 107 effect_set_word(unsigned short *valp, struct snd_midi_channel *chan, int type) 108 { 109 int effect; 110 struct snd_emux_effect_table *fx = chan->private; 111 112 effect = *(unsigned short*)&fx->val[type]; 113 if (fx->flag[type] == EMUX_FX_FLAG_ADD) 114 effect += *valp; 115 if (effect < parm_defs[type].low) 116 effect = parm_defs[type].low; 117 else if (effect > parm_defs[type].high) 118 effect = parm_defs[type].high; 119 *valp = (unsigned short)effect; 120 } 121 122 /* address offset */ 123 static int 124 effect_get_offset(struct snd_midi_channel *chan, int lo, int hi, int mode) 125 { 126 int addr = 0; 127 struct snd_emux_effect_table *fx = chan->private; 128 129 if (fx->flag[hi]) 130 addr = (short)fx->val[hi]; 131 addr = addr << 15; 132 if (fx->flag[lo]) 133 addr += (short)fx->val[lo]; 134 if (!(mode & SNDRV_SFNT_SAMPLE_8BITS)) 135 addr /= 2; 136 return addr; 137 } 138 139 #if IS_ENABLED(CONFIG_SND_SEQUENCER_OSS) 140 /* change effects - for OSS sequencer compatibility */ 141 void 142 snd_emux_send_effect_oss(struct snd_emux_port *port, 143 struct snd_midi_channel *chan, int type, int val) 144 { 145 int mode; 146 147 if (type & 0x40) 148 mode = EMUX_FX_FLAG_OFF; 149 else if (type & 0x80) 150 mode = EMUX_FX_FLAG_ADD; 151 else 152 mode = EMUX_FX_FLAG_SET; 153 type &= 0x3f; 154 155 snd_emux_send_effect(port, chan, type, val, mode); 156 } 157 #endif 158 159 /* Modify the effect value. 160 * if update is necessary, call emu8000_control 161 */ 162 void 163 snd_emux_send_effect(struct snd_emux_port *port, struct snd_midi_channel *chan, 164 int type, int val, int mode) 165 { 166 int i; 167 int offset; 168 unsigned char *srcp, *origp; 169 struct snd_emux *emu; 170 struct snd_emux_effect_table *fx; 171 172 emu = port->emu; 173 fx = chan->private; 174 if (emu == NULL || fx == NULL) 175 return; 176 if (type < 0 || type >= EMUX_NUM_EFFECTS) 177 return; 178 179 fx->val[type] = val; 180 fx->flag[type] = mode; 181 182 /* do we need to modify the register in realtime ? */ 183 if (!parm_defs[type].update) 184 return; 185 offset = parm_defs[type].offset; 186 if (offset < 0) 187 return; 188 189 #ifdef SNDRV_LITTLE_ENDIAN 190 if (parm_defs[type].type & PARM_IS_ALIGN_HI) 191 offset++; 192 #else 193 if (parm_defs[type].type & PARM_IS_ALIGN_LO) 194 offset++; 195 #endif 196 /* modify the register values */ 197 scoped_guard(spinlock_irqsave, &emu->voice_lock) { 198 for (i = 0; i < emu->max_voices; i++) { 199 struct snd_emux_voice *vp = &emu->voices[i]; 200 if (!STATE_IS_PLAYING(vp->state) || vp->chan != chan) 201 continue; 202 srcp = (unsigned char *)&vp->reg.parm + offset; 203 origp = (unsigned char *)&vp->zone->v.parm + offset; 204 if (parm_defs[i].type & PARM_IS_BYTE) { 205 *srcp = *origp; 206 effect_set_byte(srcp, chan, type); 207 } else { 208 *(unsigned short *)srcp = *(unsigned short *)origp; 209 effect_set_word((unsigned short *)srcp, chan, type); 210 } 211 } 212 } 213 214 /* activate them */ 215 snd_emux_update_channel(port, chan, parm_defs[type].update); 216 } 217 218 219 /* copy wavetable registers to voice table */ 220 void 221 snd_emux_setup_effect(struct snd_emux_voice *vp) 222 { 223 struct snd_midi_channel *chan = vp->chan; 224 struct snd_emux_effect_table *fx; 225 unsigned char *srcp; 226 int i; 227 228 fx = chan->private; 229 if (!fx) 230 return; 231 232 /* modify the register values via effect table */ 233 for (i = 0; i < EMUX_FX_END; i++) { 234 int offset; 235 if (!fx->flag[i]) 236 continue; 237 offset = parm_defs[i].offset; 238 if (offset < 0) 239 continue; 240 #ifdef SNDRV_LITTLE_ENDIAN 241 if (parm_defs[i].type & PARM_IS_ALIGN_HI) 242 offset++; 243 #else 244 if (parm_defs[i].type & PARM_IS_ALIGN_LO) 245 offset++; 246 #endif 247 srcp = (unsigned char*)&vp->reg.parm + offset; 248 if (parm_defs[i].type & PARM_IS_BYTE) 249 effect_set_byte(srcp, chan, i); 250 else 251 effect_set_word((unsigned short*)srcp, chan, i); 252 } 253 254 /* correct sample and loop points */ 255 vp->reg.start += effect_get_offset(chan, EMUX_FX_SAMPLE_START, 256 EMUX_FX_COARSE_SAMPLE_START, 257 vp->reg.sample_mode); 258 259 vp->reg.loopstart += effect_get_offset(chan, EMUX_FX_LOOP_START, 260 EMUX_FX_COARSE_LOOP_START, 261 vp->reg.sample_mode); 262 263 vp->reg.loopend += effect_get_offset(chan, EMUX_FX_LOOP_END, 264 EMUX_FX_COARSE_LOOP_END, 265 vp->reg.sample_mode); 266 } 267 268 /* 269 * effect table 270 */ 271 void 272 snd_emux_create_effect(struct snd_emux_port *p) 273 { 274 int i; 275 p->effect = kcalloc(p->chset.max_channels, 276 sizeof(struct snd_emux_effect_table), GFP_KERNEL); 277 if (p->effect) { 278 for (i = 0; i < p->chset.max_channels; i++) 279 p->chset.channels[i].private = p->effect + i; 280 } else { 281 for (i = 0; i < p->chset.max_channels; i++) 282 p->chset.channels[i].private = NULL; 283 } 284 } 285 286 void 287 snd_emux_delete_effect(struct snd_emux_port *p) 288 { 289 kfree(p->effect); 290 p->effect = NULL; 291 } 292 293 void 294 snd_emux_clear_effect(struct snd_emux_port *p) 295 { 296 if (p->effect) { 297 memset(p->effect, 0, sizeof(struct snd_emux_effect_table) * 298 p->chset.max_channels); 299 } 300 } 301 302 #endif /* SNDRV_EMUX_USE_RAW_EFFECT */ 303