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
|
/*
spat3d.h:
Copyright (C) 2001 Istvan Varga
This file is part of Csound.
The Csound Library is free software; you can redistribute it
and/or modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
Csound 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 Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with Csound; if not, write to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
02110-1301 USA
*/
/* spat3d, spat3di, and spat3dt - written by Istvan Varga, 2001 */
#ifndef CSOUND_SPAT3D_H
#define CSOUND_SPAT3D_H
#include "csdl.h"
#ifdef CSOUND_SPAT3D_C /* define these only when included from spat3d.c */
#define SPAT3D_SNDSPEED FL(340.0) /* sound speed */
#define SPAT3D_MAXAMP FL(10.0) /* amplitude at dist=0 */
/* convert distance to delay */
#define SPAT3D_DIST2DEL(x) ((x) / SPAT3D_SNDSPEED)
/* convert distance to amplitude */
#define SPAT3D_DIST2AMP(x) (FL(1.0) / ((FL(1.0) / SPAT3D_MAXAMP) + (x)))
/* calculate distance */
#define SPAT3D_XYZ2DIST(x,y,z) \
((MYFLT) sqrt ((double) ((x) * (x) + (y) * (y) + (z) * (z))))
/* limit a number to a specified range */
#define SPAT3D_LIMIT(x, a, b) ((x) > (b) ? (b) : ((x) < (a) ? (a) : (x)))
typedef struct {
void *nextRefl[6]; /* pointers to next reflections */
/* (NULL: no reflection) */
int32_t init; /* 1 at first k-cycle */
int32_t cnum; /* select coord. to transform: */
/* -1: none, 0: X, 1: Y, 2: Z */
MYFLT Xc; /* coord. offset */
MYFLT W0, X0, Y0, Z0; /* W, X, Y, Z (Ll, Lh, Rl, Rh) */
double D0, D1; /* delay */
MYFLT *yn; /* output sound */
MYFLT a0, a1, a2, b0, b1, b2; /* EQ parameters */
MYFLT xnm1, xnm2, ynm1, ynm2; /* EQ tmp data */
} SPAT3D_WALL;
/* ftable data: */
/* 0: early refl. recursion depth (for spat3d and spat3di) */
/* 1: late refl. recursion depth (for spat3dt) */
/* 2: max. delay (spat3d) */
/* 3: echo IR length (spat3dt) */
/* 4: unit circle / microphone distance */
/* 5: random seed (0 - 65535) */
/* 6-13: ceil reflection parameters */
/* 6: enable reflection (any non-zero value) */
/* 7: wall distance in meters */
/* 8: randomization of wall distance (1 / (wall dist.)) */
/* 9: reflection level */
/* 10: EQ frequency (see pareq opcode) */
/* 11: EQ level */
/* 12: EQ Q */
/* 13: EQ mode */
/* 14-21: floor parameters */
/* 22-29: front wall parameters */
/* 30-37: back wall parameters */
/* 38-45: right wall parameters */
/* 46-53: left wall parameters */
#endif /* CSOUND_SPAT3D_C */
/* opcode struct for spat3d, spat3di, and spat3dt */
typedef struct { /* opcode args */
OPDS h;
MYFLT *args[14]; /* opcode arguments */
/* (see spat3d.README) */
/* spat3di spat3d spat3dt */
/* */
/* 0 aW aW ioutft */
/* 1 aX aX iX */
/* 2 aY aY iY */
/* 3 aZ aZ iZ */
/* 4 ain ain idist */
/* 5 iX kX ift */
/* 6 iY kY imode */
/* 7 iZ kZ irlen */
/* 8 idist idist [iftnocl] */
/* 9 ift ift - */
/* 10 imode imode - */
/* 11 [istor] imdel - */
/* 12 - iovr - */
/* 13 - [istor] - */
/* internal variables */
int32_t o_num; /* opcode (0: spat3di, 1: spat3d, 2: spat3dt */
int32_t oversamp; /* oversample ratio (spat3d) */
int32_t zout; /* output mode */
MYFLT mdist; /* unit circle distance */
MYFLT *ftable; /* ptr. to ftable */
int32 rseed; /* random seed */
int32_t mindep; /* min. recursion depth */
int32_t maxdep; /* max. recursion depth */
MYFLT *outft; /* ptr to output ftable (spat3dt) */
int32 outftlnth; /* output ftable length (spat3dt) */
int32_t irlen; /* IR length (spat3dt) */
int32_t bs; /* block size (ksmps or irlen) */
MYFLT mdel; /* max. delay (in seconds) */
int32 mdel_s; /* max. delay (in samples) */
int32 del_p; /* read position in delay buffers */
MYFLT *Wb, *Xb, *Yb, *Zb; /* delay buffers */
int32_t
*sample; /* FIR filter data (spat3d) */
MYFLT *window;
AUXCH fltr;
AUXCH ws; /* wall structure array */
AUXCH y; /* tmp data */
AUXCH del; /* delay buffer */
} SPAT3D;
#endif /* CSOUND_SPAT3D_H */
|
