diff options
author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-07-31 03:59:16 +0000 |
---|---|---|
committer | IOhannes m zmölnig <zmoelnig@iem.at> | 2015-10-14 15:23:30 +0200 |
commit | d145fa6f792d6c44da2feec90507adb94e40323e (patch) | |
tree | ae3aaf213dbb4273331745802ef1259dce8e2986 /beatify~ | |
parent | 67af8f6b3f179d5b4ba0747ab971abbeecbedd45 (diff) |
got everything building using the template Makefile
svn path=/trunk/externals/unauthorized/; revision=15173
Diffstat (limited to 'beatify~')
-rw-r--r-- | beatify~/INSTALL | 15 | ||||
-rw-r--r-- | beatify~/beatify~-help.pd | 36 | ||||
-rw-r--r-- | beatify~/beatify~.c | 177 |
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); -} |