blob: 50d79adf845afa054c0994e4fd1c0adb7e1fe104 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
/* For information on usage and redistribution, and for a DISCLAIMER OF ALL
* WARRANTIES, see the file, "LICENSE.txt," in this distribution.
iem_adaptfilt written by Markus Noisternig & Thomas Musil
noisternig_AT_iem.at; musil_AT_iem.at
(c) Institute of Electronic Music and Acoustics, Graz Austria 2005 */
#ifdef NT
#pragma warning( disable : 4244 )
#pragma warning( disable : 4305 )
#endif
#include "m_pd.h"
#include "iemlib.h"
static t_class *iem_adaptfilt_class;
static void *iem_adaptfilt_new(void)
{
t_object *x = (t_object *)pd_new(iem_adaptfilt_class);
return (x);
}
void NLMS_tilde_setup(void);
void NLMSerr_in_tilde_setup(void);
void NLMSCC_tilde_setup(void);
void n_CNLMS_tilde_setup(void);
void n_CLNLMS_tilde_setup(void);
/* ------------------------ setup routine ------------------------- */
void iem_adaptfilt_setup(void)
{
NLMS_tilde_setup();
NLMSerr_in_tilde_setup();
NLMSCC_tilde_setup();
n_CNLMS_tilde_setup();
n_CLNLMS_tilde_setup();
post("----------------------------------------------");
post("iem_adaptfilt (R-1.02) library loaded!");
post("(c) Markus Noisternig, Thomas Musil");
post(" {noisternig, musil}_AT_iem.at");
post(" IEM Graz, Austria");
post("----------------------------------------------");
}
|
