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