PaulStretch Class Reference

Class that helps EffectPaulStretch. It does the FFTs and inner loop of the effect. More...

Collaboration diagram for PaulStretch:

Public Member Functions
	PaulStretch (float rap_, size_t in_bufsize_, float samplerate_)
virtual	~PaulStretch ()
void	process (float *smps, size_t nsmps)
size_t	get_nsamples ()
size_t	get_nsamples_for_fill ()

Public Attributes
const size_t	out_bufsize
const Floats	out_buf
const size_t	poolsize

Private Member Functions
void	process_spectrum (float *WXUNUSED(freq))

Private Attributes
const float	samplerate
const float	rap
const size_t	in_bufsize
const Floats	old_out_smp_buf
const Floats	in_pool
double	remained_samples
const Floats	fft_smps
const Floats	fft_c
const Floats	fft_s
const Floats	fft_freq
const Floats	fft_tmp

Detailed Description

Class that helps EffectPaulStretch. It does the FFTs and inner loop of the effect.

Definition at line 37 of file PaulstretchBase.cpp.

Constructor & Destructor Documentation

PaulStretch()

PaulStretch::PaulStretch	(	float	rap_,
		size_t	in_bufsize_,
		float	samplerate_
	)

Definition at line 373 of file PaulstretchBase.cpp.

    : samplerate { samplerate_ }
    , rap { std::max(1.0f, rap_) }
    , in_bufsize { in_bufsize_ }
    , out_bufsize { std::max(size_t { 8 }, in_bufsize) }
    , out_buf { out_bufsize }
    , old_out_smp_buf { out_bufsize * 2, true }
    , poolsize { in_bufsize_ * 2 }
    , in_pool { poolsize, true }
    , remained_samples { 0.0 }
    , fft_smps { poolsize, true }
    , fft_c { poolsize, true }
    , fft_s { poolsize, true }
    , fft_freq { poolsize, true }
    , fft_tmp { poolsize }
{
}

~PaulStretch()

PaulStretch::~PaulStretch ( )

virtual

Definition at line 391 of file PaulstretchBase.cpp.

{
}

Member Function Documentation

get_nsamples()

size_t PaulStretch::get_nsamples

(

)

Definition at line 477 of file PaulstretchBase.cpp.

{
   double r = out_bufsize / rap;
   auto ri = (size_t)floor(r);
   double rf = r - floor(r);
 
   remained_samples += rf;
   if (remained_samples >= 1.0)
   {
      ri += (size_t)floor(remained_samples);
      remained_samples = remained_samples - floor(remained_samples);
   }
 
   if (ri > poolsize)
   {
      ri = poolsize;
   }
 
   return ri;
}

References out_bufsize, poolsize, rap, and remained_samples.

Referenced by PaulstretchBase::ProcessOne().

Here is the caller graph for this function:

get_nsamples_for_fill()

size_t PaulStretch::get_nsamples_for_fill

(

)

Definition at line 498 of file PaulstretchBase.cpp.

{
   return poolsize;
}

References poolsize.

Referenced by PaulstretchBase::ProcessOne().

Here is the caller graph for this function:

process()

void PaulStretch::process	(	float *	smps,
		size_t	nsmps
	)

Definition at line 395 of file PaulstretchBase.cpp.

{
   // add NEW samples to the pool
   if ((smps != NULL) && (nsmps != 0))
   {
      if (nsmps > poolsize)
      {
         nsmps = poolsize;
      }
      int nleft = poolsize - nsmps;
 
      // move left the samples from the pool to make room for NEW samples
      for (int i = 0; i < nleft; i++)
         in_pool[i] = in_pool[i + nsmps];
 
      // add NEW samples to the pool
      for (size_t i = 0; i < nsmps; i++)
         in_pool[i + nleft] = smps[i];
   }
 
   // get the samples from the pool
   for (size_t i = 0; i < poolsize; i++)
      fft_smps[i] = in_pool[i];
   WindowFunc(eWinFuncHann, poolsize, fft_smps.get());
 
   RealFFT(poolsize, fft_smps.get(), fft_c.get(), fft_s.get());
 
   for (size_t i = 0; i < poolsize / 2; i++)
      fft_freq[i] = sqrt(fft_c[i] * fft_c[i] + fft_s[i] * fft_s[i]);
   process_spectrum(fft_freq.get());
 
   // put randomize phases to frequencies and do a IFFT
   float inv_2p15_2pi = 1.0 / 16384.0 * (float)M_PI;
   for (size_t i = 1; i < poolsize / 2; i++)
   {
      unsigned int random = (rand()) & 0x7fff;
      float phase = random * inv_2p15_2pi;
      float s = fft_freq[i] * sin(phase);
      float c = fft_freq[i] * cos(phase);
 
      fft_c[i] = fft_c[poolsize - i] = c;
 
      fft_s[i] = s;
      fft_s[poolsize - i] = -s;
   }
   fft_c[0] = fft_s[0] = 0.0;
   fft_c[poolsize / 2] = fft_s[poolsize / 2] = 0.0;
 
   FFT(poolsize, true, fft_c.get(), fft_s.get(), fft_smps.get(), fft_tmp.get());
 
   float max = 0.0, max2 = 0.0;
   for (size_t i = 0; i < poolsize; i++)
   {
      max = std::max(max, fabsf(fft_tmp[i]));
      max2 = std::max(max2, fabsf(fft_smps[i]));
   }
 
   // make the output buffer
   float tmp = 1.0 / (float)out_bufsize * M_PI;
   float hinv_sqrt2 = 0.853553390593f; //(1.0+1.0/sqrt(2))*0.5;
 
   float ampfactor = 1.0;
   if (rap < 1.0)
      ampfactor = rap * 0.707;
   else
      ampfactor = (out_bufsize / (float)poolsize) * 4.0;
 
   for (size_t i = 0; i < out_bufsize; i++)
   {
      float a = (0.5 + 0.5 * cos(i * tmp));
      float out =
         fft_smps[i + out_bufsize] * (1.0 - a) + old_out_smp_buf[i] * a;
      out_buf[i] = out *
                   (hinv_sqrt2 - (1.0 - hinv_sqrt2) * cos(i * 2.0 * tmp)) *
                   ampfactor;
   }
 
   // copy the current output buffer to old buffer
   for (size_t i = 0; i < out_bufsize * 2; i++)
      old_out_smp_buf[i] = fft_smps[i];
}

References eWinFuncHann, FFT(), fft_c, fft_freq, fft_s, fft_smps, fft_tmp, in_pool, M_PI, old_out_smp_buf, out_buf, out_bufsize, poolsize, process_spectrum(), rap, RealFFT(), staffpad::audio::simd::sqrt(), and WindowFunc().

Referenced by PaulstretchBase::ProcessOne().

Here is the call graph for this function:

Here is the caller graph for this function:

process_spectrum()

void PaulStretch::process_spectrum ( float *  WXUNUSEDfreq )

inlineprivate

Definition at line 53 of file PaulstretchBase.cpp.

{};

Referenced by process().

Here is the caller graph for this function:

Member Data Documentation

fft_c

const Floats PaulStretch::fft_c

private

Definition at line 76 of file PaulstretchBase.cpp.

Referenced by process().

fft_freq

const Floats PaulStretch::fft_freq

private

Definition at line 76 of file PaulstretchBase.cpp.

Referenced by process().

fft_s

const Floats PaulStretch::fft_s

private

Definition at line 76 of file PaulstretchBase.cpp.

Referenced by process().

fft_smps

const Floats PaulStretch::fft_smps

private

Definition at line 76 of file PaulstretchBase.cpp.

Referenced by process().

fft_tmp

const Floats PaulStretch::fft_tmp

private

Definition at line 76 of file PaulstretchBase.cpp.

Referenced by process().

in_bufsize

const size_t PaulStretch::in_bufsize

private

Definition at line 57 of file PaulstretchBase.cpp.

in_pool

const Floats PaulStretch::in_pool

private

Definition at line 72 of file PaulstretchBase.cpp.

Referenced by process().

old_out_smp_buf

const Floats PaulStretch::old_out_smp_buf

private

Definition at line 64 of file PaulstretchBase.cpp.

Referenced by process().

out_buf

const Floats PaulStretch::out_buf

Definition at line 61 of file PaulstretchBase.cpp.

Referenced by process(), and PaulstretchBase::ProcessOne().

out_bufsize

const size_t PaulStretch::out_bufsize

Definition at line 60 of file PaulstretchBase.cpp.

Referenced by get_nsamples(), process(), and PaulstretchBase::ProcessOne().

poolsize

const size_t PaulStretch::poolsize

Definition at line 68 of file PaulstretchBase.cpp.

Referenced by get_nsamples(), get_nsamples_for_fill(), process(), and PaulstretchBase::ProcessOne().

rap

const float PaulStretch::rap

private

Definition at line 56 of file PaulstretchBase.cpp.

Referenced by get_nsamples(), and process().

remained_samples

double PaulStretch::remained_samples

private

Definition at line 74 of file PaulstretchBase.cpp.

Referenced by get_nsamples().

samplerate

const float PaulStretch::samplerate

private

Definition at line 55 of file PaulstretchBase.cpp.

---

The documentation for this class was generated from the following file:

• PaulstretchBase.cpp