aboutsummaryrefslogtreecommitdiff
path: root/pd/extra/paf~
diff options
context:
space:
mode:
authorThomas Grill <xovo@users.sourceforge.net>2003-09-23 11:34:45 +0000
committerThomas Grill <xovo@users.sourceforge.net>2003-09-23 11:34:45 +0000
commit8c5eb1bcbbf8156dc3211cb1c33974b6bb0df1ec (patch)
tree6107cea1fbb5b22d2c50c7b5f5df1874759f5442 /pd/extra/paf~
parent64fdb009695828b788fce074135b20a5e52c5fc4 (diff)
merged in version 0.37-0
svn path=/trunk/; revision=1021
Diffstat (limited to 'pd/extra/paf~')
-rw-r--r--pd/extra/paf~/README.txt12
-rw-r--r--pd/extra/paf~/makefile97
-rw-r--r--pd/extra/paf~/paf~.c927
3 files changed, 0 insertions, 1036 deletions
diff --git a/pd/extra/paf~/README.txt b/pd/extra/paf~/README.txt
deleted file mode 100644
index 9bd41879..00000000
--- a/pd/extra/paf~/README.txt
+++ /dev/null
@@ -1,12 +0,0 @@
-Paf is copyright (C) 1999 Miller Puckette.
-Permission is granted to use this software for any purpose, commercial
-or noncommercial, as long as this notice is included with all copies.
-
-NEITHER THE AUTHORS NOR THEIR EMPLOYERS MAKE ANY WARRANTY, EXPRESS OR IMPLIED,
-IN CONNECTION WITH THIS SOFTWARE!
-
-----------------------------------------------------------------------------
-
-This is the README file for the "paf" percussion detector. This software
-is available from http://www.crca.ucsd.edu/~msp as part of the "toys"
-library. - msp@ucsd.edu
diff --git a/pd/extra/paf~/makefile b/pd/extra/paf~/makefile
deleted file mode 100644
index cb06b555..00000000
--- a/pd/extra/paf~/makefile
+++ /dev/null
@@ -1,97 +0,0 @@
-NAME=paf~
-CSYM=paf_tilde
-
-current: pd_linux
-
-# ----------------------- NT -----------------------
-
-pd_nt: $(NAME).dll
-
-.SUFFIXES: .dll
-
-PDNTCFLAGS = /W3 /WX /DNT /DPD /nologo
-VC="C:\Program Files\Microsoft Visual Studio\Vc98"
-
-PDNTINCLUDE = /I. /I\tcl\include /I\ftp\pd\src /I$(VC)\include
-
-PDNTLDIR = $(VC)\lib
-PDNTLIB = $(PDNTLDIR)\libc.lib \
- $(PDNTLDIR)\oldnames.lib \
- $(PDNTLDIR)\kernel32.lib \
- \ftp\pd\bin\pd.lib
-
-.c.dll:
- cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c $*.c
- link /dll /export:$(CSYM)_setup $*.obj $(PDNTLIB)
-
-# ----------------------- IRIX 5.x -----------------------
-
-pd_irix5: $(NAME).pd_irix5
-
-.SUFFIXES: .pd_irix5
-
-SGICFLAGS5 = -o32 -DPD -DUNIX -DIRIX -O2
-
-SGIINCLUDE = -I../../src
-
-.c.pd_irix5:
- cc $(SGICFLAGS5) $(SGIINCLUDE) -o $*.o -c $*.c
- ld -elf -shared -rdata_shared -o $*.pd_irix5 $*.o
- rm -f $*.o ../$*.pd_linux
- ln -s $*.pd_linux ..
-
-# ----------------------- IRIX 6.x -----------------------
-
-pd_irix6: $(NAME).pd_irix6
-
-.SUFFIXES: .pd_irix6
-
-SGICFLAGS6 = -n32 -DPD -DUNIX -DIRIX -DN32 -woff 1080,1064,1185 \
- -OPT:roundoff=3 -OPT:IEEE_arithmetic=3 -OPT:cray_ivdep=true \
- -Ofast=ip32
-
-.c.pd_irix6:
- cc $(SGICFLAGS6) $(SGIINCLUDE) -o $*.o -c $*.c
- ld -n32 -IPA -shared -rdata_shared -o $*.pd_irix6 $*.o
- rm $*.o
-
-# ----------------------- LINUX i386 -----------------------
-
-pd_linux: $(NAME).pd_linux
-
-.SUFFIXES: .pd_linux
-
-LINUXCFLAGS = -fPIC -DPD -O2 -funroll-loops -fomit-frame-pointer \
- -Wall -W -Wshadow -Wstrict-prototypes -Werror \
- -Wno-unused -Wno-parentheses -Wno-switch
-
-LINUXINCLUDE = -I../../src
-
-LSTRIP = strip --strip-unneeded -R .note -R .comment
-
-.c.pd_linux:
- cc $(LINUXCFLAGS) $(LINUXINCLUDE) -o $*.o -c $*.c
- cc -Wl,-export_dynamic --shared -o $*.pd_linux $*.o -lm
- $(LSTRIP) $*.pd_linux
- rm -f $*.o ../$*.pd_linux
- ln -s $*/$*.pd_linux ..
-
-# ----------------------- Mac OSX -----------------------
-
-pd_darwin: $(NAME).pd_darwin
-
-.SUFFIXES: .pd_darwin
-
-DARWINCFLAGS = -DPD -O2 -Wall -W -Wshadow -Wstrict-prototypes \
- -Wno-unused -Wno-parentheses -Wno-switch
-
-.c.pd_darwin:
- cc $(DARWINCFLAGS) $(LINUXINCLUDE) -o $*.o -c $*.c
- cc -bundle -undefined suppress -flat_namespace -o $*.pd_darwin $*.o
- rm -f $*.o ../$*.pd_darwin
- ln -s $*/$*.pd_darwin ..
-
-# ----------------------------------------------------------
-
-clean:
- rm -f *.o *.pd_* so_locations
diff --git a/pd/extra/paf~/paf~.c b/pd/extra/paf~/paf~.c
deleted file mode 100644
index 4a1fec07..00000000
--- a/pd/extra/paf~/paf~.c
+++ /dev/null
@@ -1,927 +0,0 @@
-/* paf -- version of the paf generator derived from "jupiterpaf", from
-Manoury's Jupiter, 1997 version. Can be compiled as a standalone test program,
-or as an object in Max 0.26, JMAX, or Pd. */
-
-/* Copyright 1997-1999 Miller Puckette.
-Permission is granted to use this software for any purpose provided you
-keep this copyright notice intact.
-
-THE AUTHOR AND HIS EMPLOYERS MAKE NO WARRANTY, EXPRESS OR IMPLIED,
-IN CONNECTION WITH THIS SOFTWARE.
-
-This file is downloadable from http://www.crca.ucsd.edu/~msp .
-
-Warning: the algorithms implemented here are covered by patents held by
-IRCAM. While this probably does not restrict anyone from distributing
-software implementing the paf, any hardware implementor should obtain a
-license from IRCAM.
-*/
-
-static char *paf_version = "paf version 0.06";
-
-#ifdef NT
-#pragma warning (disable: 4305 4244)
-#endif
-
-#ifdef TESTME
-#include <stdio.h>
-#endif
-#ifdef FTS15
-#include "mess.h"
-#include "dsp.h"
-#endif
-#ifdef V26SGI
-#include "m_extern.h"
-#include "d_graph.h"
-#include "d_ugen.h"
-#endif
-#ifdef PD
-#include "m_pd.h"
-#endif
-#include <math.h>
-
-#define LOGTABSIZE 9
-#define TABSIZE (1 << LOGTABSIZE)
-#define TABRANGE 3
-
-typedef struct _tabpoint
-{
- float p_y;
- float p_diff;
-} t_tabpoint;
-
-static t_tabpoint paf_gauss[TABSIZE];
-static t_tabpoint paf_cauchy[TABSIZE];
-
-typedef struct _linenv
-{
- double l_current;
- double l_biginc;
- float l_1overn;
- float l_target;
- float l_msectodsptick;
- int l_ticks;
-} t_linenv;
-
-typedef struct _pafctl
-{
- t_linenv x_freqenv;
- t_linenv x_cfenv;
- t_linenv x_bwenv;
- t_linenv x_ampenv;
- t_linenv x_vibenv;
- t_linenv x_vfrenv;
- t_linenv x_shiftenv;
- float x_isr;
- float x_held_freq;
- float x_held_intcar;
- float x_held_fraccar;
- float x_held_bwquotient;
- double x_phase;
- double x_shiftphase;
- double x_vibphase;
- int x_triggerme;
- int x_cauchy;
-} t_pafctl;
-
-static void linenv_debug(t_linenv *l, char *s)
-{
-#ifdef DEBUG
- post("%s: current %f, target %f", s, l->l_current, l->l_target);
-#endif
-}
-
-static void linenv_init(t_linenv *l)
-{
- l->l_current = l->l_biginc = 0;
- l->l_1overn = l->l_target = l->l_msectodsptick = 0;
- l->l_ticks = 0;
-}
-
-static void linenv_setsr(t_linenv *l, float sr, int vecsize)
-{
- l->l_msectodsptick = sr / (1000.f * ((float)vecsize));
- l->l_1overn = 1.f/(float)vecsize;
-}
-
-static void linenv_set(t_linenv *l, float target, long timdel)
-{
- if (timdel > 0)
- {
- l->l_ticks = ((float)timdel) * l->l_msectodsptick;
- if (!l->l_ticks) l->l_ticks = 1;
- l->l_target = target;
- l->l_biginc = (l->l_target - l->l_current)/l->l_ticks;
- }
- else
- {
- l->l_ticks = 0;
- l->l_current = l->l_target = target;
- l->l_biginc = 0;
- }
-}
-
-#define LINENV_RUN(linenv, current, incr) \
- if (linenv.l_ticks > 0) \
- { \
- current = linenv.l_current; \
- incr = linenv.l_biginc * linenv.l_1overn; \
- linenv.l_ticks--; \
- linenv.l_current += linenv.l_biginc; \
- } \
- else \
- { \
- linenv.l_current = current = linenv.l_target; \
- incr = 0; \
- }
-
-#define UNITBIT32 1572864. /* 3*2^19 -- bit 32 has value 1 */
-#define TABFRACSHIFT (UNITBIT32/TABSIZE)
-
-#ifdef __sgi
- /* machine-dependent definitions: */
-#define HIOFFSET 0 /* word offset to find MSB; endianness-dependent */
-#define LOWOFFSET 0 /* word offset to find MSB; endianness-dependent */
-#define int32 unsigned long /* a data type that has 32 bits */
-#define DONE_MACHINE_TYPE
-#endif /* __sgi */
-
-#ifdef NT
- /* little-endian; most significant byte is at highest address */
-#define HIOFFSET 1
-#define LOWOFFSET 0
-#define int32 unsigned long
-#define DONE_MACHINE_TYPE
-#endif /* NT */
-
-#ifdef MACOSX
-#define HIOFFSET 0 /* word offset to find MSB */
-#define LOWOFFSET 1 /* word offset to find LSB */
-#define int32 int /* a data type that has 32 bits */
-#define DONE_MACHINE_TYPE
-#endif /* MACOSX */
-
-#ifdef __FreeBSD__
-#include <machine/endian.h>
-#if BYTE_ORDER == LITTLE_ENDIAN
-#define HIOFFSET 1
-#define LOWOFFSET 0
-#else
-#define HIOFFSET 0 /* word offset to find MSB */
-#define LOWOFFSET 1 /* word offset to find LSB */
-#endif /* BYTE_ORDER */
-#include <sys/types.h>
-#define int32 int32_t
-#define DONE_MACHINE_TYPE
-#endif /* __FreeBSD__ */
-
-#ifdef __linux__
-
-#include <endian.h>
-
-#if !defined(__BYTE_ORDER) || !defined(__LITTLE_ENDIAN)
-#error No byte order defined
-#endif
-
-#if __BYTE_ORDER == __LITTLE_ENDIAN
-#define HIOFFSET 1
-#define LOWOFFSET 0
-#else
-#define HIOFFSET 0 /* word offset to find MSB */
-#define LOWOFFSET 1 /* word offset to find LSB */
-#endif /* __BYTE_ORDER */
-
-#include <sys/types.h>
-#define int32 u_int32_t
-
-#define DONE_MACHINE_TYPE
-#endif /* __linux__ */
-
-#ifndef DONE_MACHINE_TYPE
-#error -- no machine architecture definition?
-#endif
-
-#define A1 ((float)(4 * (3.14159265/2)))
-#define A3 ((float)(64 * (2.5 - 3.14159265)))
-#define A5 ((float)(1024 * ((3.14159265/2) - 1.5)))
-
-static void pafctl_run(t_pafctl *x, float *out1, int n)
-{
- float freqval, freqinc;
- float cfval, cfinc;
- float bwval, bwinc;
- float ampval, ampinc;
- float vibval, vibinc;
- float vfrval, vfrinc;
- float shiftval, shiftinc;
- float bwquotient, bwqincr;
- double ub32 = UNITBIT32;
- double phase = x->x_phase + ub32;
- double phasehack;
- volatile double *phasehackp = &phasehack;
- double shiftphase = x->x_shiftphase + ub32;
- volatile int32 *hackptr = ((int32 *)(phasehackp)) + HIOFFSET, hackval;
- volatile int32 *lowptr = ((int32 *)(phasehackp)) + LOWOFFSET, lowbits;
- float held_freq = x->x_held_freq;
- float held_intcar = x->x_held_intcar;
- float held_fraccar = x->x_held_fraccar;
- float held_bwquotient = x->x_held_bwquotient;
- float sinvib, vibphase;
- t_tabpoint *paf_table = (x->x_cauchy ? paf_cauchy : paf_gauss);
- *phasehackp = ub32;
- hackval = *hackptr;
-
- /* fractional part of shift phase */
- *phasehackp = shiftphase;
- *hackptr = hackval;
- shiftphase = *phasehackp;
-
- /* propagate line envelopes */
- LINENV_RUN(x->x_freqenv, freqval, freqinc);
- LINENV_RUN(x->x_cfenv, cfval, cfinc);
- LINENV_RUN(x->x_bwenv, bwval, bwinc);
- LINENV_RUN(x->x_ampenv, ampval, ampinc);
- LINENV_RUN(x->x_vibenv, vibval, vibinc);
- LINENV_RUN(x->x_vfrenv, vfrval, vfrinc);
- LINENV_RUN(x->x_shiftenv, shiftval, shiftinc);
-
- /* fake line envelope for quotient of bw and frequency */
- bwquotient = bwval/freqval;
- bwqincr = (((float)(x->x_bwenv.l_current))/
- ((float)(x->x_freqenv.l_current)) - bwquotient) *
- x->x_freqenv.l_1overn;
-
- /* run the vibrato oscillator */
-
- *phasehackp = ub32 + (x->x_vibphase + n * x->x_isr * vfrval);
- *hackptr = hackval;
- vibphase = (x->x_vibphase = *phasehackp - ub32);
- if (vibphase > 0.5)
- sinvib = 1.0f - 16.0f * (0.75f-vibphase) * (0.75f - vibphase);
- else sinvib = -1.0f + 16.0f * (0.25f-vibphase) * (0.25f - vibphase);
- freqval = freqval * (1.0f + vibval * sinvib);
-
- shiftval *= x->x_isr;
- shiftinc *= x->x_isr;
-
- /* if phase or amplitude is zero, load in new params */
- if (ampval == 0 || phase == ub32 || x->x_triggerme)
- {
- float cf_over_freq = cfval/freqval;
- held_freq = freqval * x->x_isr;
- held_intcar = (float)((int)cf_over_freq);
- held_fraccar = cf_over_freq - held_intcar;
- held_bwquotient = bwquotient;
- x->x_triggerme = 0;
- }
- while (n--)
- {
- double newphase = phase + held_freq;
- double carphase1, carphase2, fracnewphase;
- float fphase, fcarphase1, fcarphase2, carrier;
- float g, g2, g3, cosine1, cosine2, halfsine, mod, tabfrac;
- t_tabpoint *p;
- /* put new phase into 64-bit memory location. Bash upper
- 32 bits to get fractional part (plus "ub32"). */
-
- *phasehackp = newphase;
- *hackptr = hackval;
- newphase = *phasehackp;
- fracnewphase = newphase-ub32;
- fphase = 2.0f * ((float)(fracnewphase)) - 1.0f;
- if (newphase < phase)
- {
- float cf_over_freq = cfval/freqval;
- held_freq = freqval * x->x_isr;
- held_intcar = (float)((int)cf_over_freq);
- held_fraccar = cf_over_freq - held_intcar;
- held_bwquotient = bwquotient;
- }
- phase = newphase;
- *phasehackp = fracnewphase * held_intcar + shiftphase;
- *hackptr = hackval;
- carphase1 = *phasehackp;
- fcarphase1 = carphase1 - ub32;
- *phasehackp = carphase1 + fracnewphase;
- *hackptr = hackval;
- carphase2 = *phasehackp;
- fcarphase2 = carphase2 - ub32;
-
- shiftphase += shiftval;
-
- if (fcarphase1 > 0.5f) g = fcarphase1 - 0.75f;
- else g = 0.25f - fcarphase1;
- g2 = g * g;
- g3 = g * g2;
- cosine1 = g * A1 + g3 * A3 + g2 * g3 * A5;
-
- if (fcarphase2 > 0.5f) g = fcarphase2 - 0.75f;
- else g = 0.25f - fcarphase2;
- g2 = g * g;
- g3 = g * g2;
- cosine2 = g * A1 + g3 * A3 + g2 * g3 * A5;
-
- carrier = cosine1 + held_fraccar * (cosine2-cosine1);
-
- ampval += ampinc;
- bwquotient += bwqincr;
-
- /* printf("bwquotient %f\n", bwquotient); */
-
- halfsine = held_bwquotient * (1.0f - fphase * fphase);
- if (halfsine >= (float)(0.997 * TABRANGE))
- halfsine = (float)(0.997 * TABRANGE);
-
-#if 0
- shape = halfsine * halfsine;
- mod = ampval * carrier *
- (1 - bluntval * shape) / (1 + (1 - bluntval) * shape);
-#endif
-#if 0
- shape = halfsine * halfsine;
- mod = ampval * carrier *
- exp(-shape);
-#endif
- halfsine *= (float)(1./TABRANGE);
-
- /* Get table index for "halfsine". Bash upper
- 32 bits to get fractional part (plus "ub32"). Also grab
- fractional part as a fixed-point number to use as table
- address later. */
-
- *phasehackp = halfsine + ub32;
- lowbits = *lowptr;
-
- /* now shift again so that the fractional table address
- appears in the low 32 bits, bash again, and extract this as
- a floating point number from 0 to 1. */
- *phasehackp = halfsine + TABFRACSHIFT;
- *hackptr = hackval;
- tabfrac = *phasehackp - ub32;
-
- p = paf_table + (lowbits >> (32 - LOGTABSIZE));
- mod = ampval * carrier * (p->p_y + tabfrac * p->p_diff);
-
- *out1++ = mod;
- }
- x->x_phase = phase - ub32;
- x->x_shiftphase = shiftphase - ub32;
- x->x_held_freq = held_freq;
- x->x_held_intcar = held_intcar;
- x->x_held_fraccar = held_fraccar;
- x->x_held_bwquotient = held_bwquotient;
-}
-
-static void pafctl_init(t_pafctl *x)
-{
- linenv_init(&x->x_freqenv);
- linenv_init(&x->x_cfenv);
- linenv_init(&x->x_bwenv);
- linenv_init(&x->x_ampenv);
- linenv_init(&x->x_vibenv);
- linenv_init(&x->x_vfrenv);
- linenv_init(&x->x_shiftenv);
- x->x_freqenv.l_target = x->x_freqenv.l_current = 1.0;
- x->x_isr = (float)(1./44100.);
- x->x_held_freq = 1.f;
- x->x_held_intcar = 0.f;
- x->x_held_fraccar = 0.f;
- x->x_held_bwquotient = 0.f;
- x->x_phase = 0.;
- x->x_shiftphase = 0.;
- x->x_vibphase = 0.;
- x->x_triggerme = 0;
- x->x_cauchy = 0;
-}
-
-static void pafctl_setsr(t_pafctl *x, float sr, int vecsize)
-{
- x->x_isr = 1.f/sr;
- linenv_setsr(&x->x_freqenv, sr, vecsize);
- linenv_setsr(&x->x_cfenv, sr, vecsize);
- linenv_setsr(&x->x_bwenv, sr, vecsize);
- linenv_setsr(&x->x_ampenv, sr, vecsize);
- linenv_setsr(&x->x_vibenv, sr, vecsize);
- linenv_setsr(&x->x_vfrenv, sr, vecsize);
- linenv_setsr(&x->x_shiftenv, sr, vecsize);
-}
-
-static void pafctl_freq(t_pafctl *x, float val, int time)
-{
- if (val < 1.f) val = 1.f;
- if (val > 10000000.f) val = 1000000.f;
- linenv_set(&x->x_freqenv, val, time);
-}
-
-static void pafctl_cf(t_pafctl *x, float val, int time)
-{
- linenv_set(&x->x_cfenv, val, time);
-}
-
-static void pafctl_bw(t_pafctl *x, float val, int time)
-{
- linenv_set(&x->x_bwenv, val, time);
-}
-
-static void pafctl_amp(t_pafctl *x, float val, int time)
-{
- linenv_set(&x->x_ampenv, val, time);
-}
-
-static void pafctl_vib(t_pafctl *x, float val, int time)
-{
- linenv_set(&x->x_vibenv, val, time);
-}
-
-static void pafctl_vfr(t_pafctl *x, float val, int time)
-{
- linenv_set(&x->x_vfrenv, val, time);
-}
-
-static void pafctl_shift(t_pafctl *x, float val, int time)
-{
- linenv_set(&x->x_shiftenv, val, time);
-}
-
-static void pafctl_phase(t_pafctl *x, float mainphase, float shiftphase,
- float vibphase)
-{
- x->x_phase = mainphase;
- x->x_shiftphase = shiftphase;
- x->x_vibphase = vibphase;
- x->x_triggerme = 1;
-}
-
- /* value of Cauchy distribution at TABRANGE */
-#define CAUCHYVAL (1./ (1. + TABRANGE * TABRANGE))
- /* first derivative of Cauchy distribution at TABRANGE */
-#define CAUCHYSLOPE ((-2. * TABRANGE) * CAUCHYVAL * CAUCHYVAL)
-#define ADDSQ (- CAUCHYSLOPE / (2 * TABRANGE))
-
-static void paf_dosetup(void)
-{
- int i;
- float CAUCHYFAKEAT3 =
- (CAUCHYVAL + ADDSQ * TABRANGE * TABRANGE);
- float CAUCHYRESIZE = (1./ (1. - CAUCHYFAKEAT3));
- for (i = 0; i <= TABSIZE; i++)
- {
- float f = i * ((float)TABRANGE/(float)TABSIZE);
- float gauss = exp(-f * f);
- float cauchygenuine = 1. / (1. + f * f);
- float cauchyfake = cauchygenuine + ADDSQ * f * f;
- float cauchyrenorm = (cauchyfake - 1.) * CAUCHYRESIZE + 1.;
- if (i != TABSIZE)
- {
- paf_gauss[i].p_y = gauss;
- paf_cauchy[i].p_y = cauchyrenorm;
- /* post("%f", cauchyrenorm); */
- }
- if (i != 0)
- {
- paf_gauss[i-1].p_diff = gauss - paf_gauss[i-1].p_y;
- paf_cauchy[i-1].p_diff = cauchyrenorm - paf_cauchy[i-1].p_y;
- }
- }
-}
-
-#ifdef TESTME
-
-#define BS 64
-main()
-{
- t_pafctl x;
- float x1[BS];
- int i;
- paf_dosetup();
- pafctl_init(&x);
- pafctl_setsr(&x, 16000., BS);
- pafctl_freq(&x, 1000, 0);
- pafctl_bw(&x, 2000, 0);
- pafctl_amp(&x, 1000, 0);
- pafctl_run(&x, x1, BS);
- for (i = 0; i < BS/4; i++)
- {
- printf("%15.5f %15.5f %15.5f %15.5f\n",
- x1[4*i], x1[4*i+1], x1[4*i+2], x1[4*i+3]);
- }
-#if 0
- printf("\n");
- pafctl_bw(&x, 2000, 0);
- pafctl_run(&x, x1, BS);
- for (i = 0; i < BS/4; i++)
- {
- printf("%15.5f %15.5f %15.5f %15.5f\n",
- x1[4*i], x1[4*i+1], x1[4*i+2], x1[4*i+3]);
- }
-#endif
-}
-
-#endif
-#ifdef FTS1X
-
-static fts_symbol_t *paf_dspname;
-
-typedef struct _paf
-{
- fts_object_t ob; /* object header */
- t_pafctl pafctl;
-} paf_t;
-
-/* ---------------------------------------- */
-/* Methods */
-/* ---------------------------------------- */
-
- /* formalities... */
-
-static void paf_dspfun(fts_word_t *a)
-{
- paf_t *x = (paf_t *)fts_word_get_obj(a);
- float *out1 = (float *)fts_word_get_obj(a + 1);
- long n = fts_word_get_long(a + 3);
-
- pafctl_run(&x->pafctl, out1, n);
-}
-
-void paf_put(fts_object_t *o, int winlet, fts_symbol_t *s,
- int ac, const fts_atom_t *at)
-{
- paf_t *x = (paf_t *)o;
- fts_dsp_descr_t *dsp = (fts_dsp_descr_t *)fts_get_obj_arg(at, ac, 0, 0);
- fts_atom_t a[4];
- float sr = fts_dsp_get_output_srate(dsp, 0);
- int vecsize = fts_dsp_get_output_size(dsp, 0);
-
- pafctl_setsr(&x->pafctl, sr, vecsize);
- fts_set_obj(a, x);
- fts_set_symbol(a+1, fts_dsp_get_output_name(dsp, 0));
- fts_set_long(a+2, fts_dsp_get_output_size(dsp, 0));
- dsp_add_funcall(paf_dspname, 3, a);
-}
-
-static void paf_freq(fts_object_t *o, int winlet, fts_symbol_t *s,
- int ac, const fts_atom_t *at)
-{
- paf_t *this = (paf_t *)o;
- float val = fts_get_float_long_arg( at, ac, 0, 0.0f);
- int time = fts_get_long_arg(at, ac, 1, 0);
- pafctl_freq(&this->pafctl, val, time);
-}
-
-static void paf_cf(fts_object_t *o, int winlet, fts_symbol_t *s,
- int ac, const fts_atom_t *at)
-{
- paf_t *this = (paf_t *)o;
- float val = fts_get_float_long_arg( at, ac, 0, 0.0f);
- int time = fts_get_long_arg(at, ac, 1, 0);
- pafctl_cf(&this->pafctl, val, time);
-}
-
-static void paf_bw(fts_object_t *o, int winlet, fts_symbol_t *s,
- int ac, const fts_atom_t *at)
-{
- paf_t *this = (paf_t *)o;
- float val = fts_get_float_long_arg( at, ac, 0, 0.0f);
- int time = fts_get_long_arg(at, ac, 1, 0);
- pafctl_bw(&this->pafctl, val, time);
-}
-
-static void paf_amp(fts_object_t *o, int winlet, fts_symbol_t *s,
- int ac, const fts_atom_t *at)
-{
- paf_t *this = (paf_t *)o;
-
- float val = fts_get_float_long_arg( at, ac, 0, 0.0f);
- int time = fts_get_long_arg(at, ac, 1, 0);
- pafctl_amp(&this->pafctl, val, time);
-}
-
-static void paf_vib(fts_object_t *o, int winlet, fts_symbol_t *s,
- int ac, const fts_atom_t *at)
-{
- paf_t *this = (paf_t *)o;
- float val = fts_get_float_long_arg( at, ac, 0, 0.0f);
- int time = fts_get_long_arg(at, ac, 1, 0);
- pafctl_vib(&this->pafctl, val, time);
-}
-
-static void paf_vfr(fts_object_t *o, int winlet, fts_symbol_t *s,
- int ac, const fts_atom_t *at)
-{
- paf_t *this = (paf_t *)o;
- float val = fts_get_float_long_arg( at, ac, 0, 0.0f);
- int time = fts_get_long_arg(at, ac, 1, 0);
- pafctl_vfr(&this->pafctl, val, time);
-}
-
-static void paf_shift(fts_object_t *o, int winlet, fts_symbol_t *s,
- int ac, const fts_atom_t *at)
-{
- paf_t *this = (paf_t *)o;
- float val = fts_get_float_long_arg( at, ac, 0, 0.0f);
- int time = fts_get_long_arg(at, ac, 1, 0);
- pafctl_shift(&this->pafctl, val, time);
-}
-
-static void paf_phase(fts_object_t *o, int winlet, fts_symbol_t *s,
- int ac, const fts_atom_t *at)
-{
- paf_t *this = (paf_t *)o;
- float phase = fts_get_float_long_arg( at, ac, 0, 0.0f);
- float shiftphase = fts_get_long_arg(at, ac, 1, 0);
- float vibphase = fts_get_long_arg(at, ac, 2, 0);
- pafctl_shift(&this->pafctl, phase, shiftphase, vibphase);
-}
-
-static void
-paf_print(fts_object_t *o, int winlet, fts_symbol_t *s, int ac, const fts_atom_t *at)
-{
-}
-
-static void
-paf_init(fts_object_t *o, int winlet, fts_symbol_t *s, int ac, const fts_atom_t *at)
-{
- paf_t *this = (paf_t *)o;
- int i;
-
- dsp_list_insert(o); /* put object in list */
- pafctl_init(&this->pafctl);
-}
-
-static void paf_delete(fts_object_t *o, int winlet, fts_symbol_t *s,
- int ac, const fts_atom_t *at)
-{
- paf_t *this = (paf_t *)o;
-
- dsp_list_remove(o);
-}
-
-static fts_status_t paf_instantiate( fts_class_t *cl,
- int ac, const fts_atom_t *at)
-{
- fts_atom_type_t a[3];
-
- fts_class_init( cl, sizeof(paf_t), 1, 2, 0);
-
- a[0] = fts_Symbol;
- fts_method_define( cl, fts_SystemInlet, fts_s_init, paf_init, 1, a);
- fts_method_define( cl, fts_SystemInlet, fts_s_delete, paf_delete, 1, a);
-
- a[0] = fts_Float|fts_Long;
- a[1] = fts_Long;
- fts_method_define( cl, 0, fts_new_symbol("freq"), paf_freq, 2, a);
- fts_method_define( cl, 0, fts_new_symbol("cf"), paf_cf, 2, a);
- fts_method_define( cl, 0, fts_new_symbol("bw"), paf_bw, 2, a);
- fts_method_define( cl, 0, fts_new_symbol("amp"), paf_amp, 2, a);
- fts_method_define( cl, 0, fts_new_symbol("vib"), paf_vib, 2, a);
- fts_method_define( cl, 0, fts_new_symbol("vfr"), paf_vfr, 2, a);
- fts_method_define( cl, 0, fts_new_symbol("shift"), paf_shift, 2, a);
- fts_method_define( cl, 0, fts_new_symbol("phase"), paf_phase, 3, a);
-
- fts_method_define( cl, 0, fts_new_symbol("print"), paf_print, 0, 0);
-
- a[0] = fts_Object;
- fts_method_define(cl, fts_SystemInlet, fts_new_symbol("put"),
- paf_put, 1, a);
-
- dsp_sig_inlet(cl, 0); /* order forcing only */
-
- dsp_sig_outlet(cl, 0);
-
- return fts_Success;
-}
-
-fts_symbol_t *paf_qui;
-
-void paf_config(void)
-{
- sys_log(paf_version);
- paf_dspname = fts_new_symbol("paf");
- dsp_declare_function(paf_dspname, paf_dspfun);
- fts_metaclass_create(fts_new_symbol("paf"),
- paf_instantiate, fts_always_equiv);
- paf_dosetup();
-}
-
-fts_module_t paf_module =
- {"paf", "paf", paf_config, 0};
-
-#endif /* FTS1X */
-
-#ifdef V26
-
-typedef struct _paf
-{
- t_head x_h;
- t_sig *x_io[IN1+OUT1];
- t_pafctl x_pafctl;
-} t_paf;
-
-static void paf_put(t_paf *x, long int whether)
-{
- if (whether)
- {
- float sr = x->x_io[0]->s_sr;
- int vecsize = x->x_io[0]->s_n;
- u_stdout((t_ugen *)x);
- pafctl_setsr(&x->x_pafctl, sr, vecsize);
- dspchain_addc(pafctl_run, 3,
- &x->x_pafctl, x->x_io[1]->s_shit, x->x_io[1]->s_n);
- }
-}
-
-static void paf_freq(t_paf *x, double val, int time)
-{
- pafctl_freq(&x->x_pafctl, val, time);
-}
-
-static void paf_cf(t_paf *x, double val, int time)
-{
- pafctl_cf(&x->x_pafctl, val, time);
-}
-
-static void paf_bw(t_paf *x, double val, int time)
-{
- pafctl_bw(&x->x_pafctl, val, time);
-}
-
-static void paf_amp(t_paf *x, double val, int time)
-{
- pafctl_amp(&x->x_pafctl, val, time);
-}
-
-static void paf_vib(t_paf *x, double val, int time)
-{
- pafctl_vib(&x->x_pafctl, val, time);
-}
-
-static void paf_vfr(t_paf *x, double val, int time)
-{
- pafctl_vfr(&x->x_pafctl, val, time);
-}
-
-static void paf_shift(t_paf *x, double val, int time)
-{
- pafctl_shift(&x->x_pafctl, val, time);
-}
-
-static void paf_phase(t_paf *x, double phase, double shiftphase,
- double vibphase)
-{
- pafctl_phase(&x->x_pafctl, phase, shiftphase, vibphase);
-}
-
-static void paf_debug(t_paf *x)
-{
- linenv_debug( &x->x_pafctl.x_ampenv, "amp");
- linenv_debug(&x->x_pafctl.x_freqenv, "fre");
-}
-
-t_externclass *paf_class;
-
-static void *paf_new()
-{
- t_paf *x = (t_paf *)obj_new(&paf_class, 0);
- u_setup((t_ugen *)x, IN1, OUT1);
- u_setforcer(x);
- pafctl_init(&x->x_pafctl);
- return (x);
-}
-
-void sigpaf_setup()
-{
- post(paf_version);
- c_extern(&paf_class, paf_new, u_clean,
- gensym("paf"), sizeof(t_paf), 0, 0);
- c_addmess(paf_put, gensym("put"), A_CANT, 0);
- c_addmess(paf_freq, gensym("freq"), A_FLOAT, A_LONG, 0);
- c_addmess(paf_cf, gensym("cf"), A_FLOAT, A_LONG, 0);
- c_addmess(paf_bw, gensym("bw"), A_FLOAT, A_LONG, 0);
- c_addmess(paf_amp, gensym("amp"), A_FLOAT, A_LONG, 0);
- c_addmess(paf_vib, gensym("vib"), A_FLOAT, A_LONG, 0);
- c_addmess(paf_vfr, gensym("vfr"), A_FLOAT, A_LONG, 0);
- c_addmess(paf_shift, gensym("shift"), A_FLOAT, A_LONG, 0);
- c_addmess(paf_phase, gensym("phase"), A_FLOAT, A_FLOAT, A_FLOAT, 0);
- c_addmess(paf_debug, gensym("debug"), 0);
- u_inletmethod(0);
- paf_dosetup();
-}
-
-#endif /* V26 */
-
-#ifdef PD
-
-typedef struct _paf
-{
- t_object x_obj;
- t_pafctl x_pafctl;
-} t_paf;
-
-static t_class *paf_class;
-
-static void *paf_new(void)
-{
- t_paf *x = (t_paf *)pd_new(paf_class);
- pafctl_init(&x->x_pafctl);
- outlet_new(&x->x_obj, gensym("signal"));
- return (x);
-}
-
-static t_int *paf_perform(t_int *w)
-{
- t_pafctl *ctl = (t_pafctl *)(w[1]);
- t_float *out1 = (t_float *)(w[2]);
- int n = (int)(w[3]);
- pafctl_run(ctl, out1, n);
- return (w+4);
-}
-
-static void paf_dsp(t_paf *x, t_signal **sp)
-{
- float sr = sp[0]->s_sr;
- int vecsize = sp[0]->s_n;
- pafctl_setsr(&x->x_pafctl, sr, vecsize);
- dsp_add(paf_perform, 3,
- &x->x_pafctl, sp[0]->s_vec, sp[0]->s_n);
-}
-
-static void paf_freq(t_paf *x, t_floatarg val, t_floatarg time)
-{
- pafctl_freq(&x->x_pafctl, val, time);
-}
-
-static void paf_cf(t_paf *x, t_floatarg val, t_floatarg time)
-{
- pafctl_cf(&x->x_pafctl, val, time);
-}
-
-static void paf_bw(t_paf *x, t_floatarg val, t_floatarg time)
-{
- pafctl_bw(&x->x_pafctl, val, time);
-}
-
-static void paf_amp(t_paf *x, t_floatarg val, t_floatarg time)
-{
- pafctl_amp(&x->x_pafctl, val, time);
-}
-
-static void paf_vib(t_paf *x, t_floatarg val, t_floatarg time)
-{
- pafctl_vib(&x->x_pafctl, val, time);
-}
-
-static void paf_vfr(t_paf *x, t_floatarg val, t_floatarg time)
-{
- pafctl_vfr(&x->x_pafctl, val, time);
-}
-
-static void paf_shift(t_paf *x, t_floatarg val, t_floatarg time)
-{
- pafctl_shift(&x->x_pafctl, val, time);
-}
-
-static void paf_phase(t_paf *x, t_floatarg mainphase, t_floatarg shiftphase,
- t_floatarg vibphase)
-{
- pafctl_phase(&x->x_pafctl, mainphase, shiftphase, vibphase);
-}
-
-static void paf_setcauchy(t_paf *x, t_floatarg f)
-{
- x->x_pafctl.x_cauchy = (f != 0);
-}
-
-static void paf_debug(t_paf *x)
-{
- /* whatever you want... */
-}
-
-void paf_tilde_setup(void)
-{
- post(paf_version);
- paf_class = class_new(gensym("paf~"), (t_newmethod)paf_new, 0,
- sizeof(t_paf), 0, 0);
- class_addmethod(paf_class, (t_method)paf_dsp, gensym("dsp"), A_CANT, 0);
- class_addmethod(paf_class, (t_method)paf_freq, gensym("freq"),
- A_FLOAT, A_DEFFLOAT, 0);
- class_addmethod(paf_class, (t_method)paf_cf, gensym("cf"),
- A_FLOAT, A_DEFFLOAT, 0);
- class_addmethod(paf_class, (t_method)paf_bw, gensym("bw"),
- A_FLOAT, A_DEFFLOAT, 0);
- class_addmethod(paf_class, (t_method)paf_amp, gensym("amp"),
- A_FLOAT, A_DEFFLOAT, 0);
- class_addmethod(paf_class, (t_method)paf_vib, gensym("vib"),
- A_FLOAT, A_DEFFLOAT, 0);
- class_addmethod(paf_class, (t_method)paf_vfr, gensym("vfr"),
- A_FLOAT, A_DEFFLOAT, 0);
- class_addmethod(paf_class, (t_method)paf_shift, gensym("shift"),
- A_FLOAT, A_DEFFLOAT, 0);
- class_addmethod(paf_class, (t_method)paf_phase, gensym("phase"),
- A_FLOAT, A_FLOAT, A_FLOAT, 0);
- class_addmethod(paf_class, (t_method)paf_setcauchy, gensym("cauchy"),
- A_FLOAT, 0);
- class_addmethod(paf_class, (t_method)paf_debug, gensym("debug"), 0);
- paf_dosetup();
-}
-
-#endif /* PD */