isdn4k-utils/ant-phone/src/fxgenerator.c

146 lines
4.8 KiB
C

/*
* The sound effects generator
*
* This file is part of ANT (Ant is Not a Telephone)
*
* Copyright 2002, 2003 Roland Stigge
*
* ANT is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* ANT is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with ANT; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*
*/
/* regular GNU system includes */
#include <stdio.h>
#include <math.h>
/* own header files */
#include "globals.h"
#include "session.h"
/* all time constants in seconds or Hz */
#define RING_PERIOD 4
#define RING_LENGTH 1.3
#define RING_FREQUENCY 1300
/* fade in/out reciprocal period: */
#define RING_FADE_LENGTH 0.003
#define RING_SHORT_PERIOD 0.044
#define RING_SHORT_LENGTH (RING_SHORT_PERIOD / 2)
#define RINGING_FREQUENCY 425
/*
* Effect generator
* input: session: session, used element: audio_LUT_generate
* effect: the effect
* index: parameter for effect (e.g. which touchtone)
* EFFECT_TOUCHTONE: row * 3 + column (each 0-based)
* seconds: position of sample in seconds
* returns: generated ulaw sample
*/
unsigned char fxgenerate(session_t *session, enum effect_t effect,
int index, double seconds) {
unsigned char x; /* generated ulaw sample (return value) */
double rest; /* monitor the period in seconds modulo 4 */
double rest2; /* monitor (short) sinus period */
double factor; /* envelope factor */
double factor2; /* envelope help factor (short periods) */
double f1, f2; /* frequencies for touchtones (row, column) */
switch(effect) {
case EFFECT_RING: /* somebody's calling */
case EFFECT_TEST: /* play test sound */
if (effect == EFFECT_RING) {
rest = fmod(seconds, RING_PERIOD); /* 4 sec period */
} else {
rest = seconds; /* infinite period */
}
rest2 = fmod(seconds, RING_SHORT_PERIOD); /* short period */
if (rest < RING_FADE_LENGTH) { /* fade in */
factor = -cos(rest * M_PI / RING_FADE_LENGTH) / 2 + 0.5;
} else if (rest > RING_LENGTH - RING_FADE_LENGTH &&
rest < RING_LENGTH) { /* fade out */
factor = -cos((RING_LENGTH - rest) * 2 * M_PI / (RING_FADE_LENGTH * 2))
/ 2 + 0.5;
} else if (rest >= RING_LENGTH) { /* pause */
factor = 0;
} else { /* (potential) beep */
factor = 1;
}
if (rest2 > RING_SHORT_PERIOD - 0.5 * RING_FADE_LENGTH) {
/* fade in short period (1/2) */
factor2 = -sin((RING_SHORT_PERIOD - rest2)
* 2 * M_PI / (RING_FADE_LENGTH * 2)) / 2 + 0.5;
} else if (rest2 < 0.5 * RING_FADE_LENGTH) {
/* fade in short period (2/2) */
factor2 = sin(rest2 * 2 * M_PI / (RING_FADE_LENGTH * 2)) / 2 + 0.5;
} else if (rest2 > RING_SHORT_LENGTH - 0.5 * RING_FADE_LENGTH &&
rest2 < RING_SHORT_LENGTH + 0.5 * RING_FADE_LENGTH) {
/* fade out short period */
factor2 = -sin((rest2 - RING_SHORT_LENGTH)
* 2 * M_PI / (RING_FADE_LENGTH * 2)) / 2 + 0.5;
} else if (rest2 <= RING_SHORT_LENGTH) { /* just beep */
factor2 = 1;
} else {
factor2 = 0; /* short pause */
}
factor = factor * factor2;
x = session->audio_LUT_generate[
(int)(sin(seconds * 2 * M_PI * RING_FREQUENCY)
* factor * 127.5 + 127.5)];
break;
case EFFECT_RINGING: /* waiting for the other end to pick up the phone */
rest = fmod(seconds, 5);
if (rest >= 2 && rest < 3) {
x = session->audio_LUT_generate[ /* beep */
(int)(sin(seconds * 2 * M_PI * RINGING_FREQUENCY) * 127.5 + 127.5)];
} else {
x = session->audio_LUT_generate[128]; /* pause */
}
break;
case EFFECT_TOUCHTONE: /* clicked key pad in conversation mode */
switch (index / 3) { /* row frequency */
case 0: f1 = 697; break;
case 1: f1 = 770; break;
case 2: f1 = 852; break;
case 3: f1 = 941; break;
default: f1 = 0;
}
switch (index % 3) { /* column frequency */
case 0: f2 = 1209; break;
case 1: f2 = 1336; break;
case 2: f2 = 1477; break;
case 3: f2 = 1633; break;
default: f2 = 0;
}
x = session->audio_LUT_generate[
(int)((sin(seconds * 2 * M_PI * f1) + sin(seconds * 2 * M_PI * f2))
/ 2 * 127.5 * 0.7 + 127.5)];
break;
default:
fprintf(stderr, "fxgenerate: Unknown effect.\n");
x = 0;
}
return x;
}