aboutsummaryrefslogtreecommitdiff
path: root/beatify~
diff options
context:
space:
mode:
Diffstat (limited to 'beatify~')
-rw-r--r--beatify~/INSTALL15
-rw-r--r--beatify~/beatify~-help.pd36
-rw-r--r--beatify~/beatify~.c177
3 files changed, 0 insertions, 228 deletions
diff --git a/beatify~/INSTALL b/beatify~/INSTALL
deleted file mode 100644
index db33979..0000000
--- a/beatify~/INSTALL
+++ /dev/null
@@ -1,15 +0,0 @@
-untar in /my/pd/dir/externs
-
-cd /my/pd/dir/externs/beatify~
-
-make clean
-
-make
-
-make install
-
-open help-beatify~.pd
-
-Thanx for getting here.
-Yves/
-comments and bugs @ ydegoyon@free.fr
diff --git a/beatify~/beatify~-help.pd b/beatify~/beatify~-help.pd
deleted file mode 100644
index 16577a0..0000000
--- a/beatify~/beatify~-help.pd
+++ /dev/null
@@ -1,36 +0,0 @@
-#N canvas 45 57 695 405 10;
-#X obj 86 268 dac~;
-#X text 288 313 comments & bugs @ ydegoyon.free.fr;
-#X floatatom 143 104 5 -100 500;
-#X text 244 42 musiscript \, an excellent sound generation tool;
-#X text 245 53 by David Piott ( http://musicscript.sourceforge.net
-);
-#X text 243 32 The idea was borrowed from;
-#X floatatom 171 129 5 -100 500;
-#X floatatom 194 156 5 -100 500;
-#X floatatom 210 183 5 0 0;
-#X floatatom 277 211 5 -100 500;
-#X obj 233 213 / 100;
-#X obj 108 41 osc~ 400;
-#X text 268 273 Note : the default values are tuned for the osc~ input
-;
-#X text 268 286 You might need to set other values for your source
-;
-#X text 188 103 attack [ min=1.0 \, default= 10 ];
-#X text 215 128 sustain [ min=0.0 \, default=2.0 ];
-#X text 238 155 decay [ min=1.0 \, default = 50 ];
-#X text 254 182 size [ min=1.0 \, default = 700 ];
-#X text 321 210 global amplitude [ min=0.0 \, max=1.0 \, default=0.5]
-;
-#X obj 107 237 beatify~ -------------;
-#X text 244 19 Beatify~ : an audio amplitude modulator [ ADSR + loop
-size ];
-#X connect 2 0 19 1;
-#X connect 6 0 19 2;
-#X connect 7 0 19 3;
-#X connect 8 0 19 4;
-#X connect 9 0 10 0;
-#X connect 10 0 19 5;
-#X connect 11 0 19 0;
-#X connect 19 0 0 0;
-#X connect 19 0 0 1;
diff --git a/beatify~/beatify~.c b/beatify~/beatify~.c
deleted file mode 100644
index 69c2dd0..0000000
--- a/beatify~/beatify~.c
+++ /dev/null
@@ -1,177 +0,0 @@
-/* Copyright (c) 2002 Yves Degoyon. */
-/* For information on usage and redistribution, and for a DISCLAIMER OF ALL */
-/* WARRANTIES, see the file, "COPYING" in this distribution. */
-/* */
-/* beatify~ -- modulates an audio signal amplitude, */
-/* making it sounding like drums (sometimes) */
-/* */
-/* 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. */
-/* */
-/* Made while listening to : */
-/* */
-/* "We wanted succes" */
-/* "We got lost into the night" */
-/* "Take life as it comes" */
-/* PJ Harvey -- We Float */
-/* ---------------------------------------------------------------------------- */
-
-#include "m_pd.h"
-#include <stdlib.h>
-#include <math.h>
-
-static char *beatify_version = "beatify~: an audio beatify, version 0.1 (ydegoyon@free.fr)";
-
-typedef struct _beatify
-{
- t_object x_obj;
- t_float x_attack;
- t_float x_sustain;
- t_float x_decay;
- t_float x_size;
- t_float x_gamplitude;
- t_float x_vol;
- t_int x_current;
- t_float x_f;
-} t_beatify;
-
-static t_class *beatify_class;
-
-static void beatify_attack(t_beatify *x, t_floatarg fattack )
-{
- if (fattack < 1.0)
- {
- x->x_attack = 1.0;
- }
- else
- {
- x->x_attack = fattack;
- }
-}
-
-static void beatify_sustain(t_beatify *x, t_floatarg fsustain )
-{
- if (fsustain < 0.0)
- {
- x->x_sustain = 0.0;
- }
- else
- {
- x->x_sustain = fsustain;
- }
-}
-
-static void beatify_decay(t_beatify *x, t_floatarg fdecay )
-{
- if (fdecay < 1.0)
- {
- x->x_decay = 1.0;
- }
- else
- {
- x->x_decay = fdecay;
- }
-}
-
-static void beatify_size(t_beatify *x, t_floatarg fsize )
-{
- if (fsize < 100.0)
- {
- x->x_size = 100.0;
- }
- else
- {
- x->x_size = fsize;
- }
-}
-
-static void beatify_gamplitude(t_beatify *x, t_floatarg fgamplitude )
-{
- if (fgamplitude < 0.0) {
- x->x_gamplitude = 0.0;
- } else if (fgamplitude > 1.0) {
- x->x_gamplitude = 1.0;
- } else {
- x->x_gamplitude = fgamplitude;
- }
-}
-
-static void *beatify_new(void)
-{
- t_beatify *x = (t_beatify *)pd_new(beatify_class);
- inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("attack"));
- inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("sustain"));
- inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("decay"));
- 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("gamplitude"));
- x->x_attack = 10;
- x->x_decay = 50;
- x->x_sustain = 2;
- x->x_size = 700;
- x->x_gamplitude = 0.5;
- x->x_current = x->x_size;
- outlet_new(&x->x_obj, &s_signal);
- return (x);
-}
-
-static t_int *beatify_perform(t_int *w)
-{
- t_float *in = (t_float *)(w[1]);
- t_float *out = (t_float *)(w[2]);
- t_int n = (int)(w[3]);
- t_beatify *x = (t_beatify*)(w[4]);
- t_float adelta = 0., ddelta = 0.;
-
- while (n--) {
- if ( x->x_current>=x->x_size )
- {
- adelta = (x->x_gamplitude-x->x_vol)/x->x_attack;
- ddelta = x->x_gamplitude/x->x_decay;
- x->x_current = 0;
- }
- if ( x->x_current<x->x_attack ) x->x_vol+= adelta;
- if ( x->x_current>x->x_attack+x->x_sustain && x->x_current<x->x_attack+x->x_sustain+x->x_decay )
- {
- x->x_vol-= ddelta;
- }
- x->x_current++;
-
- *(out) = *(in)*x->x_vol;
- out++; in++;
- }
- return (w+5);
-}
-
-static void beatify_dsp(t_beatify *x, t_signal **sp)
-{
- dsp_add(beatify_perform, 4, sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n, x );
-}
-
-void beatify_tilde_setup(void)
-{
- post( beatify_version );
- beatify_class = class_new(gensym("beatify~"), (t_newmethod)beatify_new, 0,
- sizeof(t_beatify), 0, 0);
- CLASS_MAINSIGNALIN( beatify_class, t_beatify, x_f );
- class_addmethod(beatify_class, (t_method)beatify_dsp, gensym("dsp"), 0);
- class_addmethod(beatify_class, (t_method)beatify_attack, gensym("attack"), A_FLOAT, 0);
- class_addmethod(beatify_class, (t_method)beatify_sustain, gensym("sustain"), A_FLOAT, 0);
- class_addmethod(beatify_class, (t_method)beatify_decay, gensym("decay"), A_FLOAT, 0);
- class_addmethod(beatify_class, (t_method)beatify_size, gensym("size"), A_FLOAT, 0);
- class_addmethod(beatify_class, (t_method)beatify_gamplitude, gensym("gamplitude"), A_FLOAT, 0);
-}