pure-data/extra/pique/pique.c

/* Copyright (c) 1999 Miller Puckette.  The
contents of this file are free for any use, but BOTH THE AUTHOR AND UCSD
DISCLAIM ALL WARRANTIES related to it.  Although not written in Java, this
still should not be used to control any machinery containing a sharp blade or
combustible materiel, or as part of any life support system or weapon. */

#include "m_pd.h"
#include <math.h>
#include <stdio.h>
/* These pragmas are only used for MSVC, not MinGW or Cygwin <[email protected]> */
#ifdef _MSC_VER
#pragma warning( disable : 4244 )
#pragma warning( disable : 4305 )
#endif

static t_class *pique_class;

t_pique;

static void *pique_new(t_floatarg f)
{ … }

static t_float hanning(t_float pidetune, t_float sinpidetune)
{ … }

static t_float peakerror(t_word *fpreal, t_word *fpimag, t_float pidetune,
    t_float norm, t_float peakreal, t_float peakimag)
{ … }

static void pique_doit(int npts, t_word *fpreal, t_word *fpimag,
    int npeak, int *nfound, t_float *fpfreq, t_float *fpamp,
        t_float *fpampre, t_float *fpampim, t_float errthresh)
{ … }

static void pique_list(t_pique *x, t_symbol *s, int argc, t_atom *argv)
{ … }

static void pique_errthresh(t_pique *x, t_floatarg f)
{ … }

static void pique_free(t_pique *x)
{ … }

void pique_setup(void)
{ … }