From d145fa6f792d6c44da2feec90507adb94e40323e Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Sun, 31 Jul 2011 03:59:16 +0000 Subject: got everything building using the template Makefile svn path=/trunk/externals/unauthorized/; revision=15173 --- formant~/INSTALL | 9 -- formant~/formant~-help.pd | 56 ---------- formant~/formant~.c | 253 ---------------------------------------------- 3 files changed, 318 deletions(-) delete mode 100644 formant~/INSTALL delete mode 100644 formant~/formant~-help.pd delete mode 100644 formant~/formant~.c (limited to 'formant~') diff --git a/formant~/INSTALL b/formant~/INSTALL deleted file mode 100644 index bcbc08b..0000000 --- a/formant~/INSTALL +++ /dev/null @@ -1,9 +0,0 @@ -untar in /my/pd/dir/externs - -cd /my/pd/dir/externs/formant~ - -make - -make install - -you're set !! diff --git a/formant~/formant~-help.pd b/formant~/formant~-help.pd deleted file mode 100644 index c8102b4..0000000 --- a/formant~/formant~-help.pd +++ /dev/null @@ -1,56 +0,0 @@ -#N canvas 190 63 711 524 10; -#X msg 172 385 \; pd dsp 1; -#X msg 238 385 \; pd dsp 0; -#X floatatom 150 58 10 0 0; -#X floatatom 232 121 5 0 0; -#X floatatom 190 93 5 0 0; -#X floatatom 295 140 5 0 0; -#X text 149 42 Size of the synthetized sound; -#X text 189 78 Central frequency; -#X text 232 104 Filter width; -#X text 294 125 Skirt width ( "largeur de jupe" in french ); -#X msg 114 136 bang; -#X text 99 13 Formant synthesis as described by JP Smets; -#X floatatom 340 159 5 0 0; -#X text 382 158 Time Stretch; -#X obj 333 390 dac~; -#X obj 303 244 delay 200; -#X floatatom 364 244 5 0 0; -#X obj 368 298 f; -#X floatatom 367 343 5 0 0; -#X obj 446 297 loadbang; -#X text 323 217 Theoretically \, a singing voice is a combination of -formants but you have to set right frequencies; -#X msg 406 298 2500; -#X obj 367 320 + 100; -#X obj 121 263 formant~ 10000 2600 50 25; -#X obj 303 263 formant~ 10000 1750 70 25; -#X obj 199 319 formant~ 20000 4500 60 25; -#X obj 466 263 formant~ 10000 1200 30 45; -#X connect 2 0 23 1; -#X connect 3 0 23 3; -#X connect 4 0 23 2; -#X connect 5 0 23 4; -#X connect 10 0 15 0; -#X connect 10 0 23 0; -#X connect 10 0 26 0; -#X connect 12 0 23 5; -#X connect 15 0 24 0; -#X connect 16 0 15 1; -#X connect 17 0 22 0; -#X connect 17 0 25 2; -#X connect 19 0 21 0; -#X connect 21 0 17 1; -#X connect 22 0 17 1; -#X connect 22 0 18 0; -#X connect 23 0 14 0; -#X connect 23 0 14 1; -#X connect 23 1 17 0; -#X connect 23 1 25 0; -#X connect 24 0 14 1; -#X connect 24 0 14 0; -#X connect 25 0 14 1; -#X connect 25 0 14 0; -#X connect 25 1 10 0; -#X connect 26 0 14 1; -#X connect 26 0 14 0; diff --git a/formant~/formant~.c b/formant~/formant~.c deleted file mode 100644 index 686974b..0000000 --- a/formant~/formant~.c +++ /dev/null @@ -1,253 +0,0 @@ -/* ------------------------ formant~ ------------------------------------------ */ -/* */ -/* Tilde object to produce formant synthesis. */ -/* By using several ones, you should be able to generate voice sounds. */ -/* Written by Yves Degoyon ( ydegoyon@free.fr ) */ -/* */ -/* This program is free software; you can redistribute it and/or */ -/* modify it under the terms of the GNU General Public License */ -/* as published by the Free Software Foundation; either version 2 */ -/* of the License, or (at your option) any later version. */ -/* */ -/* See file LICENSE for further informations on licensing terms. */ -/* */ -/* This program 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 General Public License for more details. */ -/* */ -/* You should have received a copy of the GNU General Public License */ -/* along with this program; if not, write to the Free Software */ -/* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ -/* */ -/* Based on PureData by Miller Puckette and others. */ -/* Also inspired by an article by Jean-Paul Smets - Solanes */ -/* */ -/* ---------------------------------------------------------------------------- */ - - - -#include -#include -#include -#include -#include -#include -#include -#ifndef __APPLE__ -#include -#endif -#include -#ifdef UNIX -#include -#endif -#ifdef NT -#define M_PI 3.14159265358979323846 -#endif -#include - -#include /* standard pd stuff */ - -static char *formant_version = "formant~: formant synthesis version 0.1, written by Yves Degoyon"; - - -static t_class *formant_class; - -typedef struct _formant -{ - t_object x_obj; - - t_int x_size; /* size of the sample */ - t_float x_central_freq; /* central frequency of the filter */ - t_float x_filter_width; /* width of the filter */ - t_float x_skirt_width; /* width of the skirt */ - t_float x_samplerate; /* sample rate */ - t_float x_time_stretch; /* time stretch */ - t_int x_readpos; /* data's reading position */ - t_int x_play; /* playing on/off flag */ - t_outlet *x_end; /* outlet for outputing a bang at the end */ - t_float x_gendata; /* flag to avoid reading data during generation ( might be null )*/ - t_float* x_data; /* sample containing formant synthesis*/ - -} t_formant; - - /* clean up */ -static void formant_free(t_formant *x) -{ - if ( x->x_data != NULL ) { - freebytes(x->x_data, x->x_size*sizeof(float) ); - x->x_data = NULL; - } -} - - /* generate sample data */ -static t_int formant_gendata(t_formant *x) -{ - t_float t, b, fs; - - if ( x->x_size <= 0 || x->x_central_freq <= 0 || x->x_filter_width <= 0 || x->x_skirt_width <= 0 ) { - error( "formant~ : error generating data : negative or null parameter(s)" ); - return -1; - } - - x->x_gendata = 1; - - /* freeing data */ - formant_free( x ); - if ( !( x->x_data = (float*) getbytes( x->x_size*sizeof(float) ) ) ) { - post( "formant~ : error generating data : cannot allocate table" ); - return -1; - } - - fs = 0; - while( fs < x->x_size-1 ) { - t = (fs/x->x_samplerate) * x->x_time_stretch; /* time taken from zero */ - b = M_PI / x->x_skirt_width ; - if ( t < b ) { - *(x->x_data+(int)fs) = 0.5*(1-cos(x->x_skirt_width*t))*exp(- x->x_filter_width*t )*sin( x->x_central_freq*t); - } else { - *(x->x_data+(int)fs) = exp(- x->x_filter_width*t )*sin( x->x_central_freq*t); - } - fs++; - } - - /* everything went fine */ - x->x_gendata = 0; - return 0; -} - - /* generates a formant */ -static t_int *formant_perform(t_int *w) -{ - t_formant *x = (t_formant *)(w[1]); - t_float *out = (t_float *)(w[2]); - int n = (int)(w[3]); /* number of samples */ - - while (n--) { - if ( !x->x_gendata && x->x_play) { - *out=*(x->x_data+x->x_readpos); - x->x_readpos = (x->x_readpos+1)%x->x_size; - if ( x->x_readpos == 0 ) { - x->x_play=0; - outlet_bang(x->x_end); - } - } else { - *out=0.0; - } - out++; - } - return (w+4); -} - -static void formant_dsp(t_formant *x, t_signal **sp) -{ - dsp_add(formant_perform, 3, x, sp[0]->s_vec, sp[0]->s_n); -} - - /* replay the sample */ -static void formant_bang(t_formant *x, t_floatarg fsize) -{ - x->x_play=1; - x->x_readpos=0; -} - - /* set size of the sample */ -static void formant_size(t_formant *x, t_floatarg fsize) -{ - if ( fsize <= 0 ) { - post( "formant~ : error : sample size should be >0" ); - return; - } - x->x_size = fsize; - formant_gendata( x ); -} - - /* set central frequency of the formant */ -static void formant_central_freq(t_formant *x, t_floatarg ffreq) -{ - if ( ffreq <= 0 ) { - post( "formant~ : error : filter central frequency should be >0" ); - return; - } - x->x_central_freq = ffreq; - formant_gendata( x ); -} - - /* set filter width of the formant */ -static void formant_filter_width(t_formant *x, t_floatarg fwidth) -{ - if ( fwidth <= 0 ) { - post( "formant~ : error : filter width should be >0" ); - return; - } - x->x_filter_width = fwidth; - formant_gendata( x ); -} - - /* set skirt width of the formant */ -static void formant_skirt_width(t_formant *x, t_floatarg swidth) -{ - if ( swidth <= 0 ) { - post( "formant~ : error : skirt width should be >0" ); - return; - } - x->x_skirt_width = swidth; - formant_gendata( x ); -} - - /* set time stretch factor */ -static void formant_time_stretch(t_formant *x, t_floatarg fstretch) -{ - if ( fstretch <= 0 ) { - post( "formant~ : error : time stretch should be >0" ); - return; - } - x->x_time_stretch = fstretch; - formant_gendata( x ); -} - -static void *formant_new(t_floatarg fsize, t_floatarg ffreq, t_floatarg ffwidth, t_floatarg fswidth) -{ - t_formant *x = (t_formant *)pd_new(formant_class); - outlet_new(&x->x_obj, &s_signal); - - if ( fsize <= 0 || ffreq <= 0 || ffwidth <= 0 || fswidth <= 0 ) { - error( "formant~ : missing or negative creation arguments" ); - return NULL; - } - - x->x_size = fsize; - x->x_central_freq = ffreq; - x->x_filter_width = ffwidth; - x->x_skirt_width = fswidth; - x->x_readpos = 0; - x->x_data = NULL; - x->x_time_stretch = 1.0; - x->x_samplerate = sys_getsr(); - inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("size")); - inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("freq")); - inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("fwidth")); - inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("swidth")); - inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("stretch")); - x->x_end = outlet_new( &x->x_obj, &s_bang ); - if ( formant_gendata( x ) ) { - post( "formant~ : error generating data" ); - return NULL; - } else { - return(x); - } -} - -void formant_tilde_setup(void) -{ - post(formant_version); - formant_class = class_new(gensym("formant~"), (t_newmethod)formant_new, (t_method)formant_free, - sizeof(t_formant), 0, A_DEFFLOAT, A_DEFFLOAT, A_DEFFLOAT, A_DEFFLOAT, 0); - class_addmethod(formant_class, (t_method)formant_dsp, gensym("dsp"), 0); - class_addmethod(formant_class, (t_method)formant_size, gensym("size"), A_FLOAT, 0); - class_addmethod(formant_class, (t_method)formant_bang, gensym("bang"), 0); - class_addmethod(formant_class, (t_method)formant_central_freq, gensym("freq"), A_FLOAT, 0); - class_addmethod(formant_class, (t_method)formant_filter_width, gensym("fwidth"), A_FLOAT, 0); - class_addmethod(formant_class, (t_method)formant_skirt_width, gensym("swidth"), A_FLOAT, 0); - class_addmethod(formant_class, (t_method)formant_time_stretch, gensym("stretch"), A_FLOAT, 0); -} -- cgit v1.2.1