ComposerDesktopProject/dev/externals/paprogs/pvplay/pvpp.h

/*
 * Copyright (c) 1983-2020 Richard Dobson and Composers Desktop Project Ltd
 * http://www.rwdobson.com
 * http://www.composersdesktop.com
 * This file is part of the CDP System.
 * The CDP System 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. 
 *
 * The CDP System 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 the CDP System; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 *
 */
 
/*pvpp.h*/
/* class def for pvoc wrapper */
#ifndef __PVPP_H_INCLUDED__
#define __PVPP_H_INCLUDED__

#ifndef MIN
#define MIN(x,y)    ( ((x)>(y)) ? (y) : (x) )
#endif

#ifndef MAX
#define MAX(x,y)    ( ((x)>(y)) ? (x) : (y) )
#endif


#ifdef __cplusplus
extern "C" {
//#include <pvfileio.h>
#endif
    
#include "pvdefs.h"
#ifdef USE_FFTW
#include <rfftw.h>
#endif
    
#ifdef __cplusplus
}
#endif

#ifdef MAC
#include <sys/param.h>
#include <sys/sysctl.h>
#include <CoreServices/CoreServices.h>
//#include <Accelerate/Accelerate.h>
#endif      
    
//}


// must have -faltivec in C compiler flags
#if defined(__VEC__)
Boolean HasAltiVec(void);
void TurnJavaModeOffOnG4(void);
void RestoreJavaModeOnG4(void);
#endif

#ifdef NOTDEF
typedef enum pvocmode {  PVPP_NOT_SET,PVPP_OFFLINE,PVPP_STREAMING};

typedef enum pvoc_overlapfac {PVOC_O_W0,PVOC_O_W1,PVOC_O_W2,PVOC_O_W3,PVOC_O_DEFAULT};
typedef enum pvoc_scaletype {PVOC_S_TIME,PVOC_S_PITCH,PVOC_S_NONE};

typedef enum pvoc_frametype { PVOC_AMP_FREQ,PVOC_AMP_PHASE,PVOC_COMPLEX };
typedef enum pvoc_windowtype {PVOC_DEFAULT,
                                PVOC_HAMMING,
                                PVOC_HANN,
                                PVOC_KAISER,
                                PVOC_RECT,
                                PVOC_CUSTOM};
#endif
class phasevocoder
{
/* some may be made protected in due course, for derived classes */
private:
    double  rratio;
    float   *input,     /* pointer to start of input buffer */
        *output,        /* pointer to start of output buffer */
        *anal,          /* pointer to start of analysis buffer */
        *syn,           /* pointer to start of synthesis buffer */
        *banal,         /* pointer to anal[1] (for FFT calls) */
        *bsyn,          /* pointer to syn[1]  (for FFT calls) */
        *nextIn,        /* pointer to next empty word in input */
        *nextOut,       /* pointer to next empty word in output */
        *analWindow,    /* pointer to center of analysis window */
        *synWindow,     /* pointer to center of synthesis window */
        *maxAmp,        /* pointer to start of max amp buffer */
        *avgAmp,        /* pointer to start of avg amp buffer */
        *avgFrq,        /* pointer to start of avg frq buffer */
        *env,           /* pointer to start of spectral envelope */
        *i0,            /* pointer to amplitude channels */
        *i1,            /* pointer to frequency channels */
        *oi,            /* pointer to old phase channels */
        *oldInPhase,    /* pointer to start of input phase buffer */
        *oldOutPhase;   /* pointer to start of output phase buffer */

    int   m, n;

    int N ,         /* number of phase vocoder channels (bands) */
        M,          /* length of analWindow impulse response */
        L,          /* length of synWindow impulse response */
        D,          /* decimation factor (default will be M/8) */
        I,          /* interpolation factor (default will be I=D)*/
        W ,         /* filter overlap factor (determines M, L) */
        /*RWD: want EXACT frequency! */
    //  F,          /* fundamental frequency (determines N) */
    //  F2,         /* F/2 */    /* RWD NOT USED */
        
        K,          /* set kaiser window*/
        H,          /* set vonHann window */
        analWinLen,     /* half-length of analysis window */
        synWinLen;      /* half-length of synthesis window */
    /* RWD see above */
    float Fexact;

    long // tmprate,    /* temporary variable */
        sampsize,       /* sample size for output file */
        //origrate,     /* sample rate of file analysed */
        outCount,       /* number of samples written to output */
        ibuflen,        /* length of input buffer */
        obuflen,        /* length of output buffer */
        nI,         /* current input (analysis) sample */
        nO,             /* current output (synthesis) sample */
        nMaxOut,        /* last output (synthesis) sample */
        nMin,       /* first input (analysis) sample */
        nMax;   /* last input sample (unless EOF) */
/***************************** 6:2:91  OLD CODE **************
                        long    origsize;
*******************************NEW CODE **********************/
    long    origsize;   /* sample type of file analysed */

    char    ch;     /* needed for crack (commandline interpreter)*/
    
    int ifd, ofd;   /* CDP sound file handles */
    float   beta ,  /* parameter for Kaiser window */
        real,       /* real part of analysis data */
        imag,       /* imaginary part of analysis data */
        mag,        /* magnitude of analysis data */
        phase,      /* phase of analysis data */
        angleDif,   /* angle difference */
        RoverTwoPi, /* R/D divided by 2*Pi */
        TwoPioverR, /* 2*Pi divided by R/I */
        sum,        /* scale factor for renormalizing windows */
        ftot,   /* scale factor for calculating statistics */
        rIn,        /* decimated sampling rate */
        rOut,       /* pre-interpolated sampling rate */
        invR,       /* 1. / srate */
        time,       /* nI / srate */
        tvx0,       /* current x value of time-var function */
        tvx1,       /* next x value of time-var function */
        tvdx,       /* tvx1 - tvx0 */
        tvy0,       /* current y value of time-var function */
        tvy1,       /* next y value of time-var function */
        tvdy,       /* tvy1 - tvy0 */
        frac,       /* tvdy / tvdx */
        warp,   /* spectral envelope warp factor */
        R ,     /* input sampling rate */
        P ,     /* pitch scale factor */
        Pinv,       /* 1. / P */
        T;      /* time scale factor ( >1 to expand)*/

    int i,j,k,      /* index variables */
        Dd,     /* number of new inputs to read (Dd <= D) */
        Ii,     /* number of new outputs to write (Ii <= I) */
        N2,     /* N/2 */
        NO,     /* synthesis NO = N / P */
        NO2,        /* NO/2 */
        IO,     /* synthesis IO = I / P */
        IOi,        /* synthesis IOi = Ii / P */
        //Mlen,
        Mf,     /* flag for even M */
        Lf,     /* flag for even L */
        //Dfac,
        flag,       /* end-of-input flag */
        C,      /* flag for resynthesizing even or odd chans */
        Ci,     /* flag for resynthesizing chans i to j only */
        Cj,     /* flag for resynthesizing chans i to j only */
        CC,     /* flag for selected channel resynthesis */
        X,      /* flag for magnitude output */
        E,      /* flag for spectral envelope output */ 
        tvflg,  /* flag for time-varying time-scaling */
        tvnxt,      /* counter for stepping thru time-var func */
        tvlen;      /* length of time-varying function */
    
    float   srate;      /* sample rate from header on stdin */
        
    float   timecheckf;
    long    isr,            /* sampling rate */
    Nchans;         /* no of chans */

    /* my vars */
    int vH;             /* von Hann window */
    pvocmode m_mode;
    long  bin_index;    /* index into oldOutPhase to do fast norm_phase */ 
    float *synWindow_base;
    float *analWindow_base;
#ifdef USE_FFTW
    rfftwnd_plan forward_plan, inverse_plan;
    int in_fftw_size,out_fftw_size;
    float Ninv;
#endif
protected:
    double besseli( double x);           /* from Csound*/
    void hamming(float *win,int winLen,int even);
    void kaiser(float *win,int len,double Beta);     /* from Csound */
    void vonhann(float *win,int winLen,int even);

public:
    phasevocoder();
    virtual ~phasevocoder();
    

    /* neither init func inputs all possible pvoc parameters - these are two possible subsets */
    bool init(long outsrate,long fftlen,long winlen,long decfac,float scalefac,
                        pvoc_scaletype stype,pvoc_windowtype wtype,pvocmode mode);
    /* when pvoc -W flag used (ofac), it sets anal window size, decimation, etc */
    bool init(long outsrate,long fftlen,pvoc_overlapfac ofac,float scalefac,
                        pvoc_scaletype stype,pvoc_windowtype wtype,pvocmode mode);
    /* to come: full init using PVOCDATA etc, or directly from another phasevocoder */
    long anal_overlap(void) { return D;}
    long syn_interp(void)   { 
                    if(P != 1.0f) 
                        return D;
                    else 
                        return I;}
    long fftlen(void)  {return N;}
    long winlen(void) { return M;}
    /*retval gives numsamps written to outbuf, -1 for error */
    long process_frame(float *frame,float *outbuf,pvoc_frametype frametype);    
    long process_frame(float *frame,short *outbuf,pvoc_frametype frametype);
    /* returns (variable) numsamps written to outbuf*/
    long generate_frame(float *fbuf,float *outanal,long samps,pvoc_frametype frametype);
    void reset_phases(void);
#ifdef USE_CDP
    void setprops(SFPROPS *props);
#endif
};

#endif