1 // SPDX-License-Identifier: GPL-2.0-or-later
2 /*
3  *  Copyright (c) by Jaroslav Kysela <perex@perex.cz>
4  */
5 
6 #include <linux/time.h>
7 #include <linux/export.h>
8 #include <sound/core.h>
9 #include <sound/gus.h>
10 #define __GUS_TABLES_ALLOC__
11 #include "gus_tables.h"
12 
13 EXPORT_SYMBOL(snd_gf1_atten_table); /* for snd-gus-synth module */
14 
snd_gf1_lvol_to_gvol_raw(unsigned int vol)15 unsigned short snd_gf1_lvol_to_gvol_raw(unsigned int vol)
16 {
17 	unsigned short e, m, tmp;
18 
19 	if (vol > 65535)
20 		vol = 65535;
21 	tmp = vol;
22 	e = 7;
23 	if (tmp < 128) {
24 		while (e > 0 && tmp < (1 << e))
25 			e--;
26 	} else {
27 		while (tmp > 255) {
28 			tmp >>= 1;
29 			e++;
30 		}
31 	}
32 	m = vol - (1 << e);
33 	if (m > 0) {
34 		if (e > 8)
35 			m >>= e - 8;
36 		else if (e < 8)
37 			m <<= 8 - e;
38 		m &= 255;
39 	}
40 	return (e << 8) | m;
41 }
42 
43 #if 0
44 
45 unsigned int snd_gf1_gvol_to_lvol_raw(unsigned short gf1_vol)
46 {
47 	unsigned int rvol;
48 	unsigned short e, m;
49 
50 	if (!gf1_vol)
51 		return 0;
52 	e = gf1_vol >> 8;
53 	m = (unsigned char) gf1_vol;
54 	rvol = 1 << e;
55 	if (e > 8)
56 		return rvol | (m << (e - 8));
57 	return rvol | (m >> (8 - e));
58 }
59 
60 unsigned int snd_gf1_calc_ramp_rate(struct snd_gus_card * gus,
61 				    unsigned short start,
62 				    unsigned short end,
63 				    unsigned int us)
64 {
65 	static const unsigned char vol_rates[19] =
66 	{
67 		23, 24, 26, 28, 29, 31, 32, 34,
68 		36, 37, 39, 40, 42, 44, 45, 47,
69 		49, 50, 52
70 	};
71 	unsigned short range, increment, value, i;
72 
73 	start >>= 4;
74 	end >>= 4;
75 	if (start < end)
76 		us /= end - start;
77 	else
78 		us /= start - end;
79 	range = 4;
80 	value = gus->gf1.enh_mode ?
81 	    vol_rates[0] :
82 	    vol_rates[gus->gf1.active_voices - 14];
83 	for (i = 0; i < 3; i++) {
84 		if (us < value) {
85 			range = i;
86 			break;
87 		} else
88 			value <<= 3;
89 	}
90 	if (range == 4) {
91 		range = 3;
92 		increment = 1;
93 	} else
94 		increment = (value + (value >> 1)) / us;
95 	return (range << 6) | (increment & 0x3f);
96 }
97 
98 #endif  /*  0  */
99 
snd_gf1_translate_freq(struct snd_gus_card * gus,unsigned int freq16)100 unsigned short snd_gf1_translate_freq(struct snd_gus_card * gus, unsigned int freq16)
101 {
102 	freq16 >>= 3;
103 	if (freq16 < 50)
104 		freq16 = 50;
105 	if (freq16 & 0xf8000000) {
106 		freq16 = ~0xf8000000;
107 		snd_printk(KERN_ERR "snd_gf1_translate_freq: overflow - freq = 0x%x\n", freq16);
108 	}
109 	return ((freq16 << 9) + (gus->gf1.playback_freq >> 1)) / gus->gf1.playback_freq;
110 }
111 
112 #if 0
113 
114 short snd_gf1_compute_vibrato(short cents, unsigned short fc_register)
115 {
116 	static const short vibrato_table[] =
117 	{
118 		0, 0, 32, 592, 61, 1175, 93, 1808,
119 		124, 2433, 152, 3007, 182, 3632, 213, 4290,
120 		241, 4834, 255, 5200
121 	};
122 
123 	long depth;
124 	const short *vi1, *vi2;
125 	short pcents, v1;
126 
127 	pcents = cents < 0 ? -cents : cents;
128 	for (vi1 = vibrato_table, vi2 = vi1 + 2; pcents > *vi2; vi1 = vi2, vi2 += 2);
129 	v1 = *(vi1 + 1);
130 	/* The FC table above is a list of pairs. The first number in the pair     */
131 	/* is the cents index from 0-255 cents, and the second number in the       */
132 	/* pair is the FC adjustment needed to change the pitch by the indexed     */
133 	/* number of cents. The table was created for an FC of 32768.              */
134 	/* The following expression does a linear interpolation against the        */
135 	/* approximated log curve in the table above, and then scales the number   */
136 	/* by the FC before the LFO. This calculation also adjusts the output      */
137 	/* value to produce the appropriate depth for the hardware. The depth      */
138 	/* is 2 * desired FC + 1.                                                  */
139 	depth = (((int) (*(vi2 + 1) - *vi1) * (pcents - *vi1) / (*vi2 - *vi1)) + v1) * fc_register >> 14;
140 	if (depth)
141 		depth++;
142 	if (depth > 255)
143 		depth = 255;
144 	return cents < 0 ? -(short) depth : (short) depth;
145 }
146 
147 unsigned short snd_gf1_compute_pitchbend(unsigned short pitchbend, unsigned short sens)
148 {
149 	static const long log_table[] = {1024, 1085, 1149, 1218, 1290, 1367, 1448, 1534, 1625, 1722, 1825, 1933};
150 	int wheel, sensitivity;
151 	unsigned int mantissa, f1, f2;
152 	unsigned short semitones, f1_index, f2_index, f1_power, f2_power;
153 	char bend_down = 0;
154 	int bend;
155 
156 	if (!sens)
157 		return 1024;
158 	wheel = (int) pitchbend - 8192;
159 	sensitivity = ((int) sens * wheel) / 128;
160 	if (sensitivity < 0) {
161 		bend_down = 1;
162 		sensitivity = -sensitivity;
163 	}
164 	semitones = (unsigned int) (sensitivity >> 13);
165 	mantissa = sensitivity % 8192;
166 	f1_index = semitones % 12;
167 	f2_index = (semitones + 1) % 12;
168 	f1_power = semitones / 12;
169 	f2_power = (semitones + 1) / 12;
170 	f1 = log_table[f1_index] << f1_power;
171 	f2 = log_table[f2_index] << f2_power;
172 	bend = (int) ((((f2 - f1) * mantissa) >> 13) + f1);
173 	if (bend_down)
174 		bend = 1048576L / bend;
175 	return bend;
176 }
177 
178 unsigned short snd_gf1_compute_freq(unsigned int freq,
179 				    unsigned int rate,
180 				    unsigned short mix_rate)
181 {
182 	unsigned int fc;
183 	int scale = 0;
184 
185 	while (freq >= 4194304L) {
186 		scale++;
187 		freq >>= 1;
188 	}
189 	fc = (freq << 10) / rate;
190 	if (fc > 97391L) {
191 		fc = 97391;
192 		snd_printk(KERN_ERR "patch: (1) fc frequency overflow - %u\n", fc);
193 	}
194 	fc = (fc * 44100UL) / mix_rate;
195 	while (scale--)
196 		fc <<= 1;
197 	if (fc > 65535L) {
198 		fc = 65535;
199 		snd_printk(KERN_ERR "patch: (2) fc frequency overflow - %u\n", fc);
200 	}
201 	return (unsigned short) fc;
202 }
203 
204 #endif  /*  0  */
205