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
|
/*
Copyright (C) 2000 Jeff Tranter
tranter@pobox.com
2001 Matthias Kretz
kretz@kde.org
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library 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
Library General Public License for more details.
You should have received a copy of the GNU Library General Public License
along with this library; see the file COPYING.LIB. If not, write to
the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301, USA.
*/
#include "artsmodulessynth.h"
#include "stdsynthmodule.h"
#include <math.h>
#include <cstring>
using namespace Arts;
// This delays the input signal for an amount of time. The time
// specification can be any number greater or equal zero.
// The delay is constant during the calculation, that means it
// can't be modified. This saves computing time as no interpolation is
// done, and is useful for recursive structures. Actually it can be
// modified, but without interpolation it won't sound too good. See
// the description for Synth_DELAY.
class Synth_CDELAY_impl : virtual public Synth_CDELAY_skel,
virtual public StdSynthModule
{
protected:
unsigned long _buffersize;
unsigned long _bittqmask;
float *_buffer; // holds the data to be delayed (variable size)
float _delaytime;
unsigned int _readpos;
unsigned int _writepos;
public:
Synth_CDELAY_impl() : _buffersize( 0 ), _bittqmask( 0 ), _buffer( 0 ), _delaytime( 0 ), _readpos( 0 ), _writepos( 0 )
{
}
~Synth_CDELAY_impl()
{
delete[] _buffer;
}
float time() { return _delaytime; }
void time(float newTime)
{
_delaytime = newTime;
double n = ceil( log( double(_delaytime * samplingRateFloat )) / log( 2. ) );
unsigned long newbuffersize = (unsigned long)( pow( 2, n ) );
unsigned long newbittqmask = newbuffersize - 1;
if( newbuffersize != _buffersize )
{
float *newbuffer = new float[newbuffersize];
if( newbuffersize > _buffersize ) {
for( unsigned long i = 0; i < _buffersize; i++ ) {
newbuffer[i] = _buffer[_writepos];
_writepos++;
_writepos &= newbittqmask;
}
for( unsigned long i = _buffersize; i < newbuffersize; i++ )
newbuffer[i] = 0;
} else {
_writepos -= newbuffersize;
_writepos &= newbittqmask;
for( unsigned long i = 0; i < newbuffersize; i++ ) {
newbuffer[i] = _buffer[_writepos];
_writepos++;
_writepos &= newbittqmask;
}
}
_buffer = newbuffer;
_buffersize = newbuffersize;
_bittqmask = newbittqmask;
}
_readpos = (unsigned long)rint( _writepos - _delaytime * samplingRateFloat ) & _bittqmask;
time_changed( _delaytime );
}
void streamInit()
{
// initialize buffer to all zeroes
if( _buffer )
for( unsigned long i = 0; i < _buffersize; i++ )
_buffer[i] = 0.0;
}
void calculateBlock(unsigned long samples)
{
if( ! _buffer ) {
memcpy( outvalue, invalue, sizeof( float ) * samples );
return;
}
for( unsigned long i = 0; i < samples; i++ ) {
_buffer[_writepos] = invalue[i];
outvalue[i] = _buffer[_readpos];
_readpos++;
_readpos &= _bittqmask;
_writepos++;
_writepos &= _bittqmask;
}
}
};
// vim:sw=4:ts=4
REGISTER_IMPLEMENTATION(Synth_CDELAY_impl);
|
