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
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
|
#ifndef VBAP_H
#define VBAP_H
#include <math.h>
#include "m_pd.h"
#include "max2pd.h"
#ifndef M_PI
// don't know where it is in win32, so add it here
#define M_PI 3.14159265358979323846264338327950288 /* pi */
#endif
#ifdef PD
// Revised by Z. Settel to dynamically allocate memory
#define MAX_LS_SETS 745 // maximum number of loudspeaker sets (triplets or pairs) allowed -- allows for up to 44 speakers in 3D config
//#define MAX_LS_SETS 100 // former maximum value crashed for 3D speaker configurations with more than 13 speakers
//#define MAX_LS_SETS 571 // example: for up to 32 speakers in 3D config
#else // Max
#define MAX_LS_SETS 100 // maximum number of loudspeaker sets (triplets or pairs) allowed - This can crash when too many speakers are defined
#endif
#define MATRIX_DIM 9 // hard-coded matrx dimension for the algorithm
#define SPEAKER_SET_DIM 3 // hard-coded speaker set dimension for the algorithm
#define MAX_LS_AMOUNT 55 // maximum amount of loudspeakers, can be increased, but see comments next to MAX_LS_SETS above
#define MIN_VOL_P_SIDE_LGTH 0.01
#define VBAP_VERSION "vbap - v1.1 - 14 Aug. 2014 - (c) Ville Pulkki 1999-2006 (Pd port by HCS)"
#define DFLS_VERSION "define_loudspeakers - v1.0.3.2 - 20 Nov 2010 - (c) Ville Pulkki 1999-2006"
static t_float rad2ang = 360.0 / ( 2.0f * M_PI );
static t_float atorad = (2.0f * M_PI) / 360.0f ;
#ifdef VBAP_OBJECT
//We are inside vbap object, so sending matrix from define_loudspeakers is a simple call to the vbap receiver...
#define sendLoudspeakerMatrices(x,list_length, at) \
vbap_matrix(x, gensym("loudspeaker-matrices"),list_length, at); \
vbap_bang(x)
#else
// We are inside define_loudspeaker object, send matrix to outlet
#define sendLoudspeakerMatrices(x,list_length, at) \
outlet_anything(x->x_outlet0, gensym("loudspeaker-matrices"), list_length, at);
#endif
/* A struct for a loudspeaker instance */
typedef struct
{ // distance value is 1.0 == unit vectors
t_float x; // cartesian coordinates
t_float y;
t_float z;
t_float azi; // polar coordinates
t_float ele;
int channel_nbr; // which speaker channel number
} t_ls;
/* A struct for all loudspeaker sets */
typedef struct t_ls_set
{
int ls_nos[3]; // channel numbers
t_float inv_mx[9]; // inverse 3x3 or 2x2 matrix
struct t_ls_set *next; // next set (triplet or pair)
} t_ls_set;
#ifdef VBAP_OBJECT
typedef struct vbap /* This defines the object as an entity made up of other things */
{
t_object x_obj;
t_float x_azi; // panning direction azimuth
t_float x_ele; // panning direction elevation
void *x_outlet0; /* outlet creation - inlets are automatic */
void *x_outlet1;
void *x_outlet2;
void *x_outlet3;
void *x_outlet4;
long x_lsset_available; // have loudspeaker sets been defined with define_loudspeakers
long x_lsset_amount; // amount of loudspeaker sets
long x_ls_amount; // amount of loudspeakers
long x_dimension; // 2 or 3
# ifdef PD
// memory for data sets is now allocated dynamically in each instance
// WAS t_float x_set_inv_matx[MAX_LS_SETS][9];
t_float **x_set_inv_matx; // inverse matrice for each loudspeaker set
// WAS t_float x_set_matx[MAX_LS_SETS][9];
t_float **x_set_matx; // matrice for each loudspeaker set
// WAS long x_lsset[MAX_LS_SETS][3];
long **x_lsset; // channel numbers of loudspeakers in each LS set
t_float x_spread; // speading amount of virtual source (0-100)
# else /* Max */ // memory allocation not tested for max, so it is allocated in the struct, as it was before
t_float x_set_inv_matx[MAX_LS_SETS][9]; // inverse matrice for each loudspeaker set
t_float x_set_matx[MAX_LS_SETS][9]; // matrice for each loudspeaker set
long x_lsset[MAX_LS_SETS][3]; // channel numbers of loudspeakers in each LS set
long x_spread; // speading amount of virtual source (0-100)
double x_gain; // general gain control (0-2)
# endif /* PD */
t_float x_spread_base[3]; // used to create uniform spreading
// define_loudspeaker data
long x_ls_read; // 1 if loudspeaker directions have been read
long x_triplets_specified; // 1 if loudspeaker triplets have been chosen
t_ls x_ls[MAX_LS_AMOUNT]; // loudspeakers
t_ls_set *x_ls_set; // loudspeaker sets
long x_def_ls_amount; // number of loudspeakers
long x_def_ls_dimension; // 2 (horizontal arrays) or 3 (3d setups)
long x_ls_setCount; // the number of Loudspeaker sets used for an instance's current loudspeaker configuration
} t_vbap;
// define loudspeaker data type...
typedef t_vbap t_def_ls;
#else
/* define_loudspeakers maxmsp object */
typedef struct
{
t_object x_obj; /* gotta say this... it creates a reference to your object */
long x_ls_read; // 1 if loudspeaker directions have been read
long x_triplets_specified; // 1 if loudspeaker triplets have been chosen
t_ls x_ls[MAX_LS_AMOUNT]; // loudspeakers
t_ls_set *x_ls_set; // loudspeaker sets
void *x_outlet0; /* outlet creation - inlets are automatic */
long x_def_ls_amount; // number of loudspeakers
long x_def_ls_dimension; // 2 (horizontal arrays) or 3 (3d setups)
} t_def_ls;
#endif /* VBAP_OBJECT */
# ifndef PD
/** Enable/Disable traces */
static bool _enable_trace = false;
void traces(t_def_ls *x, long n) { _enable_trace = n ? true : false;}
#endif /* ! PD */
#endif
|
