bartoa.pd

#N canvas 37 173 1680 980 12;
#X obj 65 141 inlet~;
#X obj 142 615 outlet;
#X obj 49 619 outlet~;
#X obj 238 137 receive bartoa_tempo;
#X obj 970 23 receive bartoa_control;
#X obj 970 214 list trim;
#X msg 970 235 bartoa key 1 q 113, f 37;
#X obj 970 193 list prepend set;
#X floatatom 141 213 5 0 0 0 - - -;
#X obj 970 379 phasor~;
#X obj 970 413 *~ 2;
#X obj 970 435 -~ 1;
#X obj 970 467 phasor~;
#X obj 970 494 expr~ $v1 > 0.5;
#X obj 970 530 *~ 2;
#X obj 970 552 -~ 1;
#X text 1050 379 Sawtooth wave;
#X text 1080 466 Square wave;
#X obj 285 387 delread~ bartoa_delay1;
#X obj 142 372 +~;
#X text 966 274 Potential Future Changes: Use mouse cursor to control
pitch and delay time? It clicks whenever the delay changes however.
If this can be smoothed \, like the line functionality for volume \,
then this control method will be ideal.;
#N canvas 0 23 1680 980 bartoa_pitch_controller 0;
#X floatatom 165 45 5 0 0 0 - - -;
#X obj 165 68 select 122 115 120 100 99 118 103 98 104 110 106 109
44;
#X msg 165 92 60;
#X msg 194 113 61;
#X msg 223 135 62;
#X msg 253 156 63;
#X msg 283 177 64;
#X msg 312 198 65;
#X msg 341 219 66;
#X msg 371 241 67;
#X msg 400 263 68;
#X msg 429 285 69;
#X msg 458 308 70;
#X msg 488 331 71;
#X msg 517 353 72;
#X floatatom 29 48 5 0 0 0 - - -;
#X obj 29 71 select 111 112;
#X obj 29 110 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 76 110 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 29 184 +;
#X floatatom 29 221 5 0 0 0 - - -;
#X obj 166 372 +;
#X msg 29 140 -12;
#X msg 76 140 12;
#X floatatom 166 396 5 0 0 0 - - -;
#X obj 166 419 outlet;
#X obj 29 24 inlet;
#X text 225 23 ROB - replaced [key] here;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 1 2 4 0;
#X connect 1 3 5 0;
#X connect 1 4 6 0;
#X connect 1 5 7 0;
#X connect 1 6 8 0;
#X connect 1 7 9 0;
#X connect 1 8 10 0;
#X connect 1 9 11 0;
#X connect 1 10 12 0;
#X connect 1 11 13 0;
#X connect 1 12 14 0;
#X connect 2 0 21 0;
#X connect 3 0 21 0;
#X connect 4 0 21 0;
#X connect 5 0 21 0;
#X connect 6 0 21 0;
#X connect 7 0 21 0;
#X connect 8 0 21 0;
#X connect 9 0 21 0;
#X connect 10 0 21 0;
#X connect 11 0 21 0;
#X connect 12 0 21 0;
#X connect 13 0 21 0;
#X connect 14 0 21 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 16 1 18 0;
#X connect 17 0 22 0;
#X connect 18 0 23 0;
#X connect 19 0 20 0;
#X connect 20 0 19 1;
#X connect 20 0 21 1;
#X connect 21 0 24 0;
#X connect 22 0 19 0;
#X connect 23 0 19 0;
#X connect 24 0 25 0;
#X connect 26 0 15 0;
#X connect 26 0 0 0;
#X restore 141 180 pd bartoa_pitch_controller;
#N canvas 1230 274 450 300 bartoa_delay_controller 0;
#X floatatom 38 42 5 0 0 0 - - -;
#X obj 38 105 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 85 108 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 38 141 10;
#X obj 33 184 +;
#X floatatom 33 209 5 0 0 0 - - -;
#X msg 85 142 -10;
#X obj 38 67 select 119 113;
#X obj 33 232 outlet;
#X obj 117 21 inlet;
#X text 166 22 ROB - take the key out of here \, use a global one with
your name on it to prevent confusion with other patches;
#X obj 960 212 list trim;
#X obj 960 236 route zhaox10;
#X obj 960 260 route key;
#X connect 0 0 7 0;
#X connect 1 0 3 0;
#X connect 2 0 6 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 4 1;
#X connect 5 0 8 0;
#X connect 6 0 4 0;
#X connect 7 0 1 0;
#X connect 7 1 2 0;
#X connect 9 0 0 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X restore 285 327 pd bartoa_delay_controller;
#X obj 286 292 delwrite~ bartoa_delay1 3000;
#X floatatom 285 358 5 0 0 0 - - -;
#N canvas 0 23 1920 997 bartoa_sound1 0;
#X obj 71 31 inlet;
#X obj 104 100 mtof;
#X obj 104 305 osc~;
#X obj 160 165 * 2;
#X obj 230 165 * 3;
#X obj 300 165 * 4;
#X obj 160 375 +~;
#X obj 160 397 +~;
#X obj 160 479 *~;
#X obj 104 497 +~;
#X text 239 480 toggle overtones;
#X floatatom 66 123 5 0 0 0 - - -;
#X floatatom 168 188 5 0 0 0 - - -;
#X floatatom 241 188 5 0 0 0 - - -;
#X floatatom 313 189 5 0 0 0 - - -;
#X obj 370 254 osc~;
#X floatatom 383 189 5 0 0 0 - - -;
#X obj 370 165 * 5;
#X obj 430 254 osc~;
#X floatatom 443 189 5 0 0 0 - - -;
#X obj 430 165 * 6;
#X obj 370 316 *~ 0.1;
#X obj 430 316 *~ 0.1;
#X obj 160 420 +~;
#X obj 160 443 +~;
#X obj 160 253 phasor~;
#X obj 161 317 *~ 0.1;
#X obj 230 253 phasor~;
#X obj 230 316 *~ 0.2;
#X obj 299 316 *~ 0.2;
#X obj 300 254 osc~;
#X obj 105 596 outlet~;
#X msg 304 437 1;
#X obj 396 432 loadbang;
#X connect 0 0 1 0;
#X connect 1 0 11 0;
#X connect 1 0 20 0;
#X connect 1 0 17 0;
#X connect 1 0 5 0;
#X connect 1 0 4 0;
#X connect 1 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 9 0;
#X connect 3 0 12 0;
#X connect 3 0 25 0;
#X connect 4 0 13 0;
#X connect 4 0 27 0;
#X connect 5 0 14 0;
#X connect 5 0 30 0;
#X connect 6 0 7 0;
#X connect 7 0 23 0;
#X connect 8 0 9 1;
#X connect 9 0 31 0;
#X connect 15 0 21 0;
#X connect 17 0 15 0;
#X connect 17 0 16 0;
#X connect 18 0 22 0;
#X connect 20 0 18 0;
#X connect 20 0 19 0;
#X connect 21 0 23 1;
#X connect 22 0 24 1;
#X connect 23 0 24 0;
#X connect 24 0 8 0;
#X connect 25 0 26 0;
#X connect 26 0 6 0;
#X connect 27 0 28 0;
#X connect 28 0 6 1;
#X connect 29 0 7 1;
#X connect 30 0 29 0;
#X connect 32 0 8 1;
#X connect 33 0 32 0;
#X restore 141 242 pd bartoa_sound1;
#X obj 141 504 *~;
#X obj 246 439 loadbang;
#X msg 248 470 0;
#X obj 141 558 throw~ bartoa_audio_1;
#X msg 210 470 0.5;
#X text 507 227 The "gimmick" of this patch is manipulating the delay
time of the delwrite and delread features to create new kinds of sounds
with the admittedly simple sound wave. When performing \, the delay
time is intended to be changed frequently with the Q and W keys.;
#X text 508 309 This patch is primarily controlled by the bottom two
rows of letter keys on the keyboard (Z through \, ) not unlike a piano.
Z translates to middle C \, S translates to C# \, X translates to D
\, etc etc etc. It's not unlike the piano controls for FL Studio.;
#X text 512 395 Additional controls: O - Lower octave by 1 P - Raise
octave by 1 Q - Lower the delay time by 10s. W - Raise the delay time
by 10s.;
#X obj 492 130 key;
#X text 476 160 ROB - use a global key controller with your name in
the message to avoid confusion with other patches;
#X obj 404 559 receive bartoa_control;
#X obj 987 52 list trim;
#X obj 987 98 route key;
#X obj 987 122 unpack f s f;
#X floatatom 987 146 5 0 0 0 - - -;
#X symbolatom 1028 147 10 0 0 0 - - -;
#X floatatom 1105 147 5 0 0 0 - - -;
#X obj 987 75 route bartoa;
#X obj 1105 170 s key_\$0;
#X obj 405 161 r key_\$0;
#X obj 404 583 print;
#X text 93 18 Andrew Barton;
#X connect 4 0 7 0;
#X connect 4 0 37 0;
#X connect 5 0 6 0;
#X connect 7 0 5 0;
#X connect 8 0 25 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 18 0 19 1;
#X connect 19 0 26 0;
#X connect 21 0 8 0;
#X connect 22 0 24 0;
#X connect 24 0 18 0;
#X connect 25 0 19 0;
#X connect 25 0 23 0;
#X connect 26 0 2 0;
#X connect 26 0 29 0;
#X connect 27 0 30 0;
#X connect 28 0 26 1;
#X connect 30 0 26 1;
#X connect 37 0 43 0;
#X connect 38 0 39 0;
#X connect 39 0 40 0;
#X connect 39 1 41 0;
#X connect 39 2 42 0;
#X connect 42 0 44 0;
#X connect 43 0 38 0;
#X connect 45 0 21 0;
#X connect 45 0 22 0;