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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
/* For information on usage and redistribution, and for a DISCLAIMER OF ALL
* WARRANTIES, see the file, "LICENSE.txt," in this distribution.
* iem_dp written by IOhannes m zmoelnig, Thomas Musil,
* Copyright (c) IEM KUG Graz Austria 2000 - 2008 */
/* iem_dp means double precision, it is a library of external pd objects */
/* which deal with array access and delay lines */
/* the way how objects comunicate with other objects in double precision is, */
/* to send two values on two different outputs to two different inputs */
/* one value is the float casted value of the original double value */
/* the other value is the difference in double of the original minus the float casted value */
/* the receiving inlets only cast them to double and add them */
#include "m_pd.h"
#include "iemlib.h"
//static int delread_zero = 0; /* four bytes of zero for delread~, vd~ */
t_float iem_dp_cast_to_float(double d)
{
return((t_float)d);
}
double iem_dp_cast_to_double(t_float f)
{
return((double)f);
}
t_float iem_dp_calc_residual(double d, t_float f)
{
return(iem_dp_cast_to_float(d - iem_dp_cast_to_double(f)));
}
double iem_dp_calc_sum(t_float f, t_float r)
{
return(iem_dp_cast_to_double(f) + iem_dp_cast_to_double(r));
}
static t_class *iem_dp_class;
static void *iem_dp_new(void)
{
t_object *x = (t_object *)pd_new(iem_dp_class);
return (x);
}
void ftohex_setup(void);
void symtodp_setup(void);
void dptosym_setup(void);
void dptohex_setup(void);
void vline_tilde_tilde_setup(void);
void samphold_tilde_tilde_setup(void);
void wrap_tilde_tilde_setup(void);
void phasor_tilde_tilde_setup(void);
void print_tilde_tilde_setup(void);
void add___setup(void);
void sub___setup(void);
void mul___setup(void);
void div___setup(void);
void add_tilde_tilde_setup(void);
void sub_tilde_tilde_setup(void);
void mul_tilde_tilde_setup(void);
void div_tilde_tilde_setup(void);
void tabwrite_dp_setup(void);
void tabread_dp_setup(void);
void tabread4_dp_setup(void);
void tabwrite_tilde_tilde_setup(void);
void tabread_tilde_tilde_setup(void);
void tabread4_tilde_tilde_setup(void);
void max_dp_setup(void);
void min_dp_setup(void);
void max_tilde_tilde_setup(void);
void min_tilde_tilde_setup(void);
void random_dp_setup(void);
void delay_tilde_tilde_setup(void);
//void listtodp_setup(void);
//void dqnsymtodp_setup(void);
//void dptodqnsym_setup(void);
/* ------------------------ setup routine ------------------------- */
void iem_dp_setup(void)
{
iem_dp_class = class_new(gensym("iem_dp"), iem_dp_new, 0,
sizeof(t_object), CLASS_NOINLET, 0);
ftohex_setup();
symtodp_setup();
dptosym_setup();
dptohex_setup();
vline_tilde_tilde_setup();
samphold_tilde_tilde_setup();
wrap_tilde_tilde_setup();
phasor_tilde_tilde_setup();
print_tilde_tilde_setup();
add___setup();
sub___setup();
mul___setup();
div___setup();
add_tilde_tilde_setup();
sub_tilde_tilde_setup();
mul_tilde_tilde_setup();
div_tilde_tilde_setup();
tabwrite_dp_setup();
tabread_dp_setup();
tabread4_dp_setup();
tabwrite_tilde_tilde_setup();
tabread_tilde_tilde_setup();
tabread4_tilde_tilde_setup();
max_dp_setup();
min_dp_setup();
max_tilde_tilde_setup();
min_tilde_tilde_setup();
random_dp_setup();
delay_tilde_tilde_setup();
// listtodp_setup();
// dqnsymtodp_setup();
// dptodqnsym_setup();
post("iem_dp (R-1.19) library loaded! (c) IOhannes m zmoelnig, Thomas Musil 06.2013");
post(" zmoelnig%ciem.at iem KUG Graz Austria", '@');
post(" musil%ciem.at iem KUG Graz Austria", '@');
}
|
