diff --git a/assignment2_recording_rothgj.wav b/assignment2_recording_rothgj.wav deleted file mode 100644 index e638557..0000000 Binary files a/assignment2_recording_rothgj.wav and /dev/null differ diff --git a/bartoa.pd b/bartoa.pd index 103a4ab..71cf360 100644 --- a/bartoa.pd +++ b/bartoa.pd @@ -1,30 +1,29 @@ -#N canvas 1912 -8 1920 997 12; -#X obj 65 21 inlet~; -#X obj 142 495 outlet; -#X obj 49 499 outlet~; -#X obj 238 17 receive bartoa_tempo; -#X obj 970 43 receive bartoa_control; -#X obj 970 94 list trim; -#X msg 970 115 1 2 3 4 5, f 37; -#X obj 970 73 list prepend set; -#X floatatom 141 93 5 0 0 0 - - -; -#X obj 970 259 phasor~; -#X obj 970 293 *~ 2; -#X obj 970 315 -~ 1; -#X obj 970 347 phasor~; -#X obj 970 374 expr~ $v1 > 0.5; -#X obj 970 410 *~ 2; -#X obj 970 432 -~ 1; -#X text 1050 259 Sawtooth wave; -#X text 1080 346 Square wave; -#X obj 285 267 delread~ bartoa_delay1; -#X obj 142 252 +~; -#X text 966 154 Potential Future Changes: Use mouse cursor to control +#N canvas 0 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 Meta_L 0, 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 1912 -8 1920 997 bartoa_pitch_controller 0; -#X obj 165 21 key; +#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; @@ -41,7 +40,6 @@ then this control method will be ideal.; #X msg 458 308 70; #X msg 488 331 71; #X msg 517 353 72; -#X obj 29 24 key; #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 @@ -55,50 +53,51 @@ then this control method will be ideal.; #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 2 0 3 0; -#X connect 2 1 4 0; -#X connect 2 2 5 0; -#X connect 2 3 6 0; -#X connect 2 4 7 0; -#X connect 2 5 8 0; -#X connect 2 6 9 0; -#X connect 2 7 10 0; -#X connect 2 8 11 0; -#X connect 2 9 12 0; -#X connect 2 10 13 0; -#X connect 2 11 14 0; -#X connect 2 12 15 0; -#X connect 3 0 23 0; -#X connect 4 0 23 0; -#X connect 5 0 23 0; -#X connect 6 0 23 0; -#X connect 7 0 23 0; -#X connect 8 0 23 0; -#X connect 9 0 23 0; -#X connect 10 0 23 0; -#X connect 11 0 23 0; -#X connect 12 0 23 0; -#X connect 13 0 23 0; -#X connect 14 0 23 0; -#X connect 15 0 23 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 17 0 18 0; -#X connect 18 0 19 0; -#X connect 18 1 20 0; -#X connect 19 0 24 0; -#X connect 20 0 25 0; -#X connect 21 0 22 0; -#X connect 22 0 21 1; -#X connect 22 0 23 1; -#X connect 23 0 26 0; -#X connect 24 0 21 0; -#X connect 25 0 21 0; -#X connect 26 0 27 0; -#X restore 141 60 pd bartoa_pitch_controller; -#N canvas 2395 274 450 300 bartoa_delay_controller 0; -#X obj 38 18 key; +#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; @@ -110,20 +109,28 @@ then this control method will be ideal.; #X msg 85 142 -10; #X obj 38 67 select 119 113; #X obj 33 232 outlet; -#X connect 0 0 1 0; -#X connect 1 0 8 0; -#X connect 2 0 4 0; -#X connect 3 0 7 0; +#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 6 0; -#X connect 6 0 5 1; -#X connect 6 0 9 0; -#X connect 7 0 5 0; -#X connect 8 0 2 0; -#X connect 8 1 3 0; -#X restore 285 207 pd bartoa_delay_controller; -#X obj 286 172 delwrite~ bartoa_delay1 3000; -#X floatatom 285 238 5 0 0 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 1912 -8 1920 997 bartoa_sound1 0; #X obj 71 31 inlet; #X obj 104 100 mtof; @@ -196,24 +203,40 @@ then this control method will be ideal.; #X connect 30 0 29 0; #X connect 32 0 8 1; #X connect 33 0 32 0; -#X restore 141 122 pd bartoa_sound1; -#X obj 141 384 *~; -#X obj 246 319 loadbang; -#X msg 248 350 0; -#X obj 141 438 throw~ bartoa_audio_1; -#X msg 210 350 0.5; -#X text 507 107 The "gimmick" of this patch is manipulating the delay +#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 189 This patch is primarily controlled by the bottom two +#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 275 Additional controls: O - Lower octave by 1 P - Raise +#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 530 139 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; @@ -234,3 +257,12 @@ by 10s.; #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; diff --git a/bpmtoms.pd b/bpmtoms.pd index aa6c1f1..04a4e41 100644 --- a/bpmtoms.pd +++ b/bpmtoms.pd @@ -7,10 +7,10 @@ #X obj 327 101 inlet; #X obj 327 236 outlet; #X text 174 31 Convert BPM to MS for Metro; -#X floatatom 167 120 5 0 0 0 - - -; -#X text 171 100 bpm; -#X floatatom 221 121 10 0 0 0 - - -; -#X text 244 101 ms; +#X floatatom 167 137 5 0 0 0 - - -; +#X text 171 119 bpm; +#X floatatom 221 138 10 0 0 0 - - -; +#X text 244 120 ms; #X obj 410 102 inlet; #X floatatom 410 126 5 0 0 0 - - -; #X floatatom 467 203 10 0 0 0 - - -; @@ -36,4 +36,4 @@ #X connect 16 0 8 0; #X connect 18 0 19 0; #X connect 19 0 17 0; -#X coords 0 -1 1 1 220 48 2 90 100; +#X coords 0 -1 1 1 220 60 2 90 100; diff --git a/class_keycontrollers.pd b/class_keycontrollers.pd new file mode 100644 index 0000000..253b66e --- /dev/null +++ b/class_keycontrollers.pd @@ -0,0 +1,42 @@ +#N canvas 192 142 765 562 12; +#X obj 217 82 key; +#X floatatom 217 108 5 0 0 0 - - -; +#X obj 172 82 keyup; +#X floatatom 172 108 5 0 0 0 - - -; +#X obj 45 81 keyname; +#X text 293 80 key: 119 keyname_s: symbol w keyname: 1 keyup: 119 keyname_s: +symbol w keyname: 0; +#X obj 104 141 pack f s; +#X obj 104 177 list append; +#X obj 104 208 list prepend key; +#X obj 104 236 list prepend \$1; +#X obj 104 327 s \$1_control; +#X symbolatom 91 107 10 0 0 0 - - -; +#X floatatom 45 107 5 0 0 0 - - -; +#X text 28 37 SEND KEYSTROKE DATA TO EACH USER'S UNIQUE SEND; +#X obj 197 327 outlet; +#X obj 104 267 gate; +#X obj 315 250 tgl 18 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +1; +#X obj 249 248 inlet; +#X symbolatom 335 250 10 0 0 0 - - -; +#X msg 335 222 \$1; +#X obj 335 172 loadbang; +#X connect 0 0 1 0; +#X connect 1 0 7 1; +#X connect 2 0 3 0; +#X connect 3 0 7 1; +#X connect 4 0 12 0; +#X connect 4 1 11 0; +#X connect 6 0 7 0; +#X connect 7 0 8 0; +#X connect 8 0 9 0; +#X connect 9 0 15 0; +#X connect 11 0 6 1; +#X connect 12 0 6 0; +#X connect 15 0 10 0; +#X connect 15 1 14 0; +#X connect 16 0 15 1; +#X connect 17 0 15 1; +#X connect 19 0 18 0; +#X connect 20 0 19 0; diff --git a/clone_phasor.pd b/clone_phasor.pd new file mode 100644 index 0000000..da1cdb4 --- /dev/null +++ b/clone_phasor.pd @@ -0,0 +1,35 @@ +#N canvas 0 23 919 746 12; +#X obj 130 321 phasor~; +#X obj 130 269 mtof; +#X obj 130 175 unpack f f f; +#X floatatom 130 199 5 0 0 0 - - -; +#X floatatom 170 199 5 0 0 0 - - -; +#X floatatom 210 199 5 0 0 0 - - -; +#X obj 210 321 line~; +#X obj 210 222 / 127; +#X floatatom 210 246 5 0 0 0 - - -; +#X obj 130 377 dac~; +#X msg 210 269 \$1 10; +#X obj 130 222 + 36; +#X floatatom 130 246 5 0 0 0 - - -; +#X floatatom 130 293 5 0 0 0 - - -; +#X obj 130 353 *~; +#X obj 129 114 inlet; +#X obj 151 148 print; +#X connect 0 0 14 0; +#X connect 1 0 13 0; +#X connect 2 0 3 0; +#X connect 2 1 4 0; +#X connect 2 2 5 0; +#X connect 3 0 11 0; +#X connect 5 0 7 0; +#X connect 6 0 14 1; +#X connect 7 0 8 0; +#X connect 8 0 10 0; +#X connect 10 0 6 0; +#X connect 11 0 12 0; +#X connect 12 0 1 0; +#X connect 13 0 0 0; +#X connect 14 0 9 0; +#X connect 15 0 2 0; +#X coords 0 -1 1 1 300 500 1 100 100; diff --git a/dsp_onoff.pd b/dsp_onoff.pd index 215d2ab..eecefc0 100644 --- a/dsp_onoff.pd +++ b/dsp_onoff.pd @@ -2,9 +2,9 @@ #X msg 106 203 \; pd dsp 0; #X msg 175 203 \; pd dsp 1; #X text 250 210 <-- Turn DSP on by clicking here; -#X obj 106 116 tgl 20 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +#X obj 106 121 tgl 20 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; -#X text 131 117 DSP on/off; +#X text 131 122 DSP on/off; #X msg 106 163 \; pd dsp \$1; #X connect 3 0 5 0; -#X coords 0 -1 1 1 110 50 2 100 100; +#X coords 0 -1 1 1 110 60 2 100 100; diff --git a/hamilr4.pd b/hamilr4.pd index f54c0ae..d9ce0bb 100644 --- a/hamilr4.pd +++ b/hamilr4.pd @@ -1,4 +1,4 @@ -#N canvas 0 23 1920 1129 12; +#N canvas 0 23 1680 980 12; #X obj 112 997 outlet; #X obj 53 997 outlet~; #X text 184 995 Two outlets: the first is an audio outlet (note the @@ -14,34 +14,34 @@ the second is for data; #X obj 1030 97 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 1184 119 list trim; -#X msg 1184 140 hamilr4 key 1 Meta_L 0; +#X msg 1184 140 hamilr4 key 0 Shift_L 0; #X obj 1184 98 list prepend set; #X text 1030 0 Two named receives \, one for tempo (receives a "bang" event from the global clock metro) and the other receives a list of control data... this can be any size.; -#N canvas 0 23 450 300 notes 0; -#X msg 983 782 masheen_meter_no_text; -#X msg 984 728 \; masheen_meter_no_text scale \$1; -#X msg 984 697 0; -#X msg 985 825 \; foo7_rcv label_pos \$1 \$2; -#X text 701 667 Sends to set properties of meter text:; -#X obj 1265 673 f; -#X msg 1243 652 bang; -#X floatatom 1281 651 3 50 88 0 - - -; -#X floatatom 1316 673 3 0 37 0 - - -; -#X obj 1265 696 pack 0 0; -#X text 1343 673 y-label; -#X text 1309 651 x-label; -#X obj 1285 788 f; -#X msg 1263 767 bang; -#X floatatom 1301 766 3 0 2 0 - - -; -#X floatatom 1336 788 3 8 36 0 - - -; -#X obj 1285 811 pack 0 0; -#X text 1329 766 font; -#X text 1365 788 height; -#X msg 1285 837 \; foo7_rcv label_font \$1 \$2; -#X msg 1265 721 \; foo7_rcv label_po`s \$1 \$2; -#X msg 783 745 \; foo7_rcv label hello; +#N canvas 0 23 974 416 notes 0; +#X msg 325 209 masheen_meter_no_text; +#X msg 326 155 \; masheen_meter_no_text scale \$1; +#X msg 326 124 0; +#X msg 327 252 \; foo7_rcv label_pos \$1 \$2; +#X text 43 94 Sends to set properties of meter text:; +#X obj 607 100 f; +#X msg 585 79 bang; +#X floatatom 623 78 3 50 88 0 - - -; +#X floatatom 658 100 3 0 37 0 - - -; +#X obj 607 123 pack 0 0; +#X text 685 100 y-label; +#X text 651 78 x-label; +#X obj 627 215 f; +#X msg 605 194 bang; +#X floatatom 643 193 3 0 2 0 - - -; +#X floatatom 678 215 3 8 36 0 - - -; +#X obj 627 238 pack 0 0; +#X text 671 193 font; +#X text 707 215 height; +#X msg 627 264 \; foo7_rcv label_font \$1 \$2; +#X msg 607 148 \; foo7_rcv label_po`s \$1 \$2; +#X msg 125 172 \; foo7_rcv label hello; #X connect 2 0 1 0; #X connect 5 0 9 0; #X connect 6 0 5 0; @@ -240,7 +240,7 @@ control data... this can be any size.; #X text 347 370 More structure... timeline; #X text 347 290 More cowbell... sounds; #X text 321 250 Show off browser examples; -#N canvas 0 23 1920 1129 more_sounds 0; +#N canvas 0 23 1680 980 more_sounds 0; #N canvas 10 23 1910 1031 additive-synthesis 0; #X floatatom 62 6 5 0 0 0 - - -; #X obj 62 25 mtof; @@ -280,21 +280,22 @@ control data... this can be any size.; #X obj 118 235 +~; #X obj 258 131 *~ 0.2; #N canvas 0 22 450 278 (subpatch) 0; -#X array additive_synth 100 float 1; -#A 0 -0.528365 -0.0236192 0.275021 0.375499 0.45438 0.558161 0.603844 -0.640299 0.860423 1.25846 1.48169 1.21951 0.638468 0.212533 0.139342 -0.141112 -0.100167 -0.514078 -0.787655 -0.796432 -0.697922 -0.657846 --0.688756 -0.770715 -0.927511 -1.08991 -1.044 -0.669687 -0.148338 0.219167 -0.357333 0.428291 0.532369 0.598713 0.620013 0.775341 1.14829 1.46252 -1.33942 0.801256 0.292188 0.134296 0.156651 -0.00637895 -0.402208 -0.740444 --0.814197 -0.723206 -0.660077 -0.67554 -0.741838 -0.877928 -1.05619 --1.08898 -0.79922 -0.286128 0.144571 0.334717 0.406011 0.503298 0.588745 -0.610226 0.709029 1.0346 1.40806 1.42548 0.967073 0.401455 0.143975 -0.156079 0.067728 -0.285363 -0.671365 -0.819183 -0.75169 -0.668662 --0.665587 -0.718383 -0.832706 -1.0117 -1.10806 -0.910661 -0.43112 0.0500877 -0.303191 0.387105 0.473476 0.572494 0.605975 0.661906 0.926184 1.3252 -1.4727 1.12459 0.536857 0.176009 0.146499 0.119337 -0.171141 -0.582427 -; +#X array additive_synth_\$0 100 float 1; +#A 0 0.218489 0.184947 0.151189 0.117254 0.0831824 0.0490132 0.0147853 +-0.0194591 -0.0536807 -0.08784 -0.121897 -0.155808 -0.189538 -0.223046 +-0.256294 -0.28924 -0.321844 -0.354072 -0.385887 -0.417252 -0.448123 +-0.478466 -0.50825 -0.537442 -0.566008 -0.593898 -0.621092 -0.647563 +-0.673278 -0.698206 -0.722301 -0.745552 -0.767934 -0.789421 -0.80998 +-0.829577 -0.848205 -0.865845 -0.882475 -0.898062 -0.912588 -0.926049 +-0.938431 -0.949718 -0.959875 -0.968906 -0.976807 -0.983568 -0.989183 +-0.993613 -0.996885 -0.998993 -0.999937 -0.999708 -0.998289 -0.995705 +-0.991961 -0.987059 -0.980993 -0.973765 -0.965402 -0.955913 -0.94531 +-0.933584 -0.92076 -0.906862 -0.891907 -0.875911 -0.858869 -0.840823 +-0.821797 -0.801812 -0.780889 -0.759034 -0.736293 -0.712695 -0.688264 +-0.663024 -0.636997 -0.610228 -0.582746 -0.554585 -0.525768 -0.49633 +-0.466313 -0.435753 -0.404684 -0.373133 -0.341145 -0.308759 -0.276014 +-0.242945 -0.209586 -0.175983 -0.142175 -0.1082 -0.0740986 -0.0399088 +-0.00567308 0.0285692; #X coords 0 1 99 -1 200 140 1 0 0; #X restore 571 223 graph; #X text 543 216 1; @@ -303,7 +304,7 @@ control data... this can be any size.; #X obj 344 314 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 344 339 metro 100; -#X obj 318 367 tabwrite~ additive_synth; +#X obj 318 367 tabwrite~ additive_synth_\$0; #X connect 0 0 1 0; #X connect 1 0 2 0; #X connect 1 0 3 0; @@ -910,7 +911,7 @@ by a second audio signal (output from the osc~ object); #X connect 11 0 16 0; #X connect 12 0 6 1; #X restore 70 306 pd ring-modulation; -#N canvas 0 23 1920 1129 fm-synthesis 0; +#N canvas 0 23 1680 980 fm-synthesis 0; #N canvas 0 22 450 278 (subpatch) 0; #X array fm 100 float 1; #A 0 0.917651 0.930842 0.942927 0.953892 0.963724 0.972387 0.979894 @@ -1563,7 +1564,7 @@ patch; #X connect 26 0 24 0; #X connect 26 1 24 1; #X restore 234 288 pd more_sounds; -#N canvas 501 23 1418 1129 more_control 0; +#N canvas 262 23 1418 980 more_control 0; #N canvas 545 23 1259 1129 keyboard-input 0; #X obj 121 157 key; #X floatatom 121 185 3 0 0 0 - - -; @@ -1657,12 +1658,8 @@ pointer location \, depending on the system.; #X connect 11 0 6 0; #X connect 11 0 13 0; #X restore 70 32 pd sequences; -#X obj 69 121 keycontrol hamilr4; -#X text 215 117 Put your username here to send all keystroke messages -to your [r username_control] receive; #X obj 68 175 receive hamilr4_control; #X obj 68 238 list trim; -#X msg 68 259 hamilr4 key 1 Meta_L 0; #X obj 68 217 list prepend set; #X obj 66 392 mouse_osx; #X text 36 102 KEYBOARD CONTROLLER; @@ -1682,7 +1679,7 @@ to your [r username_control] receive; #X obj 447 371 mtof; #X floatatom 447 394 5 0 0 0 - - -; #X obj 447 420 osc~; -#X obj 447 443 throw~ hamilr4_audio_1; +#X obj 447 453 throw~ hamilr4_audio_1; #X msg 219 895 poll; #X obj 209 932 cyclone/mousestate, f 39; #X msg 209 867 nopoll; @@ -1695,15 +1692,15 @@ to your [r username_control] receive; -228856 -1 -1 0 256; #X text 379 974 delta x; #X obj 324 957 nbx 4 14 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 10 --228856 -1 -1 -21 256; +-228856 -1 -1 0 256; #X obj 266 957 nbx 4 14 -1e+37 1e+37 0 0 empty empty empty 0 -8 0 10 --228856 -1 -1 182 256; +-228856 -1 -1 0 256; #X text 267 974 x pos; #X text 327 974 y pos; #X obj 209 955 tgl 18 0 empty empty empty 17 7 0 10 -228856 -1 -1 0 1; #X text 200 974 click; -#X obj 272 877 tgl 15 0 empty empty empty 17 7 0 10 -228856 -1 -1 1 +#X obj 272 877 tgl 15 0 empty empty empty 17 7 0 10 -228856 -1 -1 0 1; #X text 290 877 polling on/off with [metro]; #X msg 137 892 zero; @@ -1733,7 +1730,7 @@ selectring the parent patch for example.; #X text 1058 663 mode 0: screen relative; #X text 1058 678 mode 1: patch relative; #X text 1058 693 mode 2: front-most patch relative; -#X obj 933 699 tgl 15 0 empty empty empty 17 7 0 10 -228856 -1 -1 1 +#X obj 933 699 tgl 15 0 empty empty empty 17 7 0 10 -228856 -1 -1 0 1; #X text 731 697 polling on/off with [metro]; #X floatatom 984 666 5 0 0 0 - - -; @@ -1744,7 +1741,7 @@ selectring the parent patch for example.; #X obj 932 904 r username_control; #X msg 933 976 username mouse 0 683 2 0 0; #X text 33 363 MOUSE CONTROLLER - SIMPLE OSX VERSION; -#X obj 933 728 tgl 15 0 empty empty empty 17 7 0 10 -228856 -1 -1 1 +#X obj 933 728 tgl 15 0 empty empty empty 17 7 0 10 -228856 -1 -1 0 1; #X text 772 726 polling on/off toggle; #X text 600 760 open inlet for messages to cyclone/mousestate; @@ -1752,46 +1749,65 @@ selectring the parent patch for example.; #X obj 932 928 list prepend set; #X obj 933 812 list trim; #X obj 933 952 list trim; -#X connect 4 0 7 0; -#X connect 4 0 13 0; -#X connect 5 0 6 0; -#X connect 6 0 12 0; -#X connect 7 0 5 0; -#X connect 10 0 11 0; -#X connect 10 0 15 0; -#X connect 10 1 14 0; -#X connect 13 0 10 0; -#X connect 15 0 16 0; +#X obj 937 221 list prepend set; +#X obj 937 245 list trim; +#X msg 937 269 hamilr4 key 0 Shift_L 0; +#X obj 800 100 r hamilr4_control; +#X text 753 61 Listen for user on/off keyboard output control messages +/ prefixed with "onoff"; +#X obj 779 163 route onoff; +#X obj 779 187 print; +#X obj 69 121 keycontrol _hamilr4; +#X text 493 422 connect to hear; +#X text 215 117 Put your username here to send all keystroke messages +to your [r username_control] receive - remove "_" to see messages sent +to "hamilr4_control"; +#X msg 68 259 hamilr4 key 0 z 122; +#X connect 2 0 4 0; +#X connect 2 0 10 0; +#X connect 3 0 81 0; +#X connect 4 0 3 0; +#X connect 7 0 8 0; +#X connect 7 0 12 0; +#X connect 7 1 11 0; +#X connect 10 0 7 0; +#X connect 12 0 13 0; +#X connect 13 0 14 0; +#X connect 13 1 15 0; +#X connect 13 2 16 0; #X connect 16 0 17 0; -#X connect 16 1 18 0; -#X connect 16 2 19 0; -#X connect 19 0 20 0; -#X connect 20 0 21 0; +#X connect 17 0 18 0; +#X connect 18 0 19 0; #X connect 21 0 22 0; -#X connect 24 0 25 0; -#X connect 25 0 36 0; -#X connect 25 1 33 0; -#X connect 25 2 32 0; -#X connect 25 3 30 0; -#X connect 25 4 29 0; -#X connect 26 0 25 0; -#X connect 27 0 25 0; -#X connect 38 0 43 0; -#X connect 40 0 25 0; -#X connect 41 0 25 0; -#X connect 43 0 25 0; -#X connect 45 0 25 0; -#X connect 46 0 45 0; -#X connect 53 0 63 4; -#X connect 57 0 63 2; -#X connect 59 0 63 3; -#X connect 63 0 70 0; -#X connect 64 0 71 0; -#X connect 67 0 63 1; -#X connect 70 0 72 0; -#X connect 71 0 73 0; -#X connect 72 0 62 0; -#X connect 73 0 65 0; +#X connect 22 0 33 0; +#X connect 22 1 30 0; +#X connect 22 2 29 0; +#X connect 22 3 27 0; +#X connect 22 4 26 0; +#X connect 23 0 22 0; +#X connect 24 0 22 0; +#X connect 35 0 40 0; +#X connect 37 0 22 0; +#X connect 38 0 22 0; +#X connect 40 0 22 0; +#X connect 42 0 22 0; +#X connect 43 0 42 0; +#X connect 50 0 60 4; +#X connect 54 0 60 2; +#X connect 56 0 60 3; +#X connect 60 0 67 0; +#X connect 61 0 68 0; +#X connect 64 0 60 1; +#X connect 67 0 69 0; +#X connect 68 0 70 0; +#X connect 69 0 59 0; +#X connect 70 0 62 0; +#X connect 71 0 72 0; +#X connect 72 0 73 0; +#X connect 74 0 71 0; +#X connect 74 0 76 0; +#X connect 76 0 77 0; +#X connect 81 0 9 0; #X restore 227 332 pd more_control; #N canvas 0 23 450 300 more_structure 0; #X obj 28 50 hamilr4_etude_1 one 2 three; @@ -1814,20 +1830,6 @@ selectring the parent patch for example.; #X connect 4 0 1 0; #X connect 5 0 6 0; #X restore 213 374 pd more_structure; -#N canvas 0 23 450 300 stuff 0; -#X obj 823 272 osc~ 740; -#X obj 893 272 osc~ 840; -#N canvas 0 23 450 300 hamilr4_throws 0; -#X obj 77 28 inlet~; -#X obj 77 130 throw~ hamilr4_audio_1; -#X obj 148 103 throw~ hamilr4_audio_2; -#X obj 148 31 inlet~; -#X connect 0 0 1 0; -#X connect 3 0 2 0; -#X restore 817 326 pd hamilr4_throws; -#X obj 976 312 throw~ bartoa_audio_1; -#X obj 946 342 throw~ deegaj_audio_1; -#X restore 1788 92 pd stuff; #X obj 738 278 hamilr4_etude_1; #X obj 1628 429 channel; #X connect 7 0 9 0; @@ -1836,9 +1838,9 @@ selectring the parent patch for example.; #X connect 12 0 10 0; #X connect 15 0 16 0; #X connect 15 1 17 0; -#X connect 18 0 32 0; +#X connect 18 0 31 0; #X connect 19 0 20 1; #X connect 19 0 18 1; #X connect 20 0 15 0; -#X connect 32 0 16 0; -#X connect 32 1 17 0; +#X connect 31 0 16 0; +#X connect 31 1 17 0; diff --git a/hamilr4_etude_1.pd b/hamilr4_etude_1.pd index 8f9c2ff..6ac2991 100644 --- a/hamilr4_etude_1.pd +++ b/hamilr4_etude_1.pd @@ -13,12 +13,6 @@ #X obj 368 451 throw~ hamilr4_input_5; #X obj 198 489 throw~ hamilr4_input_3; #X obj 102 508 throw~ hamilr4_input_2; -#X obj 558 36 catch~ hamilr4_input_1; -#X obj 578 55 catch~ hamilr4_input_2; -#X obj 598 74 catch~ hamilr4_input_3; -#X obj 618 93 catch~ hamilr4_input_4; -#X obj 638 112 catch~ hamilr4_input_5; -#X obj 658 131 catch~ hamilr4_input_6; #X text 153 16 Input from six-channel guitar (ADC with six inputs) ; #X connect 0 0 3 0; diff --git a/houchl.pd b/houchl.pd old mode 100644 new mode 100755 index ef2155c..402930e --- a/houchl.pd +++ b/houchl.pd @@ -1,70 +1,176 @@ -#N canvas 680 169 1040 618 12; +#N canvas 0 23 1680 980 12; #N canvas 0 50 450 250 (subpatch) 0; #X array melody_houchl 16 float 3; #A 0 74 86 86 74 86 74 74 84 74 74 82 74 84 74 77 74; #X coords 0 120 16 0 200 140 1 0 0; -#X restore 281 144 graph; -#X floatatom 37 241 5 0 0 0 - - -; -#X floatatom 37 305 5 0 0 0 - - -; -#X obj 157 67 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 -1; -#X floatatom 224 65 5 0 0 0 - - -; -#X obj 157 107 metro 1000; -#X msg 94 129 0; -#X obj 37 162 f; -#X obj 92 161 + 1; -#X obj 37 334 mtof; -#X floatatom 37 373 5 0 0 0 - - -; -#X obj 152 406 line~; -#X obj 38 470 *~; -#X floatatom 37 187 5 0 0 0 - - -; -#X msg 211 359 0 50; -#X obj 37 417 osc~ 440; -#X obj 38 26 inlet~; -#X obj 108 30 inlet; -#X obj 37 580 outlet~; -#X obj 111 577 outlet; -#X msg 283 320 \; melody 0 74 86 86 74 86 74 74 84 74 74 82 74 84 74 +#X restore 796 373 graph; +#X floatatom 552 470 5 0 0 0 - - -; +#X floatatom 552 534 5 0 0 0 - - -; +#X floatatom 499 279 5 0 0 0 - - -; +#X obj 431 322 metro 1000; +#X msg 609 358 0; +#X obj 552 391 f; +#X obj 607 390 + 1; +#X obj 552 563 mtof; +#X floatatom 552 602 5 0 0 0 - - -; +#X obj 667 635 line~; +#X floatatom 552 416 5 0 0 0 - - -; +#X msg 726 588 0 50; +#X obj 552 646 osc~ 440; +#X msg 798 549 \; melody 0 74 86 86 74 86 74 74 84 74 74 82 74 84 74 77 74 89; #N canvas 0 50 450 250 (subpatch) 0; #X array melody2_houchl 40 float 3; #A 0 85 78 78 85 78 78 85 78 86 78 85 78 78 85 78 78 85 78 86 78 84 77 77 84 77 77 84 77 85 77 84 77 77 84 77 77 84 77 85 77; #X coords 0 110 40 0 200 140 1 0 0; -#X restore 579 142 graph; -#X msg 281 377 \; melody2 0 85 78 78 85 78 78 85 78 86 78 85 78 78 +#X restore 1094 371 graph; +#X msg 796 606 \; melody2 0 85 78 78 85 78 78 85 78 86 78 85 78 78 85 78 78 85 78 86 78 84 77 77 84 77 77 84 77 85 77 84 77 77 84 77 77 84 77 85 77; -#X obj 37 215 % 40; -#X obj 294 55 loadbang; -#X text 366 54 ROB - need to initialize your volume \; use loadbang +#X obj 552 444 % 40; +#X obj 809 284 loadbang; +#X text 881 283 ROB - need to initialize your volume \; use loadbang to send a bang at the start of the patch (when it is loaded); -#X obj 11 132 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 --1; -#X obj 27 87 r houchl_tempo; -#X obj 113 514 throw~ houchl_audio_1; -#X obj 37 275 tabread melody2_houchl; -#X msg 152 359 1 60; -#X connect 1 0 29 0; -#X connect 2 0 9 0; -#X connect 3 0 5 0; -#X connect 4 0 5 1; -#X connect 5 0 7 0; -#X connect 6 0 7 1; -#X connect 7 0 8 0; -#X connect 7 0 13 0; -#X connect 8 0 7 1; -#X connect 9 0 10 0; -#X connect 10 0 15 0; -#X connect 11 0 12 1; -#X connect 12 0 18 0; -#X connect 12 0 28 0; -#X connect 13 0 23 0; -#X connect 14 0 11 0; -#X connect 15 0 12 0; -#X connect 23 0 1 0; -#X connect 24 0 30 0; -#X connect 27 0 7 0; -#X connect 27 0 26 0; -#X connect 29 0 2 0; -#X connect 30 0 11 0; +#X obj 553 287 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 552 504 tabread melody2_houchl; +#X msg 667 588 1 60; +#X obj 48 56 inlet~; +#X obj 98 56 inlet; +#X obj 47 780 outlet~; +#X obj 121 777 outlet; +#X obj 64 317 mtof; +#X floatatom 33 364 5 0 0 0 - - -; +#X obj 149 434 osc~; +#X obj 95 626 +~; +#X floatatom 132 642 5 0 0 0 - - -; +#X obj 132 665 dbtorms; +#X obj 208 433 osc~; +#X obj 265 433 osc~; +#X obj 322 433 osc~; +#X obj 294 572 +~; +#X obj 347 568 +~; +#X obj 405 570 +~; +#X obj 322 407 * 3; +#X obj 436 637 keyname; +#X obj 336 662 *~; +#X obj 397 670 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 94 709 *~ 1; +#X obj 408 538 *~ 0.5; +#X obj 265 407 * 1.5; +#X obj 351 539 *~ 0.5; +#X obj 465 539 *~ 0.5; +#X obj 149 245 key; +#X obj 212 519 +~; +#X obj 134 492 osc~, f 5; +#X obj 64 293 / 1.7; +#X floatatom 120 468 5 0 0 0 - - -; +#X floatatom 118 562 5 0 0 0 - - -; +#X obj 292 540 *~ 0.5; +#X obj 106 530 *~ 0.1; +#X obj 224 642 loadbang; +#X obj 149 408 * 2; +#X obj 208 407 * 2.5; +#X obj 542 316 r houchl_tempo; +#X text 538 242 "recieve" houchl_tempo is an empty object so I'll leave +it as "r"; +#X text 242 361 2 4 5 and 6 are a little too open. I'm going 1.5 2 +2.5 and 3, f 31; +#X text 125 269 ASCII values are a little too high on their own \, +let's take them down a peg. Divide by 1.7, f 47; +#X text 630 713 The question is \, will this work when I'm recording? +Or will it not yet since the recieve object is null?; +#X text 71 591 Here's our fm synthesis.; +#X text 165 342 Additive synthesis here; +#X obj 273 830 throw~ houchl_audio_1; +#X obj 271 774 *~ 1; +#X text 436 831 ROB - disabled for now; +#X obj 64 244 r key_\$0; +#X obj 223 65 list trim; +#X obj 223 111 route key; +#X obj 223 135 unpack f s f; +#X floatatom 223 159 5 0 0 0 - - -; +#X symbolatom 264 160 10 0 0 0 - - -; +#X floatatom 341 160 5 0 0 0 - - -; +#X obj 341 183 s key_\$0; +#X obj 206 36 receive houchl_control; +#X obj 223 87 route houchl; +#X floatatom 64 269 5 0 0 0 - - -; +#X obj 223 182 s keyname_\$0; +#X obj 397 614 r keyname_\$0; +#X floatatom 419 669 5 0 0 0 - - -; +#X text 507 736 4 is BAAAD here...; +#X text 1447 42 Lucas Houchin-Miller; +#X obj 553 699 *~ 1; +#X connect 1 0 21 0; +#X connect 2 0 8 0; +#X connect 3 0 4 1; +#X connect 4 0 6 0; +#X connect 5 0 6 1; +#X connect 6 0 7 0; +#X connect 6 0 11 0; +#X connect 7 0 6 1; +#X connect 8 0 9 0; +#X connect 9 0 13 0; +#X connect 10 0 85 1; +#X connect 11 0 17 0; +#X connect 12 0 10 0; +#X connect 13 0 85 0; +#X connect 17 0 1 0; +#X connect 18 0 22 0; +#X connect 21 0 2 0; +#X connect 22 0 10 0; +#X connect 27 0 28 0; +#X connect 27 0 45 0; +#X connect 27 0 39 0; +#X connect 27 0 57 0; +#X connect 27 0 58 0; +#X connect 29 0 49 0; +#X connect 30 0 43 0; +#X connect 31 0 32 0; +#X connect 32 0 43 1; +#X connect 33 0 46 0; +#X connect 34 0 44 0; +#X connect 35 0 47 0; +#X connect 36 0 37 0; +#X connect 37 0 38 0; +#X connect 38 0 41 0; +#X connect 39 0 35 0; +#X connect 41 0 30 1; +#X connect 43 0 25 0; +#X connect 43 0 67 0; +#X connect 44 0 37 1; +#X connect 45 0 34 0; +#X connect 46 0 36 1; +#X connect 47 0 38 1; +#X connect 49 0 54 0; +#X connect 50 0 55 0; +#X connect 51 0 27 0; +#X connect 52 0 50 0; +#X connect 53 0 55 1; +#X connect 54 0 36 0; +#X connect 55 0 49 1; +#X connect 56 0 31 0; +#X connect 57 0 29 0; +#X connect 58 0 33 0; +#X connect 59 0 6 0; +#X connect 59 0 20 0; +#X connect 67 0 66 0; +#X connect 69 0 79 0; +#X connect 70 0 78 0; +#X connect 71 0 72 0; +#X connect 72 0 73 0; +#X connect 72 1 74 0; +#X connect 72 2 75 0; +#X connect 73 0 80 0; +#X connect 75 0 76 0; +#X connect 77 0 70 0; +#X connect 78 0 71 0; +#X connect 79 0 51 0; +#X connect 81 0 42 0; +#X connect 81 0 41 1; +#X connect 81 0 82 0; +#X connect 85 0 25 0; +#X connect 85 0 67 0; diff --git a/johnsz2.pd b/johnsz2.pd old mode 100644 new mode 100755 index 79489f7..caec179 --- a/johnsz2.pd +++ b/johnsz2.pd @@ -1,93 +1,241 @@ -#N canvas 432 23 1179 889 12; -#X obj 57 17 receive johnsz2_tempo; -#X obj 334 17 receive johnsz2_control; -#X obj 655 7 inlet; -#X obj 339 583 outlet; -#X obj 58 64 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 --1; -#X obj 106 267 f; -#X floatatom 106 291 5 0 0 0 - - -; -#X obj 150 267 + 1; -#X obj 106 317 % 16; -#X floatatom 106 342 5 0 0 0 - - -; -#X floatatom 106 401 5 0 0 0 - - -; -#X obj 106 487 osc~; -#X obj 106 424 mtof; -#X floatatom 106 448 5 0 0 0 - - -; -#X obj 274 375 s mycoolbang; -#X floatatom 170 127 5 0 0 0 - - -; -#X obj 173 47 r mycoolbang; -#X obj 170 159 * 200; -#X msg 253 470 0 200; -#X obj 190 505 line~; -#X obj 110 539 *~; -#X obj 403 58 list prepend set; -#X obj 404 93 list trim; -#X msg 399 126 1 2 3 4 5; -#X obj 535 9 inlet~; -#X obj 342 152 unpack f f f f f; -#X floatatom 399 287 5 0 0 0 - - -; -#X floatatom 412 267 5 0 0 0 - - -; -#X floatatom 424 247 5 0 0 0 - - -; -#X floatatom 438 227 5 0 0 0 - - -; -#X floatatom 450 207 5 0 0 0 - - -; +#N canvas 0 23 1680 951 12; +#X obj 206 1 receive johnsz2_tempo; +#X obj 483 1 receive johnsz2_control; +#X obj 804 6 inlet; +#X obj 464 728 outlet; +#X obj 238 350 f; +#X floatatom 238 374 5 0 0 0 - - -; +#X obj 282 350 + 1; +#X obj 238 400 % 16; +#X floatatom 238 425 5 0 0 0 - - -; +#X floatatom 230 584 5 0 0 0 - - -; +#X obj 230 607 mtof; +#X floatatom 231 632 5 0 0 0 - - -; +#X obj 395 459 s mycoolbang; +#X floatatom 321 82 5 0 0 0 - - -; +#X obj 325 24 r mycoolbang; +#X obj 321 114 * 200; +#X msg 400 752 0 200; +#X obj 337 787 line~; +#X obj 224 782 *~; +#X obj 555 24 list prepend set; +#X obj 555 48 list trim; +#X msg 550 81 johnsz2 key 1 Meta_L 0; +#X obj 684 8 inlet~; +#X obj 493 107 unpack f f f f f; +#X floatatom 550 242 5 0 0 0 - - -; +#X floatatom 563 222 5 0 0 0 - - -; +#X floatatom 575 202 5 0 0 0 - - -; +#X floatatom 589 182 5 0 0 0 - - -; +#X floatatom 601 162 5 0 0 0 - - -; #N canvas 0 50 450 250 (subpatch) 0; #X array melody_johnsz2 16 float 3; -#A 0 70 63 0 65 0 0 71 0 70 70 63 0 66 70 0 70; +#A 0 70 63 0 65 0 0 71 0 70 70 63 0 66 70 0 80; #X coords 0 127 16 0 200 140 1 0 0; -#X restore 440 330 graph; +#X restore 687 49 graph; #N canvas 0 50 450 250 (subpatch) 0; #X array durations_johnsz2 16 float 3; #A 0 1 1 1 1 2 2 4 4 1 1 1 1 2 2 4 8; #X coords 0 10 16 0 200 140 1 0 0; -#X restore 681 337 graph; -#X text 498 489 the semicolon is really a shorthand notation for "send" -; -#X obj 109 601 outlet~; -#X obj 96 225 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +#X restore 895 49 graph; +#X obj 225 918 outlet~; +#X obj 206 26 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; -#X obj 233 717 loadbang; -#X text 305 716 ROB - need to initialize your volume \; use loadbang +#X obj 378 853 loadbang; +#X text 443 796 ROB - need to initialize your volume \; use loadbang to send a bang at the start of the patch (when it is loaded); -#X obj 123 573 throw~ johnsz2_audio_1; -#X obj 106 377 tabread melody_johnsz2; -#X obj 171 97 tabread durations_johnsz2; -#X msg 418 524 \; melody_johnsz2 0 60 62 64 65 67 69 71 72 73 74 75 -76 77 78 79 80; -#X msg 418 582 \; melody_johnsz2 0 70 63 0 65 0 0 71 0 70 70 63 0 66 +#X obj 239 890 throw~ johnsz2_audio_1; +#X obj 218 459 tabread melody_johnsz2; +#X obj 322 52 tabread durations_johnsz2; +#X msg 825 210 \; melody_johnsz2 0 70 63 0 65 0 0 71 0 70 70 63 0 66 70 0; -#X msg 486 627 \; durations_johnsz2 0 1 1 1 1 2 2 4 4 1 1 1 1 2 2 4 +#X msg 825 247 \; durations_johnsz2 0 1 1 1 1 2 2 4 4 1 1 1 1 2 2 4 8; -#X msg 162 472 1 200; -#X connect 0 0 4 0; -#X connect 1 0 21 0; -#X connect 1 0 25 0; -#X connect 4 0 35 0; -#X connect 5 0 6 0; +#X msg 309 754 1 200; +#X obj 1132 725 keyname; +#X obj 1036 775 key up; +#X text 951 8 johnsz2 == Zach J; +#X obj 251 152 f; +#X obj 309 159 + 1; +#X floatatom 250 180 5 0 0 0 - - -; +#X obj 612 600 osc~; +#X floatatom 630 489 5 0 0 0 - - -; +#X obj 505 453 tabread vibrato_johnsz2; +#X obj 623 523 +~ 1; +#X obj 629 556 *~ 0.5; +#X obj 238 721 *~; +#X obj 228 686 osc~; +#X obj 352 181 tabread durations_johnsz2; +#X floatatom 352 202 5 0 0 0 - - -; +#X floatatom 252 257 5 0 0 0 - - -; +#X msg 263 106 0; +#X obj 250 222 expr $f1 >= $f2; +#X obj 314 283 select 0 1; +#X obj 242 288 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 333 319 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 294 314 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 547 271 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 385 318 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X floatatom 317 527 5 0 0 0 - - -; +#X obj 317 550 mtof; +#X floatatom 318 575 5 0 0 0 - - -; +#X obj 317 598 osc~; +#X obj 318 501 + 7; +#X msg 365 597 0; +#N canvas 0 50 450 250 (subpatch) 0; +#X array vibrato_johnsz2 16 float 3; +#A 0 0 0 0 5 0 0 8 0 0 0 0 8 8 0 0 0; +#X coords 0 20 16 0 200 140 1 0 0; +#X restore 1103 55 graph; +#X msg 825 284 \; vibrato_johnsz2 0 0 0 0 5 0 0 8 0 0 0 0 8 8 0; +#X msg 417 598 0.3; +#X obj 316 635 *~ 0.3; +#X floatatom 685 316 5 0 0 0 - - -; +#X obj 686 398 select 97; +#X obj 768 397 select 119; +#X obj 861 398 select 115; +#X obj 948 399 select 100; +#X floatatom 772 521 5 0 0 0 - - -; +#X floatatom 873 529 5 0 0 0 - - -; +#X obj 768 423 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 861 423 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 812 500 + 1; +#X obj 772 497 i; +#X obj 865 499 i; +#X msg 698 427 7; +#X obj 697 456 i 7; +#X obj 914 502 - 1; +#X floatatom 478 511 5 0 0 0 - - -; +#X obj 478 534 mtof; +#X floatatom 479 559 15 0 0 0 - - -; +#X obj 478 582 osc~; +#X obj 479 485 + 7; +#X msg 526 581 0; +#X msg 578 582 0.3; +#X obj 477 619 *~ 0.3; +#X text 1040 392 W and S keys raise and lower the notes in the chord. +They each can only move in one direction; +#X obj 20 31 list trim; +#X obj 20 77 route key; +#X obj 20 101 unpack f s f; +#X floatatom 20 125 5 0 0 0 - - -; +#X symbolatom 61 126 10 0 0 0 - - -; +#X floatatom 138 126 5 0 0 0 - - -; +#X obj 138 149 s key_\$0; +#X obj 20 148 s keyname_\$0; +#X obj 4 2 receive johnsz2_control; +#X obj 20 53 route johnsz2; +#X obj 685 292 r key_\$0; +#X obj 747 292 key; +#X text 426 898 Rob - disabled for now; +#X text 1499 44 Zachary Johnson; +#X connect 0 0 32 0; +#X connect 1 0 19 0; +#X connect 1 0 23 0; +#X connect 4 0 5 0; +#X connect 4 0 6 0; #X connect 5 0 7 0; -#X connect 6 0 8 0; -#X connect 7 0 5 1; -#X connect 8 0 9 0; -#X connect 9 0 14 0; -#X connect 9 0 39 0; -#X connect 10 0 12 0; -#X connect 11 0 20 0; -#X connect 12 0 13 0; -#X connect 13 0 11 0; -#X connect 15 0 17 0; -#X connect 18 0 19 0; -#X connect 19 0 20 1; -#X connect 20 0 34 0; -#X connect 20 0 38 0; -#X connect 21 0 22 0; -#X connect 22 0 23 0; -#X connect 25 0 26 0; -#X connect 25 1 27 0; -#X connect 25 2 28 0; -#X connect 25 3 29 0; -#X connect 25 4 30 0; -#X connect 35 0 5 0; -#X connect 36 0 44 0; -#X connect 39 0 10 0; -#X connect 40 0 15 0; -#X connect 44 0 19 0; +#X connect 6 0 4 1; +#X connect 7 0 8 0; +#X connect 8 0 12 0; +#X connect 8 0 36 0; +#X connect 8 0 54 0; +#X connect 8 0 49 0; +#X connect 9 0 10 0; +#X connect 10 0 11 0; +#X connect 11 0 53 0; +#X connect 13 0 15 0; +#X connect 16 0 17 0; +#X connect 17 0 18 1; +#X connect 18 0 31 0; +#X connect 18 0 35 0; +#X connect 19 0 20 0; +#X connect 20 0 21 0; +#X connect 23 0 24 0; +#X connect 23 1 25 0; +#X connect 23 2 26 0; +#X connect 23 3 27 0; +#X connect 23 4 28 0; +#X connect 24 0 63 0; +#X connect 32 0 4 0; +#X connect 33 0 40 0; +#X connect 33 0 87 0; +#X connect 36 0 9 0; +#X connect 36 0 69 0; +#X connect 36 0 94 0; +#X connect 37 0 13 0; +#X connect 40 0 17 0; +#X connect 44 0 46 0; +#X connect 44 0 45 0; +#X connect 45 0 44 1; +#X connect 46 0 58 0; +#X connect 47 0 18 1; +#X connect 48 0 50 0; +#X connect 49 0 48 0; +#X connect 50 0 51 0; +#X connect 51 0 47 0; +#X connect 52 0 18 0; +#X connect 53 0 52 0; +#X connect 54 0 55 0; +#X connect 55 0 58 1; +#X connect 56 0 60 0; +#X connect 56 0 59 0; +#X connect 57 0 44 0; +#X connect 58 0 56 0; +#X connect 59 0 62 0; +#X connect 59 1 61 0; +#X connect 59 2 64 0; +#X connect 61 0 4 0; +#X connect 61 0 57 0; +#X connect 65 0 66 0; +#X connect 66 0 67 0; +#X connect 67 0 68 0; +#X connect 68 0 74 0; +#X connect 69 0 65 0; +#X connect 70 0 74 1; +#X connect 73 0 74 1; +#X connect 74 0 52 1; +#X connect 75 0 76 0; +#X connect 75 0 77 0; +#X connect 75 0 78 0; +#X connect 75 0 79 0; +#X connect 77 0 82 0; +#X connect 78 0 83 0; +#X connect 80 0 69 1; +#X connect 81 0 94 1; +#X connect 82 0 85 0; +#X connect 83 0 86 0; +#X connect 84 0 85 1; +#X connect 85 0 80 0; +#X connect 85 0 84 0; +#X connect 86 0 81 0; +#X connect 86 0 89 0; +#X connect 87 0 88 0; +#X connect 88 0 85 0; +#X connect 88 0 86 0; +#X connect 89 0 86 1; +#X connect 90 0 91 0; +#X connect 91 0 92 0; +#X connect 92 0 93 0; +#X connect 93 0 97 0; +#X connect 94 0 90 0; +#X connect 95 0 97 1; +#X connect 96 0 97 1; +#X connect 97 0 52 1; +#X connect 99 0 108 0; +#X connect 100 0 101 0; +#X connect 101 0 102 0; +#X connect 101 1 103 0; +#X connect 101 2 104 0; +#X connect 102 0 106 0; +#X connect 104 0 105 0; +#X connect 107 0 99 0; +#X connect 108 0 100 0; +#X connect 109 0 75 0; diff --git a/launchpad_io.pd b/launchpad_io.pd index f32a042..7c91d08 100644 --- a/launchpad_io.pd +++ b/launchpad_io.pd @@ -1,67 +1,203 @@ -#N canvas 0 23 1395 1125 12; -#X obj 37 37 ctlin; -#X obj 37 74 swap; -#X obj 37 98 stripnote; -#X obj 166 170 ctlout; -#X obj 253 35 notein 1; -#X obj 253 59 stripnote; -#X floatatom 253 83 5 0 0 0 - - -; -#X floatatom 37 122 5 0 0 0 - - -; -#X floatatom 312 82 5 0 0 0 - - -; -#X text 180 85 MIDI NOTE; -#X text 358 84 MIDI VELOCITY; +#N canvas 354 322 1395 745 12; +#X obj 566 43 ctlin; +#X obj 566 80 swap; +#X obj 566 104 stripnote; +#X obj 208 379 ctlout; +#X obj 782 41 notein 1; +#X obj 782 65 stripnote; +#X floatatom 782 89 5 0 0 0 - - -; +#X floatatom 566 128 5 0 0 0 - - -; +#X floatatom 841 88 5 0 0 0 - - -; +#X text 709 91 MIDI NOTE; +#X text 887 90 MIDI VELOCITY; #X msg 1194 856 61; #X obj 1305 832 sel 1 0; #X text 1218 854 color 1; #X text 1315 856 color 2; #X obj 1216 984 pack f f; #X obj 1216 1041 noteout 1; -#X floatatom 262 219 5 0 0 0 - - -; -#X obj 233 304 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +#X floatatom 208 456 5 0 0 0 - - -; +#X obj 54 365 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; -#X obj 233 353 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 --1 -1; -#X obj 254 380 i; -#X floatatom 254 404 5 0 0 0 - - -; -#X obj 285 380 + 1; -#X floatatom 254 451 5 0 0 0 - - -; -#X obj 233 328 metro 40; +#X obj 54 414 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X obj 75 441 i; +#X floatatom 75 465 5 0 0 0 - - -; +#X obj 106 441 + 1; +#X floatatom 75 512 5 0 0 0 - - -; +#X obj 54 389 metro 40; #X floatatom 1236 888 5 0 0 0 - - -; #X msg 1155 1067 0 61; #X msg 1111 1067 0 0; #X msg 1286 857 0; #X msg 1155 1037 63 61; #X msg 1111 1037 63 0; -#X obj 254 427 % 64; -#X obj 257 180 makenote 1 40; -#X floatatom 531 512 5 0 0 0 - - -; -#X floatatom 546 448 5 0 0 0 - - -; -#X obj 547 551 print; -#X obj 201 547 pack f f; -#X obj 368 529 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +#X obj 75 488 % 64; +#X obj 203 417 makenote 1 40; +#X obj 943 820 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; -#X msg 368 549 set \$1; -#X obj 294 573 gate; -#X floatatom 368 573 5 0 0 0 - - -; -#X obj 348 574 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +#X msg 943 840 set \$1; +#X obj 869 864 gate; +#X floatatom 943 864 5 0 0 0 - - -; +#X obj 923 865 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 868 941 noteout 1; +#X msg 868 890 \$1 61; +#X msg 925 892 \$1 0; +#X floatatom 1072 128 0 0 0 0 - - -; +#X floatatom 1035 149 0 0 0 0 - - -; +#X floatatom 1109 105 2 0 0 0 - - -; +#X obj 1035 78 polytouchin; +#X text 1128 106 channel; +#X text 1036 35 polyphonic aftertouch, f 10; +#X text 1066 151 aftertouch value; +#X text 1101 130 note; +#X obj 23 654 noteout 1; +#X obj 940 215 array get launchpadx; +#X obj 940 195 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 940 239 print; +#X msg 940 316 \; launchpadx 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 +0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 +0 0 0 0 0 0 0 0 0 0 0 0; +#X text 939 296 Clear; +#X text 939 376 Lit; +#X obj 940 266 array define -yrange 0 128 launchpadx 64; +#X obj 1273 92 vuzi 64 0; +#X obj 1273 60 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X floatatom 1333 124 5 0 0 0 - - -; +#X obj 1303 125 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 1273 125 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 941 510 vuzi 64 0; +#X obj 941 488 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; -#X obj 293 650 noteout 1; -#X msg 293 599 \$1 61; -#X msg 350 601 \$1 0; -#X msg 173 506 0; -#X msg 140 506 61; -#X obj 289 488 select 63; -#X obj 102 65; -#X floatatom 543 122 0 0 0 0 - - -; -#X floatatom 506 143 0 0 0 0 - - -; -#X floatatom 580 99 2 0 0 0 - - -; -#X obj 506 72 polytouchin; -#X text 599 100 channel; -#X text 507 29 polyphonic aftertouch, f 10; -#X text 537 145 aftertouch value; -#X text 572 124 note; -#X msg 463 691 144 11 5; -#X obj 463 740 noteout 1; +#X floatatom 1001 533 5 0 0 0 - - -; +#X msg 949 586 set \$1; +#X floatatom 949 611 5 0 0 0 - - -; +#X obj 949 634 pack f f; +#X obj 1001 586 array get launchpadx 0 1; +#X obj 1001 611 t b f; +#X obj 1001 556 t f f; +#X obj 949 658 s launchpadx_values; +#X obj 949 720 noteout 1; +#X obj 949 682 r launchpadx_values; +#X msg 940 395 \; launchpadx 0 63 63 63 63 63 63 63 63 63 63 63 63 +63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 +63 63 63 63 63 63 63 20 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 +63 63 63 63 63 63; +#X obj 899 405 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 901 301 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 911 381 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X msg 23 565 set \$1; +#X floatatom 23 590 5 0 0 0 - - -; +#X obj 23 613 pack f f; +#X obj 75 590 t b f; +#X obj 75 535 t f f; +#X obj 125 488 %; +#X obj 782 169 pack f f f; +#X msg 782 112 set \$1; +#X floatatom 782 136 5 0 0 0 - - -; +#X obj 1035 173 t b f; +#X text 858 65 Remove Note Offs; +#X obj 20 70 s launchpad_note; +#X floatatom 123 137 5 0 0 0 - - -; +#X floatatom 163 137 5 0 0 0 - - -; +#X floatatom 203 137 5 0 0 0 - - -; +#X floatatom 174 56 5 0 0 0 - - -; +#X floatatom 243 137 5 0 0 0 - - -; +#N canvas 0 23 450 300 input_data_______________ 0; +#X obj 54 25 notein 1; +#X obj 54 49 stripnote; +#X floatatom 54 73 5 0 0 0 - - -; +#X floatatom 113 72 5 0 0 0 - - -; +#X text -19 75 MIDI NOTE; +#X text 159 74 MIDI VELOCITY; +#X floatatom 344 112 0 0 0 0 - - -; +#X floatatom 307 133 0 0 0 0 - - -; +#X floatatom 381 89 2 0 0 0 - - -; +#X obj 307 62 polytouchin; +#X text 400 90 channel; +#X text 308 19 polyphonic aftertouch, f 10; +#X text 338 135 aftertouch value; +#X text 373 114 note; +#X obj 54 153 pack f f f; +#X msg 54 96 set \$1; +#X floatatom 54 120 5 0 0 0 - - -; +#X obj 307 157 t b f; +#X text 130 49 Remove Note Offs; +#X obj 54 177 s launchpad_note; +#X obj 22 237 outlet; +#X obj 72 237 outlet; +#X obj 122 237 outlet; +#X obj 182 237 outlet; +#X obj 232 237 outlet; +#X obj 282 237 outlet; +#X connect 0 0 1 0; +#X connect 0 1 1 1; +#X connect 1 0 2 0; +#X connect 1 1 3 0; +#X connect 2 0 15 0; +#X connect 2 0 21 0; +#X connect 3 0 14 1; +#X connect 3 0 22 0; +#X connect 6 0 24 0; +#X connect 7 0 17 0; +#X connect 7 0 23 0; +#X connect 8 0 25 0; +#X connect 9 0 7 0; +#X connect 9 1 6 0; +#X connect 9 2 8 0; +#X connect 14 0 19 0; +#X connect 14 0 20 0; +#X connect 15 0 16 0; +#X connect 16 0 14 0; +#X connect 17 0 16 0; +#X connect 17 1 14 2; +#X restore 20 24 pd input_data_______________; +#X obj 7 93 outlet; +#X text 125 118 Key; +#X text 166 119 Vel; +#X text 201 119 After; +#X text 241 120 Chan; +#X text 105 99 MIDI data; +#X text 30 310 MESSING AROUND WITH THE NOVATION LAUNCHPAD X CONTROLLER +; +#X obj 648 388 print; +#X obj 699 363 r launchpad_note; +#X obj 775 386 print; +#X obj 699 559 phasor~; +#X obj 699 507 mtof; +#X obj 699 413 unpack f f f; +#X floatatom 699 437 5 0 0 0 - - -; +#X floatatom 739 437 5 0 0 0 - - -; +#X floatatom 779 437 5 0 0 0 - - -; +#X obj 779 559 line~; +#X obj 779 460 / 127; +#X floatatom 779 484 5 0 0 0 - - -; +#X obj 698 643 dac~; +#X msg 779 507 \$1 10; +#X obj 699 460 + 36; +#X floatatom 699 484 5 0 0 0 - - -; +#X floatatom 699 531 5 0 0 0 - - -; +#X obj 699 591 *~; +#X obj 545 320 r launchpad_note; +#X obj 545 360 list prepend 0; +#X obj 438 388 unpack f f f; +#X floatatom 438 412 5 0 0 0 - - -; +#X floatatom 478 412 5 0 0 0 - - -; +#X floatatom 518 412 5 0 0 0 - - -; +#X obj 436 477 pack f f f f; +#X obj 438 435 t f f; +#X obj 436 675 clone clone_phasor 64; +#X msg 398 612 vis 20 1; +#X msg 398 643 vis 20 0; +#X obj 527 611 poly 64; #X connect 0 0 1 0; #X connect 0 1 1 1; #X connect 1 0 2 0; @@ -70,6 +206,8 @@ #X connect 4 1 5 1; #X connect 5 0 6 0; #X connect 5 1 8 0; +#X connect 6 0 85 0; +#X connect 8 0 84 1; #X connect 11 0 15 1; #X connect 12 0 11 0; #X connect 12 1 28 0; @@ -79,8 +217,7 @@ #X connect 20 0 22 0; #X connect 21 0 31 0; #X connect 22 0 20 1; -#X connect 23 0 36 1; -#X connect 23 0 47 0; +#X connect 23 0 82 0; #X connect 24 0 19 0; #X connect 25 0 15 0; #X connect 26 0 16 0; @@ -89,16 +226,85 @@ #X connect 29 0 16 0; #X connect 30 0 16 0; #X connect 31 0 23 0; -#X connect 37 0 38 0; -#X connect 38 0 40 0; -#X connect 38 0 41 0; -#X connect 39 0 43 0; -#X connect 39 1 44 0; -#X connect 40 0 39 1; -#X connect 41 0 40 0; -#X connect 43 0 42 0; +#X connect 33 0 34 0; +#X connect 34 0 36 0; +#X connect 34 0 37 0; +#X connect 35 0 39 0; +#X connect 35 1 40 0; +#X connect 36 0 35 1; +#X connect 37 0 36 0; +#X connect 39 0 38 0; +#X connect 40 0 38 0; +#X connect 42 0 87 0; #X connect 44 0 42 0; -#X connect 52 0 50 0; -#X connect 52 1 49 0; -#X connect 52 2 51 0; -#X connect 57 0 58 0; +#X connect 44 1 41 0; +#X connect 44 2 43 0; +#X connect 50 0 52 0; +#X connect 51 0 50 0; +#X connect 57 0 61 0; +#X connect 57 1 60 0; +#X connect 57 2 59 0; +#X connect 58 0 57 0; +#X connect 62 2 64 0; +#X connect 63 0 62 0; +#X connect 64 0 70 0; +#X connect 65 0 66 0; +#X connect 66 0 67 0; +#X connect 67 0 71 0; +#X connect 68 0 69 0; +#X connect 69 0 66 0; +#X connect 69 1 67 1; +#X connect 70 0 68 0; +#X connect 70 1 65 0; +#X connect 73 0 72 0; +#X connect 75 0 63 0; +#X connect 76 0 53 0; +#X connect 76 0 75 0; +#X connect 77 0 74 0; +#X connect 77 0 75 0; +#X connect 78 0 79 0; +#X connect 79 0 80 0; +#X connect 81 0 79 0; +#X connect 81 1 80 1; +#X connect 82 1 78 0; +#X connect 85 0 86 0; +#X connect 86 0 84 0; +#X connect 87 0 86 0; +#X connect 87 1 84 2; +#X connect 95 0 89 0; +#X connect 95 0 96 0; +#X connect 95 1 90 0; +#X connect 95 2 91 0; +#X connect 95 3 92 0; +#X connect 95 4 93 0; +#X connect 95 5 94 0; +#X connect 104 0 105 0; +#X connect 104 0 108 0; +#X connect 106 0 120 0; +#X connect 107 0 119 0; +#X connect 108 0 109 0; +#X connect 108 1 110 0; +#X connect 108 2 111 0; +#X connect 109 0 117 0; +#X connect 111 0 113 0; +#X connect 112 0 120 1; +#X connect 113 0 114 0; +#X connect 114 0 116 0; +#X connect 116 0 112 0; +#X connect 117 0 118 0; +#X connect 118 0 107 0; +#X connect 119 0 106 0; +#X connect 121 0 122 0; +#X connect 121 0 123 0; +#X connect 123 0 124 0; +#X connect 123 1 125 0; +#X connect 123 2 126 0; +#X connect 124 0 128 0; +#X connect 125 0 127 2; +#X connect 126 0 127 3; +#X connect 127 0 129 0; +#X connect 128 0 127 0; +#X connect 128 1 127 1; +#X connect 130 0 129 0; +#X connect 131 0 129 0; +#X coords 0 -1 1 1 200 60 2 100 100; diff --git a/masheen.pd b/masheen.pd index fcd9f40..7c20cf8 100644 --- a/masheen.pd +++ b/masheen.pd @@ -1,27 +1,24 @@ #N canvas 0 23 1920 1129 12; -#X obj 74 53 bartoa; -#X obj 74 143 johnsz2; -#X obj 74 173 martse; -#X obj 74 203 mucelj; -#X obj 74 263 nik; -#X obj 74 293 novaa; -#X obj 74 323 ortegm3; -#X obj 74 353 persow; -#X obj 74 383 plancs; -#X obj 74 413 quarlm; -#X obj 74 443 rothgj; -#X obj 74 473 schans2; -#X obj 74 503 sheny13; -#X obj 74 533 smithd32; -#X obj 75 564 takakh; -#X obj 74 593 villan2; -#X obj 74 623 zhaox10; -#X obj 74 653 zhuy16; +#X obj 25 56 bartoa; +#X obj 24 143 johnsz2; +#X obj 24 173 mucelj; +#X obj 24 203 nik; +#X obj 24 233 novaa; +#X obj 24 262 persow; +#X obj 24 293 plancs; +#X obj 24 323 quarlm; +#X obj 24 353 rothgj; +#X obj 24 383 schans2; +#X obj 24 413 sheny13; +#X obj 24 443 smithd32; +#X obj 25 474 takakh; +#X obj 24 503 villan2; +#X obj 25 533 zhaox10; +#X obj 24 563 zhuy16; #X text 24 21 [ARTS 2020] SUMMER 2020 "MASHEEN"; #X obj 4 721 mixer; -#X obj 74 233 nelsoc5; -#X obj 74 113 houchl; -#X obj 1751 3 master_outs_stereo; +#X obj 24 113 houchl; +#X obj 1651 3 master_outs_stereo; #N canvas 0 23 553 467 masheen_assignment_1 0; #X text 40 52 1 Create a subpatch saved with the filename as your RCS id; @@ -39,8 +36,8 @@ in from the _tempo receive) and spit out audio from your left outlet. DO NOT INCLUDE A [DAC~] OBJECT IN YOUR PATCH \, just pass audio out the outlet for now.; #X text 40 362 6 Send Rob your patch on Sunday.; -#X restore 1574 79 pd masheen_assignment_1; -#X obj 1672 98 utilities; +#X restore 1481 640 pd masheen_assignment_1; +#X obj 1579 659 utilities; #N canvas 0 23 450 300 init 0; #X obj 41 99 s init; #X obj 41 59 loadbang; @@ -50,7 +47,7 @@ the outlet for now.; #X connect 1 0 0 0; #X connect 1 0 4 0; #X connect 4 0 3 0; -#X restore 1686 136 pd init; +#X restore 1593 697 pd init; #N canvas 913 66 450 300 solo 0; #X floatatom 87 93 5 0 0 0 - - -; #X obj 87 69 r solo_mode; @@ -77,14 +74,10 @@ the outlet for now.; #X connect 10 1 5 0; #X connect 10 2 2 1; #X connect 10 3 3 1; -#X restore 1686 117 pd solo; -#X obj 1751 645 recorder_controls; -#X obj 74 83 hamilr4; -#X obj 327 85 list trim; -#X msg 327 106 username mouse 0 769 333 0 0; -#X obj 327 64 list prepend set; -#X obj 327 22 receive username_control; -#N canvas 834 255 892 349 masheen_global_tempo 0; +#X restore 1593 678 pd solo; +#X obj 1651 645 recorder_controls; +#X obj 24 85 hamilr4; +#N canvas 788 255 892 349 masheen_global_tempo 0; #N canvas 585 56 479 747 tempo_sender 0; #X obj 89 687 s hamilr4_tempo; #X obj 89 13 inlet; @@ -133,9 +126,9 @@ the outlet for now.; #X obj 335 185 metro 500; #X obj 335 206 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; -#X obj 335 138 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +#X obj 335 138 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; -#X obj 101 101 bpmtoms; +#X obj 100 100 bpmtoms; #X floatatom 395 76 5 0 0 0 - - -; #X floatatom 495 76 5 0 0 0 - - -; #X obj 495 43 r global_tempo_ms; @@ -145,11 +138,11 @@ the outlet for now.; #X msg 462 46 10; #X msg 352 46 1300; #X obj 425 155 s global_tempo_ms_value; -#X obj 114 123 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +#X obj 114 140 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; -#X text 106 102 on/off; +#X text 106 122 on/off; #X obj 335 279 s global_tempo_onoff; -#X obj 132 123 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +#X obj 132 140 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X floatatom 163 15 5 0 0 0 - - -; #X text 167 -5 bpm; @@ -158,6 +151,9 @@ the outlet for now.; #X obj 100 176 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X msg 100 196 1; +#X text 103 102 BPM Controls; +#X obj 598 -6 loadbang; +#X msg 598 18 120; #X connect 1 0 2 0; #X connect 2 0 0 0; #X connect 2 0 17 0; @@ -178,10 +174,153 @@ the outlet for now.; #X connect 20 0 6 0; #X connect 22 0 23 0; #X connect 23 0 14 0; -#X coords 0 -1 1 1 222 50 2 100 100; -#X restore 1412 3 pd masheen_global_tempo; -#X obj 1637 3 dsp_onoff; -#X obj 687 217 launchpad_io; -#X connect 29 0 30 0; -#X connect 31 0 29 0; -#X connect 32 0 31 0; +#X connect 25 0 26 0; +#X connect 26 0 18 0; +#X coords 0 -1 1 1 220 60 2 100 100; +#X restore 1321 4 pd masheen_global_tempo; +#X obj 1541 4 dsp_onoff; +#X obj 1560 104 user_keysend hamilr4; +#X obj 1560 86 user_keysend bartoa; +#X obj 1560 122 user_keysend houchl; +#X obj 1560 140 user_keysend johnsz2; +#X obj 1560 158 user_keysend mucelj; +#X obj 1560 176 user_keysend nelsoc5; +#X obj 1560 194 user_keysend nik; +#X obj 1560 212 user_keysend novaa; +#X obj 1560 230 user_keysend ortegm3; +#X obj 1560 248 user_keysend persow; +#X obj 1560 266 user_keysend plancs; +#X obj 1560 284 user_keysend quarlm; +#X obj 1560 302 user_keysend rothgj; +#X obj 1560 320 user_keysend schans2; +#X obj 1560 338 user_keysend sheny13; +#X obj 1560 356 user_keysend smithd32; +#X obj 1560 374 user_keysend takakh; +#X obj 1560 392 user_keysend villan2; +#X obj 1560 428 user_keysend zhuy16; +#X text 1569 67 Key Sends; +#N canvas 384 54 666 989 keyboard-examples 0; +#X obj 93 168 list trim; +#X msg 93 189 username key 1 Meta_L 0; +#X obj 93 147 list prepend set; +#X obj 93 125 receive username_control; +#X obj 89 586 user_keyreceive username; +#X msg 122 647 username key 1 Meta_L 0; +#X symbolatom 90 795 10 0 0 0 - - -; +#X symbolatom 117 775 10 0 0 0 - - -; +#X floatatom 144 752 5 0 0 0 - - -; +#X floatatom 198 700 5 0 0 0 - - -; +#X obj 89 670 unpack s s f s f; +#X symbolatom 170 726 10 0 0 0 - - -; +#X symbolatom 142 622 10 0 0 0 - - -; +#X floatatom 216 622 5 0 0 0 - - -; +#X symbolatom 257 622 10 0 0 0 - - -; +#X floatatom 331 622 5 0 0 0 - - -; +#X obj 92 295 user_keysend username; +#X text 19 7 EXAMPLE: Named keyboard sends and receives.; +#X text 88 35 The [receive username_control] patch can be used to get +all control data (i.e. mouse \, keyboard \, OSC) that is being sent +to the send using your own RCS ID as "username". So I can use [receive +hamilr4_control] to only get data from my own named send.; +#X text 90 228 Using the [user_keysend] abstraction \, we can toggle +on or off keyboard strokes for any user. For example \, to toggle on +or off keyboard strokes for user "username" use this checkbox:; +#X text 88 326 There's one of these check-box abstractions for each +user of the Masheen on the main page. Use these instead of creating +your own [key] [keyup] or [keyname] objects so that everyone's Masheen +patch can co-exist peacefully with one another.; +#X text 89 441 To receive your named keyboard data in a way that is +controlled by the [user_keysend] abstraction checkboxes \, there is +an abstraction designed to make it easy called [user_keyreceive]. Again +\, you'll pass your username as an argument \, and that way you can +easily access all the keybaord data \, either as an unpackable list +(outlet 1) \, a display list (outlet 2) or as pairs of keyname (symbol) +and ascii value (float) for keydown and keyup:; +#X obj 88 922 keycontrol your_username_here; +#X text 86 850 [user_keyreceive username] should be now used instead +of [keycontrol username] to make sure only those users with their checkbox +checked in the main Masheen window will receive Keyboard data in their +patches.; +#X connect 0 0 1 0; +#X connect 2 0 0 0; +#X connect 3 0 2 0; +#X connect 4 0 10 0; +#X connect 4 1 5 0; +#X connect 4 2 12 0; +#X connect 4 3 13 0; +#X connect 4 4 14 0; +#X connect 4 5 15 0; +#X connect 10 0 6 0; +#X connect 10 1 7 0; +#X connect 10 2 8 0; +#X connect 10 3 11 0; +#X connect 10 4 9 0; +#X restore 1449 697 pd keyboard-examples; +#X obj 981 4 midi_io; +#X obj 977 116 unpack f f f f; +#X floatatom 977 140 5 0 0 0 - - -; +#X floatatom 1027 140 5 0 0 0 - - -; +#X floatatom 1077 140 5 0 0 0 - - -; +#X floatatom 1127 140 5 0 0 0 - - -; +#X floatatom 1247 140 5 0 0 0 - - -; +#X floatatom 1297 140 5 0 0 0 - - -; +#X floatatom 1347 140 5 0 0 0 - - -; +#X obj 1247 116 unpack f f f; +#X obj 518 157 list trim; +#X obj 518 203 route key; +#X obj 518 328 unpack f s f; +#X floatatom 518 352 5 0 0 0 - - -; +#X symbolatom 559 353 10 0 0 0 - - -; +#X floatatom 656 353 5 0 0 0 - - -; +#X obj 670 382 s key_\$0; +#X obj 525 405 s keyname_\$0; +#X obj 517 427 select 1 0; +#X obj 517 474 s keydown_bang_\$0; +#X obj 527 452 s keyup_bang_\$0; +#X obj 530 304 s keydown_\$0; +#X obj 530 228 route 1 0; +#X obj 627 274 s keyup_\$0; +#X obj 535 382 s keynamesymbol_\$0; +#X obj 560 251 unpack s f; +#X obj 530 271 unpack s f; +#X obj 501 128 receive username_control; +#X obj 518 179 route username; +#X text 419 71 Sample keyboard data receive code. Note the "\$0" used +to identify unique embedded patches (patches saved as separate .pd +files).; +#N canvas 0 23 450 300 stuff 0; +#X msg 966 207 \; pd midi-dialog 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 +0 4 4; +#X msg 966 257 \; pd midi-dialog 3 0 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 +0 4 4; +#X obj 967 358 cyclone/seq; +#X text 964 322 MIDI file; +#X restore 1585 621 pd stuff; +#X obj 1353 412 user_keysend zhaox10; +#X connect 49 0 50 0; +#X connect 49 1 58 0; +#X connect 50 0 51 0; +#X connect 50 1 52 0; +#X connect 50 2 53 0; +#X connect 50 3 54 0; +#X connect 58 0 55 0; +#X connect 58 1 56 0; +#X connect 58 2 57 0; +#X connect 59 0 77 0; +#X connect 60 0 61 0; +#X connect 60 0 71 0; +#X connect 61 0 62 0; +#X connect 61 1 63 0; +#X connect 61 2 64 0; +#X connect 62 0 66 0; +#X connect 62 0 67 0; +#X connect 63 0 73 0; +#X connect 64 0 65 0; +#X connect 67 0 68 0; +#X connect 67 1 69 0; +#X connect 71 0 75 0; +#X connect 71 1 74 0; +#X connect 74 1 72 0; +#X connect 75 1 70 0; +#X connect 76 0 59 0; +#X connect 77 0 60 0; diff --git a/midi_io.pd b/midi_io.pd new file mode 100644 index 0000000..532db2d --- /dev/null +++ b/midi_io.pd @@ -0,0 +1,335 @@ +#N canvas 53 38 1406 1114 12; +#X obj 1069 141 ctlin; +#X obj 1069 178 swap; +#X obj 1069 202 stripnote; +#X obj 695 555 ctlout; +#X obj 1285 139 notein 1; +#X obj 1285 163 stripnote; +#X floatatom 1285 187 5 0 0 0 - - -; +#X floatatom 1069 226 5 0 0 0 - - -; +#X floatatom 1344 186 5 0 0 0 - - -; +#X text 1212 189 MIDI NOTE; +#X text 1390 188 MIDI VELOCITY; +#X msg 1681 1032 61; +#X obj 1792 1008 sel 1 0; +#X text 1705 1030 color 1; +#X text 1802 1032 color 2; +#X obj 1703 1160 pack f f; +#X obj 1703 1217 noteout 1; +#X floatatom 695 632 5 0 0 0 - - -; +#X obj 541 541 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +1; +#X obj 541 590 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 562 617 i; +#X floatatom 562 641 5 0 0 0 - - -; +#X obj 593 617 + 1; +#X floatatom 562 688 5 0 0 0 - - -; +#X obj 541 565 metro 40; +#X floatatom 1723 1064 5 0 0 0 - - -; +#X msg 1642 1243 0 61; +#X msg 1598 1243 0 0; +#X msg 1773 1033 0; +#X msg 1642 1213 63 61; +#X msg 1598 1213 63 0; +#X obj 562 664 % 64; +#X obj 690 593 makenote 1 40; +#X obj 1430 996 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +0 1; +#X msg 1430 1016 set \$1; +#X obj 1356 1040 gate; +#X floatatom 1430 1040 5 0 0 0 - - -; +#X obj 1410 1041 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 1355 1117 noteout 1; +#X msg 1355 1066 \$1 61; +#X msg 1412 1068 \$1 0; +#X floatatom 1575 226 0 0 0 0 - - -; +#X floatatom 1538 247 0 0 0 0 - - -; +#X floatatom 1612 203 2 0 0 0 - - -; +#X obj 1538 176 polytouchin; +#X text 1631 204 channel; +#X text 1539 133 polyphonic aftertouch, f 10; +#X text 1569 249 aftertouch value; +#X text 1604 228 note; +#X obj 510 830 noteout 1; +#X obj 1427 391 array get launchpadx; +#X obj 1427 371 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 1427 415 print; +#X msg 1427 492 \; launchpadx 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 +0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 +0 0 0 0 0 0 0 0 0 0 0 0; +#X text 1426 472 Clear; +#X text 1426 552 Lit; +#X obj 1427 442 array define -yrange 0 128 launchpadx 64; +#X obj 1776 190 vuzi 64 0; +#X obj 1776 158 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X floatatom 1836 222 5 0 0 0 - - -; +#X obj 1806 223 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 1776 223 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 1428 686 vuzi 64 0; +#X obj 1428 664 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X floatatom 1488 709 5 0 0 0 - - -; +#X msg 1436 762 set \$1; +#X floatatom 1436 787 5 0 0 0 - - -; +#X obj 1436 810 pack f f; +#X obj 1488 762 array get launchpadx 0 1; +#X obj 1488 787 t b f; +#X obj 1488 732 t f f; +#X obj 1436 834 s launchpadx_values; +#X obj 1436 896 noteout 1; +#X obj 1436 858 r launchpadx_values; +#X msg 1427 571 \; launchpadx 0 63 63 63 63 63 63 63 63 63 63 63 63 +63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 +63 63 63 63 63 63 63 20 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 +63 63 63 63 63 63; +#X obj 1386 581 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 1388 477 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 1398 557 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X msg 510 741 set \$1; +#X floatatom 510 766 5 0 0 0 - - -; +#X obj 510 789 pack f f; +#X obj 562 766 t b f; +#X obj 562 711 t f f; +#X obj 612 664 %; +#X obj 1285 267 pack f f f; +#X msg 1285 210 set \$1; +#X floatatom 1285 234 5 0 0 0 - - -; +#X obj 1538 271 t b f; +#X text 1361 163 Remove Note Offs; +#X floatatom 123 137 5 0 0 0 - - -; +#X floatatom 163 137 5 0 0 0 - - -; +#X floatatom 203 137 5 0 0 0 - - -; +#X floatatom 174 56 5 0 0 0 - - -; +#X floatatom 243 137 5 0 0 0 - - -; +#N canvas 324 92 686 486 input_data_______________ 0; +#X obj 188 92 stripnote; +#X floatatom 188 116 5 0 0 0 - - -; +#X floatatom 247 115 5 0 0 0 - - -; +#X text 115 118 MIDI NOTE; +#X text 293 117 MIDI VELOCITY; +#X floatatom 478 155 0 0 0 0 - - -; +#X floatatom 441 176 0 0 0 0 - - -; +#X floatatom 515 132 2 0 0 0 - - -; +#X obj 441 105 polytouchin; +#X text 534 133 channel; +#X text 442 62 polyphonic aftertouch, f 10; +#X text 472 178 aftertouch value; +#X text 507 157 note; +#X obj 188 196 pack f f f; +#X msg 188 139 set \$1; +#X floatatom 188 163 5 0 0 0 - - -; +#X obj 441 200 t b f; +#X text 264 92 Remove Note Offs; +#X obj 188 240 s launchpad_note; +#X obj 156 280 outlet; +#X obj 206 280 outlet; +#X obj 256 280 outlet; +#X obj 316 280 outlet; +#X obj 366 280 outlet; +#X obj 416 280 outlet; +#X obj 188 68 notein; +#X floatatom 418 250 5 0 0 0 - - -; +#X obj 67 216 pack f f f f; +#X connect 0 0 1 0; +#X connect 0 1 2 0; +#X connect 1 0 14 0; +#X connect 1 0 20 0; +#X connect 2 0 21 0; +#X connect 2 0 13 1; +#X connect 2 0 27 2; +#X connect 5 0 23 0; +#X connect 6 0 16 0; +#X connect 6 0 22 0; +#X connect 7 0 26 0; +#X connect 8 0 6 0; +#X connect 8 1 5 0; +#X connect 8 2 7 0; +#X connect 14 0 15 0; +#X connect 15 0 13 0; +#X connect 15 0 27 1; +#X connect 16 0 15 0; +#X connect 16 1 13 2; +#X connect 16 1 27 3; +#X connect 25 0 0 0; +#X connect 25 1 0 1; +#X connect 25 2 26 0; +#X connect 26 0 24 0; +#X connect 26 0 27 0; +#X connect 27 0 19 0; +#X connect 27 0 18 0; +#X restore 20 24 pd input_data_______________; +#X obj 20 128 outlet; +#X text 125 118 Key; +#X text 166 119 Vel; +#X text 201 119 After; +#X text 242 120 Chan; +#X text 105 99 MIDI data; +#X text 517 486 MESSING AROUND WITH THE NOVATION LAUNCHPAD X CONTROLLER +; +#X obj 1196 539 r launchpad_note; +#X obj 1236 735 phasor~; +#X obj 1236 683 mtof; +#X floatatom 1236 613 5 0 0 0 - - -; +#X floatatom 1276 613 5 0 0 0 - - -; +#X floatatom 1316 613 5 0 0 0 - - -; +#X obj 1316 735 line~; +#X obj 1316 636 / 127; +#X floatatom 1316 660 5 0 0 0 - - -; +#X obj 1235 819 dac~; +#X msg 1316 683 \$1 10; +#X obj 1236 636 + 36; +#X floatatom 1236 660 5 0 0 0 - - -; +#X floatatom 1236 707 5 0 0 0 - - -; +#X obj 1236 767 *~; +#X obj 1032 496 r launchpad_note; +#X obj 1032 536 list prepend 0; +#X floatatom 925 588 5 0 0 0 - - -; +#X floatatom 965 588 5 0 0 0 - - -; +#X floatatom 1005 588 5 0 0 0 - - -; +#X obj 923 653 pack f f f f; +#X obj 925 611 t f f; +#X obj 923 851 clone clone_phasor 64; +#X msg 885 788 vis 20 1; +#X msg 885 819 vis 20 0; +#X obj 1014 787 poly 64; +#X obj 892 554 unpack f f f f; +#X floatatom 881 587 5 0 0 0 - - -; +#X obj 1196 589 unpack f f f f; +#X floatatom 1196 613 5 0 0 0 - - -; +#X obj 955 75 s launchpad_note; +#X floatatom 344 137 0 0 0 0 - - -; +#X floatatom 308 136 0 0 0 0 - - -; +#X floatatom 380 137 0 0 0 0 - - -; +#X obj 318 17 ctlin; +#X text 299 120 value; +#X text 362 16 (all controllers \, omni); +#X text 343 120 ctl; +#X text 381 120 chan; +#X obj 467 80 outlet; +#X obj 466 50 pack f f f; +#X connect 0 0 1 0; +#X connect 0 1 1 1; +#X connect 1 0 2 0; +#X connect 2 0 7 0; +#X connect 4 0 5 0; +#X connect 4 1 5 1; +#X connect 5 0 6 0; +#X connect 5 1 8 0; +#X connect 6 0 85 0; +#X connect 8 0 84 1; +#X connect 11 0 15 1; +#X connect 12 0 11 0; +#X connect 12 1 28 0; +#X connect 18 0 24 0; +#X connect 19 0 20 0; +#X connect 20 0 21 0; +#X connect 20 0 22 0; +#X connect 21 0 31 0; +#X connect 22 0 20 1; +#X connect 23 0 82 0; +#X connect 24 0 19 0; +#X connect 25 0 15 0; +#X connect 26 0 16 0; +#X connect 27 0 16 0; +#X connect 28 0 15 1; +#X connect 29 0 16 0; +#X connect 30 0 16 0; +#X connect 31 0 23 0; +#X connect 33 0 34 0; +#X connect 34 0 36 0; +#X connect 34 0 37 0; +#X connect 35 0 39 0; +#X connect 35 1 40 0; +#X connect 36 0 35 1; +#X connect 37 0 36 0; +#X connect 39 0 38 0; +#X connect 40 0 38 0; +#X connect 42 0 87 0; +#X connect 44 0 42 0; +#X connect 44 1 41 0; +#X connect 44 2 43 0; +#X connect 50 0 52 0; +#X connect 51 0 50 0; +#X connect 57 0 61 0; +#X connect 57 1 60 0; +#X connect 57 2 59 0; +#X connect 58 0 57 0; +#X connect 62 2 64 0; +#X connect 63 0 62 0; +#X connect 64 0 70 0; +#X connect 65 0 66 0; +#X connect 66 0 67 0; +#X connect 67 0 71 0; +#X connect 68 0 69 0; +#X connect 69 0 66 0; +#X connect 69 1 67 1; +#X connect 70 0 68 0; +#X connect 70 1 65 0; +#X connect 73 0 72 0; +#X connect 75 0 63 0; +#X connect 76 0 53 0; +#X connect 76 0 75 0; +#X connect 77 0 74 0; +#X connect 77 0 75 0; +#X connect 78 0 79 0; +#X connect 79 0 80 0; +#X connect 81 0 79 0; +#X connect 81 1 80 1; +#X connect 82 1 78 0; +#X connect 85 0 86 0; +#X connect 86 0 84 0; +#X connect 87 0 86 0; +#X connect 87 1 84 2; +#X connect 94 0 95 0; +#X connect 94 1 89 0; +#X connect 94 2 90 0; +#X connect 94 3 91 0; +#X connect 94 4 92 0; +#X connect 94 5 93 0; +#X connect 102 0 130 0; +#X connect 103 0 116 0; +#X connect 104 0 115 0; +#X connect 105 0 113 0; +#X connect 107 0 109 0; +#X connect 108 0 116 1; +#X connect 109 0 110 0; +#X connect 110 0 112 0; +#X connect 112 0 108 0; +#X connect 113 0 114 0; +#X connect 114 0 104 0; +#X connect 115 0 103 0; +#X connect 117 0 118 0; +#X connect 117 0 128 0; +#X connect 119 0 123 0; +#X connect 120 0 122 2; +#X connect 121 0 122 3; +#X connect 122 0 124 0; +#X connect 123 0 122 0; +#X connect 123 1 122 1; +#X connect 125 0 124 0; +#X connect 126 0 124 0; +#X connect 128 0 129 0; +#X connect 128 1 119 0; +#X connect 128 2 120 0; +#X connect 128 3 121 0; +#X connect 130 0 131 0; +#X connect 130 1 105 0; +#X connect 130 2 106 0; +#X connect 130 3 107 0; +#X connect 136 0 134 0; +#X connect 136 0 142 0; +#X connect 136 1 133 0; +#X connect 136 1 142 1; +#X connect 136 2 135 0; +#X connect 136 2 142 2; +#X connect 142 0 141 0; +#X coords 0 -1 1 1 340 60 2 100 100; diff --git a/mixer.pd b/mixer.pd index 62fdfe8..42dbea6 100644 --- a/mixer.pd +++ b/mixer.pd @@ -1,5 +1,5 @@ -#N canvas 0 68 1920 1084 12; -#X obj 1 101 cnv 15 1908 392 empty empty empty 20 12 0 14 -233017 -66577 +#N canvas 0 23 1680 980 12; +#X obj 1 101 cnv 15 1808 392 empty empty empty 20 12 0 14 -233017 -66577 0; #X obj 22 100 channel; #X obj 111 100 channel; @@ -9,59 +9,55 @@ #X obj 289 100 channel; #X obj 200 71 inlet~; #X obj 289 71 inlet~; -#X obj 378 100 channel; -#X obj 467 100 channel; +#X obj 377 100 channel; #X obj 378 71 inlet~; #X obj 467 71 inlet~; -#X obj 556 100 channel; -#X obj 645 100 channel; +#X obj 466 100 channel; +#X obj 555 100 channel; #X obj 556 -219 inlet~; #X obj 645 -219 inlet~; -#X obj 734 100 channel; -#X obj 823 100 channel; +#X obj 644 100 channel; +#X obj 733 100 channel; #X obj 734 -219 inlet~; #X obj 823 -219 inlet~; -#X obj 912 100 channel; -#X obj 1001 100 channel; +#X obj 822 100 channel; +#X obj 911 100 channel; #X obj 912 -219 inlet~; #X obj 1001 -219 inlet~; -#X obj 1090 100 channel; -#X obj 1179 100 channel; +#X obj 1000 100 channel; +#X obj 1089 100 channel; #X obj 1090 -219 inlet~; #X obj 1179 -219 inlet~; -#X obj 1268 100 channel; -#X obj 1357 100 channel; +#X obj 1178 100 channel; +#X obj 1267 100 channel; #X obj 1268 -219 inlet~; #X obj 1357 -219 inlet~; -#X obj 1446 100 channel; -#X obj 1533 100 channel; +#X obj 1356 100 channel; +#X obj 1443 100 channel; #X obj 1446 -219 inlet~; #X obj 1533 -219 inlet~; -#X obj 1622 100 channel; -#X obj 1711 100 channel; +#X obj 1532 100 channel; +#X obj 1621 100 channel; #X obj 1622 -219 inlet~; #X obj 1711 -221 inlet~; -#X obj 1800 100 channel; +#X obj 1710 100 channel; #X obj 1800 -221 inlet~; #X text 208 331 houchl; #X text 298 331 johnsz2; -#X text 387 331 martse; -#X text 479 331 mucelj; -#X text 565 331 nelsoc5; -#X text 666 331 nik; -#X text 747 331 novaa; -#X text 831 331 ortegm3; -#X text 925 331 persow; -#X text 1012 331 plancs; -#X text 1100 331 quarlm; -#X text 1190 331 rothgj; -#X text 1278 331 schans2; -#X text 1367 331 sheny13; -#X text 1450 331 smithd32; -#X text 1543 331 takakh; -#X text 1630 331 villan2; -#X text 1720 333 zhaox10; -#X text 1809 333 zhuy16; +#X text 389 331 mucelj; +#X text 576 331 nik; +#X text 657 331 novaa; +#X text 835 331 persow; +#X text 922 331 plancs; +#X text 1010 331 quarlm; +#X text 1100 331 rothgj; +#X text 1188 331 schans2; +#X text 1277 331 sheny13; +#X text 1360 331 smithd32; +#X text 1453 331 takakh; +#X text 1540 331 villan2; +#X text 1630 333 zhaox10; +#X text 1719 333 zhuy16; #X obj 12 -371 catch~ bartoa_audio_1; #X obj 52 -327 catch~ houchl_audio_1; #X obj 72 -305 catch~ johnsz2_audio_1; @@ -358,8 +354,6 @@ to stereo bus; #X obj 212 46 r houchl_mute; #X obj 312 46 r johnsz2_mute; #X obj 302 26 r johnsz2_solo; -#X obj 402 26 r martse_solo; -#X obj 412 46 r martse_mute; #X obj 512 46 r mucelj_mute; #X obj 502 26 r mucelj_solo; #X obj 602 26 r nelsoc5_solo; @@ -393,130 +387,126 @@ to stereo bus; #X obj 1822 -69 r zhuy16_mute; #X obj 1812 -89 r zhuy16_solo; #X obj 32 -349 catch~ hamilr4_audio_1; -#X connect 1 0 81 0; -#X connect 1 1 81 1; -#X connect 2 0 81 2; -#X connect 2 1 81 3; +#X text 741 332 --------; +#X text 475 331 --------; +#X connect 1 0 77 0; +#X connect 1 1 77 1; +#X connect 2 0 77 2; +#X connect 2 1 77 3; #X connect 3 0 1 0; #X connect 4 0 2 0; -#X connect 5 0 81 4; -#X connect 5 1 81 5; -#X connect 6 0 81 6; -#X connect 6 1 81 7; +#X connect 5 0 77 4; +#X connect 5 1 77 5; +#X connect 6 0 77 6; +#X connect 6 1 77 7; #X connect 7 0 5 0; #X connect 8 0 6 0; -#X connect 9 0 81 8; -#X connect 9 1 81 9; -#X connect 10 0 81 10; -#X connect 10 1 81 11; +#X connect 9 0 77 10; +#X connect 9 1 77 11; #X connect 11 0 9 0; -#X connect 12 0 10 0; -#X connect 13 0 81 12; -#X connect 13 1 81 13; -#X connect 14 0 81 14; -#X connect 14 1 81 15; +#X connect 12 0 77 12; +#X connect 12 1 77 13; +#X connect 13 0 77 14; +#X connect 13 1 77 15; +#X connect 14 0 12 0; #X connect 15 0 13 0; -#X connect 16 0 14 0; -#X connect 17 0 81 16; -#X connect 17 1 81 17; -#X connect 18 0 81 18; -#X connect 18 1 81 19; +#X connect 16 0 77 16; +#X connect 16 1 77 17; +#X connect 17 0 77 18; +#X connect 17 1 77 19; +#X connect 18 0 16 0; #X connect 19 0 17 0; -#X connect 20 0 18 0; -#X connect 21 0 81 20; -#X connect 21 1 81 21; -#X connect 22 0 81 22; -#X connect 22 1 81 23; +#X connect 20 0 77 20; +#X connect 20 1 77 21; +#X connect 21 0 77 22; +#X connect 21 1 77 23; +#X connect 22 0 20 0; #X connect 23 0 21 0; -#X connect 24 0 22 0; -#X connect 25 0 81 24; -#X connect 25 1 81 25; -#X connect 26 0 81 26; -#X connect 26 1 81 27; +#X connect 24 0 77 24; +#X connect 24 1 77 25; +#X connect 25 0 77 26; +#X connect 25 1 77 27; +#X connect 26 0 24 0; #X connect 27 0 25 0; -#X connect 28 0 26 0; -#X connect 29 0 81 28; -#X connect 29 1 81 29; -#X connect 30 0 81 30; -#X connect 30 1 81 31; +#X connect 28 0 77 28; +#X connect 28 1 77 29; +#X connect 29 0 77 30; +#X connect 29 1 77 31; +#X connect 30 0 28 0; #X connect 31 0 29 0; -#X connect 32 0 30 0; -#X connect 33 0 81 32; -#X connect 33 1 81 33; -#X connect 34 0 81 34; -#X connect 34 1 81 35; +#X connect 32 0 77 32; +#X connect 32 1 77 33; +#X connect 33 0 77 34; +#X connect 33 1 77 35; +#X connect 34 0 32 0; #X connect 35 0 33 0; -#X connect 36 0 34 0; -#X connect 37 0 81 36; -#X connect 37 1 81 37; -#X connect 38 0 81 38; -#X connect 38 1 81 39; +#X connect 36 0 77 36; +#X connect 36 1 77 37; +#X connect 37 0 77 38; +#X connect 37 1 77 39; +#X connect 38 0 36 0; #X connect 39 0 37 0; -#X connect 40 0 38 0; -#X connect 41 0 81 40; -#X connect 41 1 81 41; -#X connect 42 0 41 0; -#X connect 62 0 1 0; -#X connect 63 0 5 0; -#X connect 64 0 6 0; -#X connect 65 0 9 0; -#X connect 66 0 10 0; -#X connect 67 0 13 0; -#X connect 68 0 14 0; -#X connect 69 0 17 0; -#X connect 70 0 18 0; -#X connect 71 0 21 0; -#X connect 72 0 22 0; -#X connect 73 0 25 0; -#X connect 74 0 26 0; -#X connect 75 0 29 0; -#X connect 76 0 30 0; -#X connect 77 0 34 0; -#X connect 78 0 41 0; -#X connect 79 0 38 0; -#X connect 80 0 37 0; -#X connect 83 0 33 0; -#X connect 86 0 1 2; -#X connect 87 0 1 1; -#X connect 88 0 2 1; -#X connect 89 0 2 2; -#X connect 90 0 5 1; -#X connect 91 0 5 2; -#X connect 92 0 6 2; -#X connect 93 0 6 1; -#X connect 94 0 9 1; -#X connect 95 0 9 2; -#X connect 96 0 10 2; -#X connect 97 0 10 1; -#X connect 98 0 13 1; -#X connect 99 0 13 2; -#X connect 100 0 14 1; -#X connect 101 0 14 2; -#X connect 102 0 17 2; -#X connect 103 0 17 1; -#X connect 104 0 18 2; -#X connect 105 0 18 1; -#X connect 106 0 21 1; -#X connect 107 0 21 2; -#X connect 108 0 22 2; -#X connect 109 0 22 1; -#X connect 110 0 25 2; -#X connect 111 0 25 1; -#X connect 112 0 26 1; -#X connect 113 0 26 2; -#X connect 114 0 29 2; -#X connect 115 0 29 1; -#X connect 116 0 30 2; -#X connect 117 0 30 1; -#X connect 118 0 33 1; -#X connect 119 0 33 2; -#X connect 120 0 34 1; -#X connect 121 0 34 2; -#X connect 122 0 37 1; -#X connect 123 0 37 2; -#X connect 124 0 38 2; -#X connect 125 0 38 1; -#X connect 126 0 41 2; -#X connect 127 0 41 1; -#X connect 128 0 2 0; -#X coords 0 -1 1 1 1910 394 2 0 100; +#X connect 40 0 77 40; +#X connect 40 1 77 41; +#X connect 41 0 40 0; +#X connect 58 0 1 0; +#X connect 59 0 5 0; +#X connect 60 0 6 0; +#X connect 62 0 9 0; +#X connect 63 0 12 0; +#X connect 64 0 13 0; +#X connect 65 0 16 0; +#X connect 66 0 17 0; +#X connect 67 0 20 0; +#X connect 68 0 21 0; +#X connect 69 0 24 0; +#X connect 70 0 25 0; +#X connect 71 0 28 0; +#X connect 72 0 29 0; +#X connect 73 0 33 0; +#X connect 74 0 40 0; +#X connect 75 0 37 0; +#X connect 76 0 36 0; +#X connect 79 0 32 0; +#X connect 82 0 1 2; +#X connect 83 0 1 1; +#X connect 84 0 2 1; +#X connect 85 0 2 2; +#X connect 86 0 5 1; +#X connect 87 0 5 2; +#X connect 88 0 6 2; +#X connect 89 0 6 1; +#X connect 90 0 9 2; +#X connect 91 0 9 1; +#X connect 92 0 12 1; +#X connect 93 0 12 2; +#X connect 94 0 13 1; +#X connect 95 0 13 2; +#X connect 96 0 16 2; +#X connect 97 0 16 1; +#X connect 98 0 17 2; +#X connect 99 0 17 1; +#X connect 100 0 20 1; +#X connect 101 0 20 2; +#X connect 102 0 21 2; +#X connect 103 0 21 1; +#X connect 104 0 24 2; +#X connect 105 0 24 1; +#X connect 106 0 25 1; +#X connect 107 0 25 2; +#X connect 108 0 28 2; +#X connect 109 0 28 1; +#X connect 110 0 29 2; +#X connect 111 0 29 1; +#X connect 112 0 32 1; +#X connect 113 0 32 2; +#X connect 114 0 33 1; +#X connect 115 0 33 2; +#X connect 116 0 36 1; +#X connect 117 0 36 2; +#X connect 118 0 37 2; +#X connect 119 0 37 1; +#X connect 120 0 40 2; +#X connect 121 0 40 1; +#X connect 122 0 2 0; +#X coords 0 -1 1 1 1810 394 2 0 100; diff --git a/mucelj.pd b/mucelj.pd old mode 100644 new mode 100755 index 434ac9b..cb9250a --- a/mucelj.pd +++ b/mucelj.pd @@ -1,47 +1,1048 @@ -#N canvas 765 186 915 842 12; -#X obj 113 40 inlet; -#X obj 51 39 inlet~; -#X obj 260 542 outlet~; -#X obj 235 92 receive mucelj_tempo; -#X obj 242 125 receive mucelj_control; -#X obj 213 54 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 --1; -#X obj 297 186 + 1; -#X floatatom 238 233 5 0 0 0 - - -; -#X obj 239 183 f; -#N canvas 0 23 1920 1130 (subpatch) 0; -#X array array1_mucelj 16 float 3; -#A 0 42.0337 44.2078 45.21 47.0451 44.2373 44.2373 40.2204 40.2208 -42.1737 44.2593 45.1803 47.2148 44.2078 41.6429 40.3463 40.4053; -#X coords 0 40 16 50 200 140 1 0 0; -#X restore 22 141 graph; -#X obj 295 211 mod 16; -#X obj 249 333 mtof; -#X floatatom 251 365 5 0 0 0 - - -; -#X obj 254 446 osc~; -#X floatatom 246 302 5 0 0 0 - - -; -#X obj 432 113 metro 500; -#X obj 428 72 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +#N canvas 0 23 1920 1129 12; +#X obj 463 378 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; -#X obj 328 569 throw~ mucelj_audio_1; -#X obj 331 308 + 20; -#X obj 241 265 tabread array1_mucelj; -#X obj 254 485 *~ 1; -#X connect 3 0 5 0; -#X connect 3 0 8 0; -#X connect 6 0 8 1; -#X connect 6 0 10 0; +#X floatatom 495 186 5 0 0 0 - - -; +#X obj 495 214 select 97; +#X floatatom 567 152 5 0 0 0 - - -; +#X floatatom 643 188 5 0 0 0 - - -; +#X floatatom 699 152 5 0 0 0 - - -; +#X floatatom 776 184 5 0 0 0 - - -; +#X floatatom 850 183 5 0 0 0 - - -; +#X floatatom 920 158 5 0 0 0 - - -; +#X floatatom 994 180 5 0 0 0 - - -; +#X floatatom 1065 156 5 0 0 0 - - -; +#X floatatom 1143 181 5 0 0 0 - - -; +#X floatatom 1213 157 5 0 0 0 - - -; +#X floatatom 1287 176 5 0 0 0 - - -; +#X floatatom 1360 177 5 0 0 0 - - -; +#X obj 567 180 select 119; +#X obj 643 216 select 115; +#X obj 699 180 select 101; +#X obj 776 212 select 100; +#X obj 849 211 select 102; +#X obj 920 186 select 116; +#X obj 994 208 select 103; +#X obj 1065 184 select 121; +#X obj 1143 209 select 104; +#X obj 1213 185 select 117; +#X obj 1288 207 select 106; +#X obj 1360 205 select 107; +#X floatatom 1439 150 5 0 0 0 - - -; +#X floatatom 1515 186 5 0 0 0 - - -; +#X floatatom 1571 150 5 0 0 0 - - -; +#X floatatom 1648 182 5 0 0 0 - - -; +#X floatatom 1722 181 5 0 0 0 - - -; +#X floatatom 1792 156 5 0 0 0 - - -; +#X obj 1515 214 select 108; +#X obj 1571 178 select 112; +#X obj 1648 210 select 59; +#X obj 1721 209 select 39; +#X obj 1792 184 select 93; +#X floatatom 1046 367 5 0 0 0 - - -; +#X msg 495 263 261.63; +#X msg 567 237 277.18; +#X msg 643 250 293.66; +#X msg 723 244 311.13; +#X msg 777 244 329.63; +#X msg 849 247 349.23; +#X msg 923 241 369.99; +#X msg 997 242 392; +#X msg 1068 235 415; +#X msg 1145 240 440; +#X msg 1222 237 466.16; +#X msg 1286 237 493.88; +#X msg 1363 239 523.25; +#X msg 1439 238 554.37; +#X msg 1515 247 587.33; +#X msg 1587 245 622.25; +#X msg 1660 247 659.25; +#X msg 1729 246 698.46; +#X msg 1799 244 739.99; +#X obj 1021 453 dac~; +#X obj 1439 178 select 111; +#X floatatom 2016 150 5 0 0 0 - - -; +#X obj 2016 178 select 0; +#X msg 2023 238 0; +#X obj 524 438 + 1; +#X floatatom 469 479 5 0 0 0 - - -; +#X obj 462 439 f; +#X obj 462 404 metro 150; +#X obj 320 549 select 0; +#N canvas 1282 547 450 418 harmonics 0; +#X floatatom 139 32 5 0 0 0 - - -; +#X obj 220 304 *~ 0; +#X floatatom 28 95 5 0 0 0 - - -; +#X floatatom 88 97 5 0 0 0 - - -; +#X floatatom 146 97 5 0 0 0 - - -; +#X floatatom 196 97 5 0 0 0 - - -; +#X obj 27 69 * 1; +#X obj 89 67 * 2; +#X obj 142 68 * 3; +#X obj 195 71 * 4; +#X obj 28 158 *~ 1; +#X obj 53 191 +~; +#X obj 168 190 +~; +#X obj 117 214 +~; +#X obj 89 160 *~ 0.8; +#X obj 145 161 *~ 0.4; +#X obj 195 160 *~ 0.2; +#X floatatom 263 189 5 0 0 0 - - -; +#X obj 263 69 * 1; +#X floatatom 263 98 5 0 0 0 - - -; +#X obj 263 130 pow -1; +#X obj 254 20 inlet; +#X obj 138 348 outlet~; +#X obj 28 126 phasor~; +#X obj 88 128 phasor~; +#X obj 146 126 phasor~; +#X obj 196 126 phasor~; +#X obj 263 160 * 20; +#X connect 0 0 6 0; +#X connect 0 0 7 0; +#X connect 0 0 8 0; +#X connect 0 0 9 0; +#X connect 0 0 18 0; +#X connect 1 0 22 0; +#X connect 2 0 23 0; +#X connect 3 0 24 0; +#X connect 4 0 25 0; +#X connect 5 0 26 0; +#X connect 6 0 2 0; +#X connect 7 0 3 0; +#X connect 8 0 4 0; +#X connect 9 0 5 0; +#X connect 10 0 11 0; +#X connect 11 0 13 0; +#X connect 12 0 13 1; +#X connect 13 0 1 0; +#X connect 14 0 11 1; +#X connect 15 0 12 0; +#X connect 16 0 12 1; +#X connect 17 0 1 1; +#X connect 18 0 19 0; +#X connect 19 0 20 0; +#X connect 20 0 27 0; +#X connect 21 0 0 0; +#X connect 23 0 10 0; +#X connect 24 0 14 0; +#X connect 25 0 15 0; +#X connect 26 0 16 0; +#X connect 27 0 17 0; +#X restore 1046 394 pd harmonics; +#X msg 320 592 103.83; +#X msg 378 591 185; +#X msg 416 591 246.94; +#X msg 476 591 311.13; +#X msg 536 591 369.99; +#X obj 524 463 mod 192; +#X obj 635 548 select 6; +#X msg 1116 595 311.13; +#X msg 1176 595 369.99; +#X obj 941 557 select 11; +#N canvas 1047 572 450 431 chord1 0; +#X floatatom 139 32 5 0 0 0 - - -; +#X obj 28 126 osc~; +#X obj 220 304 *~ 0; +#X obj 88 128 osc~; +#X obj 146 126 osc~; +#X obj 196 126 osc~; +#X floatatom 28 95 5 0 0 0 - - -; +#X floatatom 88 97 5 0 0 0 - - -; +#X floatatom 146 97 5 0 0 0 - - -; +#X floatatom 196 97 5 0 0 0 - - -; +#X obj 27 69 * 1; +#X obj 89 67 * 2; +#X obj 142 68 * 3; +#X obj 195 71 * 4; +#X obj 28 158 *~ 1; +#X obj 53 191 +~; +#X obj 168 190 +~; +#X obj 117 214 +~; +#X obj 89 160 *~ 0.8; +#X obj 145 161 *~ 0.4; +#X obj 195 160 *~ 0.2; +#X floatatom 263 189 5 0 0 0 - - -; +#X obj 263 69 * 1; +#X floatatom 263 98 5 0 0 0 - - -; +#X obj 263 130 pow -1; +#X obj 254 20 inlet; +#X obj 138 348 outlet~; +#X obj 263 160 * 10; +#X connect 0 0 10 0; +#X connect 0 0 11 0; +#X connect 0 0 12 0; +#X connect 0 0 13 0; +#X connect 0 0 22 0; +#X connect 1 0 14 0; +#X connect 2 0 26 0; +#X connect 3 0 18 0; +#X connect 4 0 19 0; +#X connect 5 0 20 0; +#X connect 6 0 1 0; +#X connect 7 0 3 0; +#X connect 8 0 4 0; +#X connect 9 0 5 0; +#X connect 10 0 6 0; +#X connect 11 0 7 0; +#X connect 12 0 8 0; +#X connect 13 0 9 0; +#X connect 14 0 15 0; +#X connect 15 0 17 0; +#X connect 16 0 17 1; +#X connect 17 0 2 0; +#X connect 18 0 15 1; +#X connect 19 0 16 0; +#X connect 20 0 16 1; +#X connect 21 0 2 1; +#X connect 22 0 23 0; +#X connect 23 0 24 0; +#X connect 24 0 27 0; +#X connect 25 0 0 0; +#X connect 27 0 21 0; +#X restore 1464 1004 pd chord1; +#N canvas 564 665 450 446 chord2 0; +#X floatatom 139 32 5 0 0 0 - - -; +#X obj 28 126 osc~; +#X obj 220 304 *~ 0; +#X obj 88 128 osc~; +#X obj 146 126 osc~; +#X obj 196 126 osc~; +#X floatatom 28 95 5 0 0 0 - - -; +#X floatatom 88 97 5 0 0 0 - - -; +#X floatatom 146 97 5 0 0 0 - - -; +#X floatatom 196 97 5 0 0 0 - - -; +#X obj 27 69 * 1; +#X obj 89 67 * 2; +#X obj 142 68 * 3; +#X obj 195 71 * 4; +#X obj 28 158 *~ 1; +#X obj 53 191 +~; +#X obj 168 190 +~; +#X obj 117 214 +~; +#X obj 89 160 *~ 0.8; +#X obj 145 161 *~ 0.4; +#X obj 195 160 *~ 0.2; +#X floatatom 263 189 5 0 0 0 - - -; +#X obj 263 69 * 1; +#X floatatom 263 98 5 0 0 0 - - -; +#X obj 263 130 pow -1; +#X obj 254 20 inlet; +#X obj 138 348 outlet~; +#X obj 263 160 * 10; +#X connect 0 0 10 0; +#X connect 0 0 11 0; +#X connect 0 0 12 0; +#X connect 0 0 13 0; +#X connect 0 0 22 0; +#X connect 1 0 14 0; +#X connect 2 0 26 0; +#X connect 3 0 18 0; +#X connect 4 0 19 0; +#X connect 5 0 20 0; +#X connect 6 0 1 0; +#X connect 7 0 3 0; +#X connect 8 0 4 0; +#X connect 9 0 5 0; +#X connect 10 0 6 0; +#X connect 11 0 7 0; +#X connect 12 0 8 0; +#X connect 13 0 9 0; +#X connect 14 0 15 0; +#X connect 15 0 17 0; +#X connect 16 0 17 1; +#X connect 17 0 2 0; +#X connect 18 0 15 1; +#X connect 19 0 16 0; +#X connect 20 0 16 1; +#X connect 21 0 2 1; +#X connect 22 0 23 0; +#X connect 23 0 24 0; +#X connect 24 0 27 0; +#X connect 25 0 0 0; +#X connect 27 0 21 0; +#X restore 1544 1004 pd chord2; +#X msg 622 595 116.54; +#X msg 679 594 207.65; +#X msg 728 595 277.18; +#X msg 788 595 349.23; +#X msg 848 595 415.3; +#X msg 940 595 123.47; +#X msg 998 594 233.08; +#X msg 591 590 0; +#X msg 903 594 0; +#N canvas 1054 722 450 431 chord3 0; +#X floatatom 139 32 5 0 0 0 - - -; +#X obj 28 126 osc~; +#X obj 220 304 *~ 0; +#X obj 88 128 osc~; +#X obj 146 126 osc~; +#X obj 196 126 osc~; +#X floatatom 28 95 5 0 0 0 - - -; +#X floatatom 88 97 5 0 0 0 - - -; +#X floatatom 146 97 5 0 0 0 - - -; +#X floatatom 196 97 5 0 0 0 - - -; +#X obj 27 69 * 1; +#X obj 89 67 * 2; +#X obj 142 68 * 3; +#X obj 195 71 * 4; +#X obj 28 158 *~ 1; +#X obj 53 191 +~; +#X obj 168 190 +~; +#X obj 117 214 +~; +#X obj 89 160 *~ 0.8; +#X obj 145 161 *~ 0.4; +#X obj 195 160 *~ 0.2; +#X floatatom 263 189 5 0 0 0 - - -; +#X obj 263 69 * 1; +#X floatatom 263 98 5 0 0 0 - - -; +#X obj 263 130 pow -1; +#X obj 254 20 inlet; +#X obj 138 348 outlet~; +#X obj 263 160 * 10; +#X connect 0 0 10 0; +#X connect 0 0 11 0; +#X connect 0 0 12 0; +#X connect 0 0 13 0; +#X connect 0 0 22 0; +#X connect 1 0 14 0; +#X connect 2 0 26 0; +#X connect 3 0 18 0; +#X connect 4 0 19 0; +#X connect 5 0 20 0; +#X connect 6 0 1 0; +#X connect 7 0 3 0; +#X connect 8 0 4 0; +#X connect 9 0 5 0; +#X connect 10 0 6 0; +#X connect 11 0 7 0; +#X connect 12 0 8 0; +#X connect 13 0 9 0; +#X connect 14 0 15 0; +#X connect 15 0 17 0; +#X connect 16 0 17 1; +#X connect 17 0 2 0; +#X connect 18 0 15 1; +#X connect 19 0 16 0; +#X connect 20 0 16 1; +#X connect 21 0 2 1; +#X connect 22 0 23 0; +#X connect 23 0 24 0; +#X connect 24 0 27 0; +#X connect 25 0 0 0; +#X connect 27 0 21 0; +#X restore 1623 1005 pd chord3; +#N canvas 943 836 450 300 chord4 0; +#X floatatom 139 32 5 0 0 0 - - -; +#X obj 28 126 osc~; +#X obj 220 304 *~ 0; +#X obj 88 128 osc~; +#X obj 146 126 osc~; +#X obj 196 126 osc~; +#X floatatom 28 95 5 0 0 0 - - -; +#X floatatom 88 97 5 0 0 0 - - -; +#X floatatom 146 97 5 0 0 0 - - -; +#X floatatom 196 97 5 0 0 0 - - -; +#X obj 27 69 * 1; +#X obj 89 67 * 2; +#X obj 142 68 * 3; +#X obj 195 71 * 4; +#X obj 28 158 *~ 1; +#X obj 53 191 +~; +#X obj 168 190 +~; +#X obj 117 214 +~; +#X obj 89 160 *~ 0.8; +#X obj 145 161 *~ 0.4; +#X obj 195 160 *~ 0.2; +#X floatatom 263 189 5 0 0 0 - - -; +#X obj 263 69 * 1; +#X floatatom 263 98 5 0 0 0 - - -; +#X obj 263 130 pow -1; +#X obj 254 20 inlet; +#X obj 138 348 outlet~; +#X obj 263 160 * 10; +#X connect 0 0 10 0; +#X connect 0 0 11 0; +#X connect 0 0 12 0; +#X connect 0 0 13 0; +#X connect 0 0 22 0; +#X connect 1 0 14 0; +#X connect 2 0 26 0; +#X connect 3 0 18 0; +#X connect 4 0 19 0; +#X connect 5 0 20 0; +#X connect 6 0 1 0; +#X connect 7 0 3 0; +#X connect 8 0 4 0; +#X connect 9 0 5 0; +#X connect 10 0 6 0; +#X connect 11 0 7 0; +#X connect 12 0 8 0; +#X connect 13 0 9 0; +#X connect 14 0 15 0; +#X connect 15 0 17 0; +#X connect 16 0 17 1; +#X connect 17 0 2 0; +#X connect 18 0 15 1; +#X connect 19 0 16 0; +#X connect 20 0 16 1; +#X connect 21 0 2 1; +#X connect 22 0 23 0; +#X connect 23 0 24 0; +#X connect 24 0 27 0; +#X connect 25 0 0 0; +#X connect 27 0 21 0; +#X restore 1703 1005 pd chord4; +#N canvas 919 722 450 431 chord5 0; +#X floatatom 139 32 5 0 0 0 - - -; +#X obj 28 126 osc~; +#X obj 220 304 *~ 0; +#X obj 88 128 osc~; +#X obj 146 126 osc~; +#X obj 196 126 osc~; +#X floatatom 28 95 5 0 0 0 - - -; +#X floatatom 88 97 5 0 0 0 - - -; +#X floatatom 146 97 5 0 0 0 - - -; +#X floatatom 196 97 5 0 0 0 - - -; +#X obj 27 69 * 1; +#X obj 89 67 * 2; +#X obj 142 68 * 3; +#X obj 195 71 * 4; +#X obj 28 158 *~ 1; +#X obj 53 191 +~; +#X obj 168 190 +~; +#X obj 117 214 +~; +#X obj 89 160 *~ 0.8; +#X obj 145 161 *~ 0.4; +#X obj 195 160 *~ 0.2; +#X floatatom 263 189 5 0 0 0 - - -; +#X obj 263 69 * 1; +#X floatatom 263 98 5 0 0 0 - - -; +#X obj 263 130 pow -1; +#X obj 254 20 inlet; +#X obj 138 348 outlet~; +#X obj 263 160 * 10; +#X connect 0 0 10 0; +#X connect 0 0 11 0; +#X connect 0 0 12 0; +#X connect 0 0 13 0; +#X connect 0 0 22 0; +#X connect 1 0 14 0; +#X connect 2 0 26 0; +#X connect 3 0 18 0; +#X connect 4 0 19 0; +#X connect 5 0 20 0; +#X connect 6 0 1 0; +#X connect 7 0 3 0; +#X connect 8 0 4 0; +#X connect 9 0 5 0; +#X connect 10 0 6 0; +#X connect 11 0 7 0; +#X connect 12 0 8 0; +#X connect 13 0 9 0; +#X connect 14 0 15 0; +#X connect 15 0 17 0; +#X connect 16 0 17 1; +#X connect 17 0 2 0; +#X connect 18 0 15 1; +#X connect 19 0 16 0; +#X connect 20 0 16 1; +#X connect 21 0 2 1; +#X connect 22 0 23 0; +#X connect 23 0 24 0; +#X connect 24 0 27 0; +#X connect 25 0 0 0; +#X connect 27 0 21 0; +#X restore 1780 1007 pd chord5; +#N canvas 789 518 450 397 chord6 0; +#X floatatom 139 32 5 0 0 0 - - -; +#X obj 28 126 osc~; +#X obj 220 304 *~ 0; +#X obj 88 128 osc~; +#X obj 146 126 osc~; +#X obj 196 126 osc~; +#X floatatom 28 95 5 0 0 0 - - -; +#X floatatom 88 97 5 0 0 0 - - -; +#X floatatom 146 97 5 0 0 0 - - -; +#X floatatom 196 97 5 0 0 0 - - -; +#X obj 27 69 * 1; +#X obj 89 67 * 2; +#X obj 142 68 * 3; +#X obj 195 71 * 4; +#X obj 28 158 *~ 1; +#X obj 53 191 +~; +#X obj 168 190 +~; +#X obj 117 214 +~; +#X obj 89 160 *~ 0.8; +#X obj 145 161 *~ 0.4; +#X obj 195 160 *~ 0.2; +#X floatatom 263 189 5 0 0 0 - - -; +#X obj 263 69 * 1; +#X floatatom 263 98 5 0 0 0 - - -; +#X obj 263 130 pow -1; +#X obj 254 20 inlet; +#X obj 138 348 outlet~; +#X obj 263 160 * 10; +#X connect 0 0 10 0; +#X connect 0 0 11 0; +#X connect 0 0 12 0; +#X connect 0 0 13 0; +#X connect 0 0 22 0; +#X connect 1 0 14 0; +#X connect 2 0 26 0; +#X connect 3 0 18 0; +#X connect 4 0 19 0; +#X connect 5 0 20 0; +#X connect 6 0 1 0; +#X connect 7 0 3 0; +#X connect 8 0 4 0; +#X connect 9 0 5 0; +#X connect 10 0 6 0; +#X connect 11 0 7 0; +#X connect 12 0 8 0; +#X connect 13 0 9 0; +#X connect 14 0 15 0; +#X connect 15 0 17 0; +#X connect 16 0 17 1; +#X connect 17 0 2 0; +#X connect 18 0 15 1; +#X connect 19 0 16 0; +#X connect 20 0 16 1; +#X connect 21 0 2 1; +#X connect 22 0 23 0; +#X connect 23 0 24 0; +#X connect 24 0 27 0; +#X connect 25 0 0 0; +#X connect 27 0 21 0; +#X restore 1862 1006 pd chord6; +#X msg 397 403 0; +#X obj 1545 1056 +~; +#X obj 1660 1055 +~; +#X obj 1609 1079 +~; +#X obj 1844 1054 +~; +#X obj 1662 1143 +~; +#X obj 1575 1203 dac~; +#X msg 1056 595 277.18; +#X msg 1234 596 415.3; +#X msg 1954 600 103.83; +#X msg 2012 599 185; +#X msg 2050 599 246.94; +#X msg 2111 600 369.99; +#X msg 1414 596 311.13; +#X msg 1610 599 116.54; +#X msg 1667 598 207.65; +#X msg 1716 599 277.18; +#X msg 1782 599 415.3; +#X msg 1294 596 123.47; +#X msg 1355 596 233.08; +#X msg 1474 594 415.3; +#X obj 1633 560 select 30; +#X obj 2277 568 select 42; +#X obj 1312 561 select 24; +#X obj 1954 567 select 36; +#X obj 1469 560 select 27; +#X obj 1798 568 select 33; +#X obj 2473 562 select 45; +#X obj 2129 567 select 39; +#X obj 392 549 select 48; +#X obj 461 548 select 96; +#X obj 540 550 select 144; +#X obj 1383 562 select 120; +#X obj 1541 563 select 123; +#X msg 1528 595 554.37; +#X msg 1859 601 466.16, f 7; +#X msg 2178 600 415.3; +#X msg 2262 600 65.41; +#X msg 2309 600 130.81; +#X msg 2358 599 164.81; +#X msg 2418 599 233.08; +#X msg 2476 599 311.13; +#X msg 2533 599 277.18; +#X msg 1806 833 369.99; +#X msg 1252 833 116.54; +#X msg 1309 832 207.65; +#X msg 1478 833 415.3; +#X msg 1533 832 0; +#X msg 1686 833 277.18; +#X msg 1358 833 246.94; +#X msg 1418 833 293.66; +#X msg 1570 833 77.78; +#X msg 1628 832 155.56; +#X msg 1864 834 466.16; +#X obj 1265 786 select 54; +#X obj 1571 795 select 59; +#X msg 1746 833 349.23; +#X obj 1347 786 select 150; +#X obj 1649 793 select 155; +#X obj 706 548 select 102; +#X obj 1019 555 select 107; +#X obj 2555 567 select 141; +#X obj 2365 568 select 138; +#X obj 2196 570 select 135; +#X obj 2038 567 select 132; +#X obj 1876 570 select 129; +#X obj 1710 567 select 126; +#X obj 1952 798 select 71; +#X obj 2079 795 select 72; +#X obj 2215 794 select 83; +#X obj 2444 799 select 84; +#X msg 2141 837 69.3; +#X msg 2185 838 138.59; +#X msg 2469 837 65.41; +#X msg 2527 838 130.81; +#X msg 1915 837 277.18; +#X msg 1972 836 329.63; +#X msg 2031 836 370; +#X msg 2081 837 493.88; +#X msg 2233 837 261.63; +#X msg 2291 836 311.13; +#X msg 2349 837 370; +#X msg 2391 836 466.16; +#X obj 107 524 select 5 \, 10 \, 15 \, 29 \, 35 \, 41 \, 47 \, 53 \, +58 \, 82 \, 95 \, 101 \, 106 \, 111 \, 125 \, 131 \, 137 \, 143 \, +149 \, 154 \, 159, f 22; +#X obj 1585 315 select 167; +#X obj 1731 321 select 171 \, 174 \, 177 \, 180 \, 183 \, 186 \, 189 +; +#X obj 1742 398 f; +#X obj 1822 397 / 1.05946; +#X msg 1585 352 1; +#X floatatom 1742 425 5 0 0 0 - - -; +#X floatatom 1610 500 5 0 0 0 - - -; +#X floatatom 1659 499 5 0 0 0 - - -; +#X floatatom 1707 501 5 0 0 0 - - -; +#X floatatom 1754 501 5 0 0 0 - - -; +#X floatatom 1804 501 5 0 0 0 - - -; +#X obj 1610 471 * 138.59; +#X obj 1675 470 * 174.61; +#X obj 1744 470 * 246.94; +#X obj 1815 469 * 349.23; +#X obj 1882 469 * 493.88; +#X floatatom 1856 502 5 0 0 0 - - -; +#X obj 162 670 * 0; +#X obj 1955 469 * 0; +#X msg 1967 1084 open test.wav; +#X msg 1987 1112 start; +#X msg 2058 1126 stop; +#X msg 382 467 -1; +#X obj 1610 1174 throw~ mucelj_audio_1; +#X text 1349 1203 ROB - don't leave the DAC here; +#X text 1017 480 ROB - don't leave the DAC here; +#X obj 1155 427 throw~ mucelj_audio_1; +#X obj 1969 1176 writesf~ 2; +#X obj 730 -1 key; +#X obj 223 65 list trim; +#X obj 223 111 route key; +#X obj 223 135 unpack f s f; +#X floatatom 223 159 5 0 0 0 - - -; +#X symbolatom 264 160 10 0 0 0 - - -; +#X floatatom 341 160 5 0 0 0 - - -; +#X obj 341 183 s key_\$0; +#X obj 223 182 s keyname_\$0; +#X obj 206 36 receive mucelj_control; +#X obj 223 87 route mucelj; +#X obj 806 -3 r key_\$0, f 11; +#X obj 338 219 r key_\$0, f 11; +#X text 43 28 Justin Mucelli; +#X connect 0 0 66 0; +#X connect 1 0 2 0; +#X connect 2 0 39 0; +#X connect 3 0 15 0; +#X connect 4 0 16 0; +#X connect 5 0 17 0; +#X connect 6 0 18 0; #X connect 7 0 19 0; -#X connect 8 0 6 0; -#X connect 8 0 7 0; -#X connect 10 0 8 1; -#X connect 11 0 12 0; -#X connect 12 0 13 0; -#X connect 13 0 20 0; -#X connect 14 0 18 0; -#X connect 15 0 8 0; -#X connect 16 0 15 0; -#X connect 18 0 11 0; -#X connect 19 0 14 0; -#X connect 20 0 2 0; -#X connect 20 0 17 0; +#X connect 8 0 20 0; +#X connect 9 0 21 0; +#X connect 10 0 22 0; +#X connect 11 0 23 0; +#X connect 12 0 24 0; +#X connect 13 0 25 0; +#X connect 14 0 26 0; +#X connect 15 0 40 0; +#X connect 16 0 41 0; +#X connect 17 0 42 0; +#X connect 18 0 43 0; +#X connect 19 0 44 0; +#X connect 20 0 45 0; +#X connect 21 0 46 0; +#X connect 22 0 47 0; +#X connect 23 0 48 0; +#X connect 24 0 49 0; +#X connect 25 0 50 0; +#X connect 26 0 51 0; +#X connect 27 0 59 0; +#X connect 28 0 33 0; +#X connect 29 0 34 0; +#X connect 30 0 35 0; +#X connect 31 0 36 0; +#X connect 32 0 37 0; +#X connect 33 0 53 0; +#X connect 34 0 54 0; +#X connect 35 0 55 0; +#X connect 36 0 56 0; +#X connect 37 0 57 0; +#X connect 38 0 68 0; +#X connect 39 0 38 0; +#X connect 40 0 38 0; +#X connect 41 0 38 0; +#X connect 42 0 38 0; +#X connect 43 0 38 0; +#X connect 44 0 38 0; +#X connect 45 0 38 0; +#X connect 46 0 38 0; +#X connect 47 0 38 0; +#X connect 48 0 38 0; +#X connect 49 0 38 0; +#X connect 50 0 38 0; +#X connect 51 0 38 0; +#X connect 52 0 38 0; +#X connect 53 0 38 0; +#X connect 54 0 38 0; +#X connect 55 0 38 0; +#X connect 56 0 38 0; +#X connect 57 0 38 0; +#X connect 59 0 52 0; +#X connect 60 0 61 0; +#X connect 61 0 62 0; +#X connect 62 0 38 0; +#X connect 63 0 65 1; +#X connect 63 0 74 0; +#X connect 64 0 67 0; +#X connect 64 0 75 0; +#X connect 64 0 78 0; +#X connect 64 0 117 0; +#X connect 64 0 119 0; +#X connect 64 0 115 0; +#X connect 64 0 120 0; +#X connect 64 0 118 0; +#X connect 64 0 116 0; +#X connect 64 0 121 0; +#X connect 64 0 123 0; +#X connect 64 0 124 0; +#X connect 64 0 125 0; +#X connect 64 0 153 0; +#X connect 64 0 126 0; +#X connect 64 0 154 0; +#X connect 64 0 127 0; +#X connect 64 0 160 0; +#X connect 64 0 159 0; +#X connect 64 0 158 0; +#X connect 64 0 122 0; +#X connect 64 0 157 0; +#X connect 64 0 156 0; +#X connect 64 0 155 0; +#X connect 64 0 148 0; +#X connect 64 0 151 0; +#X connect 64 0 149 0; +#X connect 64 0 152 0; +#X connect 64 0 161 0; +#X connect 64 0 162 0; +#X connect 64 0 163 0; +#X connect 64 0 164 0; +#X connect 64 0 178 0; +#X connect 64 0 179 0; +#X connect 65 0 63 0; +#X connect 65 0 64 0; +#X connect 66 0 65 0; +#X connect 67 0 69 0; +#X connect 67 0 71 0; +#X connect 67 0 72 0; +#X connect 67 0 73 0; +#X connect 67 0 70 0; +#X connect 67 0 88 0; +#X connect 68 0 204 0; +#X connect 68 0 205 0; +#X connect 68 0 205 1; +#X connect 69 0 79 0; +#X connect 70 0 80 0; +#X connect 71 0 90 0; +#X connect 72 0 91 0; +#X connect 73 0 92 0; +#X connect 74 0 65 1; +#X connect 75 0 81 0; +#X connect 75 0 83 0; +#X connect 75 0 84 0; +#X connect 75 0 85 0; +#X connect 75 0 82 0; +#X connect 75 0 89 0; +#X connect 76 0 91 0; +#X connect 77 0 92 0; +#X connect 78 0 86 0; +#X connect 78 0 101 0; +#X connect 78 0 76 0; +#X connect 78 0 77 0; +#X connect 78 0 87 0; +#X connect 78 0 102 0; +#X connect 79 0 95 0; +#X connect 80 0 95 1; +#X connect 81 0 79 0; +#X connect 82 0 80 0; +#X connect 83 0 90 0; +#X connect 84 0 91 0; +#X connect 85 0 92 0; +#X connect 86 0 79 0; +#X connect 87 0 80 0; +#X connect 88 0 93 0; +#X connect 89 0 93 0; +#X connect 90 0 96 0; +#X connect 91 0 96 1; +#X connect 92 0 98 0; +#X connect 93 0 98 1; +#X connect 94 0 65 0; +#X connect 94 0 79 0; +#X connect 94 0 80 0; +#X connect 94 0 90 0; +#X connect 94 0 91 0; +#X connect 94 0 92 0; +#X connect 94 0 93 0; +#X connect 95 0 97 0; +#X connect 96 0 97 1; +#X connect 97 0 99 0; +#X connect 98 0 99 1; +#X connect 99 0 201 0; +#X connect 99 0 205 1; +#X connect 99 0 205 0; +#X connect 101 0 90 0; +#X connect 102 0 93 0; +#X connect 103 0 79 0; +#X connect 104 0 80 0; +#X connect 105 0 90 0; +#X connect 106 0 91 0; +#X connect 107 0 90 0; +#X connect 108 0 79 0; +#X connect 109 0 80 0; +#X connect 110 0 90 0; +#X connect 111 0 91 0; +#X connect 112 0 79 0; +#X connect 113 0 80 0; +#X connect 114 0 91 0; +#X connect 115 0 108 0; +#X connect 115 0 110 0; +#X connect 115 0 111 0; +#X connect 115 0 109 0; +#X connect 116 0 131 0; +#X connect 116 0 133 0; +#X connect 116 0 134 0; +#X connect 116 0 132 0; +#X connect 116 0 135 0; +#X connect 117 0 112 0; +#X connect 117 0 107 0; +#X connect 117 0 113 0; +#X connect 117 0 114 0; +#X connect 118 0 103 0; +#X connect 118 0 105 0; +#X connect 118 0 106 0; +#X connect 118 0 104 0; +#X connect 119 0 128 0; +#X connect 120 0 129 0; +#X connect 121 0 136 0; +#X connect 122 0 130 0; +#X connect 123 0 69 0; +#X connect 123 0 70 0; +#X connect 123 0 71 0; +#X connect 123 0 72 0; +#X connect 123 0 73 0; +#X connect 123 0 88 0; +#X connect 124 0 69 0; +#X connect 124 0 70 0; +#X connect 124 0 71 0; +#X connect 124 0 72 0; +#X connect 124 0 73 0; +#X connect 124 0 88 0; +#X connect 125 0 69 0; +#X connect 125 0 70 0; +#X connect 125 0 71 0; +#X connect 125 0 72 0; +#X connect 125 0 73 0; +#X connect 125 0 88 0; +#X connect 126 0 112 0; +#X connect 126 0 113 0; +#X connect 126 0 107 0; +#X connect 126 0 114 0; +#X connect 127 0 128 0; +#X connect 128 0 92 0; +#X connect 129 0 92 0; +#X connect 130 0 92 0; +#X connect 131 0 79 0; +#X connect 132 0 80 0; +#X connect 133 0 90 0; +#X connect 134 0 91 0; +#X connect 135 0 93 0; +#X connect 136 0 92 0; +#X connect 137 0 92 0; +#X connect 138 0 79 0; +#X connect 139 0 80 0; +#X connect 140 0 92 0; +#X connect 141 0 93 0; +#X connect 142 0 90 0; +#X connect 143 0 90 0; +#X connect 144 0 91 0; +#X connect 145 0 79 0; +#X connect 146 0 80 0; +#X connect 147 0 93 0; +#X connect 148 0 138 0; +#X connect 148 0 143 0; +#X connect 148 0 144 0; +#X connect 148 0 140 0; +#X connect 148 0 139 0; +#X connect 148 0 141 0; +#X connect 149 0 145 0; +#X connect 149 0 142 0; +#X connect 149 0 150 0; +#X connect 149 0 137 0; +#X connect 149 0 146 0; +#X connect 149 0 147 0; +#X connect 150 0 91 0; +#X connect 151 0 138 0; +#X connect 151 0 139 0; +#X connect 151 0 143 0; +#X connect 151 0 144 0; +#X connect 151 0 140 0; +#X connect 151 0 141 0; +#X connect 152 0 145 0; +#X connect 152 0 146 0; +#X connect 152 0 142 0; +#X connect 152 0 150 0; +#X connect 152 0 137 0; +#X connect 152 0 147 0; +#X connect 153 0 81 0; +#X connect 153 0 82 0; +#X connect 153 0 83 0; +#X connect 153 0 84 0; +#X connect 153 0 85 0; +#X connect 153 0 89 0; +#X connect 154 0 86 0; +#X connect 154 0 87 0; +#X connect 154 0 101 0; +#X connect 154 0 76 0; +#X connect 154 0 77 0; +#X connect 154 0 102 0; +#X connect 155 0 136 0; +#X connect 156 0 131 0; +#X connect 156 0 132 0; +#X connect 156 0 133 0; +#X connect 156 0 134 0; +#X connect 157 0 130 0; +#X connect 158 0 103 0; +#X connect 158 0 104 0; +#X connect 158 0 105 0; +#X connect 158 0 106 0; +#X connect 159 0 129 0; +#X connect 160 0 108 0; +#X connect 160 0 109 0; +#X connect 160 0 110 0; +#X connect 160 0 111 0; +#X connect 161 0 169 0; +#X connect 161 0 171 0; +#X connect 161 0 172 0; +#X connect 161 0 170 0; +#X connect 162 0 165 0; +#X connect 162 0 166 0; +#X connect 163 0 173 0; +#X connect 163 0 175 0; +#X connect 163 0 176 0; +#X connect 163 0 174 0; +#X connect 164 0 167 0; +#X connect 164 0 168 0; +#X connect 165 0 79 0; +#X connect 166 0 80 0; +#X connect 167 0 79 0; +#X connect 168 0 80 0; +#X connect 169 0 90 0; +#X connect 170 0 91 0; +#X connect 171 0 92 0; +#X connect 172 0 93 0; +#X connect 173 0 90 0; +#X connect 174 0 91 0; +#X connect 175 0 92 0; +#X connect 176 0 93 0; +#X connect 177 0 195 0; +#X connect 177 2 195 0; +#X connect 177 4 195 0; +#X connect 177 6 195 0; +#X connect 177 8 195 0; +#X connect 177 10 195 0; +#X connect 177 12 195 0; +#X connect 177 14 195 0; +#X connect 177 16 195 0; +#X connect 177 18 195 0; +#X connect 177 20 195 0; +#X connect 177 22 195 0; +#X connect 177 24 195 0; +#X connect 177 26 195 0; +#X connect 177 28 195 0; +#X connect 177 30 195 0; +#X connect 177 32 195 0; +#X connect 177 34 195 0; +#X connect 177 36 195 0; +#X connect 177 38 195 0; +#X connect 177 40 195 0; +#X connect 178 0 182 0; +#X connect 179 0 180 0; +#X connect 179 2 180 0; +#X connect 179 4 180 0; +#X connect 179 6 180 0; +#X connect 179 8 180 0; +#X connect 179 10 180 0; +#X connect 179 12 180 0; +#X connect 180 0 181 0; +#X connect 180 0 183 0; +#X connect 181 0 180 1; +#X connect 182 0 180 0; +#X connect 183 0 189 0; +#X connect 183 0 190 0; +#X connect 183 0 191 0; +#X connect 183 0 192 0; +#X connect 183 0 193 0; +#X connect 183 0 196 0; +#X connect 184 0 79 0; +#X connect 185 0 80 0; +#X connect 186 0 90 0; +#X connect 187 0 91 0; +#X connect 188 0 92 0; +#X connect 189 0 184 0; +#X connect 190 0 185 0; +#X connect 191 0 186 0; +#X connect 192 0 187 0; +#X connect 193 0 188 0; +#X connect 194 0 93 0; +#X connect 195 0 79 0; +#X connect 195 0 80 0; +#X connect 195 0 90 0; +#X connect 195 0 91 0; +#X connect 195 0 92 0; +#X connect 195 0 93 0; +#X connect 196 0 194 0; +#X connect 197 0 205 0; +#X connect 198 0 205 0; +#X connect 199 0 205 0; +#X connect 200 0 64 0; +#X connect 207 0 216 0; +#X connect 208 0 209 0; +#X connect 209 0 210 0; +#X connect 209 1 211 0; +#X connect 209 2 212 0; +#X connect 210 0 214 0; +#X connect 212 0 213 0; +#X connect 215 0 207 0; +#X connect 216 0 208 0; +#X connect 217 0 1 0; +#X connect 217 0 3 0; +#X connect 217 0 4 0; +#X connect 217 0 5 0; +#X connect 217 0 6 0; +#X connect 217 0 7 0; +#X connect 217 0 8 0; +#X connect 217 0 9 0; +#X connect 217 0 10 0; +#X connect 217 0 11 0; +#X connect 217 0 12 0; +#X connect 217 0 13 0; +#X connect 217 0 14 0; +#X connect 217 0 27 0; +#X connect 217 0 28 0; +#X connect 217 0 29 0; +#X connect 217 0 30 0; +#X connect 217 0 31 0; +#X connect 217 0 32 0; +#X connect 217 0 60 0; diff --git a/nik.pd b/nik.pd old mode 100644 new mode 100755 index 439f733..287b11e --- a/nik.pd +++ b/nik.pd @@ -1,6 +1,6 @@ -#N canvas 528 113 989 648 12; +#N canvas 73 69 1556 986 12; #X obj 43 170 r nik_tempo; -#X obj 385 55 r nik_control; +#X obj 719 39 r nik_control; #X obj 44 34 inlet~; #X obj 33 463 outlet~; #X obj 105 33 inlet; @@ -11,7 +11,7 @@ #X array melody_nik 16 float 3; #A 0 60 55 53 57 50 57 53 57 60 57 53 57 50 57 53 57; #X coords 0 1 16 127 200 140 1 0 0; -#X restore 402 147 graph; +#X restore 559 156 graph; #X obj 44 208 f; #X obj 44 231 0; #X floatatom 44 277 5 0 0 0 - - -; @@ -22,19 +22,251 @@ #X obj 44 344 mtof; #X obj 44 254 % 16; #X obj 95 432 line~; -#X msg 162 396 0 50; +#X msg 151 398 0 50; #X obj 116 355 loadbang; -#X text 199 345 ROB - need to initialize your volume \; use loadbang +#X text 213 378 ROB - need to initialize your volume \; use loadbang to send a bang at the start of the patch (when it is loaded); -#X obj 36 520 throw~ nik_audio_1; -#X msg 403 309 \; melody_nik 0 60 57 53 57 50 57 53 57 60 57 53 57 +#X obj 494 845 throw~ nik_audio_1; +#X msg 562 307 \; melody_nik 0 60 57 53 57 50 57 53 57 60 57 53 57 50 57 53 57; #X obj 44 299 tabread melody_nik; #X msg 113 398 1 50; +#N canvas 0 23 1680 980 additive-synthesis 0; +#X obj 271 324 mtof; +#X obj 271 409 osc~; +#X obj 327 346 * 2; +#X obj 397 346 * 3; +#X obj 467 346 * 4; +#X obj 327 466 +~; +#X obj 327 488 +~; +#X obj 327 570 *~; +#X obj 271 601 +~; +#X obj 374 572 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X text 406 571 toggle overtones; +#X obj 271 676 *~ 0; +#X floatatom 233 347 5 0 0 0 - - -; +#X floatatom 335 369 5 0 0 0 - - -; +#X floatatom 408 369 5 0 0 0 - - -; +#X floatatom 480 370 5 0 0 0 - - -; +#X floatatom 550 370 5 0 0 0 - - -; +#X obj 537 346 * 5; +#X floatatom 610 370 5 0 0 0 - - -; +#X obj 597 346 * 6; +#X obj 327 511 +~; +#X obj 327 534 +~; +#N canvas 0 23 450 278 (subpatch) 0; +#X array additive_synth_\$0 100 float 1; +#A 0 -0.425472 -0.3678 -0.307783 -0.245517 -0.181159 -0.1148 -0.0466183 +-0.326724 -0.255289 -0.182454 -0.108382 -0.0332348 0.0428269 0.119628 +0.197007 0.274784 0.352792 0.330853 0.408793 0.486441 0.563622 0.640164 +0.715902 0.69066 0.764291 0.836608 0.857485 0.926743 0.994258 1.05987 +1.12346 1.18489 1.24404 1.3008 1.35504 1.4067 1.45563 1.50181 1.54513 +1.58553 1.62295 1.65735 1.6887 1.71694 1.74209 1.0141 1.03302 1.04881 +1.06153 1.07119 1.07783 1.08151 1.08226 1.08019 1.07532 1.0678 1.05766 +1.04505 1.03004 1.01278 0.993375 0.97195 0.94866 0.873621 0.847009 +0.818948 0.789619 0.759167 0.627765 0.595576 0.56277 0.52952 0.495998 +0.362378 0.328835 0.295541 0.262672 0.230396 0.198887 0.16831 0.138827 +0.110609 -0.266204 -0.291433 -0.314963 -0.336615 -0.356286 -0.37382 +-0.389109 -0.402031 -0.512469 -0.520342 -0.525522 -0.52797 -0.527551 +-0.524254 -0.517977 -0.508699 -0.496365 -0.480945; +#X coords 0 1 99 -1 200 140 1 0 0; +#X restore 780 522 graph; +#X text 752 515 1; +#X text 749 585 0; +#X text 742 654 -1; +#X obj 553 613 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 553 638 metro 100; +#X obj 326 408 phasor~; +#X obj 397 408 phasor~; +#X obj 537 408 phasor~; +#X obj 597 408 phasor~; +#X obj 467 408 phasor~; +#X obj 467 430 *~ 0.1; +#X obj 537 430 *~ 0.1; +#X obj 597 430 *~ 0.05; +#X obj 271 268 inlet; +#X obj 652 480 inlet; +#X obj 538 471 loadbang; +#X msg 583 551 0; +#X obj 538 494 inlet; +#X obj 397 430 *~ 0.3; +#X obj 327 430 *~ 0.2; +#X msg 534 553 1; +#X obj 263 728 outlet~; +#X obj 406 535 loadbang; +#X text 856 709 ROB - don't reuse the "additive_synth" name for your +buffer \, this is a location in memory so if you use the same name +it will be constantly fighting with the other additive synth arrays +in the Masheen project; +#X text 855 788 instead \, either manually use your username or better +yet \, use \$0 - that makes PD generate a unique window ID and use +that; +#X obj 527 666 tabwrite~ additive_synth_\$0; +#X connect 0 0 1 0; +#X connect 0 0 2 0; +#X connect 0 0 12 0; +#X connect 0 0 3 0; +#X connect 0 0 4 0; +#X connect 0 0 17 0; +#X connect 0 0 19 0; +#X connect 1 0 8 0; +#X connect 2 0 13 0; +#X connect 2 0 28 0; +#X connect 3 0 14 0; +#X connect 3 0 29 0; +#X connect 4 0 15 0; +#X connect 4 0 32 0; +#X connect 5 0 6 0; +#X connect 6 0 20 0; +#X connect 7 0 8 1; +#X connect 8 0 11 0; +#X connect 8 0 48 0; +#X connect 9 0 7 1; +#X connect 11 0 44 0; +#X connect 17 0 16 0; +#X connect 17 0 30 0; +#X connect 19 0 18 0; +#X connect 19 0 31 0; +#X connect 20 0 21 0; +#X connect 21 0 7 0; +#X connect 26 0 27 0; +#X connect 27 0 48 0; +#X connect 28 0 42 0; +#X connect 29 0 41 0; +#X connect 30 0 34 0; +#X connect 31 0 35 0; +#X connect 32 0 33 0; +#X connect 33 0 6 1; +#X connect 34 0 20 1; +#X connect 35 0 21 1; +#X connect 36 0 0 0; +#X connect 37 0 39 0; +#X connect 38 0 43 0; +#X connect 39 0 11 1; +#X connect 40 0 43 0; +#X connect 41 0 5 1; +#X connect 42 0 5 0; +#X connect 43 0 11 1; +#X connect 45 0 9 0; +#X connect 45 0 26 0; +#X restore 494 777 pd additive-synthesis; +#X obj 353 468 key; +#X floatatom 563 496 3 0 0 0 - - -; +#X floatatom 602 494 3 0 0 0 - - -; +#X obj 392 468 keyup; +#X floatatom 678 474 3 0 0 0 - - -; +#X obj 443 468 keyname; +#X symbolatom 770 475 10 0 0 0 - - -; +#X obj 494 629 select 97; +#X obj 494 660 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 563 629 select 115; +#X obj 563 657 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 715 654 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 639 657 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 639 629 select 100; +#X obj 602 526 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 563 526 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X text 843 475 symbol; +#X obj 491 700 60; +#X obj 562 702 62; +#X obj 636 703 64; +#X obj 715 705 65; +#X obj 715 629 select 102; +#X obj 791 628 select 103; +#X obj 790 657 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 792 706 67; +#X obj 878 629 select 112; +#X obj 412 631 select 111; +#X text 47 687 The keys a \, s \, d \, f \, g changes the input from +C4 to G4. The sound is generated by adding five sawtooth waves to a +sine wave. The key p is used to start and o is used to stop.; +#X obj 1184 119 list trim; +#X msg 1184 140 hamilr4 key 1 Meta_L 0; +#X obj 1184 98 list prepend set; +#X obj 1194 129 list trim; +#X msg 1194 150 hamilr4 key 1 Meta_L 0; +#X obj 1194 108 list prepend set; +#X obj 1204 139 list trim; +#X msg 1204 160 hamilr4 key 1 Meta_L 0; +#X obj 1204 118 list prepend set; +#X obj 1214 149 list trim; +#X msg 1214 170 hamilr4 key 1 Meta_L 0; +#X obj 1214 128 list prepend set; +#X obj 1224 159 list trim; +#X msg 1224 180 hamilr4 key 1 Meta_L 0; +#X obj 1224 138 list prepend set; +#X obj 1234 169 list trim; +#X msg 1234 190 hamilr4 key 1 Meta_L 0; +#X obj 1234 148 list prepend set; +#X obj 719 66 list prepend set; +#X obj 719 94 list trim; +#X msg 1244 200 hamilr4 key 1 Meta_L 0; +#X msg 1254 210 hamilr4 key 1 Meta_L 0; +#X obj 1244 179 list trim; +#X msg 1244 200 hamilr4 key 0 Meta_L 0; +#X obj 1244 158 list prepend set; +#X msg 719 121 nik key 1 Meta_L 0, f 24; +#X text 508 800 ROB - use \$0 in your "additive_synth" array to create +a unique window ID; +#X msg 1365 364 nik key 1 Meta_L 0; +#X symbolatom 1201 489 10 0 0 0 - - -; +#X symbolatom 1231 469 10 0 0 0 - - -; +#X floatatom 1263 446 5 0 0 0 - - -; +#X floatatom 1314 394 5 0 0 0 - - -; +#X obj 1200 364 unpack s s f s f; +#X symbolatom 1281 418 10 0 0 0 - - -; +#X obj 1020 310 user_keyreceive nik; +#X obj 1020 364 route nik; +#X obj 1020 388 route key; +#X obj 945 522 print nik; +#X obj 1020 412 route 0 1; +#X text 702 414 differentiate between down and up keystrokes; +#X obj 1020 523 unpack s f; +#X symbolatom 1020 548 10 0 0 0 - - -; +#X floatatom 1094 548 5 0 0 0 - - -; +#X obj 1040 473 unpack s f; +#X symbolatom 1040 498 10 0 0 0 - - -; +#X floatatom 1114 498 5 0 0 0 - - -; +#X text 1122 473 down; +#X text 1103 525 up; +#X obj 241 17 list trim; +#X obj 241 63 route key; +#X obj 241 188 unpack f s f; +#X floatatom 241 212 5 0 0 0 - - -; +#X symbolatom 282 213 10 0 0 0 - - -; +#X floatatom 379 213 5 0 0 0 - - -; +#X obj 393 242 s key_\$0; +#X obj 248 265 s keyname_\$0; +#X obj 442 75 r key_\$0, f 11; +#X obj 224 -12 receive nik_control; +#X obj 241 39 route nik; +#X obj 240 287 select 1 0; +#X obj 240 334 s keydown_bang_\$0; +#X obj 250 312 s keyup_bang_\$0; +#X obj 253 164 s keydown_\$0; +#X obj 253 88 route 1 0; +#X obj 350 134 s keyup_\$0; +#X obj 507 445 r key_\$0, f 11; +#X obj 258 242 s keynamesymbol_\$0; +#X obj 593 445 r keyup_\$0, f 11; +#X obj 678 445 r keyname_\$0; +#X obj 770 445 r keynamesymbol_\$0; +#X obj 283 111 unpack s f; +#X obj 253 131 unpack s f; +#X text 46 5 Kun Ni; #X connect 0 0 9 0; +#X connect 1 0 73 0; #X connect 6 0 7 0; #X connect 7 0 3 0; -#X connect 7 0 22 0; #X connect 9 0 10 0; #X connect 9 0 14 0; #X connect 10 0 17 0; @@ -50,3 +282,85 @@ to send a bang at the start of the patch (when it is loaded); #X connect 20 0 25 0; #X connect 24 0 12 0; #X connect 25 0 18 0; +#X connect 26 0 22 0; +#X connect 28 0 34 0; +#X connect 28 0 40 0; +#X connect 28 0 36 0; +#X connect 28 0 42 0; +#X connect 28 0 48 0; +#X connect 28 0 49 0; +#X connect 28 0 52 0; +#X connect 28 0 53 0; +#X connect 29 0 41 0; +#X connect 29 0 34 0; +#X connect 34 0 35 0; +#X connect 35 0 44 0; +#X connect 36 0 37 0; +#X connect 37 0 45 0; +#X connect 38 0 47 0; +#X connect 39 0 46 0; +#X connect 40 0 39 0; +#X connect 44 0 26 0; +#X connect 45 0 26 0; +#X connect 46 0 26 0; +#X connect 47 0 26 0; +#X connect 48 0 38 0; +#X connect 49 0 50 0; +#X connect 50 0 51 0; +#X connect 51 0 26 0; +#X connect 52 0 26 1; +#X connect 53 0 26 2; +#X connect 55 0 56 0; +#X connect 57 0 55 0; +#X connect 58 0 59 0; +#X connect 60 0 58 0; +#X connect 61 0 62 0; +#X connect 63 0 61 0; +#X connect 64 0 65 0; +#X connect 66 0 64 0; +#X connect 67 0 68 0; +#X connect 69 0 67 0; +#X connect 70 0 71 0; +#X connect 72 0 70 0; +#X connect 73 0 74 0; +#X connect 74 0 80 0; +#X connect 77 0 78 0; +#X connect 79 0 77 0; +#X connect 87 0 83 0; +#X connect 87 1 84 0; +#X connect 87 2 85 0; +#X connect 87 3 88 0; +#X connect 87 4 86 0; +#X connect 89 0 87 0; +#X connect 89 0 90 0; +#X connect 89 1 82 0; +#X connect 90 0 91 0; +#X connect 91 0 93 0; +#X connect 93 0 95 0; +#X connect 93 1 98 0; +#X connect 95 0 96 0; +#X connect 95 1 97 0; +#X connect 98 0 99 0; +#X connect 98 1 100 0; +#X connect 103 0 113 0; +#X connect 104 0 105 0; +#X connect 104 0 118 0; +#X connect 105 0 106 0; +#X connect 105 1 107 0; +#X connect 105 2 108 0; +#X connect 106 0 110 0; +#X connect 106 0 114 0; +#X connect 107 0 121 0; +#X connect 108 0 109 0; +#X connect 112 0 103 0; +#X connect 113 0 104 0; +#X connect 114 0 115 0; +#X connect 114 1 116 0; +#X connect 118 0 126 0; +#X connect 118 1 125 0; +#X connect 120 0 28 0; +#X connect 122 0 29 0; +#X connect 123 0 31 0; +#X connect 124 0 33 0; +#X connect 125 1 119 0; +#X connect 126 1 117 0; diff --git a/novaa.pd b/novaa.pd index 49ae043..2e5b06d 100644 --- a/novaa.pd +++ b/novaa.pd @@ -1,55 +1,172 @@ -#N canvas 711 23 712 766 12; +#N canvas 495 244 1072 798 12; #X obj 73 49 inlet; #X obj 19 49 inlet~; -#X obj 43 599 outlet~; -#X obj 101 599 outlet; +#X obj 41 672 outlet~; +#X obj 99 672 outlet; #X obj 166 141 receive novaa_tempo; -#X obj 259 275 receive novaa_control; +#X obj 1160 -18 receive novaa_control; #X obj 166 225 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; -#X obj 282 300 list prepend set; -#X obj 282 323 list trim; -#X msg 282 345 1 2 3 4 5 6 7; -#X obj 260 399 unpack f f f f f f f; -#X floatatom 315 566 5 0 0 0 - - -; -#X floatatom 330 542 5 0 0 0 - - -; -#X floatatom 343 522 5 0 0 0 - - -; -#X floatatom 357 498 5 0 0 0 - - -; -#X floatatom 373 475 5 0 0 0 - - -; -#X floatatom 387 452 5 0 0 0 - - -; -#X floatatom 401 430 5 0 0 0 - - -; -#X obj 487 414 osc~; -#X obj 487 450 *~; -#X msg 533 413 0; -#X msg 565 413 0.3; -#X floatatom 486 380 5 0 0 0 - - -; -#X obj 486 315 random 1000; -#X obj 486 339 + 40; +#X obj 1175 16 list prepend set; +#X obj 1175 39 list trim; +#X msg 1175 61 novaa key 1 Meta_L 0; +#X obj 1161 106 unpack f f f f f f f; +#X floatatom 1281 240 5 0 0 0 - - -; +#X floatatom 1296 216 5 0 0 0 - - -; +#X floatatom 1309 196 5 0 0 0 - - -; +#X floatatom 1323 172 5 0 0 0 - - -; +#X floatatom 1339 149 5 0 0 0 - - -; +#X floatatom 1353 126 5 0 0 0 - - -; +#X floatatom 1367 104 5 0 0 0 - - -; +#X obj 1063 142 osc~; +#X obj 1063 178 *~; +#X msg 1109 141 0; +#X msg 1141 141 0.3; +#X floatatom 1062 108 5 0 0 0 - - -; +#X obj 1062 43 random 1000; +#X obj 1062 67 + 40; #N canvas 0 22 450 278 (subpatch) 0; -#X array newbeat_novaa 8 float 3; -#A 0 64 67 86 94 77 83 65 52; -#X coords 0 127 8 0 200 140 1 0 0; -#X restore 330 37 graph; -#X floatatom 43 412 5 0 0 0 - - -; -#X obj 43 435 mtof; -#X floatatom 43 459 5 0 0 0 - - -; -#X obj 43 482 osc~ 440; -#X obj 43 540 *~; +#X array newbeat_novaa 32 float 3; +#A 0 71 67 77 74 71 74 67 77 66 73 66 69 76 73 69 66 81 74 71 74 78 +71 81 71 77 71 67 71 67 77 74 67; +#X coords 0 127 32 0 200 140 1 0 0; +#X restore 541 54 graph; +#X floatatom 41 485 5 0 0 0 - - -; +#X obj 41 508 mtof; +#X floatatom 41 532 5 0 0 0 - - -; +#X obj 41 613 *~; #X obj 68 315 + 1; #X obj 42 315 f; -#X floatatom 43 362 5 0 0 0 - - -; -#X obj 42 339 % 8; -#X obj 124 494 line~; -#X obj 124 444 loadbang; -#X msg 124 468 1; -#X text 467 481 old code to generate random sound; -#X obj 166 600 throw~ novaa_audio_1; -#X obj 43 388 tabread newbeat_novaa; -#X msg 331 194 \; newbeat_novaa 0 64 67 86 94 77 83 65 52; +#X floatatom 41 367 5 0 0 0 - - -; +#X obj 122 567 line~; +#X obj 122 517 loadbang; +#X msg 122 541 1; +#X text 1097 285 old code to generate random sound; +#X obj 164 673 throw~ novaa_audio_1; +#X obj 41 422 tabread newbeat_novaa; +#X obj 42 339 % 32; +#N canvas 0 22 450 278 (subpatch) 0; +#X array newbeatbass_novaa 32 float 3; +#A 0 55 55 55 55 55 55 55 55 54 54 54 54 54 54 54 54 59 59 59 59 59 +59 59 59 55 55 55 55 55 55 55 55; +#X coords 0 127 32 0 200 140 1 0 0; +#X restore 540 330 graph; +#X floatatom 284 483 5 0 0 0 - - -; +#X obj 284 506 mtof; +#X floatatom 284 530 5 0 0 0 - - -; +#X obj 284 611 *~; +#X obj 434 592 line~; +#X obj 434 542 loadbang; +#X msg 434 566 1; +#X obj 284 420 tabread newbeatbass_novaa; +#X msg 539 487 \; newbeatbass_novaa 0 55 55 55 55 55 55 55 55 54 54 +54 54 54 54 54 54 59 59 59 59 59 59 59 59 55 55 55 55 55 55 55 55; +#X msg 540 203 \; newbeat_novaa 0 71 67 77 74 71 74 67 77 66 73 66 +69 76 73 69 66 81 74 71 74 78 71 81 71 77 71 67 71 67 77 74 67; +#X obj 41 554 phasor~; +#X obj 284 555 phasor~; +#X obj 284 583 expr~ $v1 > 0.5; +#X obj 519 775 list trim; +#X obj 519 754 list prepend set; +#X obj 776 782 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 519 825 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 817 730 list trim; +#X obj 894 801 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 817 776 route key; +#X obj 741 822 print; +#X obj 817 822 unpack f s f; +#X floatatom 817 859 5 0 0 0 - - -; +#X symbolatom 858 860 10 0 0 0 - - -; +#X floatatom 900 890 5 0 0 0 - - -; +#X obj 519 712 receive novaa_control; +#X obj 817 753 route novaa other; +#X obj 917 1194 throw~ novaa_audio_1; +#X msg 519 796 novaa key 1 Meta_L 0; +#N canvas 695 23 745 805 keyboard-input 0; +#X obj 121 157 key; +#X floatatom 121 185 3 0 0 0 - - -; +#X floatatom 160 183 3 0 0 0 - - -; +#X obj 160 157 keyup; +#X floatatom 211 183 3 0 0 0 - - -; +#X obj 211 157 keyname; +#X symbolatom 257 184 10 0 0 0 - - -; +#X text 48 20 Key and keyup report the (system dependent) numbers of +"printing" keys of the keyboard. Keyname gives the symbolic name of +the key \, with a 1 or 0 if it's up or down \, and works with non-printing +keys like shift or "F1".; +#X text 40 87 Caveat -- this only works if Pd actually gets the key +events which can depend on the stacking order of windows and/or the +pointer location \, depending on the system.; +#X obj 52 318 select 97; +#X obj 52 349 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X obj 121 318 select 115; +#X obj 121 346 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 273 343 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 197 346 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 197 318 select 100; +#X text 52 473 ASCII - different on different operating systems; +#X obj 53 379 s playme; +#X obj 160 215 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 121 215 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X text 337 185 symbol; +#X obj 273 318 select 102; +#X connect 0 0 1 0; +#X connect 1 0 9 0; +#X connect 1 0 15 0; +#X connect 1 0 11 0; +#X connect 1 0 19 0; +#X connect 1 0 21 0; +#X connect 2 0 18 0; +#X connect 3 0 2 0; +#X connect 5 0 4 0; +#X connect 5 1 6 0; +#X connect 9 0 10 0; +#X connect 11 0 12 0; +#X connect 15 0 14 0; +#X connect 21 0 13 0; +#X restore 514 619 pd keyboard-input; +#X obj 817 984 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 886 981 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 1038 978 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 962 981 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 810 953 select 113; +#X obj 886 953 select 119; +#X obj 962 953 select 101; +#X obj 1038 953 select 114; +#X floatatom 922 1066 5 0 0 0 - - -; +#X obj 921 1087 mtof; +#X floatatom 921 1111 5 0 0 0 - - -; +#X msg 817 1006 67; +#X msg 886 1003 71; +#X msg 962 1004 74; +#X msg 1038 1002 77; +#X obj 922 1153 osc~; +#X text 4 732 There are two arrays being played. The first (newbeat_novaa) +has a sawtooth oscillator makingthe main melody you hear.; +#X text 14 779 The second array(newbeatbass_novaa) is the "bass" of +the composition. I used the square oscilattor to give it a bit more +presence.; +#X text 1085 1068 This is our playable keyboard. It has 4 keys \, "q +\, w \, e \, r" which all play a note in the key of G7 \, which should +sound good wherever played in the composition.; +#X obj 513 651 keycontrol _novaa; +#X text 22 14 Albert Nova; #X connect 4 0 6 0; #X connect 5 0 7 0; -#X connect 5 0 10 0; -#X connect 6 0 32 0; +#X connect 6 0 31 0; #X connect 7 0 8 0; #X connect 8 0 9 0; #X connect 10 0 11 0; @@ -67,16 +184,59 @@ #X connect 24 0 22 0; #X connect 26 0 27 0; #X connect 27 0 28 0; -#X connect 28 0 29 0; -#X connect 29 0 30 0; -#X connect 30 0 2 0; -#X connect 30 0 39 0; -#X connect 31 0 32 1; -#X connect 32 0 31 0; -#X connect 32 0 34 0; -#X connect 33 0 40 0; -#X connect 34 0 33 0; -#X connect 35 0 30 1; -#X connect 36 0 37 0; -#X connect 37 0 35 0; -#X connect 40 0 26 0; +#X connect 28 0 51 0; +#X connect 29 0 37 0; +#X connect 30 0 31 1; +#X connect 31 0 30 0; +#X connect 31 0 39 0; +#X connect 32 0 38 0; +#X connect 32 0 48 0; +#X connect 33 0 29 1; +#X connect 34 0 35 0; +#X connect 35 0 33 0; +#X connect 38 0 26 0; +#X connect 39 0 32 0; +#X connect 41 0 42 0; +#X connect 42 0 43 0; +#X connect 43 0 52 0; +#X connect 44 0 37 0; +#X connect 45 0 44 1; +#X connect 46 0 47 0; +#X connect 47 0 45 0; +#X connect 48 0 41 0; +#X connect 51 0 29 0; +#X connect 52 0 53 0; +#X connect 53 0 44 0; +#X connect 54 0 69 0; +#X connect 55 0 54 0; +#X connect 58 0 67 0; +#X connect 60 0 62 0; +#X connect 62 0 63 0; +#X connect 62 1 64 0; +#X connect 62 2 65 0; +#X connect 65 0 75 0; +#X connect 65 0 76 0; +#X connect 65 0 77 0; +#X connect 65 0 78 0; +#X connect 66 0 55 0; +#X connect 66 0 58 0; +#X connect 67 0 56 0; +#X connect 67 0 60 0; +#X connect 67 1 59 0; +#X connect 69 0 57 0; +#X connect 71 0 82 0; +#X connect 72 0 83 0; +#X connect 73 0 85 0; +#X connect 74 0 84 0; +#X connect 75 0 71 0; +#X connect 76 0 72 0; +#X connect 77 0 74 0; +#X connect 78 0 73 0; +#X connect 79 0 80 0; +#X connect 80 0 81 0; +#X connect 81 0 86 0; +#X connect 82 0 79 0; +#X connect 83 0 79 0; +#X connect 84 0 79 0; +#X connect 85 0 79 0; +#X connect 86 0 68 0; diff --git a/persow.pd b/persow.pd index b5f15b8..4c2e228 100644 --- a/persow.pd +++ b/persow.pd @@ -1,4 +1,4 @@ -#N canvas 527 72 1349 964 12; +#N canvas 303 39 1349 964 12; #X obj 71 96 f; #X obj 101 96 + 1; #X floatatom 71 124 5 0 0 0 - - -; @@ -17,10 +17,7 @@ #X text 606 327 G Major: G + B + D; #X text 747 329 A minor: A + C + E; #X text 887 329 B diminished: B + D + F; -#X obj 463 531 osc~; -#X obj 497 531 osc~; -#X obj 531 531 osc~; -#X obj 553 559 *~; +#X obj 493 510 *~; #X text 194 43 volume; #X obj 18 36 receive persow_tempo; #X obj 16 70 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 @@ -28,28 +25,7 @@ #X obj 20 9 inlet~; #X obj 75 9 inlet; #X obj 72 174 % 8; -#X obj 45 385 mtof; #X msg 45 359 60; -#X obj 82 385 mtof; -#X obj 120 385 mtof; -#X obj 186 389 mtof; -#X obj 223 389 mtof; -#X obj 261 389 mtof; -#X obj 331 390 mtof; -#X obj 368 390 mtof; -#X obj 406 390 mtof; -#X obj 471 392 mtof; -#X obj 508 392 mtof; -#X obj 546 392 mtof; -#X obj 609 393 mtof; -#X obj 646 393 mtof; -#X obj 684 393 mtof; -#X obj 752 392 mtof; -#X obj 789 392 mtof; -#X obj 827 392 mtof; -#X obj 905 392 mtof; -#X obj 942 392 mtof; -#X obj 980 392 mtof; #X text 251 33 Number corresponds to; #X text 251 51 Chord in C Major; #X text 251 69 0 - SILENT; @@ -61,12 +37,12 @@ #X text 251 178 7 - B diminished; #X obj 225 78 vsl 15 128 0 0.33 0 0 empty empty empty 0 -9 0 10 -262144 -1 -1 12700 1; -#X obj 453 564 *~; -#X obj 490 563 *~; +#X obj 436 509 *~; +#X obj 465 509 *~; #X msg 82 359 64; #X msg 120 359 67; #X msg 186 363 62; -#X msg 223 363 65; +#X msg 225 366 65; #X msg 261 363 69; #X msg 331 364 64; #X msg 368 364 67; @@ -83,10 +59,6 @@ #X msg 827 367 76; #X msg 942 366 74; #X msg 981 366 77; -#X obj 69 253 select 0 1 2 3 4 5 6 7 8; -#X obj 1028 391 mtof; -#X obj 1065 391 mtof; -#X obj 1103 391 mtof; #X msg 1028 365 72; #X msg 1065 365 76; #X msg 1104 365 79; @@ -100,113 +72,227 @@ #X text 251 193 8 - C Major'; #X text 312 -26 ROB - need to initialize your volume \; use loadbang to send a bang at the start of the patch (when it is loaded); -#X obj 495 618 throw~ persow_audio_1; +#X obj 435 541 throw~ persow_audio_1; #X floatatom 271 224 5 0 0 0 - - -; #X obj 206 -8 loadbang; #X obj 68 226 tabread Progression_persow; #X msg 411 208 \; Progression_persow 0 1 1 5 5 4 4 5 8; #X msg 208 22 0.33; +#X obj 437 482 karpluck~; +#X obj 774 604 hsl 180 15 1 40 0 0 empty \$0-width_ctrl width -2 -8 +1 10 -262144 -1 -1 3213 1; +#X obj 774 639 hsl 180 15 0.9 0.999 0 0 empty \$0-decay_ctrl decay +-2 -8 1 10 -262144 -1 -1 17177 1; +#X obj 773 668 hsl 180 15 100 8000 0 0 empty \$0-cutoff_ctrl cutoff +-2 -8 1 10 -262144 -1 -1 12689 1; +#X obj 958 554 loadbang; +#X msg 961 615 0.995; +#X msg 962 645 5700; +#X msg 960 580 8; +#X obj 510 483 karpluck~; +#X obj 585 483 karpluck~; +#X obj 1095 437 key; +#X obj 519 786 karpluck~; +#X obj 848 224 *~; +#X obj 578 632 % 7; +#X obj 69 253 select 0 1 2 3 4 5 6 7 8; +#X obj 482 708 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 504 708 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 527 710 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 559 709 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 578 710 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 598 709 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 615 711 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 476 746 + 72; +#X symbolatom 501 632 10 0 0 0 - - -; +#X obj 1034 438 keyname; +#X obj 438 746 + 71; +#X obj 514 746 + 74; +#X obj 551 746 + 76; +#X obj 588 746 + 77; +#X obj 625 746 + 79; +#X obj 662 746 + 81; +#X obj 492 666 select 0 1 2 3 4 5 6; +#X text 453 817 Notes include from left to right -> B C D E F G A; +#X obj 385 663 vsl 15 128 0 0.33 0 0 empty empty empty 0 -9 0 10 -262144 +-1 -1 12700 1; +#X text 219 627 Volume for Individual Guitar Notes; +#X obj 408 808 *~; +#X obj 350 572 loadbang; +#X msg 352 602 0.33; +#X text 932 20 Updates: Changed notes to guitar strumming. Adding solo +guitar. notes are played based on key pressed and can only include +in the key of C major.; +#X obj 1070 498 list trim; +#X obj 1070 544 route key; +#X obj 1070 669 unpack f s f; +#X floatatom 1070 693 5 0 0 0 - - -; +#X symbolatom 1111 694 10 0 0 0 - - -; +#X floatatom 1208 694 5 0 0 0 - - -; +#X obj 1222 723 s key_\$0; +#X obj 1077 746 s keyname_\$0; +#X obj 1069 768 select 1 0; +#X obj 1069 815 s keydown_bang_\$0; +#X obj 1079 793 s keyup_bang_\$0; +#X obj 1082 645 s keydown_\$0; +#X obj 1082 569 route 1 0; +#X obj 1179 615 s keyup_\$0; +#X obj 1087 723 s keynamesymbol_\$0; +#X obj 1112 592 unpack s f; +#X obj 1082 612 unpack s f; +#X obj 1070 520 route persow; +#X obj 1053 469 receive persow_control; +#X obj 501 577 r keyname_\$0; +#X obj 578 603 r key_\$0; +#X text 14 -19 Wolfgang Personeus; #X connect 0 0 1 0; #X connect 0 0 2 0; #X connect 1 0 0 1; -#X connect 2 0 23 0; +#X connect 2 0 20 0; #X connect 3 0 0 0; -#X connect 5 0 97 0; -#X connect 14 0 56 0; -#X connect 15 0 57 0; +#X connect 5 0 69 0; +#X connect 14 0 66 0; #X connect 16 0 17 0; -#X connect 17 0 94 0; -#X connect 19 0 20 0; -#X connect 20 0 0 0; -#X connect 23 0 5 0; -#X connect 24 0 14 0; -#X connect 25 0 24 0; -#X connect 26 0 15 0; -#X connect 27 0 16 0; -#X connect 28 0 14 0; -#X connect 29 0 15 0; -#X connect 30 0 16 0; -#X connect 31 0 14 0; -#X connect 32 0 15 0; -#X connect 33 0 16 0; -#X connect 34 0 14 0; -#X connect 35 0 15 0; -#X connect 36 0 16 0; -#X connect 37 0 14 0; -#X connect 38 0 15 0; -#X connect 39 0 16 0; -#X connect 40 0 14 0; -#X connect 41 0 15 0; -#X connect 42 0 16 0; -#X connect 43 0 14 0; -#X connect 44 0 15 0; -#X connect 45 0 16 0; -#X connect 55 0 56 1; -#X connect 55 0 57 1; -#X connect 55 0 17 1; -#X connect 55 0 95 0; -#X connect 56 0 94 0; -#X connect 57 0 94 0; -#X connect 58 0 26 0; -#X connect 59 0 27 0; -#X connect 60 0 28 0; -#X connect 61 0 29 0; -#X connect 62 0 30 0; -#X connect 63 0 31 0; -#X connect 64 0 32 0; -#X connect 65 0 33 0; -#X connect 66 0 35 0; -#X connect 67 0 37 0; -#X connect 68 0 38 0; -#X connect 69 0 40 0; -#X connect 70 0 43 0; -#X connect 71 0 34 0; -#X connect 72 0 36 0; -#X connect 73 0 39 0; -#X connect 74 0 41 0; -#X connect 75 0 42 0; -#X connect 76 0 44 0; -#X connect 77 0 45 0; -#X connect 78 0 88 0; -#X connect 78 0 89 0; -#X connect 78 0 90 0; -#X connect 78 1 25 0; -#X connect 78 1 58 0; -#X connect 78 1 59 0; -#X connect 78 2 60 0; -#X connect 78 2 61 0; -#X connect 78 2 62 0; -#X connect 78 3 63 0; -#X connect 78 3 64 0; -#X connect 78 3 65 0; -#X connect 78 4 71 0; -#X connect 78 4 66 0; -#X connect 78 4 72 0; -#X connect 78 5 67 0; -#X connect 78 5 68 0; -#X connect 78 5 73 0; -#X connect 78 6 69 0; -#X connect 78 6 74 0; -#X connect 78 6 75 0; -#X connect 78 7 70 0; -#X connect 78 7 76 0; -#X connect 78 7 77 0; -#X connect 78 8 82 0; -#X connect 78 8 83 0; -#X connect 78 8 84 0; -#X connect 79 0 14 0; -#X connect 80 0 15 0; -#X connect 81 0 16 0; -#X connect 82 0 79 0; -#X connect 83 0 80 0; -#X connect 84 0 81 0; -#X connect 85 0 14 0; -#X connect 86 0 15 0; -#X connect 87 0 16 0; -#X connect 88 0 85 0; -#X connect 89 0 86 0; -#X connect 90 0 87 0; -#X connect 96 0 99 0; -#X connect 97 0 6 0; -#X connect 97 0 78 0; -#X connect 99 0 55 0; +#X connect 17 0 0 0; +#X connect 20 0 5 0; +#X connect 21 0 72 0; +#X connect 31 0 32 1; +#X connect 31 0 14 1; +#X connect 31 0 67 0; +#X connect 31 0 33 1; +#X connect 31 0 84 1; +#X connect 32 0 66 0; +#X connect 33 0 66 0; +#X connect 34 0 80 0; +#X connect 35 0 81 0; +#X connect 36 0 72 0; +#X connect 37 0 80 0; +#X connect 38 0 81 0; +#X connect 39 0 72 0; +#X connect 40 0 80 0; +#X connect 41 0 81 0; +#X connect 42 0 80 0; +#X connect 43 0 72 0; +#X connect 44 0 80 0; +#X connect 45 0 72 0; +#X connect 46 0 72 0; +#X connect 47 0 72 0; +#X connect 48 0 81 0; +#X connect 49 0 81 0; +#X connect 50 0 80 0; +#X connect 51 0 81 0; +#X connect 52 0 80 0; +#X connect 53 0 81 0; +#X connect 54 0 72 0; +#X connect 55 0 80 0; +#X connect 56 0 81 0; +#X connect 60 0 57 0; +#X connect 61 0 58 0; +#X connect 62 0 59 0; +#X connect 68 0 71 0; +#X connect 69 0 6 0; +#X connect 69 0 86 0; +#X connect 71 0 31 0; +#X connect 72 0 32 0; +#X connect 73 0 81 1; +#X connect 73 0 80 1; +#X connect 73 0 72 1; +#X connect 73 0 83 1; +#X connect 74 0 81 2; +#X connect 74 0 80 2; +#X connect 74 0 72 2; +#X connect 74 0 83 2; +#X connect 75 0 81 3; +#X connect 75 0 80 3; +#X connect 75 0 72 3; +#X connect 75 0 83 3; +#X connect 76 0 79 0; +#X connect 76 0 77 0; +#X connect 76 0 78 0; +#X connect 77 0 74 0; +#X connect 78 0 75 0; +#X connect 79 0 73 0; +#X connect 80 0 33 0; +#X connect 81 0 14 0; +#X connect 83 0 107 0; +#X connect 84 0 66 0; +#X connect 85 0 103 0; +#X connect 86 0 60 0; +#X connect 86 0 61 0; +#X connect 86 0 62 0; +#X connect 86 1 21 0; +#X connect 86 1 34 0; +#X connect 86 1 35 0; +#X connect 86 2 36 0; +#X connect 86 2 37 0; +#X connect 86 2 38 0; +#X connect 86 3 39 0; +#X connect 86 3 40 0; +#X connect 86 3 41 0; +#X connect 86 4 47 0; +#X connect 86 4 42 0; +#X connect 86 4 48 0; +#X connect 86 5 43 0; +#X connect 86 5 44 0; +#X connect 86 5 49 0; +#X connect 86 6 45 0; +#X connect 86 6 50 0; +#X connect 86 6 51 0; +#X connect 86 7 46 0; +#X connect 86 7 52 0; +#X connect 86 7 53 0; +#X connect 86 8 54 0; +#X connect 86 8 55 0; +#X connect 86 8 56 0; +#X connect 87 0 97 0; +#X connect 88 0 94 0; +#X connect 89 0 98 0; +#X connect 90 0 99 0; +#X connect 91 0 100 0; +#X connect 92 0 101 0; +#X connect 93 0 102 0; +#X connect 94 0 83 0; +#X connect 97 0 83 0; +#X connect 98 0 83 0; +#X connect 99 0 83 0; +#X connect 100 0 83 0; +#X connect 101 0 83 0; +#X connect 102 0 83 0; +#X connect 103 0 87 0; +#X connect 103 1 88 0; +#X connect 103 2 89 0; +#X connect 103 3 90 0; +#X connect 103 4 91 0; +#X connect 103 5 92 0; +#X connect 103 6 93 0; +#X connect 105 0 107 1; +#X connect 107 0 66 0; +#X connect 108 0 109 0; +#X connect 109 0 105 0; +#X connect 111 0 128 0; +#X connect 112 0 113 0; +#X connect 112 0 123 0; +#X connect 113 0 114 0; +#X connect 113 1 115 0; +#X connect 113 2 116 0; +#X connect 114 0 118 0; +#X connect 114 0 119 0; +#X connect 115 0 125 0; +#X connect 116 0 117 0; +#X connect 119 0 120 0; +#X connect 119 1 121 0; +#X connect 123 0 127 0; +#X connect 123 1 126 0; +#X connect 126 1 124 0; +#X connect 127 1 122 0; +#X connect 128 0 112 0; +#X connect 129 0 111 0; +#X connect 130 0 95 0; +#X connect 131 0 85 0; diff --git a/plancs.pd b/plancs.pd index 98ae78c..e0ed503 100644 --- a/plancs.pd +++ b/plancs.pd @@ -1,4 +1,4 @@ -#N canvas -8 -8 1920 997 12; +#N canvas 0 23 1680 980 12; #X obj 54 38 inlet~; #X obj 110 38 inlet; #X obj 110 658 outlet; @@ -28,7 +28,7 @@ #X obj 41 204 hip~ 100; #X obj 41 307 vcf~ 3; #X obj 97 307 vcf~ 5; -#N canvas -8 -8 1920 997 cutoff_envelope 0; +#N canvas 0 23 1920 997 cutoff_envelope 0; #X obj 122 163 *~; #X obj 122 131 vline~; #X msg 122 100 1 0.5 \, 0 \$1 0.5; @@ -44,7 +44,7 @@ #X obj 340 256 *~ 5000; #X obj 267 287 +~ 100; #X obj 340 287 +~ 200; -#N canvas -8 -8 1920 997 FM_Synth 0; +#N canvas 1 23 1920 997 FM_Synth 0; #X obj 81 175 osc~; #X obj 81 216 *~; #X obj 81 144 +~; @@ -107,7 +107,7 @@ Inlet: Decay Value (Default 250) Right Inlet: Noise value (Default #X floatatom 194 334 5 0 0 0 - - -; #X floatatom 245 334 5 0 0 0 - - -; #X obj 269 537 *~ 0.25; -#N canvas 953 0 958 988 plancs_cymbal 0; +#N canvas 953 23 958 988 plancs_cymbal 0; #X obj 254 107 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 54 127 noise~; @@ -126,7 +126,7 @@ Inlet: Decay Value (Default 250) Right Inlet: Noise value (Default #X connect 4 0 2 0; #X connect 5 0 2 1; #X restore 254 209 pd volume_envelope; -#N canvas 953 0 958 988 filters 0; +#N canvas 953 23 958 988 filters 0; #X obj 45 38 inlet~; #X obj 45 243 outlet~; #X obj 45 202 biquad~ 1.86507 -0.892661 0.894294 -1.78859 0.894294 @@ -233,7 +233,7 @@ Pitch Right Inlet: Duration; #X floatatom 484 69 5 0 0 0 - - -; #X obj 1132 34 keyname; #X symbolatom 1132 65 10 0 0 0 - - -; -#N canvas -8 -8 1920 997 plancs_old 0; +#N canvas 0 23 1920 997 plancs_old 0; #X obj 266 893 *~; #X floatatom 442 700 5 0 0 0 - - -; #X obj 442 762 osc~ 400; @@ -442,7 +442,7 @@ Decay; #X floatatom 56 262 5 0 0 0 - - -; #X obj 310 121 loadbang; #X obj 56 108 metro 170; -#X obj 56 73 tgl 25 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1 +#X obj 56 73 tgl 25 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1 ; #X obj 116 32 inlet; #X obj 56 32 inlet; @@ -465,7 +465,7 @@ Decay; #X connect 12 0 8 1; #X connect 14 0 13 0; #X restore 714 224 pd plancs_melody; -#X obj 714 199 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +#X obj 714 199 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X floatatom 823 194 5 0 0 0 - - -; #X obj 482 233 unpack f f; @@ -473,7 +473,28 @@ Decay; #X obj 322 161 select 115 100 102 103; #X msg 482 203 150 125; #X msg 581 202 2000 55; -#X connect 5 0 19 0; +#X text 440 376 ROB - uses freeverb~ v1.2 plugin; +#X obj 1095 161 list trim; +#X obj 1095 207 route key; +#X obj 1095 332 unpack f s f; +#X floatatom 1095 356 5 0 0 0 - - -; +#X symbolatom 1136 357 10 0 0 0 - - -; +#X floatatom 1233 357 5 0 0 0 - - -; +#X obj 1247 386 s key_\$0; +#X obj 1102 409 s keyname_\$0; +#X obj 1094 431 select 1 0; +#X obj 1094 478 s keydown_bang_\$0; +#X obj 1104 456 s keyup_bang_\$0; +#X obj 1107 308 s keydown_\$0; +#X obj 1107 232 route 1 0; +#X obj 1204 278 s keyup_\$0; +#X obj 1112 386 s keynamesymbol_\$0; +#X obj 1137 255 unpack s f; +#X obj 1107 275 unpack s f; +#X obj 462 16 r key_\$0; +#X obj 1078 132 receive plancs_control; +#X obj 1095 183 route plancs; +#X text 36 10 Spencer Planco; #X connect 7 0 11 0; #X connect 8 0 7 0; #X connect 9 0 7 1; @@ -485,7 +506,6 @@ Decay; #X connect 14 0 12 1; #X connect 15 0 12 2; #X connect 16 0 17 0; -#X connect 17 0 18 0; #X connect 19 0 37 0; #X connect 20 1 21 0; #X connect 23 0 9 0; @@ -516,3 +536,22 @@ Decay; #X connect 37 3 39 0; #X connect 38 0 35 0; #X connect 39 0 36 0; +#X connect 41 0 60 0; +#X connect 42 0 43 0; +#X connect 42 0 53 0; +#X connect 43 0 44 0; +#X connect 43 1 45 0; +#X connect 43 2 46 0; +#X connect 44 0 48 0; +#X connect 44 0 49 0; +#X connect 45 0 55 0; +#X connect 46 0 47 0; +#X connect 49 0 50 0; +#X connect 49 1 51 0; +#X connect 53 0 57 0; +#X connect 53 1 56 0; +#X connect 56 1 54 0; +#X connect 57 1 52 0; +#X connect 58 0 19 0; +#X connect 59 0 41 0; +#X connect 60 0 42 0; diff --git a/quarlm.pd b/quarlm.pd old mode 100644 new mode 100755 index 3a5dfb5..3d2422e --- a/quarlm.pd +++ b/quarlm.pd @@ -1,69 +1,1342 @@ -#N canvas 648 153 904 680 12; -#X obj 180 36 receive quarlm_tempo; -#X obj 335 36 receive quarlm_control; +#N canvas 0 23 1680 1129 12; +#X obj 151 43 receive quarlm_tempo; #X obj 85 36 inlet; -#X obj 94 577 outlet; #X obj 29 36 inlet~; -#X obj 34 577 outlet~; #N canvas 0 50 450 250 (subpatch) 0; -#X array melody_quarlm 11 float 3; -#A 0 72 71 67 72 71 67 64 60 59 60 65; -#X coords 0 127 11 0 200 140 1 0 0; -#X restore 572 35 graph; +#X array melody_quarlm 12 float 3; +#A 0 72 71 67 72 71 67 64 60 59 60 65 67; +#X coords 0 127 12 0 200 140 1 0 0; +#X restore 368 30 graph; #X obj 33 129 f; #X obj 79 129 + 1; #X floatatom 33 153 5 0 0 0 - - -; #X floatatom 33 252 10 0 0 0 - - -; #X floatatom 33 200 5 0 0 0 - - -; #X msg 92 105 0; -#X obj 132 346 line~; -#X obj 33 387 *~; -#X msg 186 297 0 50; -#X obj 33 275 mtof; -#X floatatom 33 299 10 0 0 0 - - -; -#X obj 33 348 osc~; -#X obj 378 66 list prepend set; -#X obj 378 93 list trim; -#X msg 378 122 1 2 3 4 5; -#X obj 335 165 unpack f f f f f; -#X floatatom 335 230 5 0 0 0 - - -; -#X floatatom 382 230 5 0 0 0 - - -; -#X floatatom 430 230 5 0 0 0 - - -; -#X floatatom 478 230 5 0 0 0 - - -; -#X floatatom 527 230 5 0 0 0 - - -; -#X obj 33 176 % 11; -#X obj 64 445 throw~ quarlm_audio_1; -#X obj 267 295 loadbang; -#X text 337 295 ROB - need to start with a volume; #X obj 33 228 tabread melody_quarlm; -#X msg 571 179 \; melody_quarlm 0 72 71 67 72 71 67 64 60 59 60 65 -; -#X msg 132 297 1 50; -#X connect 0 0 7 0; -#X connect 1 0 19 0; -#X connect 1 0 22 0; -#X connect 7 0 9 0; -#X connect 7 0 8 0; -#X connect 8 0 7 1; -#X connect 9 0 28 0; -#X connect 10 0 16 0; -#X connect 11 0 32 0; -#X connect 12 0 7 1; -#X connect 13 0 14 1; -#X connect 14 0 5 0; -#X connect 14 0 29 0; +#X obj 33 176 % 12; +#X msg 367 177 \; melody_quarlm 0 72 71 67 72 71 67 64 60 59 60 65 +67; +#X obj 798 129 list trim; +#X msg 798 150 quarlm key 1 Meta_L 0; +#X obj 798 108 list prepend set; +#X obj 798 40 receive quarlm_control; +#X obj 989 60 list trim; +#X obj 990 85 route quarlm obamab; +#X obj 947 104 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 990 139 route key; +#X obj 1055 111 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 990 163 unpack f s f; +#X floatatom 990 195 5 0 0 0 - - -; +#X obj 798 194 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X floatatom 1030 195 5 0 0 0 - - -; +#X floatatom 1071 195 5 0 0 0 - - -; +#X obj 707 1018 outlet; +#X obj 647 1018 outlet~; +#X obj 907 866 line~; +#X obj 646 828 *~; +#X msg 961 817 0 50; +#X obj 782 932 throw~ quarlm_audio_1; +#X obj 907 771 loadbang; +#X msg 907 817 1 50; +#X obj 700 930 output~; +#X obj 1776 80 output~; +#X obj -1022 66 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 +-1 -1; +#X floatatom -1035 158 3 0 0 0 - - -; +#X floatatom -1003 159 3 0 0 0 - - -; +#X obj -1036 193 mtof; +#X obj -1003 193 * 0.33; +#X obj -1003 215 * 0.4; +#X obj -985 32 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X obj -1144 32 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X text -1139 11 Pitch (midi); +#X text -979 10 Velocity (volume); +#N canvas 953 518 450 300 noise-component 0; +#X obj 397 10 inlet; +#X obj 311 10 inlet; +#X obj 254 279 outlet~; +#X obj 252 46 noise~; +#X obj 311 103 line~; +#X obj 254 157 *~; +#X obj 254 193 lop~ 5000; +#X obj 254 252 *~ 0.5; +#X msg 311 75 1 \, 0 44; +#X connect 0 0 7 1; +#X connect 1 0 8 0; +#X connect 3 0 5 0; +#X connect 4 0 5 1; +#X connect 5 0 6 0; +#X connect 6 0 7 0; +#X connect 7 0 2 0; +#X connect 8 0 4 0; +#X restore -920 477 pd noise-component; +#N canvas 161 521 450 300 harmonic-osc 0; +#X obj -981 91 line~; +#X obj -1038 92 osc~; +#X msg -981 61 1 \, 0 100; +#X obj -1038 141 *~; +#X obj -1038 61 * 3; +#X obj -1038 174 *~ 1; +#X obj -1039 8 inlet; +#X obj -981 9 inlet; +#X obj -834 14 inlet; +#X obj -1038 210 outlet~; +#X connect 0 0 3 1; +#X connect 1 0 3 0; +#X connect 2 0 0 0; +#X connect 3 0 5 0; +#X connect 4 0 1 0; +#X connect 5 0 9 0; +#X connect 6 0 4 0; +#X connect 7 0 2 0; +#X connect 8 0 5 1; +#X restore -1213 458 pd harmonic-osc; +#N canvas 193 491 450 300 fundamental 0; +#X obj -250 32 inlet; +#X obj -232 141 line~; +#X obj -247 168 *~; +#X obj -249 80 osc~; +#X msg -232 112 1 \, 0 400; +#X obj -247 194 *~ 0.4; +#X obj -144 39 inlet; +#X obj -94 40 inlet; +#X obj -247 249 outlet~; +#X connect 0 0 3 0; +#X connect 1 0 2 1; +#X connect 2 0 5 0; +#X connect 3 0 2 0; +#X connect 4 0 1 0; +#X connect 5 0 8 0; +#X connect 6 0 4 0; +#X connect 7 0 5 1; +#X restore -1037 414 pd fundamental; +#X obj -971 158 s play-bang; +#X obj -1170 389 r play-bang; +#X obj -1035 272 s play-freq; +#X obj -1213 358 r play-freq; +#X obj -997 359 r play-bang; +#X obj -920 437 r play-bang; +#X obj -1036 335 r play-freq; +#X obj -815 436 r play-vol; +#X obj -1003 251 s play-vol; +#X obj -956 384 r play-vol; +#X obj -1126 419 r play-vol; +#X obj -1048 578 output~; +#X obj -1012 76 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 +-1 -1; +#X floatatom -1025 168 3 0 0 0 - - -; +#X floatatom -993 169 3 0 0 0 - - -; +#X obj -1026 203 mtof; +#X obj -993 203 * 0.33; +#X obj -993 225 * 0.4; +#X obj -975 42 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X obj -1134 42 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X text -1129 21 Pitch (midi); +#X text -969 20 Velocity (volume); +#N canvas 953 518 450 300 noise-component 0; +#X obj 397 10 inlet; +#X obj 311 10 inlet; +#X obj 254 279 outlet~; +#X obj 252 46 noise~; +#X obj 311 103 line~; +#X obj 254 157 *~; +#X obj 254 193 lop~ 5000; +#X obj 254 252 *~ 0.5; +#X msg 311 75 1 \, 0 44; +#X connect 0 0 7 1; +#X connect 1 0 8 0; +#X connect 3 0 5 0; +#X connect 4 0 5 1; +#X connect 5 0 6 0; +#X connect 6 0 7 0; +#X connect 7 0 2 0; +#X connect 8 0 4 0; +#X restore -910 487 pd noise-component; +#N canvas 161 521 450 300 harmonic-osc 0; +#X obj -981 91 line~; +#X obj -1038 92 osc~; +#X msg -981 61 1 \, 0 100; +#X obj -1038 141 *~; +#X obj -1038 61 * 3; +#X obj -1038 174 *~ 1; +#X obj -1039 8 inlet; +#X obj -981 9 inlet; +#X obj -834 14 inlet; +#X obj -1038 210 outlet~; +#X connect 0 0 3 1; +#X connect 1 0 3 0; +#X connect 2 0 0 0; +#X connect 3 0 5 0; +#X connect 4 0 1 0; +#X connect 5 0 9 0; +#X connect 6 0 4 0; +#X connect 7 0 2 0; +#X connect 8 0 5 1; +#X restore -1203 468 pd harmonic-osc; +#N canvas 193 491 450 300 fundamental 0; +#X obj -250 32 inlet; +#X obj -232 141 line~; +#X obj -247 168 *~; +#X obj -249 80 osc~; +#X msg -232 112 1 \, 0 400; +#X obj -247 194 *~ 0.4; +#X obj -144 39 inlet; +#X obj -94 40 inlet; +#X obj -247 249 outlet~; +#X connect 0 0 3 0; +#X connect 1 0 2 1; +#X connect 2 0 5 0; +#X connect 3 0 2 0; +#X connect 4 0 1 0; +#X connect 5 0 8 0; +#X connect 6 0 4 0; +#X connect 7 0 5 1; +#X restore -1027 424 pd fundamental; +#X obj -961 168 s play-bang; +#X obj -1160 399 r play-bang; +#X obj -1025 282 s play-freq; +#X obj -1203 368 r play-freq; +#X obj -987 369 r play-bang; +#X obj -910 447 r play-bang; +#X obj -1026 345 r play-freq; +#X obj -805 446 r play-vol; +#X obj -993 261 s play-vol; +#X obj -946 394 r play-vol; +#X obj -1116 429 r play-vol; +#X obj -1038 588 output~; +#X obj -1002 86 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 +-1 -1; +#X floatatom -1015 178 3 0 0 0 - - -; +#X floatatom -983 179 3 0 0 0 - - -; +#X obj -1016 213 mtof; +#X obj -983 213 * 0.33; +#X obj -983 235 * 0.4; +#X obj -965 52 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X obj -1124 52 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X text -1119 31 Pitch (midi); +#X text -959 30 Velocity (volume); +#N canvas 953 518 450 300 noise-component 0; +#X obj 397 10 inlet; +#X obj 311 10 inlet; +#X obj 254 279 outlet~; +#X obj 252 46 noise~; +#X obj 311 103 line~; +#X obj 254 157 *~; +#X obj 254 193 lop~ 5000; +#X obj 254 252 *~ 0.5; +#X msg 311 75 1 \, 0 44; +#X connect 0 0 7 1; +#X connect 1 0 8 0; +#X connect 3 0 5 0; +#X connect 4 0 5 1; +#X connect 5 0 6 0; +#X connect 6 0 7 0; +#X connect 7 0 2 0; +#X connect 8 0 4 0; +#X restore -900 497 pd noise-component; +#N canvas 161 521 450 300 harmonic-osc 0; +#X obj -981 91 line~; +#X obj -1038 92 osc~; +#X msg -981 61 1 \, 0 100; +#X obj -1038 141 *~; +#X obj -1038 61 * 3; +#X obj -1038 174 *~ 1; +#X obj -1039 8 inlet; +#X obj -981 9 inlet; +#X obj -834 14 inlet; +#X obj -1038 210 outlet~; +#X connect 0 0 3 1; +#X connect 1 0 3 0; +#X connect 2 0 0 0; +#X connect 3 0 5 0; +#X connect 4 0 1 0; +#X connect 5 0 9 0; +#X connect 6 0 4 0; +#X connect 7 0 2 0; +#X connect 8 0 5 1; +#X restore -1193 478 pd harmonic-osc; +#N canvas 193 491 450 300 fundamental 0; +#X obj -250 32 inlet; +#X obj -232 141 line~; +#X obj -247 168 *~; +#X obj -249 80 osc~; +#X msg -232 112 1 \, 0 400; +#X obj -247 194 *~ 0.4; +#X obj -144 39 inlet; +#X obj -94 40 inlet; +#X obj -247 249 outlet~; +#X connect 0 0 3 0; +#X connect 1 0 2 1; +#X connect 2 0 5 0; +#X connect 3 0 2 0; +#X connect 4 0 1 0; +#X connect 5 0 8 0; +#X connect 6 0 4 0; +#X connect 7 0 5 1; +#X restore -1017 434 pd fundamental; +#X obj -951 178 s play-bang; +#X obj -1150 409 r play-bang; +#X obj -1015 292 s play-freq; +#X obj -1193 378 r play-freq; +#X obj -977 379 r play-bang; +#X obj -900 457 r play-bang; +#X obj -1016 355 r play-freq; +#X obj -795 456 r play-vol; +#X obj -983 271 s play-vol; +#X obj -936 404 r play-vol; +#X obj -1106 439 r play-vol; +#X obj -1028 598 output~; +#X obj -992 96 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 -1 +-1; +#X floatatom -1005 188 3 0 0 0 - - -; +#X floatatom -973 189 3 0 0 0 - - -; +#X obj -1006 223 mtof; +#X obj -973 223 * 0.33; +#X obj -973 245 * 0.4; +#X obj -955 62 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X obj -1114 62 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X text -1109 41 Pitch (midi); +#X text -949 40 Velocity (volume); +#N canvas 953 518 450 300 noise-component 0; +#X obj 397 10 inlet; +#X obj 311 10 inlet; +#X obj 254 279 outlet~; +#X obj 252 46 noise~; +#X obj 311 103 line~; +#X obj 254 157 *~; +#X obj 254 193 lop~ 5000; +#X obj 254 252 *~ 0.5; +#X msg 311 75 1 \, 0 44; +#X connect 0 0 7 1; +#X connect 1 0 8 0; +#X connect 3 0 5 0; +#X connect 4 0 5 1; +#X connect 5 0 6 0; +#X connect 6 0 7 0; +#X connect 7 0 2 0; +#X connect 8 0 4 0; +#X restore -890 507 pd noise-component; +#N canvas 161 521 450 300 harmonic-osc 0; +#X obj -981 91 line~; +#X obj -1038 92 osc~; +#X msg -981 61 1 \, 0 100; +#X obj -1038 141 *~; +#X obj -1038 61 * 3; +#X obj -1038 174 *~ 1; +#X obj -1039 8 inlet; +#X obj -981 9 inlet; +#X obj -834 14 inlet; +#X obj -1038 210 outlet~; +#X connect 0 0 3 1; +#X connect 1 0 3 0; +#X connect 2 0 0 0; +#X connect 3 0 5 0; +#X connect 4 0 1 0; +#X connect 5 0 9 0; +#X connect 6 0 4 0; +#X connect 7 0 2 0; +#X connect 8 0 5 1; +#X restore -1183 488 pd harmonic-osc; +#N canvas 193 491 450 300 fundamental 0; +#X obj -250 32 inlet; +#X obj -232 141 line~; +#X obj -247 168 *~; +#X obj -249 80 osc~; +#X msg -232 112 1 \, 0 400; +#X obj -247 194 *~ 0.4; +#X obj -144 39 inlet; +#X obj -94 40 inlet; +#X obj -247 249 outlet~; +#X connect 0 0 3 0; +#X connect 1 0 2 1; +#X connect 2 0 5 0; +#X connect 3 0 2 0; +#X connect 4 0 1 0; +#X connect 5 0 8 0; +#X connect 6 0 4 0; +#X connect 7 0 5 1; +#X restore -1007 444 pd fundamental; +#X obj -941 188 s play-bang; +#X obj -1140 419 r play-bang; +#X obj -1005 302 s play-freq; +#X obj -1183 388 r play-freq; +#X obj -967 389 r play-bang; +#X obj -890 467 r play-bang; +#X obj -1006 365 r play-freq; +#X obj -785 466 r play-vol; +#X obj -973 281 s play-vol; +#X obj -926 414 r play-vol; +#X obj -1096 449 r play-vol; +#X obj -1018 608 output~; +#X obj -982 106 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 +-1 -1; +#X floatatom -995 198 3 0 0 0 - - -; +#X floatatom -963 199 3 0 0 0 - - -; +#X obj -996 233 mtof; +#X obj -963 233 * 0.33; +#X obj -963 255 * 0.4; +#X obj -945 72 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X obj -1104 72 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X text -1099 51 Pitch (midi); +#X text -939 50 Velocity (volume); +#N canvas 953 518 450 300 noise-component 0; +#X obj 397 10 inlet; +#X obj 311 10 inlet; +#X obj 254 279 outlet~; +#X obj 252 46 noise~; +#X obj 311 103 line~; +#X obj 254 157 *~; +#X obj 254 193 lop~ 5000; +#X obj 254 252 *~ 0.5; +#X msg 311 75 1 \, 0 44; +#X connect 0 0 7 1; +#X connect 1 0 8 0; +#X connect 3 0 5 0; +#X connect 4 0 5 1; +#X connect 5 0 6 0; +#X connect 6 0 7 0; +#X connect 7 0 2 0; +#X connect 8 0 4 0; +#X restore -880 517 pd noise-component; +#N canvas 161 521 450 300 harmonic-osc 0; +#X obj -981 91 line~; +#X obj -1038 92 osc~; +#X msg -981 61 1 \, 0 100; +#X obj -1038 141 *~; +#X obj -1038 61 * 3; +#X obj -1038 174 *~ 1; +#X obj -1039 8 inlet; +#X obj -981 9 inlet; +#X obj -834 14 inlet; +#X obj -1038 210 outlet~; +#X connect 0 0 3 1; +#X connect 1 0 3 0; +#X connect 2 0 0 0; +#X connect 3 0 5 0; +#X connect 4 0 1 0; +#X connect 5 0 9 0; +#X connect 6 0 4 0; +#X connect 7 0 2 0; +#X connect 8 0 5 1; +#X restore -1173 498 pd harmonic-osc; +#N canvas 193 491 450 300 fundamental 0; +#X obj -250 32 inlet; +#X obj -232 141 line~; +#X obj -247 168 *~; +#X obj -249 80 osc~; +#X msg -232 112 1 \, 0 400; +#X obj -247 194 *~ 0.4; +#X obj -144 39 inlet; +#X obj -94 40 inlet; +#X obj -247 249 outlet~; +#X connect 0 0 3 0; +#X connect 1 0 2 1; +#X connect 2 0 5 0; +#X connect 3 0 2 0; +#X connect 4 0 1 0; +#X connect 5 0 8 0; +#X connect 6 0 4 0; +#X connect 7 0 5 1; +#X restore -997 454 pd fundamental; +#X obj -931 198 s play-bang; +#X obj -1130 429 r play-bang; +#X obj -995 312 s play-freq; +#X obj -1173 398 r play-freq; +#X obj -957 399 r play-bang; +#X obj -880 477 r play-bang; +#X obj -996 375 r play-freq; +#X obj -775 476 r play-vol; +#X obj -963 291 s play-vol; +#X obj -916 424 r play-vol; +#X obj -1086 459 r play-vol; +#X obj -1008 618 output~; +#X obj -972 116 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 +-1 -1; +#X floatatom -985 208 3 0 0 0 - - -; +#X floatatom -953 209 3 0 0 0 - - -; +#X obj -986 243 mtof; +#X obj -953 243 * 0.33; +#X obj -953 265 * 0.4; +#X obj -935 82 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X obj -1094 82 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X text -1089 61 Pitch (midi); +#X text -929 60 Velocity (volume); +#N canvas 953 518 450 300 noise-component 0; +#X obj 397 10 inlet; +#X obj 311 10 inlet; +#X obj 254 279 outlet~; +#X obj 252 46 noise~; +#X obj 311 103 line~; +#X obj 254 157 *~; +#X obj 254 193 lop~ 5000; +#X obj 254 252 *~ 0.5; +#X msg 311 75 1 \, 0 44; +#X connect 0 0 7 1; +#X connect 1 0 8 0; +#X connect 3 0 5 0; +#X connect 4 0 5 1; +#X connect 5 0 6 0; +#X connect 6 0 7 0; +#X connect 7 0 2 0; +#X connect 8 0 4 0; +#X restore -870 527 pd noise-component; +#N canvas 161 521 450 300 harmonic-osc 0; +#X obj -981 91 line~; +#X obj -1038 92 osc~; +#X msg -981 61 1 \, 0 100; +#X obj -1038 141 *~; +#X obj -1038 61 * 3; +#X obj -1038 174 *~ 1; +#X obj -1039 8 inlet; +#X obj -981 9 inlet; +#X obj -834 14 inlet; +#X obj -1038 210 outlet~; +#X connect 0 0 3 1; +#X connect 1 0 3 0; +#X connect 2 0 0 0; +#X connect 3 0 5 0; +#X connect 4 0 1 0; +#X connect 5 0 9 0; +#X connect 6 0 4 0; +#X connect 7 0 2 0; +#X connect 8 0 5 1; +#X restore -1163 508 pd harmonic-osc; +#N canvas 193 491 450 300 fundamental 0; +#X obj -250 32 inlet; +#X obj -232 141 line~; +#X obj -247 168 *~; +#X obj -249 80 osc~; +#X msg -232 112 1 \, 0 400; +#X obj -247 194 *~ 0.4; +#X obj -144 39 inlet; +#X obj -94 40 inlet; +#X obj -247 249 outlet~; +#X connect 0 0 3 0; +#X connect 1 0 2 1; +#X connect 2 0 5 0; +#X connect 3 0 2 0; +#X connect 4 0 1 0; +#X connect 5 0 8 0; +#X connect 6 0 4 0; +#X connect 7 0 5 1; +#X restore -987 464 pd fundamental; +#X obj -921 208 s play-bang; +#X obj -1120 439 r play-bang; +#X obj -985 322 s play-freq; +#X obj -1163 408 r play-freq; +#X obj -947 409 r play-bang; +#X obj -870 487 r play-bang; +#X obj -986 385 r play-freq; +#X obj -765 486 r play-vol; +#X obj -953 301 s play-vol; +#X obj -906 434 r play-vol; +#X obj -1076 469 r play-vol; +#X obj -998 628 output~; +#X obj -962 126 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 +-1 -1; +#X floatatom -975 218 3 0 0 0 - - -; +#X floatatom -943 219 3 0 0 0 - - -; +#X obj -976 253 mtof; +#X obj -943 253 * 0.33; +#X obj -943 275 * 0.4; +#X obj -925 92 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X obj -1084 92 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X text -1079 71 Pitch (midi); +#X text -919 70 Velocity (volume); +#N canvas 953 518 450 300 noise-component 0; +#X obj 397 10 inlet; +#X obj 311 10 inlet; +#X obj 254 279 outlet~; +#X obj 252 46 noise~; +#X obj 311 103 line~; +#X obj 254 157 *~; +#X obj 254 193 lop~ 5000; +#X obj 254 252 *~ 0.5; +#X msg 311 75 1 \, 0 44; +#X connect 0 0 7 1; +#X connect 1 0 8 0; +#X connect 3 0 5 0; +#X connect 4 0 5 1; +#X connect 5 0 6 0; +#X connect 6 0 7 0; +#X connect 7 0 2 0; +#X connect 8 0 4 0; +#X restore -860 537 pd noise-component; +#N canvas 161 521 450 300 harmonic-osc 0; +#X obj -981 91 line~; +#X obj -1038 92 osc~; +#X msg -981 61 1 \, 0 100; +#X obj -1038 141 *~; +#X obj -1038 61 * 3; +#X obj -1038 174 *~ 1; +#X obj -1039 8 inlet; +#X obj -981 9 inlet; +#X obj -834 14 inlet; +#X obj -1038 210 outlet~; +#X connect 0 0 3 1; +#X connect 1 0 3 0; +#X connect 2 0 0 0; +#X connect 3 0 5 0; +#X connect 4 0 1 0; +#X connect 5 0 9 0; +#X connect 6 0 4 0; +#X connect 7 0 2 0; +#X connect 8 0 5 1; +#X restore -1153 518 pd harmonic-osc; +#N canvas 193 491 450 300 fundamental 0; +#X obj -250 32 inlet; +#X obj -232 141 line~; +#X obj -247 168 *~; +#X obj -249 80 osc~; +#X msg -232 112 1 \, 0 400; +#X obj -247 194 *~ 0.4; +#X obj -144 39 inlet; +#X obj -94 40 inlet; +#X obj -247 249 outlet~; +#X connect 0 0 3 0; +#X connect 1 0 2 1; +#X connect 2 0 5 0; +#X connect 3 0 2 0; +#X connect 4 0 1 0; +#X connect 5 0 8 0; +#X connect 6 0 4 0; +#X connect 7 0 5 1; +#X restore -977 474 pd fundamental; +#X obj -911 218 s play-bang; +#X obj -1110 449 r play-bang; +#X obj -975 332 s play-freq; +#X obj -1153 418 r play-freq; +#X obj -937 419 r play-bang; +#X obj -860 497 r play-bang; +#X obj -976 395 r play-freq; +#X obj -755 496 r play-vol; +#X obj -943 311 s play-vol; +#X obj -896 444 r play-vol; +#X obj -1066 479 r play-vol; +#X obj -988 638 output~; +#X obj -952 136 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 +-1 -1; +#X floatatom -965 228 3 0 0 0 - - -; +#X floatatom -933 229 3 0 0 0 - - -; +#X obj -966 263 mtof; +#X obj -933 263 * 0.33; +#X obj -933 285 * 0.4; +#X obj -915 102 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X obj -1074 102 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 0 1; +#X text -1069 81 Pitch (midi); +#X text -909 80 Velocity (volume); +#N canvas 953 518 450 300 noise-component 0; +#X obj 397 10 inlet; +#X obj 311 10 inlet; +#X obj 254 279 outlet~; +#X obj 252 46 noise~; +#X obj 311 103 line~; +#X obj 254 157 *~; +#X obj 254 193 lop~ 5000; +#X obj 254 252 *~ 0.5; +#X msg 311 75 1 \, 0 44; +#X connect 0 0 7 1; +#X connect 1 0 8 0; +#X connect 3 0 5 0; +#X connect 4 0 5 1; +#X connect 5 0 6 0; +#X connect 6 0 7 0; +#X connect 7 0 2 0; +#X connect 8 0 4 0; +#X restore -850 547 pd noise-component; +#N canvas 161 521 450 300 harmonic-osc 0; +#X obj -981 91 line~; +#X obj -1038 92 osc~; +#X msg -981 61 1 \, 0 100; +#X obj -1038 141 *~; +#X obj -1038 61 * 3; +#X obj -1038 174 *~ 1; +#X obj -1039 8 inlet; +#X obj -981 9 inlet; +#X obj -834 14 inlet; +#X obj -1038 210 outlet~; +#X connect 0 0 3 1; +#X connect 1 0 3 0; +#X connect 2 0 0 0; +#X connect 3 0 5 0; +#X connect 4 0 1 0; +#X connect 5 0 9 0; +#X connect 6 0 4 0; +#X connect 7 0 2 0; +#X connect 8 0 5 1; +#X restore -1143 528 pd harmonic-osc; +#N canvas 193 491 450 300 fundamental 0; +#X obj -250 32 inlet; +#X obj -232 141 line~; +#X obj -247 168 *~; +#X obj -249 80 osc~; +#X msg -232 112 1 \, 0 400; +#X obj -247 194 *~ 0.4; +#X obj -144 39 inlet; +#X obj -94 40 inlet; +#X obj -247 249 outlet~; +#X connect 0 0 3 0; +#X connect 1 0 2 1; +#X connect 2 0 5 0; +#X connect 3 0 2 0; +#X connect 4 0 1 0; +#X connect 5 0 8 0; +#X connect 6 0 4 0; +#X connect 7 0 5 1; +#X restore -967 484 pd fundamental; +#X obj -901 228 s play-bang; +#X obj -1100 459 r play-bang; +#X obj -965 342 s play-freq; +#X obj -1143 428 r play-freq; +#X obj -927 429 r play-bang; +#X obj -850 507 r play-bang; +#X obj -966 405 r play-freq; +#X obj -745 506 r play-vol; +#X obj -933 321 s play-vol; +#X obj -886 454 r play-vol; +#X obj -1056 489 r play-vol; +#X obj -978 648 output~; +#X obj -942 146 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 +-1 -1; +#X floatatom -955 238 3 0 0 0 - - -; +#X floatatom -923 239 3 0 0 0 - - -; +#X obj -956 273 mtof; +#X obj -923 273 * 0.33; +#X obj -923 295 * 0.4; +#X obj -905 112 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X obj -1064 112 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 0 1; +#X text -1059 91 Pitch (midi); +#X text -899 90 Velocity (volume); +#N canvas 953 518 450 300 noise-component 0; +#X obj 397 10 inlet; +#X obj 311 10 inlet; +#X obj 254 279 outlet~; +#X obj 252 46 noise~; +#X obj 311 103 line~; +#X obj 254 157 *~; +#X obj 254 193 lop~ 5000; +#X obj 254 252 *~ 0.5; +#X msg 311 75 1 \, 0 44; +#X connect 0 0 7 1; +#X connect 1 0 8 0; +#X connect 3 0 5 0; +#X connect 4 0 5 1; +#X connect 5 0 6 0; +#X connect 6 0 7 0; +#X connect 7 0 2 0; +#X connect 8 0 4 0; +#X restore -840 557 pd noise-component; +#N canvas 161 521 450 300 harmonic-osc 0; +#X obj -981 91 line~; +#X obj -1038 92 osc~; +#X msg -981 61 1 \, 0 100; +#X obj -1038 141 *~; +#X obj -1038 61 * 3; +#X obj -1038 174 *~ 1; +#X obj -1039 8 inlet; +#X obj -981 9 inlet; +#X obj -834 14 inlet; +#X obj -1038 210 outlet~; +#X connect 0 0 3 1; +#X connect 1 0 3 0; +#X connect 2 0 0 0; +#X connect 3 0 5 0; +#X connect 4 0 1 0; +#X connect 5 0 9 0; +#X connect 6 0 4 0; +#X connect 7 0 2 0; +#X connect 8 0 5 1; +#X restore -1133 538 pd harmonic-osc; +#N canvas 193 491 450 300 fundamental 0; +#X obj -250 32 inlet; +#X obj -232 141 line~; +#X obj -247 168 *~; +#X obj -249 80 osc~; +#X msg -232 112 1 \, 0 400; +#X obj -247 194 *~ 0.4; +#X obj -144 39 inlet; +#X obj -94 40 inlet; +#X obj -247 249 outlet~; +#X connect 0 0 3 0; +#X connect 1 0 2 1; +#X connect 2 0 5 0; +#X connect 3 0 2 0; +#X connect 4 0 1 0; +#X connect 5 0 8 0; +#X connect 6 0 4 0; +#X connect 7 0 5 1; +#X restore -957 494 pd fundamental; +#X obj -891 238 s play-bang; +#X obj -1090 469 r play-bang; +#X obj -955 352 s play-freq; +#X obj -1133 438 r play-freq; +#X obj -917 439 r play-bang; +#X obj -840 517 r play-bang; +#X obj -956 415 r play-freq; +#X obj -735 516 r play-vol; +#X obj -923 331 s play-vol; +#X obj -876 464 r play-vol; +#X obj -1046 499 r play-vol; +#X obj -968 658 output~; +#X obj -932 156 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 +-1 -1; +#X floatatom -945 248 3 0 0 0 - - -; +#X floatatom -913 249 3 0 0 0 - - -; +#X obj -946 283 mtof; +#X obj -913 283 * 0.33; +#X obj -913 305 * 0.4; +#X obj -895 122 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X obj -1054 122 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 0 1; +#X text -1049 101 Pitch (midi); +#X text -889 100 Velocity (volume); +#N canvas 953 518 450 300 noise-component 0; +#X obj 397 10 inlet; +#X obj 311 10 inlet; +#X obj 254 279 outlet~; +#X obj 252 46 noise~; +#X obj 311 103 line~; +#X obj 254 157 *~; +#X obj 254 193 lop~ 5000; +#X obj 254 252 *~ 0.5; +#X msg 311 75 1 \, 0 44; +#X connect 0 0 7 1; +#X connect 1 0 8 0; +#X connect 3 0 5 0; +#X connect 4 0 5 1; +#X connect 5 0 6 0; +#X connect 6 0 7 0; +#X connect 7 0 2 0; +#X connect 8 0 4 0; +#X restore -830 567 pd noise-component; +#N canvas 161 521 450 300 harmonic-osc 0; +#X obj -981 91 line~; +#X obj -1038 92 osc~; +#X msg -981 61 1 \, 0 100; +#X obj -1038 141 *~; +#X obj -1038 61 * 3; +#X obj -1038 174 *~ 1; +#X obj -1039 8 inlet; +#X obj -981 9 inlet; +#X obj -834 14 inlet; +#X obj -1038 210 outlet~; +#X connect 0 0 3 1; +#X connect 1 0 3 0; +#X connect 2 0 0 0; +#X connect 3 0 5 0; +#X connect 4 0 1 0; +#X connect 5 0 9 0; +#X connect 6 0 4 0; +#X connect 7 0 2 0; +#X connect 8 0 5 1; +#X restore -1123 548 pd harmonic-osc; +#N canvas 193 491 450 300 fundamental 0; +#X obj -250 32 inlet; +#X obj -232 141 line~; +#X obj -247 168 *~; +#X obj -249 80 osc~; +#X msg -232 112 1 \, 0 400; +#X obj -247 194 *~ 0.4; +#X obj -144 39 inlet; +#X obj -94 40 inlet; +#X obj -247 249 outlet~; +#X connect 0 0 3 0; +#X connect 1 0 2 1; +#X connect 2 0 5 0; +#X connect 3 0 2 0; +#X connect 4 0 1 0; +#X connect 5 0 8 0; +#X connect 6 0 4 0; +#X connect 7 0 5 1; +#X restore -947 504 pd fundamental; +#X obj -881 248 s play-bang; +#X obj -1080 479 r play-bang; +#X obj -945 362 s play-freq; +#X obj -1123 448 r play-freq; +#X obj -907 449 r play-bang; +#X obj -830 527 r play-bang; +#X obj -946 425 r play-freq; +#X obj -725 526 r play-vol; +#X obj -913 341 s play-vol; +#X obj -866 474 r play-vol; +#X obj -1036 509 r play-vol; +#X obj -958 668 output~; +#X obj -922 166 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 +-1 -1; +#X floatatom -935 258 3 0 0 0 - - -; +#X floatatom -903 259 3 0 0 0 - - -; +#X obj -936 293 mtof; +#X obj -903 293 * 0.33; +#X obj -903 315 * 0.4; +#X obj -885 132 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X obj -1044 132 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 0 1; +#X text -1039 111 Pitch (midi); +#X text -879 110 Velocity (volume); +#N canvas 953 518 450 300 noise-component 0; +#X obj 397 10 inlet; +#X obj 311 10 inlet; +#X obj 254 279 outlet~; +#X obj 252 46 noise~; +#X obj 311 103 line~; +#X obj 254 157 *~; +#X obj 254 193 lop~ 5000; +#X obj 254 252 *~ 0.5; +#X msg 311 75 1 \, 0 44; +#X connect 0 0 7 1; +#X connect 1 0 8 0; +#X connect 3 0 5 0; +#X connect 4 0 5 1; +#X connect 5 0 6 0; +#X connect 6 0 7 0; +#X connect 7 0 2 0; +#X connect 8 0 4 0; +#X restore -820 577 pd noise-component; +#N canvas 161 521 450 300 harmonic-osc 0; +#X obj -981 91 line~; +#X obj -1038 92 osc~; +#X msg -981 61 1 \, 0 100; +#X obj -1038 141 *~; +#X obj -1038 61 * 3; +#X obj -1038 174 *~ 1; +#X obj -1039 8 inlet; +#X obj -981 9 inlet; +#X obj -834 14 inlet; +#X obj -1038 210 outlet~; +#X connect 0 0 3 1; +#X connect 1 0 3 0; +#X connect 2 0 0 0; +#X connect 3 0 5 0; +#X connect 4 0 1 0; +#X connect 5 0 9 0; +#X connect 6 0 4 0; +#X connect 7 0 2 0; +#X connect 8 0 5 1; +#X restore -1113 558 pd harmonic-osc; +#N canvas 193 491 450 300 fundamental 0; +#X obj -250 32 inlet; +#X obj -232 141 line~; +#X obj -247 168 *~; +#X obj -249 80 osc~; +#X msg -232 112 1 \, 0 400; +#X obj -247 194 *~ 0.4; +#X obj -144 39 inlet; +#X obj -94 40 inlet; +#X obj -247 249 outlet~; +#X connect 0 0 3 0; +#X connect 1 0 2 1; +#X connect 2 0 5 0; +#X connect 3 0 2 0; +#X connect 4 0 1 0; +#X connect 5 0 8 0; +#X connect 6 0 4 0; +#X connect 7 0 5 1; +#X restore -937 514 pd fundamental; +#X obj -871 258 s play-bang; +#X obj -1070 489 r play-bang; +#X obj -935 372 s play-freq; +#X obj -1113 458 r play-freq; +#X obj -897 459 r play-bang; +#X obj -820 537 r play-bang; +#X obj -936 435 r play-freq; +#X obj -715 536 r play-vol; +#X obj -903 351 s play-vol; +#X obj -856 484 r play-vol; +#X obj -1026 519 r play-vol; +#X obj -948 678 output~; +#X obj 76 434 mtof; +#X obj 76 458 phasor~; +#X obj 76 485 expr~ $v1 > 0.5; +#X obj 76 531 *~ 2; +#X obj 76 553 -~ 1; +#X text 153 457 square waves!; +#X obj 1167 613 line~; +#X obj 1152 640 *~; +#X obj 1150 552 osc~; +#X obj 1348 411 noise~; +#X obj 1406 449 line~; +#X obj 1349 503 *~; +#X obj 1054 476 line~; +#X floatatom 1151 289 3 0 0 0 - - -; +#X floatatom 1184 289 3 0 0 0 - - -; +#X obj 993 509 *~; +#X obj 993 446 * 3; +#X obj 993 542 *~ 1; +#X obj 1349 598 *~ 0.5; +#X obj 1151 334 mtof; +#X msg 1167 584 1 \, 0 400; +#X obj 1152 666 *~ 0.4; +#X obj 1184 334 * 0.33; +#X msg 1406 421 1 \, 0 44; +#X obj 1349 539 lop~ 5000; +#X obj 1184 356 * 0.4; +#X msg 1054 446 1 \, 0 400; +#X obj 1331 223 loadbang; +#X msg 1329 263 30; +#X obj 993 476 phasor~; +#X obj 388 433 noise~; +#X obj 445 433 line~; +#X obj 388 487 *~; +#X obj 417 555 hsl 128 15 0 1 0 0 empty empty Volume_0-1 -2 -6 0 8 +-262144 -1 -1 0 1; +#X msg 445 405 1 \, 0 50; +#X obj 388 523 lop~ 400; +#X floatatom 441 499 5 0 0 0 - - -; +#X obj 388 582 *~ 1; +#X text 452 523 Low-pass filter; +#X text 1410 238 horrible marimba! except I changed the osc~ for a +phasor.; +#X text 970 11 ROB - yes \, I'm removing this though to use the global +new version; +#X obj 799 12 keycontrol_ quarlm; +#X text 34 10 Adam Quarles; +#X connect 0 0 4 0; +#X connect 0 0 346 0; +#X connect 4 0 6 0; +#X connect 4 0 5 0; +#X connect 5 0 4 1; +#X connect 6 0 11 0; +#X connect 7 0 312 0; +#X connect 8 0 10 0; +#X connect 9 0 4 1; +#X connect 10 0 7 0; +#X connect 11 0 8 0; +#X connect 13 0 14 0; +#X connect 14 0 24 0; #X connect 15 0 13 0; +#X connect 16 0 15 0; #X connect 16 0 17 0; #X connect 17 0 18 0; -#X connect 18 0 14 0; -#X connect 19 0 20 0; -#X connect 20 0 21 0; +#X connect 18 0 19 0; +#X connect 18 0 20 0; +#X connect 18 1 21 0; +#X connect 20 0 22 0; #X connect 22 0 23 0; -#X connect 22 1 24 0; -#X connect 22 2 25 0; -#X connect 22 3 26 0; -#X connect 22 4 27 0; -#X connect 28 0 11 0; -#X connect 30 0 34 0; -#X connect 32 0 10 0; -#X connect 34 0 13 0; +#X connect 22 1 25 0; +#X connect 22 2 26 0; +#X connect 23 0 338 0; +#X connect 23 0 335 0; +#X connect 26 0 325 0; +#X connect 29 0 30 1; +#X connect 30 0 28 0; +#X connect 30 0 32 0; +#X connect 31 0 29 0; +#X connect 33 0 34 0; +#X connect 34 0 29 0; +#X connect 37 0 39 0; +#X connect 37 0 38 0; +#X connect 37 0 50 0; +#X connect 38 0 40 0; +#X connect 39 0 41 0; +#X connect 40 0 52 0; +#X connect 41 0 42 0; +#X connect 42 0 58 0; +#X connect 43 0 39 0; +#X connect 44 0 38 0; +#X connect 44 0 37 0; +#X connect 47 0 61 1; +#X connect 48 0 61 0; +#X connect 49 0 61 0; +#X connect 49 0 61 1; +#X connect 51 0 48 1; +#X connect 53 0 48 0; +#X connect 54 0 49 1; +#X connect 55 0 47 0; +#X connect 56 0 49 0; +#X connect 57 0 47 1; +#X connect 59 0 49 2; +#X connect 60 0 48 2; +#X connect 62 0 64 0; +#X connect 62 0 63 0; +#X connect 62 0 75 0; +#X connect 63 0 65 0; +#X connect 64 0 66 0; +#X connect 65 0 77 0; +#X connect 66 0 67 0; +#X connect 67 0 83 0; +#X connect 68 0 64 0; +#X connect 69 0 63 0; +#X connect 69 0 62 0; +#X connect 72 0 86 1; +#X connect 73 0 86 0; +#X connect 74 0 86 0; +#X connect 74 0 86 1; +#X connect 76 0 73 1; +#X connect 78 0 73 0; +#X connect 79 0 74 1; +#X connect 80 0 72 0; +#X connect 81 0 74 0; +#X connect 82 0 72 1; +#X connect 84 0 74 2; +#X connect 85 0 73 2; +#X connect 87 0 89 0; +#X connect 87 0 88 0; +#X connect 87 0 100 0; +#X connect 88 0 90 0; +#X connect 89 0 91 0; +#X connect 90 0 102 0; +#X connect 91 0 92 0; +#X connect 92 0 108 0; +#X connect 93 0 89 0; +#X connect 94 0 88 0; +#X connect 94 0 87 0; +#X connect 97 0 111 1; +#X connect 98 0 111 0; +#X connect 99 0 111 0; +#X connect 99 0 111 1; +#X connect 101 0 98 1; +#X connect 103 0 98 0; +#X connect 104 0 99 1; +#X connect 105 0 97 0; +#X connect 106 0 99 0; +#X connect 107 0 97 1; +#X connect 109 0 99 2; +#X connect 110 0 98 2; +#X connect 112 0 114 0; +#X connect 112 0 113 0; +#X connect 112 0 125 0; +#X connect 113 0 115 0; +#X connect 114 0 116 0; +#X connect 115 0 127 0; +#X connect 116 0 117 0; +#X connect 117 0 133 0; +#X connect 118 0 114 0; +#X connect 119 0 113 0; +#X connect 119 0 112 0; +#X connect 122 0 136 1; +#X connect 123 0 136 0; +#X connect 124 0 136 0; +#X connect 124 0 136 1; +#X connect 126 0 123 1; +#X connect 128 0 123 0; +#X connect 129 0 124 1; +#X connect 130 0 122 0; +#X connect 131 0 124 0; +#X connect 132 0 122 1; +#X connect 134 0 124 2; +#X connect 135 0 123 2; +#X connect 137 0 139 0; +#X connect 137 0 138 0; +#X connect 137 0 150 0; +#X connect 138 0 140 0; +#X connect 139 0 141 0; +#X connect 140 0 152 0; +#X connect 141 0 142 0; +#X connect 142 0 158 0; +#X connect 143 0 139 0; +#X connect 144 0 138 0; +#X connect 144 0 137 0; +#X connect 147 0 161 1; +#X connect 148 0 161 0; +#X connect 149 0 161 0; +#X connect 149 0 161 1; +#X connect 151 0 148 1; +#X connect 153 0 148 0; +#X connect 154 0 149 1; +#X connect 155 0 147 0; +#X connect 156 0 149 0; +#X connect 157 0 147 1; +#X connect 159 0 149 2; +#X connect 160 0 148 2; +#X connect 162 0 164 0; +#X connect 162 0 163 0; +#X connect 162 0 175 0; +#X connect 163 0 165 0; +#X connect 164 0 166 0; +#X connect 165 0 177 0; +#X connect 166 0 167 0; +#X connect 167 0 183 0; +#X connect 168 0 164 0; +#X connect 169 0 163 0; +#X connect 169 0 162 0; +#X connect 172 0 186 1; +#X connect 173 0 186 0; +#X connect 174 0 186 0; +#X connect 174 0 186 1; +#X connect 176 0 173 1; +#X connect 178 0 173 0; +#X connect 179 0 174 1; +#X connect 180 0 172 0; +#X connect 181 0 174 0; +#X connect 182 0 172 1; +#X connect 184 0 174 2; +#X connect 185 0 173 2; +#X connect 187 0 189 0; +#X connect 187 0 188 0; +#X connect 187 0 200 0; +#X connect 188 0 190 0; +#X connect 189 0 191 0; +#X connect 190 0 202 0; +#X connect 191 0 192 0; +#X connect 192 0 208 0; +#X connect 193 0 189 0; +#X connect 194 0 188 0; +#X connect 194 0 187 0; +#X connect 197 0 211 1; +#X connect 198 0 211 0; +#X connect 199 0 211 0; +#X connect 199 0 211 1; +#X connect 201 0 198 1; +#X connect 203 0 198 0; +#X connect 204 0 199 1; +#X connect 205 0 197 0; +#X connect 206 0 199 0; +#X connect 207 0 197 1; +#X connect 209 0 199 2; +#X connect 210 0 198 2; +#X connect 212 0 214 0; +#X connect 212 0 213 0; +#X connect 212 0 225 0; +#X connect 213 0 215 0; +#X connect 214 0 216 0; +#X connect 215 0 227 0; +#X connect 216 0 217 0; +#X connect 217 0 233 0; +#X connect 218 0 214 0; +#X connect 219 0 213 0; +#X connect 219 0 212 0; +#X connect 222 0 236 1; +#X connect 223 0 236 0; +#X connect 224 0 236 0; +#X connect 224 0 236 1; +#X connect 226 0 223 1; +#X connect 228 0 223 0; +#X connect 229 0 224 1; +#X connect 230 0 222 0; +#X connect 231 0 224 0; +#X connect 232 0 222 1; +#X connect 234 0 224 2; +#X connect 235 0 223 2; +#X connect 237 0 239 0; +#X connect 237 0 238 0; +#X connect 237 0 250 0; +#X connect 238 0 240 0; +#X connect 239 0 241 0; +#X connect 240 0 252 0; +#X connect 241 0 242 0; +#X connect 242 0 258 0; +#X connect 243 0 239 0; +#X connect 244 0 238 0; +#X connect 244 0 237 0; +#X connect 247 0 261 1; +#X connect 248 0 261 0; +#X connect 249 0 261 0; +#X connect 249 0 261 1; +#X connect 251 0 248 1; +#X connect 253 0 248 0; +#X connect 254 0 249 1; +#X connect 255 0 247 0; +#X connect 256 0 249 0; +#X connect 257 0 247 1; +#X connect 259 0 249 2; +#X connect 260 0 248 2; +#X connect 262 0 264 0; +#X connect 262 0 263 0; +#X connect 262 0 275 0; +#X connect 263 0 265 0; +#X connect 264 0 266 0; +#X connect 265 0 277 0; +#X connect 266 0 267 0; +#X connect 267 0 283 0; +#X connect 268 0 264 0; +#X connect 269 0 263 0; +#X connect 269 0 262 0; +#X connect 272 0 286 1; +#X connect 273 0 286 0; +#X connect 274 0 286 0; +#X connect 274 0 286 1; +#X connect 276 0 273 1; +#X connect 278 0 273 0; +#X connect 279 0 274 1; +#X connect 280 0 272 0; +#X connect 281 0 274 0; +#X connect 282 0 272 1; +#X connect 284 0 274 2; +#X connect 285 0 273 2; +#X connect 287 0 289 0; +#X connect 287 0 288 0; +#X connect 287 0 300 0; +#X connect 288 0 290 0; +#X connect 289 0 291 0; +#X connect 290 0 302 0; +#X connect 291 0 292 0; +#X connect 292 0 308 0; +#X connect 293 0 289 0; +#X connect 294 0 288 0; +#X connect 294 0 287 0; +#X connect 297 0 311 1; +#X connect 298 0 311 0; +#X connect 299 0 311 0; +#X connect 299 0 311 1; +#X connect 301 0 298 1; +#X connect 303 0 298 0; +#X connect 304 0 299 1; +#X connect 305 0 297 0; +#X connect 306 0 299 0; +#X connect 307 0 297 1; +#X connect 309 0 299 2; +#X connect 310 0 298 2; +#X connect 312 0 313 0; +#X connect 313 0 314 0; +#X connect 314 0 315 0; +#X connect 315 0 316 0; +#X connect 316 0 30 0; +#X connect 318 0 319 1; +#X connect 319 0 333 0; +#X connect 320 0 319 0; +#X connect 321 0 323 0; +#X connect 322 0 323 1; +#X connect 323 0 336 0; +#X connect 324 0 327 1; +#X connect 325 0 331 0; +#X connect 326 0 334 0; +#X connect 327 0 329 0; +#X connect 328 0 341 0; +#X connect 329 0 30 0; +#X connect 330 0 30 0; +#X connect 331 0 320 0; +#X connect 331 0 328 0; +#X connect 332 0 318 0; +#X connect 333 0 30 0; +#X connect 334 0 337 0; +#X connect 335 0 322 0; +#X connect 336 0 330 0; +#X connect 337 0 333 1; +#X connect 337 0 329 1; +#X connect 337 0 330 1; +#X connect 338 0 324 0; +#X connect 339 0 340 0; +#X connect 340 0 326 0; +#X connect 341 0 327 0; +#X connect 342 0 344 0; +#X connect 343 0 344 1; +#X connect 344 0 347 0; +#X connect 345 0 349 1; +#X connect 346 0 343 0; +#X connect 347 0 349 0; +#X connect 348 0 347 1; +#X connect 349 0 30 0; diff --git a/rothgj.pd b/rothgj.pd index 40cb88a..425ba03 100644 --- a/rothgj.pd +++ b/rothgj.pd @@ -1,4 +1,4 @@ -#N canvas -11 -11 1920 956 12; +#N canvas 0 23 1680 956 12; #X obj 199 24 inlet~; #X obj 251 24 inlet; #X obj 192 405 outlet~; @@ -21,7 +21,7 @@ to send a bang at the start of the patch (when it is loaded); #X obj 334 437 loadbang; #X obj 207 486 throw~ rothgj_audio_1; #X msg 414 313 1 10; -#N canvas 10 23 1910 1020 additive-synthesis 1; +#N canvas 10 23 1910 1020 additive-synthesis 0; #X floatatom 84 69 5 0 0 0 - - -; #X obj 85 95 mtof; #X obj 204 128 * 2; @@ -136,7 +136,7 @@ to send a bang at the start of the patch (when it is loaded); #X restore 192 317 pd additive-synthesis; #X floatatom 25 359 5 0 0 0 - - -; #X obj 25 332 - 24; -#N canvas -11 -11 1920 956 additive-synthesis 1; +#N canvas 0 23 1920 956 additive-synthesis 0; #X floatatom 84 73 5 0 0 0 - - -; #X obj 85 95 mtof; #X obj 204 128 * 2; @@ -146,7 +146,7 @@ to send a bang at the start of the patch (when it is loaded); #X obj 204 270 +~; #X obj 204 352 *~; #X obj 85 372 +~; -#X obj 251 354 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +#X obj 251 354 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X text 283 353 toggle overtones; #X floatatom 47 118 5 0 0 0 - - -; @@ -257,7 +257,7 @@ to send a bang at the start of the patch (when it is loaded); #X obj 26 275 +; #X msg 26 251 0; #X obj 976 418 list trim; -#X msg 976 439 rothgj key 1 Control_L 0; +#X msg 976 439 rothgj key 1 Meta_L 0; #X obj 976 397 list prepend set; #X obj 1233 425 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; @@ -271,7 +271,6 @@ to send a bang at the start of the patch (when it is loaded); #X floatatom 1272 502 5 0 0 0 - - -; #X symbolatom 1315 503 10 0 0 0 - - -; #X obj 976 356 receive rothgj_control; -#X obj 1015 174 keycontrol rothgj; #X obj 1274 396 route rothgj; #X obj 1254 622 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; @@ -295,9 +294,13 @@ sawtooths. This patch will arpeggiate all the chords in a C scale and those chord changes can be controlled with the keyboard. Lastly the root of those chords is played two octaves down.; #X text 463 64 Controls C: 1 Dm: 2 Em: 3 F: 4 G: 5 Am: 6 Bdim: 7; +#X obj 1015 174 keycontrol_ rothgj; +#X text 1161 172 ROB - yes \, I'm removing this though to use the global +new version; +#X text 39 15 Jackson Rothgeb; #X connect 4 0 5 0; #X connect 4 0 27 0; -#X connect 4 0 48 0; +#X connect 4 0 47 0; #X connect 5 0 6 0; #X connect 5 0 7 0; #X connect 6 0 5 1; @@ -324,28 +327,28 @@ root of those chords is played two octaves down.; #X connect 22 0 25 0; #X connect 23 0 25 0; #X connect 24 0 25 0; -#X connect 25 0 53 0; -#X connect 26 0 54 0; +#X connect 25 0 52 0; +#X connect 26 0 53 0; #X connect 27 0 26 0; #X connect 28 0 29 0; #X connect 29 0 32 0; #X connect 30 0 28 0; -#X connect 33 0 41 0; +#X connect 33 0 40 0; #X connect 35 0 36 0; #X connect 36 0 37 0; #X connect 36 1 38 0; -#X connect 36 2 44 0; +#X connect 36 2 43 0; #X connect 39 0 30 0; #X connect 39 0 33 0; -#X connect 41 0 31 0; -#X connect 41 0 35 0; -#X connect 41 1 34 0; -#X connect 43 0 50 0; +#X connect 40 0 31 0; +#X connect 40 0 35 0; +#X connect 40 1 34 0; +#X connect 42 0 49 0; +#X connect 43 0 44 0; #X connect 44 0 45 0; -#X connect 45 0 46 0; -#X connect 46 0 43 0; -#X connect 51 0 25 1; -#X connect 51 0 49 0; -#X connect 52 0 26 1; -#X connect 53 0 9 0; -#X connect 54 0 19 0; +#X connect 45 0 42 0; +#X connect 50 0 25 1; +#X connect 50 0 48 0; +#X connect 51 0 26 1; +#X connect 52 0 9 0; +#X connect 53 0 19 0; diff --git a/schans2.pd b/schans2.pd index 3ba9157..b7b15f4 100644 --- a/schans2.pd +++ b/schans2.pd @@ -1,4 +1,4 @@ -#N canvas 953 0 958 947 12; +#N canvas 183 23 1367 947 12; #X obj 131 20 inlet~; #X obj 182 20 inlet; #X obj 638 537 outlet; @@ -15,8 +15,7 @@ #X obj 458 505 outlet~; #X obj 431 44 list prepend set; #X obj 431 70 list trim; -#X msg 431 96 schans2 key 1 Control_L 0; -#X obj 226 20 keycontrol schans2; +#X msg 431 96 schans2 key 1 Meta_L 0; #X obj 332 70 route schans2; #X obj 332 96 route key; #X obj 332 123 unpack f s f; @@ -102,36 +101,46 @@ #X text 380 176 Key switchboard; #X text 39 244 Initialize bass to lowest frequency; #X text 879 254 Bass timbre cycler; +#X text -62 51 ROB - yes \, I'm removing this though to use the global +new version; +#X obj 226 20 keycontrol_ schans2; +#X text 18 14 Sam Schantz; +#X floatatom 0 450 5 0 0 0 - - -; +#X obj 0 473 mtof; +#X floatatom 0 497 5 0 0 0 - - -; +#X msg 37 350 36; +#X obj 37 374 mtof; #X connect 3 0 5 0; #X connect 4 0 13 0; -#X connect 4 0 21 0; +#X connect 4 0 20 0; #X connect 5 0 6 0; #X connect 6 0 7 0; #X connect 6 0 8 0; #X connect 7 0 6 1; -#X connect 8 0 61 0; +#X connect 8 0 60 0; #X connect 9 0 6 1; #X connect 13 0 14 0; #X connect 14 0 15 0; +#X connect 16 0 17 0; #X connect 17 0 18 0; -#X connect 18 0 19 0; -#X connect 19 0 22 0; -#X connect 19 1 23 0; -#X connect 19 2 20 0; -#X connect 21 0 17 0; -#X connect 22 0 73 0; -#X connect 23 0 77 0; -#X connect 24 0 25 0; -#X connect 25 0 54 0; -#X connect 26 0 54 0; -#X connect 27 0 26 0; +#X connect 18 0 21 0; +#X connect 18 1 22 0; +#X connect 18 2 19 0; +#X connect 20 0 16 0; +#X connect 21 0 72 0; +#X connect 22 0 76 0; +#X connect 23 0 24 0; +#X connect 24 0 53 0; +#X connect 25 0 53 0; +#X connect 26 0 25 0; +#X connect 27 0 65 0; #X connect 28 0 66 0; #X connect 29 0 67 0; #X connect 30 0 68 0; -#X connect 31 0 69 0; -#X connect 32 0 71 0; -#X connect 33 0 70 0; -#X connect 34 0 52 0; +#X connect 31 0 70 0; +#X connect 32 0 69 0; +#X connect 33 0 51 0; +#X connect 34 0 43 0; #X connect 35 0 44 0; #X connect 36 0 45 0; #X connect 37 0 46 0; @@ -139,57 +148,59 @@ #X connect 39 0 48 0; #X connect 40 0 49 0; #X connect 41 0 50 0; -#X connect 42 0 51 0; +#X connect 42 0 52 0; #X connect 43 0 53 0; -#X connect 44 0 54 0; -#X connect 45 0 54 0; -#X connect 46 0 54 0; -#X connect 47 0 54 0; -#X connect 48 0 54 0; -#X connect 49 0 54 0; -#X connect 50 0 54 0; -#X connect 51 0 54 0; -#X connect 52 0 54 0; -#X connect 53 0 54 0; -#X connect 54 0 76 0; -#X connect 55 0 65 0; -#X connect 56 0 63 0; -#X connect 57 0 58 0; -#X connect 59 0 60 0; -#X connect 60 0 55 1; -#X connect 61 0 56 0; -#X connect 62 0 55 0; -#X connect 63 0 57 0; -#X connect 64 0 66 0; -#X connect 65 0 12 0; -#X connect 65 0 11 0; -#X connect 66 0 62 0; -#X connect 67 0 62 0; -#X connect 68 0 62 0; -#X connect 69 0 62 0; -#X connect 70 0 62 0; -#X connect 71 0 62 0; -#X connect 72 0 75 1; -#X connect 74 0 78 0; -#X connect 75 0 12 0; -#X connect 75 0 11 0; -#X connect 76 0 75 0; -#X connect 77 0 28 0; -#X connect 77 1 29 0; -#X connect 77 2 30 0; -#X connect 77 3 31 0; -#X connect 77 4 33 0; -#X connect 77 5 32 0; -#X connect 77 6 34 0; -#X connect 77 7 35 0; -#X connect 77 8 27 0; -#X connect 77 9 24 0; -#X connect 77 10 36 0; -#X connect 77 11 37 0; -#X connect 77 12 38 0; -#X connect 77 13 39 0; -#X connect 77 14 40 0; -#X connect 77 15 41 0; -#X connect 77 16 42 0; -#X connect 77 17 43 0; -#X connect 78 0 72 0; +#X connect 44 0 53 0; +#X connect 45 0 53 0; +#X connect 46 0 53 0; +#X connect 47 0 53 0; +#X connect 48 0 53 0; +#X connect 49 0 53 0; +#X connect 50 0 53 0; +#X connect 51 0 53 0; +#X connect 52 0 53 0; +#X connect 53 0 75 0; +#X connect 54 0 64 0; +#X connect 55 0 62 0; +#X connect 56 0 57 0; +#X connect 58 0 59 0; +#X connect 59 0 54 1; +#X connect 60 0 55 0; +#X connect 61 0 54 0; +#X connect 62 0 56 0; +#X connect 63 0 65 0; +#X connect 64 0 12 0; +#X connect 64 0 11 0; +#X connect 65 0 61 0; +#X connect 66 0 61 0; +#X connect 67 0 61 0; +#X connect 68 0 61 0; +#X connect 69 0 61 0; +#X connect 70 0 61 0; +#X connect 71 0 74 1; +#X connect 73 0 77 0; +#X connect 74 0 12 0; +#X connect 74 0 11 0; +#X connect 75 0 74 0; +#X connect 76 0 27 0; +#X connect 76 1 28 0; +#X connect 76 2 29 0; +#X connect 76 3 30 0; +#X connect 76 4 32 0; +#X connect 76 5 31 0; +#X connect 76 6 33 0; +#X connect 76 7 34 0; +#X connect 76 8 26 0; +#X connect 76 9 23 0; +#X connect 76 10 35 0; +#X connect 76 11 36 0; +#X connect 76 12 37 0; +#X connect 76 13 38 0; +#X connect 76 14 39 0; +#X connect 76 15 40 0; +#X connect 76 16 41 0; +#X connect 76 17 42 0; +#X connect 77 0 71 0; +#X connect 86 0 87 0; +#X connect 87 0 88 0; +#X connect 89 0 90 0; diff --git a/sheny13.pd b/sheny13.pd index 0f66eb2..57564a6 100644 --- a/sheny13.pd +++ b/sheny13.pd @@ -1,97 +1,352 @@ -#N canvas 700 24 1220 1005 12; -#X obj 134 40 inlet; -#X obj 74 40 inlet~; -#X obj 72 829 outlet~; -#X obj 138 829 outlet; -#X obj 213 41 receive sheny13_tempo; -#X obj 382 41 receive sheny13_control; -#X obj 84 342 metro 1000; -#X obj 72 389 f; -#X obj 112 389 + 1; -#X floatatom 72 413 5 0 0 0 - - -; -#X floatatom 72 543 5 0 0 0 - - -; -#X floatatom 72 460 5 0 0 0 - - -; -#X floatatom 139 310 5 0 0 0 - - -; -#X msg 162 356 0; -#X obj 201 676 line~; -#X obj 72 703 *~; -#X msg 235 628 0 50; -#X obj 72 566 mtof; -#X floatatom 72 590 10 0 0 0 - - -; -#X floatatom 139 231 5 0 0 0 - - -; -#X floatatom 139 169 5 0 0 0 - - -; -#X obj 72 648 osc~ 440; -#X obj 203 477 send coolbang; -#X obj 139 135 receive coolbang; -#X obj 139 262 * 150; -#X obj 72 436 % 13; -#X obj 72 99 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 --1; -#X obj 92 293 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +#N canvas 0 23 1920 1037 12; +#X text 928 38 play key 'd' to play kick; +#X text 915 74 play key 'r' play rise squre wave; +#X text 926 111 play key 'f' play falling square wave; +#X text 926 154 play key 'm' to mute the square wave; +#X obj 206 57 inlet; +#X obj 146 57 inlet~; +#X obj 144 846 outlet~; +#X obj 210 846 outlet; +#X obj 285 58 receive sheny13_tempo; +#X obj 454 58 receive sheny13_control; +#X obj 156 359 metro 1000; +#X obj 144 406 f; +#X obj 184 406 + 1; +#X floatatom 144 430 5 0 0 0 - - -; +#X floatatom 144 560 5 0 0 0 - - -; +#X floatatom 144 477 5 0 0 0 - - -; +#X floatatom 211 327 5 0 0 0 - - -; +#X msg 234 373 0; +#X obj 273 693 line~; +#X obj 144 720 *~; +#X msg 307 645 0 50; +#X obj 144 583 mtof; +#X floatatom 144 607 10 0 0 0 - - -; +#X floatatom 211 248 5 0 0 0 - - -; +#X floatatom 211 186 5 0 0 0 - - -; +#X obj 144 665 osc~ 440; +#X obj 275 494 send coolbang; +#X obj 211 152 receive coolbang; +#X obj 211 279 * 150; +#X obj 144 453 % 13; +#X obj 144 116 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 164 308 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; -#X floatatom 335 394 5 0 0 0 - - -; -#X floatatom 402 468 5 0 0 0 - - -; -#X obj 335 471 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +#X floatatom 407 411 5 0 0 0 - - -; +#X floatatom 474 485 5 0 0 0 - - -; +#X obj 407 488 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; -#X obj 368 471 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +#X obj 440 488 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; -#X obj 335 433 select 0 1; -#X obj 161 449 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +#X obj 407 450 select 0 1; +#X obj 233 466 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #N canvas 0 50 450 250 (subpatch) 0; #X array note_sheny13 16 float 3; -#A 0 59.8716 65.3143 68.9429 60 64 68.9429 65.3141 59 64 69 59 64 67 -78 79 80; +#A 0 59.8716 65.3143 68.9429 60 64 68.9429 65.3141 58.0573 64 69 59 +64 67 78 79 80; #X coords 0 127 16 0 200 70 1 0 0; -#X restore 462 213 graph; +#X restore 405 129 graph; #N canvas 0 50 450 250 (subpatch) 0; #X array duration_sheny13 16 float 3; #A 0 3 3 3 3 3 5 3 3 3 3 3 3 5 3 3 3; #X coords 0 10 16 0 200 70 1 0 0; -#X restore 690 212 graph; -#X obj 197 782 throw~ sheny13_audio_1; -#X msg 516 348 \; note_sheny13 60 64 69 60 64 69 64 59 64 69 59 64 +#X restore 633 128 graph; +#X msg 405 257 \; duration_sheny13 3 3 3 5 3 3 3 3 3 3 5 3 3; +#X obj 211 214 tabread duration_sheny13; +#X obj 144 529 tabread note_sheny13; +#X obj 269 578 loadbang; +#X msg 234 644 1 50; +#X msg 405 213 \; note_sheny13 60 64 69 60 64 69 64 59 64 69 59 64 67; -#X msg 516 392 \; duration_sheny13 3 3 3 5 3 3 3 3 3 3 5 3 3; -#X obj 139 197 tabread duration_sheny13; -#X obj 72 512 tabread note_sheny13; -#X obj 311 564 loadbang; -#X msg 162 627 1 50; -#X connect 4 0 26 0; -#X connect 6 0 7 0; -#X connect 7 0 8 0; -#X connect 7 0 9 0; -#X connect 8 0 7 1; -#X connect 9 0 25 0; -#X connect 10 0 17 0; -#X connect 11 0 22 0; -#X connect 11 0 40 0; -#X connect 12 0 6 1; -#X connect 13 0 7 1; -#X connect 13 0 33 0; -#X connect 14 0 15 1; -#X connect 15 0 2 0; -#X connect 15 0 36 0; -#X connect 16 0 14 0; -#X connect 17 0 18 0; -#X connect 18 0 21 0; -#X connect 19 0 24 0; -#X connect 20 0 39 0; -#X connect 21 0 15 0; -#X connect 23 0 20 0; -#X connect 24 0 12 0; -#X connect 25 0 11 0; -#X connect 26 0 7 0; -#X connect 27 0 28 0; -#X connect 27 0 6 0; -#X connect 28 0 32 0; -#X connect 30 0 16 0; -#X connect 31 0 13 0; -#X connect 32 0 30 0; -#X connect 32 1 31 0; -#X connect 32 2 29 0; -#X connect 33 0 42 0; -#X connect 39 0 19 0; -#X connect 40 0 10 0; -#X connect 41 0 42 0; +#N canvas -15 75 1920 1037 square_sheny13 0; +#X obj 532 286 mtof; +#N canvas 0 22 450 278 (subpatch) 0; +#X array square_sheny13 100 float 1; +#A 0 -0.98 -0.98 -0.98 -0.98 0.98 0.98 0.98 0.98 0.98 0.98 0.98 0.98 +0.98 0.98 0.98 0.98 0.98 0.98 0.98 0.98 0.98 0.98 0.98 0.98 0.98 0.98 +0.98 0.98 0.98 0.98 0.98 0.98 0.98 0.98 0.98 0.98 0.98 0.98 0.98 0.98 +0.98 0.98 0.98 0.98 0.98 0.98 0.98 0.98 0.98 0.98 0.98 0.98 0.98 0.98 +-0.98 -0.98 -0.98 -0.98 -0.98 -0.98 -0.98 -0.98 -0.98 -0.98 -0.98 -0.98 +-0.98 -0.98 -0.98 -0.98 -0.98 -0.98 -0.98 -0.98 -0.98 -0.98 -0.98 -0.98 +-0.98 -0.98 -0.98 -0.98 -0.98 -0.98 -0.98 -0.98 -0.98 -0.98 -0.98 -0.98 +-0.98 -0.98 -0.98 -0.98 -0.98 -0.98 -0.98 -0.98 -0.98 -0.98; +#X coords 0 1 99 -1 200 140 1 0 0; +#X restore 876 354 graph; +#X text 848 347 1; +#X text 845 417 0; +#X text 838 486 -1; +#X obj 705 393 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +1; +#X obj 705 416 metro 100; +#X text 736 258 MIDI note values (0-127); +#X obj 532 310 phasor~; +#X obj 532 337 expr~ $v1 > 0.5; +#X text 35 8 Create a square wave by checking to see if the output +of the Sawtooth Wave object [phasor~] is greater than 0.5. If it is +\, the Expression object [expr~] outputs a 1 \, otherwise it outputs +a zero. This creates the "high" (1) and "low" (0) states of the square +wave \, as you can see in the graph.; +#X obj 532 383 *~ 2; +#X obj 532 405 -~ 1; +#X obj 598 382 *~ 1.96; +#X obj 598 404 -~ 0.98; +#X obj 657 503 output~; +#X obj 656 460 tabwrite~ square_sheny13; +#X floatatom 532 245 5 0 0 0 - - -; +#X obj 532 205 line; +#X obj 532 108 inlet; +#X obj 593 108 inlet; +#X msg 532 147 69 650; +#X msg 594 147 80 650; +#X obj 424 568 throw~ sheny13_audio_1; +#X obj 230 327 inlet; +#X msg 329 435 0, f 2; +#X msg 282 436 0.2; +#X obj 425 500 *~; +#X obj 350 327 inlet; +#X connect 0 0 8 0; +#X connect 5 0 6 0; +#X connect 6 0 16 0; +#X connect 8 0 9 0; +#X connect 9 0 11 0; +#X connect 9 0 13 0; +#X connect 11 0 12 0; +#X connect 12 0 27 0; +#X connect 13 0 14 0; +#X connect 14 0 16 0; +#X connect 17 0 0 0; +#X connect 18 0 17 0; +#X connect 19 0 21 0; +#X connect 20 0 22 0; +#X connect 21 0 18 0; +#X connect 22 0 18 0; +#X connect 24 0 26 0; +#X connect 25 0 27 1; +#X connect 26 0 27 1; +#X connect 27 0 23 0; +#X connect 28 0 25 0; +#X restore 1058 721 pd square_sheny13; +#N canvas 589 735 1920 1037 kick_sheny13 1; +#X obj 258 95 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 -1 +-1; +#X floatatom 244 188 3 0 0 0 - - -; +#X floatatom 277 188 3 0 0 0 - - -; +#X obj 244 222 mtof; +#X obj 277 222 * 0.33; +#X obj 277 244 * 0.4; +#X obj 295 61 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X obj 136 61 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X text 141 40 Pitch (midi); +#X text 301 39 Velocity (volume); +#N canvas 953 388 450 430 noise-component 0; +#X obj 397 10 inlet; +#X obj 311 10 inlet; +#X obj 254 279 outlet~; +#X obj 252 46 noise~; +#X obj 311 103 line~; +#X obj 254 157 *~; +#X obj 254 193 lop~ 5000; +#X msg 311 75 1 \, 0 44; +#X obj 254 252 *~ 0.5; +#X connect 0 0 8 1; +#X connect 1 0 7 0; +#X connect 3 0 5 0; +#X connect 4 0 5 1; +#X connect 5 0 6 0; +#X connect 6 0 8 0; +#X connect 7 0 4 0; +#X connect 8 0 2 0; +#X restore 360 506 pd noise-component; +#N canvas 444 532 450 300 harmonic-osc 0; +#X obj -981 91 line~; +#X obj -1038 92 osc~; +#X msg -981 61 1 \, 0 100; +#X obj -1038 141 *~; +#X obj -1038 61 * 3; +#X obj -1039 8 inlet; +#X obj -981 9 inlet; +#X obj -834 14 inlet; +#X obj -1038 210 outlet~; +#X obj -1038 174 *~ 1; +#X connect 0 0 3 1; +#X connect 1 0 3 0; +#X connect 2 0 0 0; +#X connect 3 0 9 0; +#X connect 4 0 1 0; +#X connect 5 0 4 0; +#X connect 6 0 2 0; +#X connect 7 0 9 1; +#X connect 9 0 8 0; +#X restore 67 487 pd harmonic-osc; +#N canvas 193 491 450 300 fundamental 0; +#X obj -250 32 inlet; +#X obj -232 141 line~; +#X obj -247 168 *~; +#X obj -249 80 osc~; +#X msg -232 112 1 \, 0 400; +#X obj -144 39 inlet; +#X obj -94 40 inlet; +#X obj -247 249 outlet~; +#X obj -247 194 *~ 0.4; +#X connect 0 0 3 0; +#X connect 1 0 2 1; +#X connect 2 0 8 0; +#X connect 3 0 2 0; +#X connect 4 0 1 0; +#X connect 5 0 4 0; +#X connect 6 0 8 1; +#X connect 8 0 7 0; +#X restore 244 445 pd fundamental; +#X obj 309 187 s play-bang; +#X obj 110 418 r play-bang; +#X obj 245 301 s play-freq; +#X obj 67 387 r play-freq; +#X obj 283 388 r play-bang; +#X obj 360 466 r play-bang; +#X obj 244 364 r play-freq; +#X obj 465 465 r play-vol; +#X obj 277 280 s play-vol; +#X obj 324 413 r play-vol; +#X obj 154 448 r play-vol; +#X obj 131 648 output~; +#X obj 43 58 inlet; +#X obj 109 132 inlet; +#X obj 79 163 inlet; +#X obj 418 703 throw~ sheny13_audio_1; +#X connect 0 0 2 0; +#X connect 0 0 1 0; +#X connect 0 0 13 0; +#X connect 1 0 3 0; +#X connect 2 0 4 0; +#X connect 3 0 15 0; +#X connect 4 0 5 0; +#X connect 5 0 21 0; +#X connect 6 0 2 0; +#X connect 7 0 1 0; +#X connect 7 0 0 0; +#X connect 10 0 28 0; +#X connect 11 0 28 0; +#X connect 12 0 28 0; +#X connect 14 0 11 1; +#X connect 16 0 11 0; +#X connect 17 0 12 1; +#X connect 18 0 10 0; +#X connect 19 0 12 0; +#X connect 20 0 10 1; +#X connect 22 0 12 2; +#X connect 23 0 11 2; +#X connect 25 0 0 0; +#X connect 26 0 1 0; +#X connect 27 0 2 0; +#X restore 972 775 pd kick_sheny13; +#X obj 584 443 list trim; +#X msg 584 465 sheny13 key 1 Meta_L 0; +#X obj 584 423 list prepend set; +#X obj 832 462 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 584 493 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 882 393 list trim; +#X obj 970 456 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 882 439 route key; +#X obj 930 504 unpack f s f; +#X floatatom 887 541 5 0 0 0 - - -; +#X symbolatom 935 541 10 0 0 0 - - -; +#X obj 584 375 receive sheny13_control; +#X obj 882 416 route sheny13; +#X floatatom 1022 541 5 0 0 0 - - -; +#X obj 1022 620 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 1059 620 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X text 1268 637 play key 'd' to play kick; +#X text 1255 673 play key 'r' play rise squre wave; +#X obj 1097 620 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X floatatom 1185 617 5 0 0 0 - - -; +#X text 1249 710 play key 'f' play falling square wave; +#X obj 1022 578 select 100 114 102 109; +#X obj 1135 620 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X floatatom 832 495 5 0 0 0 - - -; +#X msg 938 653 25; +#X msg 975 653 35; +#X text 1212 750 play key 'm' to mute the square wave; +#X obj 273 801 throw~ sheny13_audio_1; +#X text 769 342 ROB - yes \, I'm removing this though to use the global +new version; +#X obj 585 344 keycontrol_ sheny13; +#X text 35 23 Yuanhao Shen; +#X connect 8 0 30 0; +#X connect 10 0 11 0; +#X connect 11 0 12 0; +#X connect 11 0 13 0; +#X connect 12 0 11 1; +#X connect 13 0 29 0; +#X connect 14 0 21 0; +#X connect 15 0 26 0; +#X connect 15 0 42 0; +#X connect 16 0 10 1; +#X connect 17 0 11 1; +#X connect 17 0 37 0; +#X connect 18 0 19 1; +#X connect 19 0 6 0; +#X connect 19 0 75 0; +#X connect 20 0 18 0; +#X connect 21 0 22 0; +#X connect 22 0 25 0; +#X connect 23 0 28 0; +#X connect 24 0 41 0; +#X connect 25 0 19 0; +#X connect 27 0 24 0; +#X connect 28 0 16 0; +#X connect 29 0 15 0; +#X connect 30 0 10 0; +#X connect 31 0 32 0; +#X connect 31 0 10 0; +#X connect 32 0 36 0; +#X connect 34 0 20 0; +#X connect 35 0 17 0; +#X connect 36 0 34 0; +#X connect 36 1 35 0; +#X connect 36 2 33 0; +#X connect 37 0 44 0; +#X connect 41 0 23 0; #X connect 42 0 14 0; +#X connect 43 0 44 0; +#X connect 44 0 18 0; +#X connect 48 0 49 0; +#X connect 49 0 52 0; +#X connect 50 0 48 0; +#X connect 51 0 71 0; +#X connect 53 0 60 0; +#X connect 55 0 56 0; +#X connect 56 0 57 0; +#X connect 56 1 58 0; +#X connect 56 2 61 0; +#X connect 59 0 50 0; +#X connect 59 0 53 0; +#X connect 60 0 51 0; +#X connect 60 0 55 0; +#X connect 60 1 54 0; +#X connect 61 0 69 0; +#X connect 62 0 47 0; +#X connect 62 0 72 0; +#X connect 62 0 73 0; +#X connect 63 0 46 3; +#X connect 63 0 46 0; +#X connect 66 0 46 2; +#X connect 66 0 46 0; +#X connect 69 0 62 0; +#X connect 69 1 63 0; +#X connect 69 2 66 0; +#X connect 69 3 70 0; +#X connect 69 4 67 0; +#X connect 70 0 46 1; +#X connect 72 0 47 1; +#X connect 73 0 47 2; diff --git a/smithd32.pd b/smithd32.pd index 969de78..b98bae6 100755 --- a/smithd32.pd +++ b/smithd32.pd @@ -508,7 +508,7 @@ the master BPM. This is expected.; #X connect 217 0 107 0; #X restore 101 85 pd version1; #X obj 290 9 r smithd32_tempo; -#N canvas -5 0 1916 976 version2 1; +#N canvas -5 0 1916 976 version2 0; #N canvas 8 23 1920 1030 karplus_strong 0; #N canvas -9 -9 1920 976 strummer 0; #X obj 73 581 outlet; @@ -1142,17 +1142,17 @@ Risset.; -1; #X floatatom 114 306 5 0 0 1 decay - -; #X obj 115 157 vsl 15 128 50 2000 1 0 empty kick_decay empty 0 -9 0 -10 -262144 -1 -1 11710 1; +10 -262144 -1 -1 0 1; #X floatatom 193 310 5 0 0 1 pitch_scale - -; #X obj 193 166 vsl 15 128 0.1 3 0 0 empty kick_pitch empty 0 -9 0 10 --262144 -1 -1 1752 1; +-262144 -1 -1 0 1; #X floatatom 419 311 5 0 0 1 sine_scale - -; #X obj 419 167 vsl 15 128 0 2 0 0 empty kick_sine empty 0 -9 0 10 -262144 --1 -1 3175 1; +-1 -1 0 1; #X obj 38 56 r kick; #X floatatom 300 312 5 0 0 1 filter_scale - -; #X obj 300 168 vsl 15 128 0.1 3 0 0 empty kick_filter empty 0 -9 0 -10 -262144 -1 -1 1752 1; +10 -262144 -1 -1 0 1; #X msg 302 794 \; kick_decay 250 \; kick_pitch 1 \; kick_filter 1.5 \; kick_sine 1 \;; #X msg 446 794 \; kick_decay 150 \; kick_pitch 0.5 \; kick_filter 1.5 @@ -1348,9 +1348,9 @@ Risset.; #X floatatom 225 170 5 0 0 0 - - -; #X text 263 169 Noise; #X obj 140 20 vsl 15 128 10 3000 0 0 empty snare_decay snare_decay -0 -9 0 10 -262144 -1 -1 595 1; +0 -9 0 10 -262144 -1 -1 0 1; #X obj 225 21 vsl 15 128 500 10000 1 0 empty snare_noise snare_noise -0 -9 0 10 -262144 -1 -1 10534 1; +0 -9 0 10 -262144 -1 -1 0 1; #X msg 350 337 \; snare_decay 300 \; snare_noise 6000 \;; #X msg 491 337 \; snare_decay 50 \; snare_noise 6000 \;; #X msg 777 338 \; snare_decay 150 \; snare_noise 6000 \;; @@ -1440,6 +1440,7 @@ Risset.; #X text 326 223 Q \, W \, E \, R \, T \, Y - 6 strings of the guitar respectively; #X text 326 250 S & K - snare and kick; +#X text 33 24 Darius Smith; #X connect 0 0 4 1; #X connect 3 0 4 0; #X connect 4 0 1 0; diff --git a/takakh.pd b/takakh.pd index ed408ba..c04d3ec 100755 --- a/takakh.pd +++ b/takakh.pd @@ -1,4 +1,4 @@ -#N canvas -1 30 1825 989 12; +#N canvas 0 30 1825 989 12; #N canvas 0 50 450 250 (subpatch) 0; #X array melody_takakh 4 float 3; #A 0 0 3 1 4; @@ -10,7 +10,7 @@ #X text 629 193 Melody randomizes whenever space is pressed; #X obj 1066 282 receive takakh_control; #X obj 406 102 hsl 128 15 0 1.5 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 8600 1; +-1 -1 0 1; #X text 343 99 Volume; #X text 341 68 Options; #X obj 405 135 hsl 128 15 0 500 0 0 empty empty empty -2 -8 0 10 -262144 @@ -60,7 +60,6 @@ #X symbolatom 1107 426 10 0 0 0 - - -; #X floatatom 1187 427 5 0 0 0 - - -; #X obj 1066 335 route takakh obamab; -#X obj 1064 241 keycontrol takakh; #X obj 1115 543 send key_takakh; #X obj 449 362 receive key_takakh; #X obj 1115 465 *; @@ -109,15 +108,19 @@ tilde (~) to = key; #X obj 468 199 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X text 339 197 Randomize Melody; +#X text 1200 239 ROB - yes \, I'm removing this though to use the global +new version; +#X obj 1064 241 keycontrol_ takakh; +#X text 23 19 Hibiki Takaku; #X connect 5 0 38 0; -#X connect 6 0 56 0; -#X connect 9 0 58 0; -#X connect 11 0 55 0; +#X connect 6 0 55 0; +#X connect 9 0 57 0; +#X connect 11 0 54 0; #X connect 13 0 15 4; #X connect 14 0 13 0; #X connect 15 0 12 0; #X connect 15 0 17 0; -#X connect 18 0 51 0; +#X connect 18 0 50 0; #X connect 19 0 15 0; #X connect 20 0 15 2; #X connect 22 0 15 1; @@ -138,61 +141,61 @@ tilde (~) to = key; #X connect 41 0 42 0; #X connect 41 1 43 0; #X connect 41 2 44 0; -#X connect 42 0 49 0; -#X connect 44 0 49 1; -#X connect 44 0 81 0; +#X connect 42 0 48 0; +#X connect 44 0 48 1; +#X connect 44 0 80 0; #X connect 45 0 37 0; #X connect 45 0 40 0; #X connect 45 1 39 0; -#X connect 48 0 51 1; -#X connect 49 0 50 0; -#X connect 50 0 47 0; -#X connect 51 0 52 0; -#X connect 51 0 53 0; -#X connect 51 0 54 0; -#X connect 53 0 63 0; -#X connect 53 0 61 0; -#X connect 53 1 62 0; -#X connect 53 1 60 0; -#X connect 55 0 16 0; -#X connect 57 0 15 4; -#X connect 59 0 15 3; -#X connect 60 0 19 1; -#X connect 60 0 23 0; -#X connect 61 0 22 1; -#X connect 62 0 64 0; -#X connect 63 0 80 0; -#X connect 64 0 19 0; -#X connect 66 0 79 0; -#X connect 67 0 65 0; -#X connect 68 0 65 0; -#X connect 69 0 65 0; -#X connect 70 0 65 0; -#X connect 71 0 65 0; -#X connect 72 0 65 0; -#X connect 73 0 65 0; -#X connect 74 0 65 0; -#X connect 75 0 65 0; -#X connect 76 0 65 0; -#X connect 77 0 65 0; -#X connect 78 0 65 0; -#X connect 79 0 64 1; -#X connect 79 0 80 1; -#X connect 80 0 22 0; -#X connect 81 0 67 0; -#X connect 81 1 68 0; -#X connect 81 2 69 0; -#X connect 81 3 70 0; -#X connect 81 4 71 0; -#X connect 81 5 72 0; -#X connect 81 6 73 0; -#X connect 81 7 74 0; -#X connect 81 8 78 0; -#X connect 81 9 77 0; -#X connect 81 10 76 0; -#X connect 81 11 75 0; -#X connect 81 12 82 0; -#X connect 82 0 65 0; -#X connect 87 0 86 0; -#X connect 89 0 25 0; -#X coords 0 -1 1 1 500 200 1 100 50; +#X connect 47 0 50 1; +#X connect 48 0 49 0; +#X connect 49 0 46 0; +#X connect 50 0 51 0; +#X connect 50 0 52 0; +#X connect 50 0 53 0; +#X connect 52 0 62 0; +#X connect 52 0 60 0; +#X connect 52 1 61 0; +#X connect 52 1 59 0; +#X connect 54 0 16 0; +#X connect 56 0 15 4; +#X connect 58 0 15 3; +#X connect 59 0 19 1; +#X connect 59 0 23 0; +#X connect 60 0 22 1; +#X connect 61 0 63 0; +#X connect 62 0 79 0; +#X connect 63 0 19 0; +#X connect 65 0 78 0; +#X connect 66 0 64 0; +#X connect 67 0 64 0; +#X connect 68 0 64 0; +#X connect 69 0 64 0; +#X connect 70 0 64 0; +#X connect 71 0 64 0; +#X connect 72 0 64 0; +#X connect 73 0 64 0; +#X connect 74 0 64 0; +#X connect 75 0 64 0; +#X connect 76 0 64 0; +#X connect 77 0 64 0; +#X connect 78 0 63 1; +#X connect 78 0 79 1; +#X connect 79 0 22 0; +#X connect 80 0 66 0; +#X connect 80 1 67 0; +#X connect 80 2 68 0; +#X connect 80 3 69 0; +#X connect 80 4 70 0; +#X connect 80 5 71 0; +#X connect 80 6 72 0; +#X connect 80 7 73 0; +#X connect 80 8 77 0; +#X connect 80 9 76 0; +#X connect 80 10 75 0; +#X connect 80 11 74 0; +#X connect 80 12 81 0; +#X connect 81 0 64 0; +#X connect 86 0 85 0; +#X connect 88 0 25 0; +#X coords 0 989 1 988 500 200 0; diff --git a/user_keyreceive.pd b/user_keyreceive.pd new file mode 100644 index 0000000..e559bf2 --- /dev/null +++ b/user_keyreceive.pd @@ -0,0 +1,48 @@ +#N canvas 563 195 923 596 12; +#X obj 105 259 list trim; +#X msg 117 289 username key 1 Meta_L 0; +#X obj 105 238 list prepend set; +#X obj 105 312 outlet; +#X obj 34 311 outlet; +#X obj 34 285 list trim; +#X obj 105 85 receive \$1_control; +#X obj 517 179 route key; +#X obj 517 264 unpack s f; +#X symbolatom 517 289 10 0 0 0 - - -; +#X floatatom 591 289 5 0 0 0 - - -; +#X obj 657 263 unpack s f; +#X symbolatom 657 288 10 0 0 0 - - -; +#X floatatom 731 288 5 0 0 0 - - -; +#X text 739 263 down; +#X text 600 266 up; +#X obj 517 155 route \$1; +#X obj 591 341 outlet; +#X obj 517 340 outlet; +#X obj 731 341 outlet; +#X obj 658 340 outlet; +#X obj 517 127 list trim; +#X text 4 346 Outputs received list from left outlet \, "set list" +for writing to a message box on the next outlet; +#X obj 517 203 route 1 0; +#X text 455 373 Last four outlets are pairs of key name and ascii value +\, the first 2 are key down; +#X connect 0 0 1 0; +#X connect 0 0 3 0; +#X connect 2 0 0 0; +#X connect 5 0 4 0; +#X connect 6 0 2 0; +#X connect 6 0 5 0; +#X connect 6 0 21 0; +#X connect 7 0 23 0; +#X connect 8 0 9 0; +#X connect 8 1 10 0; +#X connect 9 0 18 0; +#X connect 10 0 17 0; +#X connect 11 0 12 0; +#X connect 11 1 13 0; +#X connect 12 0 20 0; +#X connect 13 0 19 0; +#X connect 16 0 7 0; +#X connect 21 0 16 0; +#X connect 23 0 8 0; +#X connect 23 1 11 0; diff --git a/user_keysend.pd b/user_keysend.pd new file mode 100644 index 0000000..03a39d9 --- /dev/null +++ b/user_keysend.pd @@ -0,0 +1,46 @@ +#N canvas 440 123 641 397 12; +#X obj -94 -165 key; +#X floatatom -94 -139 5 0 0 0 - - -; +#X obj -139 -165 keyup; +#X floatatom -139 -139 5 0 0 0 - - -; +#X obj -266 -166 keyname; +#X text -18 -167 key: 119 keyname_s: symbol w keyname: 1 keyup: 119 +keyname_s: symbol w keyname: 0; +#X obj -207 -106 pack f s; +#X obj -207 -70 list append; +#X obj -207 -39 list prepend key; +#X obj -207 -11 list prepend \$1; +#X obj -207 80 s \$1_control; +#X symbolatom -220 -140 10 0 0 0 - - -; +#X floatatom -266 -140 5 0 0 0 - - -; +#X text -283 -210 SEND KEYSTROKE DATA TO EACH USER'S UNIQUE SEND; +#X obj -114 80 outlet; +#X obj -207 20 gate; +#X obj 1 0 tgl 18 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; +#X obj -62 1 inlet; +#X symbolatom 19 0 10 0 0 0 - - -; +#X obj 20 -106 loadbang; +#X obj 20 -77 list prepend \$1; +#X obj 20 -27 list trim; +#X obj 20 -53 list prepend set; +#X connect 0 0 1 0; +#X connect 1 0 7 1; +#X connect 2 0 3 0; +#X connect 3 0 7 1; +#X connect 4 0 12 0; +#X connect 4 1 11 0; +#X connect 6 0 7 0; +#X connect 7 0 8 0; +#X connect 8 0 9 0; +#X connect 9 0 15 0; +#X connect 11 0 6 1; +#X connect 12 0 6 0; +#X connect 15 0 10 0; +#X connect 15 1 14 0; +#X connect 16 0 15 1; +#X connect 17 0 15 1; +#X connect 19 0 20 0; +#X connect 20 0 22 0; +#X connect 21 0 18 0; +#X connect 22 0 21 0; +#X coords 0 -1 1 1 91 18 2 0 0; diff --git a/utilities.pd b/utilities.pd index d7dda0c..1d44fad 100644 --- a/utilities.pd +++ b/utilities.pd @@ -20,12 +20,12 @@ to your [r username_control] receive; #X obj 57 341 list prepend set; #X obj 58 245 keycontrol your_username_here; #X obj 57 299 receive your_username_here_control; -#X text 22 209 KEYBOARD CONTROLLER - THIS GOES INTO YOUR SUBPATCHES -; #X obj 59 484 mouse_osx; #X text 26 455 MOUSE CONTROLLER - OSX VERSION; #X text 25 542 MOUSE CONTROLLER - WINDOWS (use the "hidio" external) ; +#X text 22 209 OLD - KEYBOARD CONTROLLER - THIS GOES INTO YOUR SUBPATCHES +; #X connect 0 0 1 0; #X connect 1 0 2 0; #X connect 3 0 0 0; diff --git a/villan2.pd b/villan2.pd old mode 100644 new mode 100755 index 183301c..db1c136 --- a/villan2.pd +++ b/villan2.pd @@ -1,89 +1,276 @@ -#N canvas 439 23 958 966 12; -#X obj 411 245 metro 1000; -#X obj 375 185 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 -1; -#X obj 411 321 f; -#X obj 453 321 + 1; -#X floatatom 411 345 5 0 0 0 - - -; -#X floatatom 411 392 5 0 0 0 - - -; -#X floatatom 555 190 5 0 0 0 - - -; -#X msg 429 281 0; -#X floatatom 410 471 5 0 0 0 - - -; -#X obj 410 494 mtof; -#X obj 603 574 line~; -#X obj 409 592 *~; -#X obj 410 541 osc~; -#X floatatom 553 135 5 0 0 0 - - -; -#X floatatom 553 81 5 0 0 0 - - -; -#X obj 553 158 * 200; +#N canvas 0 23 1152 1130 12; +#X obj 49 34 inlet~; +#X obj 109 34 inlet; +#X obj 46 96 receive villan2_control; +#X obj 46 143 list prepend set; +#X obj 46 167 list trim; +#X msg 46 191 villan2 key 1 Meta_L 0; +#X obj 46 72 keycontrol villan2; +#N canvas -11 -11 2304 1172 ass 0; +#X obj 439 331 f; +#X obj 481 331 + 1; +#X floatatom 439 355 5 0 0 0 - - -; +#X floatatom 439 402 5 0 0 0 - - -; +#X msg 457 291 0; +#X floatatom 438 481 5 0 0 0 - - -; +#X obj 438 504 mtof; +#X obj 631 584 line~; +#X obj 437 602 *~; +#X obj 438 551 osc~; +#X floatatom 686 655 5 0 0 0 - - -; +#X msg 678 538 0 400; +#X obj 613 472 loadbang; #N canvas 0 50 450 250 (subpatch) 0; -#X array melody_villan2 17 float 3; -#A 0 55 60 62 64 60 57 60 57 55 67 64 67 65 62 64 60 55; -#X coords 0 140 17 0 200 100 1 0 0; -#X restore 32 405 graph; -#N canvas 0 50 450 250 (subpatch) 0; -#X array Duration_villan2 17 float 3; -#A 0 0 2 1 2 2 1 2 1 4 1 2 1 1 2 1 9 1; -#X coords 0 10 17 -0.5 200 140 1 0 0; -#X restore 32 551 graph; -#X obj 575 368 send mycoolbang; -#X obj 375 61 receive villan2_tempo; -#X obj 558 30 receive mycoolbang; -#X obj 411 368 % 17; -#X obj 375 132 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +#X array ice_cream 28 float 3; +#A 0 55 60 60 62 64 64 60 60 57 60 60 57 55 55 55 55 67 64 64 67 65 +62 62 64 60 60 60 60; +#X coords 0 74 28 54 200 100 1 0 10; +#X restore 108 428 graph; +#X obj 415 212 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; -#X obj 21 24 inlet~; -#X obj 88 23 inlet; -#X obj 575 679 outlet~; -#X obj 659 676 outlet; -#X obj 18 86 receive villan2_control; -#X obj 18 133 list prepend set; -#X obj 18 157 list trim; -#X msg 18 181 1 2 1 2 2 1 2 1 4 1 2 1 1 2 1 9 1; -#X floatatom 658 645 5 0 0 0 - - -; -#X text 12 251 tried to append list to describe duration- was probably -a misguided effort; -#X msg 650 528 0 400; -#X obj 523 722 throw~ villan2_audio_1; -#X obj 585 462 loadbang; -#X text 657 461 ROB - need to initialize your volume \; use loadbang -to send a bang at the start of the patch (when it is loaded); -#X msg 30 706 \; melody_villan2 0 55 60 62 64 60 57 60 57 55 67 64 -67 65 62 64 60 55; -#X msg 32 751 \; Duration_villan2 1 2 1 2 2 1 2 1 4 1 2 1 1 2 1 9 1 -; -#X obj 553 111 tabread Duration_villan2; -#X obj 410 426 tabread melody_villan2; -#X msg 585 529 1 400; +#X obj 439 147 receive villan2_tempo; +#X msg 613 539 1 400; +#X obj 438 436 tabread ice_cream; +#X msg 58 716 \; ice_cream 0 55 60 60 62 64 64 60 60 57 60 60 57 55 +55 55 55 67 64 64 67 65 62 62 64 60 60 60 60 60 60 60 60; +#X obj 439 378 % 32; +#X obj 440 654 outlet~; +#X text 21 28 Makes cute lil ice cream truck noise with given Masheen +tempo Would like to use a duration array to set melody duration instead +of spamming the melody array; +#X connect 0 0 1 0; #X connect 0 0 2 0; +#X connect 1 0 0 1; +#X connect 2 0 19 0; +#X connect 3 0 17 0; +#X connect 4 0 0 1; +#X connect 5 0 6 0; +#X connect 6 0 9 0; +#X connect 6 0 10 0; +#X connect 7 0 8 1; +#X connect 8 0 20 0; +#X connect 9 0 8 0; +#X connect 11 0 7 0; +#X connect 12 0 16 0; +#X connect 15 0 14 0; +#X connect 15 0 0 0; +#X connect 16 0 7 0; +#X connect 17 0 5 0; +#X connect 19 0 3 0; +#X restore 960 32 pd ass 1 ice cream; +#X obj 87 783 outlet~; +#X obj 157 783 outlet; +#X obj 402 609 throw~ villan2_audio_1; +#X obj 245 155 list trim; +#X obj 245 179 route villan2; +#X obj 245 203 route key; +#X obj 245 247 unpack f s f; +#X floatatom 245 280 5 0 0 0 - - -; +#X floatatom 399 266 5 0 0 0 - - -; +#X obj 399 289 mtof; +#X floatatom 399 313 5 0 0 0 - - -; +#X symbolatom 291 280 10 0 0 0 - - -; +#X obj 403 348 / 50; +#X obj 244 351 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X text 964 9 Ass from Week 1; +#X obj 705 308 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 706 363 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 648 109 hsl 128 15 60 100 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X obj 647 184 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X obj 647 252 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X text 646 87 Adjusts Modulation; +#X text 629 164 Adjusts Ring Modulation; +#X text 631 231 Adjusts Marimba Volume; +#X text 675 289 Constant Off; +#X text 676 344 Constant On; +#N canvas 1141 0 1152 1161 noise_maker 0; +#X obj 96 139 mtof; +#X obj 99 120 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 16 1; +#X obj 336 140 mtof; +#X obj 339 121 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X obj 96 159 osc~; +#X obj 336 160 phasor~; +#X obj 96 239 *~; +#X text 339 104 Sawtooth wave (modulator); +#X text 99 103 Sine wave (carrier); +#X obj 96 56 inlet; +#X obj 336 54 inlet; +#X obj 96 377 outlet~; +#X obj 668 206 *~; +#X obj 686 121 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X obj 683 145 mtof; +#X obj 683 177 osc~; +#X floatatom 721 145 5 0 0 0 - - -; +#X floatatom 721 175 5 0 0 0 - - -; +#X text 202 63 am synthesis; +#X obj 683 55 inlet; +#X obj 95 307 *~; +#X msg 396 288 0; +#X msg 468 300 1; +#X obj 557 592 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 -1 +-1; +#X floatatom 527 620 3 0 0 0 - - -; +#X floatatom 559 621 3 0 0 0 - - -; +#X obj 526 655 mtof; +#X obj 559 655 * 0.33; +#X obj 559 677 * 0.4; +#X obj 594 558 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X obj 435 558 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 16 1; +#X text 440 537 Pitch (midi); +#X text 600 536 Velocity (volume); +#N canvas 917 396 450 300 noise-component 0; +#X obj 397 10 inlet; +#X obj 311 10 inlet; +#X obj 254 279 outlet~; +#X obj 252 46 noise~; +#X obj 311 103 line~; +#X obj 254 157 *~; +#X obj 254 193 lop~ 5000; +#X obj 254 252 *~ 0.5; +#X msg 311 75 1 \, 0 44; +#X connect 0 0 7 1; +#X connect 1 0 8 0; +#X connect 3 0 5 0; +#X connect 4 0 5 1; +#X connect 5 0 6 0; +#X connect 6 0 7 0; +#X connect 7 0 2 0; +#X connect 8 0 4 0; +#X restore 642 922 pd noise-component; +#N canvas 161 521 450 300 harmonic-osc 0; +#X obj -981 91 line~; +#X obj -1038 92 osc~; +#X msg -981 61 1 \, 0 100; +#X obj -1038 141 *~; +#X obj -1038 61 * 3; +#X obj -1038 174 *~ 1; +#X obj -1039 8 inlet; +#X obj -981 9 inlet; +#X obj -834 14 inlet; +#X obj -1038 210 outlet~; +#X connect 0 0 3 1; +#X connect 1 0 3 0; +#X connect 2 0 0 0; +#X connect 3 0 5 0; +#X connect 4 0 1 0; +#X connect 5 0 9 0; +#X connect 6 0 4 0; +#X connect 7 0 2 0; +#X connect 8 0 5 1; +#X restore 349 903 pd harmonic-osc; +#N canvas 193 491 450 300 fundamental 0; +#X obj -250 32 inlet; +#X obj -232 141 line~; +#X obj -247 168 *~; +#X obj -249 80 osc~; +#X msg -232 112 1 \, 0 400; +#X obj -247 194 *~ 0.4; +#X obj -144 39 inlet; +#X obj -94 40 inlet; +#X obj -247 249 outlet~; +#X connect 0 0 3 0; +#X connect 1 0 2 1; +#X connect 2 0 5 0; +#X connect 3 0 2 0; +#X connect 4 0 1 0; +#X connect 5 0 8 0; +#X connect 6 0 4 0; +#X connect 7 0 5 1; +#X restore 525 859 pd fundamental; +#X obj 591 620 s play-bang; +#X obj 392 834 r play-bang; +#X obj 527 734 s play-freq; +#X obj 349 803 r play-freq; +#X obj 565 804 r play-bang; +#X obj 642 882 r play-bang; +#X obj 526 780 r play-freq; +#X obj 747 881 r play-vol; +#X obj 559 713 s play-vol; +#X obj 606 829 r play-vol; +#X obj 436 864 r play-vol; +#X obj 735 470 inlet; +#X text 521 450 Marimba; +#X obj 864 269 inlet; +#X obj 952 281 inlet; +#X text 861 247 Should update to "mute" function; +#X text 688 102 Ring mod; +#X connect 0 0 4 0; #X connect 1 0 0 0; -#X connect 2 0 3 0; -#X connect 2 0 4 0; -#X connect 3 0 2 1; -#X connect 4 0 21 0; -#X connect 5 0 18 0; -#X connect 5 0 40 0; -#X connect 6 0 0 1; -#X connect 7 0 2 1; -#X connect 8 0 9 0; -#X connect 9 0 12 0; -#X connect 9 0 31 0; -#X connect 10 0 11 1; -#X connect 11 0 25 0; -#X connect 11 0 34 0; -#X connect 12 0 11 0; -#X connect 13 0 15 0; -#X connect 14 0 39 0; -#X connect 15 0 6 0; -#X connect 19 0 22 0; -#X connect 20 0 14 0; -#X connect 21 0 5 0; -#X connect 22 0 1 0; +#X connect 1 0 30 0; +#X connect 2 0 5 0; +#X connect 3 0 2 0; +#X connect 4 0 6 0; +#X connect 4 0 12 0; +#X connect 5 0 6 1; +#X connect 6 0 20 0; +#X connect 9 0 1 0; +#X connect 10 0 3 0; +#X connect 12 0 20 0; +#X connect 13 0 14 0; +#X connect 13 0 16 0; +#X connect 14 0 15 0; +#X connect 14 0 17 0; +#X connect 15 0 12 1; +#X connect 19 0 13 0; +#X connect 20 0 11 0; +#X connect 21 0 20 1; +#X connect 22 0 20 1; +#X connect 23 0 25 0; +#X connect 23 0 24 0; +#X connect 23 0 36 0; +#X connect 24 0 26 0; +#X connect 25 0 27 0; +#X connect 26 0 38 0; #X connect 27 0 28 0; -#X connect 28 0 29 0; -#X connect 29 0 30 0; +#X connect 28 0 44 0; +#X connect 29 0 25 0; +#X connect 30 0 24 0; +#X connect 30 0 23 0; +#X connect 33 0 11 0; +#X connect 34 0 11 0; +#X connect 35 0 11 0; +#X connect 37 0 34 1; +#X connect 39 0 34 0; +#X connect 40 0 35 1; +#X connect 41 0 33 0; +#X connect 42 0 35 0; +#X connect 43 0 33 1; +#X connect 45 0 35 2; +#X connect 46 0 34 2; +#X connect 47 0 29 0; +#X connect 49 0 21 0; +#X connect 50 0 22 0; +#X restore 403 378 pd noise_maker; +#X text 58 8 Nick Villalobos; +#X connect 2 0 3 0; +#X connect 2 0 11 0; +#X connect 3 0 4 0; +#X connect 4 0 5 0; +#X connect 11 0 12 0; +#X connect 12 0 13 0; +#X connect 13 0 14 0; +#X connect 14 0 15 0; +#X connect 14 1 19 0; +#X connect 14 2 16 0; +#X connect 15 0 21 0; +#X connect 16 0 17 0; +#X connect 17 0 18 0; +#X connect 18 0 20 0; +#X connect 20 0 33 0; +#X connect 23 0 33 4; +#X connect 24 0 33 5; +#X connect 25 0 33 1; +#X connect 26 0 33 2; +#X connect 27 0 33 3; #X connect 33 0 10 0; -#X connect 35 0 41 0; -#X connect 39 0 13 0; -#X connect 40 0 8 0; -#X connect 41 0 10 0; diff --git a/vuzi.pd b/vuzi.pd new file mode 100644 index 0000000..7d313b8 --- /dev/null +++ b/vuzi.pd @@ -0,0 +1,54 @@ +#N canvas 646 139 482 511 10; +#X obj 25 14 inlet; +#X obj 25 104 f \$1; +#X obj 25 194 sel 0; +#X obj 52 214 until; +#X obj 95 14 inlet; +#X obj 52 254 f; +#X obj 92 364 sel; +#X obj 183 364 outlet; +#X text 182 383 counter (starting at offset); +#X obj 92 384 outlet; +#X text 91 401 done; +#X obj 71 444 outlet; +#X text 70 461 bang; +#X obj 118 54 route offset; +#X obj 67 144 f \$2; +#X text 187 169 \$1 = n of bangs; +#X text 187 189 \$2 = offset; +#X obj 92 324 + 1; +#X obj 67 164 t f f; +#X obj 94 214 +; +#X text 187 139 except that the default offset is 0; +#X obj 52 274 t f b f; +#X obj 92 344 t f f; +#X obj 25 124 t f f b; +#X obj 45 64 t b f; +#X obj 25 34 route bang float; +#X text 187 119 vanilla version of [cyclone/uzi]; +#X connect 0 0 25 0; +#X connect 1 0 23 0; +#X connect 2 1 3 0; +#X connect 3 0 5 0; +#X connect 4 0 1 1; +#X connect 5 0 21 0; +#X connect 6 0 9 0; +#X connect 13 0 14 1; +#X connect 14 0 18 0; +#X connect 17 0 22 0; +#X connect 18 0 5 1; +#X connect 18 1 19 1; +#X connect 19 0 6 1; +#X connect 21 0 17 0; +#X connect 21 1 11 0; +#X connect 21 2 7 0; +#X connect 22 0 6 0; +#X connect 22 1 5 1; +#X connect 23 0 2 0; +#X connect 23 1 19 0; +#X connect 23 2 14 0; +#X connect 24 0 1 0; +#X connect 24 1 1 1; +#X connect 25 0 1 0; +#X connect 25 1 24 0; +#X connect 25 2 13 0; diff --git a/zhaox10.pd b/zhaox10.pd old mode 100644 new mode 100755 index 8e90163..85104bb --- a/zhaox10.pd +++ b/zhaox10.pd @@ -1,10 +1,10 @@ -#N canvas 602 146 1105 524 12; +#N canvas 85 125 1355 667 12; #X obj 5 56 inlet; #X obj 57 58 inlet; #X obj 8 452 outlet~; #X obj 67 452 outlet~; #X obj 334 131 receive zhaox10_tempo; -#X obj 366 164 receive zhaox10_control; +#X obj 834 67 receive zhaox10_control; #X obj 19 200 % 6; #X floatatom 19 175 5 0 0 0 - - -; #X floatatom 19 229 5 0 0 0 - - -; @@ -21,19 +21,120 @@ #X array array1_zhaox10 6 float 3; #A 0 65 65 66 61 65 67; #X coords 0 128 6 0 200 140 1 0 0; -#X restore 824 44 graph; +#X restore 515 22 graph; #X obj 19 104 random 250; #X obj 19 145 + 25; #X obj 142 301 loadbang; #X text 214 300 ROB - need to initialize your volume \; use loadbang to send a bang at the start of the patch (when it is loaded); -#X obj 133 451 throw~ zhaox10_audio_1; +#X obj 138 452 throw~ zhaox10_audio_1; #X obj 19 257 tabread array1_zhaox10; -#X msg 825 205 \; array1_zhaox10 0 65 65 66 65 61 67; +#X msg 516 172 \; array1_zhaox10 0 65 65 66 65 61 67; #X floatatom 83 227 5 0 0 0 - - -; #X obj 83 203 random 6; #X msg 138 347 1 50; -#X connect 4 0 16 0; +#X obj 834 101 list prepend set; +#X obj 834 125 list trim; +#X msg 834 154 zhaox10 key 0 Shift_L 0; +#X obj 798 205 list trim; +#X obj 798 229 route zhaox10; +#X obj 798 253 route key; +#X obj 797 277 unpack f s f; +#X floatatom 881 347 5 0 0 0 - - -; +#X obj 881 370 mtof; +#X floatatom 881 394 5 0 0 0 - - -; +#X obj 881 417 osc~; +#X obj 772 318 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 -1 +-1; +#X obj 760 405 mtof; +#X obj 932 510 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +1; +#X obj 933 535 metro 100; +#X obj 933 576 tabwrite~ square; +#X obj 760 429 phasor~; +#X obj 760 456 expr~ $v1 > 0.5; +#X obj 760 502 *~ 2; +#X obj 760 524 -~ 1; +#X obj 826 501 *~ 1.96; +#X obj 826 523 -~ 0.98; +#X obj 753 585 output~; +#X obj 960 212 list trim; +#X obj 960 236 route zhaox10; +#X obj 960 260 route key; +#X obj 964 298 unpack f s f; +#X obj 881 312 / 1.65; +#X text 355 483 turn on the volume at 30-40 \, and then kick a d e +i w then click a d e i a \, that's the basic beat.; +#X obj 513 583 throw~ zhaox10_audio_1; +#N canvas 305 23 927 717 bells 0; +#X obj 47 459 catch~ sum; +#X obj 359 284 s frequency; +#X obj 473 284 s duration; +#X floatatom 473 234 0 0 0 0 - - -; +#X obj 473 259 * 100; +#X obj 359 259 mtof; +#X floatatom 359 234 0 0 0 0 - - -; +#X text 92 17 ADDITIVE SYNTHESIS; +#X text 511 224 duration in tenths; +#X text 513 240 of a second; +#X text 397 233 pitch; +#X text 443 528 updated for Pd version 0.37; +#X text 36 93 Partial takes as arguments an amplitude \, a relative +frequency \, a detuning frequency \, and a relative duration. You set +absolute duration and pitch using the controls below. Hit the trigger +to make sound.; +#X obj 46 174 partial 1 1 0.56 0; +#X text 37 41 This patch demonstrates using an abstraction \, "partial" +\, to make a simple additive synthesis instrument originally from Jean-Claude +Risset.; +#X obj 359 179 loadbang; +#X msg 359 202 72; +#X msg 473 204 40; +#X obj 362 332 bng 25 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 395 334 <-- click to play a note; +#X obj 362 368 s trigger; +#X obj 46 199 partial 0.67 0.9 0.56 1; +#X obj 46 224 partial 1 0.65 0.92 0; +#X obj 46 249 partial 1.8 0.55 0.92 1.7; +#X obj 46 274 partial 2.67 0.325 1.19 0; +#X obj 46 299 partial 1.67 0.35 1.7 0; +#X obj 46 324 partial 1.46 0.25 2 0; +#X obj 46 349 partial 1.33 0.2 2.74 0; +#X obj 46 374 partial 1.33 0.15 3 0; +#X obj 46 399 partial 1 0.1 3.76 0; +#X obj 46 424 partial 1.33 0.075 4.07 0; +#X obj 456 138 inlet; +#X obj 529 140 inlet; +#X obj 308 309 inlet; +#X text 445 118 Midi Pitch; +#X text 525 105 duration in tenths; +#X text 527 121 of a second; +#X obj 47 498 output~; +#X obj 148 516 throw~ zhaox10_audio_1; +#X connect 0 0 37 0; +#X connect 0 0 37 1; +#X connect 0 0 38 0; +#X connect 3 0 4 0; +#X connect 4 0 2 0; +#X connect 5 0 1 0; +#X connect 6 0 5 0; +#X connect 15 0 16 0; +#X connect 15 0 17 0; +#X connect 16 0 6 0; +#X connect 17 0 3 0; +#X connect 18 0 20 0; +#X connect 31 0 6 0; +#X connect 32 0 3 0; +#X connect 33 0 18 0; +#X restore 968 353 pd bells; +#X text 975 7 ROB - yes \, I'm removing this though to use the global +new version; +#X obj 833 8 keycontrol_ zhaox10; +#X text 28 14 Xudong Zhao; +#X connect 5 0 28 0; +#X connect 5 0 31 0; +#X connect 5 0 51 0; #X connect 6 0 8 0; #X connect 7 0 6 0; #X connect 8 0 23 0; @@ -45,11 +146,36 @@ to send a bang at the start of the patch (when it is loaded); #X connect 13 0 22 0; #X connect 14 0 15 0; #X connect 15 0 13 1; -#X connect 16 0 18 0; -#X connect 16 0 26 0; #X connect 18 0 19 0; #X connect 19 0 7 0; #X connect 20 0 27 0; #X connect 23 0 9 0; #X connect 26 0 25 0; #X connect 27 0 15 0; +#X connect 28 0 29 0; +#X connect 29 0 30 0; +#X connect 31 0 32 0; +#X connect 32 0 33 0; +#X connect 33 0 34 0; +#X connect 34 1 39 0; +#X connect 34 2 55 0; +#X connect 35 0 36 0; +#X connect 35 0 40 0; +#X connect 36 0 37 0; +#X connect 37 0 38 0; +#X connect 40 0 44 0; +#X connect 41 0 42 0; +#X connect 42 0 43 0; +#X connect 44 0 45 0; +#X connect 45 0 46 0; +#X connect 45 0 48 0; +#X connect 46 0 47 0; +#X connect 47 0 57 0; +#X connect 48 0 49 0; +#X connect 49 0 43 0; +#X connect 51 0 52 0; +#X connect 52 0 53 0; +#X connect 53 0 54 0; +#X connect 54 0 58 0; +#X connect 54 0 58 2; +#X connect 55 0 35 0; diff --git a/zhuy16.pd b/zhuy16.pd index 8395f50..ba42e7c 100755 --- a/zhuy16.pd +++ b/zhuy16.pd @@ -1,99 +1,448 @@ -#N canvas 276 66 1302 858 12; -#X obj 422 78 mycounter; -#X obj 421 52 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +#N canvas 304 80 1067 912 12; +#X obj 268 266 mycounter; +#X obj 267 239 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; -#X floatatom 423 104 5 0 0 0 - - -; -#X floatatom 424 152 5 0 0 0 - - -; -#X obj 309 384 *~ 0.1; -#X msg 370 362 0; -#X floatatom -90 -190 5 0 0 0 - - -; -#X msg -90 -166; -#X msg -90 -141; -#X floatatom 97 271 5 0 0 0 - - -; -#X obj 97 298 mtof; -#X floatatom 96 324 5 0 0 0 - - -; -#X text 84 241 middie C=60; -#X obj 309 339 osc~; -#X msg 301 232 184.9; -#X msg 550 296 123.4; -#X msg 353 232 246.9; -#X msg 650 296 195.9; -#X msg 606 296 138.5; -#X msg 505 296 146.8; -#X obj 551 347 osc~; -#X obj 551 391 *~ 0.1; -#X msg 614 369 0; -#X msg 447 232 246.9; -#X msg 398 232 164.8; -#X obj 352 143 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +#X floatatom 269 292 5 0 0 0 - - -; +#X floatatom 270 340 5 0 0 0 - - -; +#X obj 148 703 *~ 0.1; +#X msg 196 683 0; +#X floatatom 35 160 5 0 0 0 - - -; +#X obj 37 188 mtof; +#X floatatom 37 215 5 0 0 0 - - -; +#X text 24 131 middie C=60; +#X obj 404 704 *~ 0.1; +#X msg 451 680 0; +#X obj 198 331 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; -#X obj 352 157 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +#X obj 198 345 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; -#X obj 352 171 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +#X obj 198 359 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; -#X obj 597 146 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +#X obj 443 334 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; -#X obj 597 160 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +#X obj 443 348 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; -#X obj 597 174 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +#X obj 443 362 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; -#X obj 424 127 % 6; -#X obj 424 175 select 0 1 2 3 4 5, f 19; -#X text 13 50 Julia florida~; -#X text 14 82 LEFT RIGHT; -#X text 16 119 F#3 -- B 3 | G3 -- B3 D3 B2 -- | E3 C#3 --; -#X obj 325 41 inlet; -#X obj 379 534 outlet~; -#X obj 446 534 outlet; -#X obj 443 482 *~ 1; -#X obj 386 326 loadbang; -#X msg 370 380 0.6; -#X msg 614 396 0.4; -#X obj 264 38 inlet~; -#X obj 482 47 r zhuy16_tempo; -#X obj 500 514 throw~ zhuy16_audio_1; -#X obj 730 425 osc~ 440; +#X obj 270 315 % 6; +#X obj 270 363 select 0 1 2 3 4 5, f 19; +#X text 1059 48 Julia florida~; +#X text 10 42 LEFT RIGHT; +#X text 15 93 F#3 -- B 3 | G3 -- B3 D3 B2 -- | E3 C#3 --; +#X obj 171 229 inlet; +#X obj 223 840 outlet~; +#X obj 290 840 outlet; +#X obj 313 628 loadbang; +#X obj 110 226 inlet~; +#X obj 328 235 r zhuy16_tempo; +#X obj 344 820 throw~ zhuy16_audio_1; +#X obj 867 815 osc~ 440; +#X msg 536 493 55; +#X msg 492 494 49; +#X msg 434 493 47; +#X msg 389 493 50; +#X msg 291 491 59; +#X msg 197 491 59; +#X msg 145 491 54; +#X msg 242 491 52; +#N canvas 769 51 1011 911 horrible-marimba 0; +#X obj 245 457 line~; +#X obj 230 484 *~; +#X obj 243 41 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 -1 +-1; +#X obj 228 396 osc~; +#X obj 396 255 noise~; +#X obj 484 293 line~; +#X obj 427 347 *~; +#X obj 132 320 line~; +#X obj 85 317 osc~; +#X msg 132 290 1 \, 0 100; +#X floatatom 230 133 3 0 0 0 - - -; +#X floatatom 262 132 3 0 0 0 - - -; +#X obj 85 350 *~; +#X obj 85 287 * 3; +#X obj 85 385 *~ 1; +#X obj 427 442 *~ 0.5; +#X obj 229 178 mtof; +#X msg 484 265 1 \, 0 44; +#X msg 245 428 1 \, 0 400; +#X obj 230 510 *~ 0.4; +#X obj 262 178 * 0.33; +#X obj 262 200 * 0.4; +#X obj 244 654 outlet~; +#X obj 325 25 inlet; +#X obj 427 384 lop~ 5000; +#X connect 0 0 1 1; +#X connect 1 0 19 0; +#X connect 2 0 18 0; +#X connect 2 0 9 0; +#X connect 2 0 17 0; +#X connect 2 0 11 0; +#X connect 2 0 10 0; +#X connect 3 0 1 0; +#X connect 5 0 6 1; +#X connect 6 0 24 0; +#X connect 7 0 12 1; +#X connect 8 0 12 0; +#X connect 9 0 7 0; +#X connect 10 0 16 0; +#X connect 11 0 20 0; +#X connect 12 0 14 0; +#X connect 13 0 8 0; +#X connect 14 0 22 0; +#X connect 15 0 22 0; +#X connect 16 0 3 0; +#X connect 16 0 13 0; +#X connect 17 0 5 0; +#X connect 18 0 0 0; +#X connect 19 0 22 0; +#X connect 20 0 21 0; +#X connect 21 0 19 1; +#X connect 21 0 15 1; +#X connect 21 0 14 1; +#X connect 23 0 10 0; +#X connect 23 0 11 0; +#X connect 23 0 2 0; +#X connect 24 0 15 0; +#X restore 456 615 pd horrible-marimba; +#N canvas 689 49 1011 911 horrible-marimba 0; +#X obj 245 457 line~; +#X obj 230 484 *~; +#X obj 243 41 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 -1 +-1; +#X obj 228 396 osc~; +#X obj 426 255 noise~; +#X obj 484 293 line~; +#X obj 427 347 *~; +#X obj 132 320 line~; +#X obj 85 317 osc~; +#X msg 132 290 1 \, 0 100; +#X floatatom 230 133 3 0 0 0 - - -; +#X floatatom 262 132 3 0 0 0 - - -; +#X obj 85 350 *~; +#X obj 85 287 * 3; +#X obj 85 385 *~ 1; +#X obj 427 442 *~ 0.5; +#X obj 229 178 mtof; +#X msg 484 265 1 \, 0 44; +#X msg 245 428 1 \, 0 400; +#X obj 230 510 *~ 0.4; +#X obj 262 178 * 0.33; +#X obj 262 200 * 0.4; +#X obj 227 653 outlet~; +#X obj 325 28 inlet; +#X obj 427 384 lop~ 5000; +#X connect 0 0 1 1; +#X connect 1 0 19 0; +#X connect 2 0 18 0; +#X connect 2 0 9 0; +#X connect 2 0 17 0; +#X connect 2 0 11 0; +#X connect 2 0 10 0; +#X connect 3 0 1 0; +#X connect 5 0 6 1; +#X connect 6 0 24 0; +#X connect 7 0 12 1; +#X connect 8 0 12 0; +#X connect 9 0 7 0; +#X connect 10 0 16 0; +#X connect 11 0 20 0; +#X connect 12 0 14 0; +#X connect 13 0 8 0; +#X connect 14 0 22 0; +#X connect 15 0 22 0; +#X connect 16 0 3 0; +#X connect 16 0 13 0; +#X connect 17 0 5 0; +#X connect 18 0 0 0; +#X connect 19 0 22 0; +#X connect 20 0 21 0; +#X connect 21 0 19 1; +#X connect 21 0 15 1; +#X connect 21 0 14 1; +#X connect 23 0 10 0; +#X connect 23 0 11 0; +#X connect 23 0 2 0; +#X connect 24 0 15 0; +#X restore 55 610 pd horrible-marimba; +#X obj 287 788 *~ 0.4; +#N canvas 871 117 791 817 reverb 0; +#X floatatom 200 229 0 0 120 0 - - -; +#N canvas 0 22 539 448 tests 0; +#X obj 67 33 inlet; +#X obj 309 189 inlet; +#X obj 235 207 line~; +#X obj 235 230 cos~; +#X obj 235 68 loadbang; +#X msg 235 91 -0.25; +#X obj 235 276 *~; +#X obj 186 309 hip~ 5; +#X floatatom 308 218 0 0 0 0 - - -; +#X obj 308 264 osc~ 440; +#X obj 308 241 mtof; +#X obj 235 253 *~ 0.1; +#X obj 308 299 *~; +#X obj 326 325 *~; +#X obj 292 330 *~; +#X msg 279 150 -0.25 \, 0.25 \$1; +#X obj 41 148 biquad~ 0 0 1 -1 0; +#X obj 63 70 t b; +#X obj 104 72 del 3; +#X obj 57 101 1; +#X obj 96 101 0; +#X obj 41 355 outlet~; +#X obj 279 126 inlet; +#X obj 51 192 *~; +#X connect 0 0 17 0; +#X connect 1 0 8 0; +#X connect 2 0 3 0; +#X connect 3 0 11 0; +#X connect 4 0 5 0; +#X connect 5 0 2 0; +#X connect 6 0 7 0; +#X connect 7 0 21 0; +#X connect 8 0 10 0; +#X connect 9 0 6 1; +#X connect 9 0 12 0; +#X connect 9 0 12 1; +#X connect 9 0 13 0; +#X connect 10 0 9 0; +#X connect 11 0 6 0; +#X connect 12 0 13 1; +#X connect 12 0 6 1; +#X connect 12 0 14 0; +#X connect 12 0 14 1; +#X connect 13 0 6 1; +#X connect 14 0 6 1; +#X connect 15 0 2 0; +#X connect 16 0 23 0; +#X connect 17 0 18 0; +#X connect 17 0 19 0; +#X connect 18 0 20 0; +#X connect 19 0 16 0; +#X connect 19 0 23 1; +#X connect 20 0 16 0; +#X connect 20 0 23 1; +#X connect 22 0 15 0; +#X connect 23 0 21 0; +#X restore 117 189 pd tests; +#X msg 156 70 10; +#X msg 154 97 20; +#X msg 153 125 100; +#X msg 152 150 500; +#X obj 117 50 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 137 44 impulse; +#X floatatom 197 162 0 0 0 0 - - -; +#X text 236 131 tone; +#X text 235 147 pitch; +#X text 241 230 level \, dB; +#X floatatom 235 252 0 0 100 0 - - -; +#X text 276 252 liveness \, 0-100; +#X floatatom 270 276 4 0 5000 0 - - -; +#X floatatom 305 299 0 0 100 0 - - -; +#X text 318 274 crossover frequency \, Hz.; +#X text 341 301 HF damping \, percent; +#X text 195 70 tone; +#X text 196 87 bursts; +#X text 232 165 (60 for; +#X text 215 185 middle C); +#X obj 119 343 rev3~ 100 90 3000 20; +#X text 364 22 REV3~ - hard-core \, 2-in \, 4-out reverberator; +#X text 337 74 The creation arguments (level \, liveness \, crossover +frequency \, HF damping) may also be supplied in four inlets as shown. +The "liveness" (actually the internal feedback percentage) should be +100 for infinite reverb \, 90 for longish \, and 80 for short. The +crossover frequency and HF damping work together: at frequencies above +crossover \, the feedback is diminished by the "damping" as a percentage. +So zero HF damping means equal reverb time at all frequencies \, and +100% damping means almost nothing above the crossover frequency gets +through.; +#X text 337 47 (A more expensive \, presumably better \, one than rev2~.) +; +#X obj 45 33 inlet~; +#X obj 39 162 adc~; +#X obj 113 430 outlet~; +#X connect 0 0 22 2; +#X connect 1 0 22 0; +#X connect 2 0 1 1; +#X connect 3 0 1 1; +#X connect 4 0 1 1; +#X connect 5 0 1 1; +#X connect 6 0 1 0; +#X connect 8 0 1 2; +#X connect 12 0 22 3; +#X connect 14 0 22 4; +#X connect 15 0 22 5; +#X connect 22 0 28 0; +#X connect 22 1 28 0; +#X connect 22 2 28 0; +#X connect 22 3 28 0; +#X connect 26 0 22 0; +#X restore 562 677 pd reverb; +#X obj 135 131 noise~; +#X msg 196 701 0.6; +#X msg 450 703 0.3; +#X obj 627 427 list trim; +#X msg 627 448 zhuy16 key 0 Shift_L 0; +#X obj 627 406 list prepend set; +#X obj 884 434 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 627 477 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 925 382 list trim; +#X obj 1002 453 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 925 428 route key; +#X obj 925 474 unpack f s f; +#X floatatom 925 511 5 0 0 0 - - -; +#X symbolatom 966 512 10 0 0 0 - - -; +#X floatatom 1007 556 5 0 0 0 - - -; +#X obj 627 358 receive zhuy16_control; +#X obj 925 405 route zhuy16 obamab; +#X obj 896 704 throw~ zhuy16_audio_1; +#X obj 812 516 print; +#X obj 897 597 *~ 1; +#X msg 947 592 0; +#N canvas 647 135 719 731 tremolo 0; +#X obj 94 55 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 5000 1; +#X floatatom 216 95 5 0 0 0 - - -; +#X obj 217 116 osc~; +#X obj 106 153 +~ 1; +#X obj 105 179 *~ 0.5; +#X text 87 38 Sine wave; +#X obj 35 186 gate~; +#X obj 20 22 inlet; +#X obj 100 337 outlet~; +#N canvas 242 114 1080 628 fm-synthesis 0; +#X obj 84 53 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 5000 1; +#X text 78 36 Carrier Frequency; +#X obj 82 83 mtof~; +#X text 91 534 * NOTE here we're using "mtof~" not "mtof". The output +from this object is an audio signal not just a float.; +#X obj 83 357 osc~; +#X obj 82 303 +~; +#X obj 96 221 osc~; +#X text 136 118 Modulation frequency in Hz; +#X floatatom 97 118 5 0 0 0 - - -; +#X obj 97 277 *~; +#X floatatom 112 249 5 0 0 0 - - -; +#X text 151 250 Modulation amount in Hz; +#X text 425 30 The Synthesis of Complex Audio Spectra by Means of Frequency +Modulation; +#X text 423 73 JOHN M. CHOWNING (first published: J. M. Chowning. The +Synthesis of Complex Audio Spectra by Means of Frequency Modulation. +J. Audio Eng. Soc. 21 \, 7 \, 1973.); +#X text 422 143 https://ccrma.stanford.edu/sites/default/files/user/jc/fm_synthesispaper-2.pdf +; +#X obj 22 8 inlet; +#X obj 84 459 outlet~; +#X connect 0 0 2 0; +#X connect 2 0 5 0; +#X connect 4 0 16 0; +#X connect 5 0 4 0; +#X connect 6 0 9 0; +#X connect 8 0 6 0; +#X connect 9 0 5 1; +#X connect 10 0 9 1; +#X connect 15 0 0 0; +#X restore 43 114 pd fm-synthesis; +#X obj 305 206 dac~; +#X obj 91 214 *~; +#X connect 0 0 9 0; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X connect 3 0 4 0; +#X connect 4 0 11 1; +#X connect 7 0 0 0; +#X connect 9 0 11 0; +#X connect 9 0 3 0; +#X connect 11 0 8 0; +#X restore 295 576 pd tremolo; +#X obj 274 704 *~ 2; +#X msg 948 615 0.5; +#X msg 308 685 0; +#X obj 506 770 tgl 35 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +1; +#X msg 308 703 2; +#X text 552 770 Coolest button kill all 3 channels; +#X text 767 314 ROB - yes \, I'm removing this though to use the global +new version; +#X obj 629 323 keycontrol_ zhuy16; +#X text 526 538 ROB - please remember to disable prints when you submit +; +#X text 14 14 Yuqing Zhu; #X connect 0 0 2 0; #X connect 1 0 0 0; -#X connect 2 0 31 0; -#X connect 3 0 32 0; -#X connect 4 0 39 0; +#X connect 2 0 18 0; +#X connect 3 0 19 0; +#X connect 4 0 41 0; #X connect 5 0 4 1; #X connect 6 0 7 0; #X connect 7 0 8 0; -#X connect 9 0 10 0; -#X connect 10 0 11 0; -#X connect 13 0 4 0; -#X connect 14 0 13 0; -#X connect 15 0 20 0; -#X connect 16 0 13 0; -#X connect 17 0 20 0; -#X connect 18 0 20 0; -#X connect 19 0 20 0; -#X connect 20 0 21 0; -#X connect 21 0 39 0; -#X connect 22 0 21 1; -#X connect 23 0 13 0; -#X connect 24 0 13 0; -#X connect 31 0 3 0; -#X connect 32 0 14 0; -#X connect 32 0 19 0; -#X connect 32 0 25 0; -#X connect 32 1 15 0; -#X connect 32 1 26 0; -#X connect 32 2 16 0; -#X connect 32 2 27 0; -#X connect 32 3 17 0; -#X connect 32 3 28 0; -#X connect 32 3 24 0; -#X connect 32 4 18 0; -#X connect 32 4 29 0; -#X connect 32 5 30 0; -#X connect 32 5 23 0; -#X connect 39 0 37 0; -#X connect 39 0 45 0; -#X connect 40 0 41 0; -#X connect 40 0 42 0; -#X connect 41 0 4 1; -#X connect 42 0 21 1; -#X connect 44 0 0 1; +#X connect 10 0 41 0; +#X connect 11 0 10 1; +#X connect 18 0 3 0; +#X connect 19 0 34 0; +#X connect 19 0 12 0; +#X connect 19 0 37 0; +#X connect 19 1 33 0; +#X connect 19 1 13 0; +#X connect 19 2 36 0; +#X connect 19 2 14 0; +#X connect 19 3 31 0; +#X connect 19 3 15 0; +#X connect 19 3 38 0; +#X connect 19 4 32 0; +#X connect 19 4 16 0; +#X connect 19 5 17 0; +#X connect 19 5 35 0; +#X connect 26 0 44 0; +#X connect 26 0 45 0; +#X connect 26 0 69 0; +#X connect 28 0 0 1; +#X connect 31 0 39 0; +#X connect 32 0 39 0; +#X connect 33 0 39 0; +#X connect 34 0 39 0; +#X connect 34 0 64 0; +#X connect 35 0 40 0; +#X connect 36 0 40 0; +#X connect 37 0 40 0; +#X connect 38 0 40 0; +#X connect 38 0 64 0; +#X connect 39 0 42 0; +#X connect 39 0 10 0; +#X connect 40 0 4 0; +#X connect 41 0 24 0; +#X connect 41 0 29 0; +#X connect 42 0 10 0; +#X connect 44 0 4 1; +#X connect 45 0 10 1; +#X connect 46 0 47 0; +#X connect 47 0 50 0; +#X connect 48 0 46 0; +#X connect 51 0 59 0; +#X connect 53 0 54 0; +#X connect 54 0 55 0; +#X connect 54 1 56 0; +#X connect 54 2 57 0; +#X connect 57 0 64 0; +#X connect 58 0 48 0; +#X connect 58 0 51 0; +#X connect 59 0 49 0; +#X connect 59 0 53 0; +#X connect 59 1 52 0; +#X connect 62 0 60 0; +#X connect 63 0 62 1; +#X connect 64 0 65 0; +#X connect 64 0 62 0; +#X connect 65 0 41 0; +#X connect 66 0 62 1; +#X connect 67 0 65 1; +#X connect 68 0 4 1; +#X connect 68 0 65 1; +#X connect 68 0 10 1; +#X connect 69 0 65 1; diff --git a/zhuy16_fm-synthesis.pd b/zhuy16_fm-synthesis.pd new file mode 100755 index 0000000..113b464 --- /dev/null +++ b/zhuy16_fm-synthesis.pd @@ -0,0 +1,444 @@ +#N canvas 581 78 1067 912 12; +#X obj 268 266 mycounter; +#X obj 267 239 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 269 292 5 0 0 0 - - -; +#X floatatom 270 340 5 0 0 0 - - -; +#X obj 148 703 *~ 0.1; +#X msg 196 683 0; +#X floatatom 35 160 5 0 0 0 - - -; +#X obj 37 188 mtof; +#X floatatom 37 215 5 0 0 0 - - -; +#X text 24 131 middie C=60; +#X obj 404 704 *~ 0.1; +#X msg 451 680 0; +#X obj 198 331 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 198 345 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 198 359 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 443 334 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 443 348 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 443 362 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 270 315 % 6; +#X obj 270 363 select 0 1 2 3 4 5, f 19; +#X text 9 10 Julia florida~; +#X text 10 42 LEFT RIGHT; +#X text 15 93 F#3 -- B 3 | G3 -- B3 D3 B2 -- | E3 C#3 --; +#X obj 171 229 inlet; +#X obj 223 840 outlet~; +#X obj 290 840 outlet; +#X obj 313 628 loadbang; +#X obj 110 226 inlet~; +#X obj 328 235 r zhuy16_tempo; +#X obj 344 820 throw~ zhuy16_audio_1; +#X obj 867 815 osc~ 440; +#X msg 536 493 55; +#X msg 492 494 49; +#X msg 434 493 47; +#X msg 389 493 50; +#X msg 291 491 59; +#X msg 197 491 59; +#X msg 145 491 54; +#X msg 242 491 52; +#N canvas 769 51 1011 911 horrible-marimba 0; +#X obj 245 457 line~; +#X obj 230 484 *~; +#X obj 243 41 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 -1 +-1; +#X obj 228 396 osc~; +#X obj 396 255 noise~; +#X obj 484 293 line~; +#X obj 427 347 *~; +#X obj 132 320 line~; +#X obj 85 317 osc~; +#X msg 132 290 1 \, 0 100; +#X floatatom 230 133 3 0 0 0 - - -; +#X floatatom 262 132 3 0 0 0 - - -; +#X obj 85 350 *~; +#X obj 85 287 * 3; +#X obj 85 385 *~ 1; +#X obj 427 442 *~ 0.5; +#X obj 229 178 mtof; +#X msg 484 265 1 \, 0 44; +#X msg 245 428 1 \, 0 400; +#X obj 230 510 *~ 0.4; +#X obj 262 178 * 0.33; +#X obj 262 200 * 0.4; +#X obj 244 654 outlet~; +#X obj 325 25 inlet; +#X obj 427 384 lop~ 5000; +#X connect 0 0 1 1; +#X connect 1 0 19 0; +#X connect 2 0 18 0; +#X connect 2 0 9 0; +#X connect 2 0 17 0; +#X connect 2 0 11 0; +#X connect 2 0 10 0; +#X connect 3 0 1 0; +#X connect 5 0 6 1; +#X connect 6 0 24 0; +#X connect 7 0 12 1; +#X connect 8 0 12 0; +#X connect 9 0 7 0; +#X connect 10 0 16 0; +#X connect 11 0 20 0; +#X connect 12 0 14 0; +#X connect 13 0 8 0; +#X connect 14 0 22 0; +#X connect 15 0 22 0; +#X connect 16 0 3 0; +#X connect 16 0 13 0; +#X connect 17 0 5 0; +#X connect 18 0 0 0; +#X connect 19 0 22 0; +#X connect 20 0 21 0; +#X connect 21 0 19 1; +#X connect 21 0 15 1; +#X connect 21 0 14 1; +#X connect 23 0 10 0; +#X connect 23 0 11 0; +#X connect 23 0 2 0; +#X connect 24 0 15 0; +#X restore 456 615 pd horrible-marimba; +#N canvas 689 49 1011 911 horrible-marimba 0; +#X obj 245 457 line~; +#X obj 230 484 *~; +#X obj 243 41 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 -1 +-1; +#X obj 228 396 osc~; +#X obj 426 255 noise~; +#X obj 484 293 line~; +#X obj 427 347 *~; +#X obj 132 320 line~; +#X obj 85 317 osc~; +#X msg 132 290 1 \, 0 100; +#X floatatom 230 133 3 0 0 0 - - -; +#X floatatom 262 132 3 0 0 0 - - -; +#X obj 85 350 *~; +#X obj 85 287 * 3; +#X obj 85 385 *~ 1; +#X obj 427 442 *~ 0.5; +#X obj 229 178 mtof; +#X msg 484 265 1 \, 0 44; +#X msg 245 428 1 \, 0 400; +#X obj 230 510 *~ 0.4; +#X obj 262 178 * 0.33; +#X obj 262 200 * 0.4; +#X obj 227 653 outlet~; +#X obj 325 28 inlet; +#X obj 427 384 lop~ 5000; +#X connect 0 0 1 1; +#X connect 1 0 19 0; +#X connect 2 0 18 0; +#X connect 2 0 9 0; +#X connect 2 0 17 0; +#X connect 2 0 11 0; +#X connect 2 0 10 0; +#X connect 3 0 1 0; +#X connect 5 0 6 1; +#X connect 6 0 24 0; +#X connect 7 0 12 1; +#X connect 8 0 12 0; +#X connect 9 0 7 0; +#X connect 10 0 16 0; +#X connect 11 0 20 0; +#X connect 12 0 14 0; +#X connect 13 0 8 0; +#X connect 14 0 22 0; +#X connect 15 0 22 0; +#X connect 16 0 3 0; +#X connect 16 0 13 0; +#X connect 17 0 5 0; +#X connect 18 0 0 0; +#X connect 19 0 22 0; +#X connect 20 0 21 0; +#X connect 21 0 19 1; +#X connect 21 0 15 1; +#X connect 21 0 14 1; +#X connect 23 0 10 0; +#X connect 23 0 11 0; +#X connect 23 0 2 0; +#X connect 24 0 15 0; +#X restore 55 610 pd horrible-marimba; +#X obj 287 788 *~ 0.4; +#N canvas 871 117 791 817 reverb 0; +#X floatatom 200 229 0 0 120 0 - - -; +#N canvas 0 22 539 448 tests 0; +#X obj 67 33 inlet; +#X obj 309 189 inlet; +#X obj 235 207 line~; +#X obj 235 230 cos~; +#X obj 235 68 loadbang; +#X msg 235 91 -0.25; +#X obj 235 276 *~; +#X obj 186 309 hip~ 5; +#X floatatom 308 218 0 0 0 0 - - -; +#X obj 308 264 osc~ 440; +#X obj 308 241 mtof; +#X obj 235 253 *~ 0.1; +#X obj 308 299 *~; +#X obj 326 325 *~; +#X obj 292 330 *~; +#X msg 279 150 -0.25 \, 0.25 \$1; +#X obj 41 148 biquad~ 0 0 1 -1 0; +#X obj 63 70 t b; +#X obj 104 72 del 3; +#X obj 57 101 1; +#X obj 96 101 0; +#X obj 41 355 outlet~; +#X obj 279 126 inlet; +#X obj 51 192 *~; +#X connect 0 0 17 0; +#X connect 1 0 8 0; +#X connect 2 0 3 0; +#X connect 3 0 11 0; +#X connect 4 0 5 0; +#X connect 5 0 2 0; +#X connect 6 0 7 0; +#X connect 7 0 21 0; +#X connect 8 0 10 0; +#X connect 9 0 6 1; +#X connect 9 0 12 0; +#X connect 9 0 12 1; +#X connect 9 0 13 0; +#X connect 10 0 9 0; +#X connect 11 0 6 0; +#X connect 12 0 13 1; +#X connect 12 0 6 1; +#X connect 12 0 14 0; +#X connect 12 0 14 1; +#X connect 13 0 6 1; +#X connect 14 0 6 1; +#X connect 15 0 2 0; +#X connect 16 0 23 0; +#X connect 17 0 18 0; +#X connect 17 0 19 0; +#X connect 18 0 20 0; +#X connect 19 0 16 0; +#X connect 19 0 23 1; +#X connect 20 0 16 0; +#X connect 20 0 23 1; +#X connect 22 0 15 0; +#X connect 23 0 21 0; +#X restore 117 189 pd tests; +#X msg 156 70 10; +#X msg 154 97 20; +#X msg 153 125 100; +#X msg 152 150 500; +#X obj 117 50 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 137 44 impulse; +#X floatatom 197 162 0 0 0 0 - - -; +#X text 236 131 tone; +#X text 235 147 pitch; +#X text 241 230 level \, dB; +#X floatatom 235 252 0 0 100 0 - - -; +#X text 276 252 liveness \, 0-100; +#X floatatom 270 276 4 0 5000 0 - - -; +#X floatatom 305 299 0 0 100 0 - - -; +#X text 318 274 crossover frequency \, Hz.; +#X text 341 301 HF damping \, percent; +#X text 195 70 tone; +#X text 196 87 bursts; +#X text 232 165 (60 for; +#X text 215 185 middle C); +#X obj 119 343 rev3~ 100 90 3000 20; +#X text 364 22 REV3~ - hard-core \, 2-in \, 4-out reverberator; +#X text 337 74 The creation arguments (level \, liveness \, crossover +frequency \, HF damping) may also be supplied in four inlets as shown. +The "liveness" (actually the internal feedback percentage) should be +100 for infinite reverb \, 90 for longish \, and 80 for short. The +crossover frequency and HF damping work together: at frequencies above +crossover \, the feedback is diminished by the "damping" as a percentage. +So zero HF damping means equal reverb time at all frequencies \, and +100% damping means almost nothing above the crossover frequency gets +through.; +#X text 337 47 (A more expensive \, presumably better \, one than rev2~.) +; +#X obj 45 33 inlet~; +#X obj 39 162 adc~; +#X obj 113 430 outlet~; +#X connect 0 0 22 2; +#X connect 1 0 22 0; +#X connect 2 0 1 1; +#X connect 3 0 1 1; +#X connect 4 0 1 1; +#X connect 5 0 1 1; +#X connect 6 0 1 0; +#X connect 8 0 1 2; +#X connect 12 0 22 3; +#X connect 14 0 22 4; +#X connect 15 0 22 5; +#X connect 22 0 28 0; +#X connect 22 1 28 0; +#X connect 22 2 28 0; +#X connect 22 3 28 0; +#X connect 26 0 22 0; +#X restore 562 677 pd reverb; +#X obj 135 131 noise~; +#X msg 196 701 0.6; +#X msg 450 703 0.3; +#X obj 629 323 keycontrol zhuy16; +#X obj 627 427 list trim; +#X msg 627 448 zhuy16 key 0 Return 10; +#X obj 627 406 list prepend set; +#X obj 884 434 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 627 477 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 925 382 list trim; +#X obj 1002 453 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 925 428 route key; +#X obj 925 474 unpack f s f; +#X floatatom 925 511 5 0 0 0 - - -; +#X symbolatom 966 512 10 0 0 0 - - -; +#X floatatom 1007 556 5 0 0 0 - - -; +#X obj 627 358 receive zhuy16_control; +#X obj 925 405 route zhuy16 obamab; +#X obj 896 704 throw~ zhuy16_audio_1; +#X obj 812 516 print; +#X obj 897 597 *~ 1; +#X msg 947 592 0; +#N canvas 647 135 719 731 tremolo 1; +#X obj 94 55 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 5200 1; +#X floatatom 216 95 5 0 0 0 - - -; +#X obj 217 116 osc~; +#X obj 106 153 +~ 1; +#X obj 105 179 *~ 0.5; +#X text 87 38 Sine wave; +#X obj 35 186 gate~; +#X obj 20 22 inlet; +#X obj 100 337 outlet~; +#N canvas 242 114 1080 628 fm-synthesis 1; +#X obj 84 53 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 5200 1; +#X text 78 36 Carrier Frequency; +#X obj 82 83 mtof~; +#X text 91 534 * NOTE here we're using "mtof~" not "mtof". The output +from this object is an audio signal not just a float.; +#X obj 83 357 osc~; +#X obj 82 303 +~; +#X obj 96 221 osc~; +#X text 136 118 Modulation frequency in Hz; +#X floatatom 97 118 5 0 0 0 - - -; +#X obj 97 277 *~; +#X floatatom 112 249 5 0 0 0 - - -; +#X text 151 250 Modulation amount in Hz; +#X text 425 30 The Synthesis of Complex Audio Spectra by Means of Frequency +Modulation; +#X text 423 73 JOHN M. CHOWNING (first published: J. M. Chowning. The +Synthesis of Complex Audio Spectra by Means of Frequency Modulation. +J. Audio Eng. Soc. 21 \, 7 \, 1973.); +#X text 422 143 https://ccrma.stanford.edu/sites/default/files/user/jc/fm_synthesispaper-2.pdf +; +#X obj 22 8 inlet; +#X obj 84 459 outlet~; +#X connect 0 0 2 0; +#X connect 2 0 5 0; +#X connect 4 0 16 0; +#X connect 5 0 4 0; +#X connect 6 0 9 0; +#X connect 8 0 6 0; +#X connect 9 0 5 1; +#X connect 10 0 9 1; +#X connect 15 0 0 0; +#X restore 43 114 pd fm-synthesis; +#X obj 305 206 dac~; +#X obj 91 214 *~; +#X connect 0 0 9 0; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X connect 3 0 4 0; +#X connect 4 0 11 1; +#X connect 7 0 0 0; +#X connect 9 0 11 0; +#X connect 9 0 3 0; +#X connect 11 0 8 0; +#X restore 295 576 pd tremolo; +#X obj 274 704 *~ 2; +#X msg 948 615 0.5; +#X msg 308 685 0; +#X obj 506 770 tgl 35 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X msg 308 703 2; +#X text 552 770 Coolest button kill all 3 channels; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 18 0; +#X connect 3 0 19 0; +#X connect 4 0 41 0; +#X connect 5 0 4 1; +#X connect 6 0 7 0; +#X connect 7 0 8 0; +#X connect 10 0 41 0; +#X connect 11 0 10 1; +#X connect 18 0 3 0; +#X connect 19 0 34 0; +#X connect 19 0 12 0; +#X connect 19 0 37 0; +#X connect 19 1 33 0; +#X connect 19 1 13 0; +#X connect 19 2 36 0; +#X connect 19 2 14 0; +#X connect 19 3 31 0; +#X connect 19 3 15 0; +#X connect 19 3 38 0; +#X connect 19 4 32 0; +#X connect 19 4 16 0; +#X connect 19 5 17 0; +#X connect 19 5 35 0; +#X connect 26 0 44 0; +#X connect 26 0 45 0; +#X connect 26 0 70 0; +#X connect 28 0 0 1; +#X connect 31 0 39 0; +#X connect 32 0 39 0; +#X connect 33 0 39 0; +#X connect 34 0 39 0; +#X connect 34 0 65 0; +#X connect 35 0 40 0; +#X connect 36 0 40 0; +#X connect 37 0 40 0; +#X connect 38 0 40 0; +#X connect 38 0 65 0; +#X connect 39 0 42 0; +#X connect 39 0 10 0; +#X connect 40 0 4 0; +#X connect 41 0 24 0; +#X connect 41 0 29 0; +#X connect 42 0 10 0; +#X connect 44 0 4 1; +#X connect 45 0 10 1; +#X connect 47 0 48 0; +#X connect 48 0 51 0; +#X connect 49 0 47 0; +#X connect 52 0 60 0; +#X connect 54 0 55 0; +#X connect 54 0 62 0; +#X connect 55 0 56 0; +#X connect 55 1 57 0; +#X connect 55 2 58 0; +#X connect 58 0 65 0; +#X connect 59 0 49 0; +#X connect 59 0 52 0; +#X connect 60 0 50 0; +#X connect 60 0 54 0; +#X connect 60 1 53 0; +#X connect 63 0 61 0; +#X connect 64 0 63 1; +#X connect 65 0 66 0; +#X connect 65 0 63 0; +#X connect 66 0 41 0; +#X connect 67 0 63 1; +#X connect 68 0 66 1; +#X connect 69 0 4 1; +#X connect 69 0 66 1; +#X connect 69 0 10 1; +#X connect 70 0 66 1; diff --git a/zhuy16_horrible-marimba.pd b/zhuy16_horrible-marimba.pd new file mode 100755 index 0000000..353aef2 --- /dev/null +++ b/zhuy16_horrible-marimba.pd @@ -0,0 +1,444 @@ +#N canvas 581 78 1067 912 12; +#X obj 268 266 mycounter; +#X obj 267 239 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 269 292 5 0 0 0 - - -; +#X floatatom 270 340 5 0 0 0 - - -; +#X obj 148 703 *~ 0.1; +#X msg 196 683 0; +#X floatatom 35 160 5 0 0 0 - - -; +#X obj 37 188 mtof; +#X floatatom 37 215 5 0 0 0 - - -; +#X text 24 131 middie C=60; +#X obj 404 704 *~ 0.1; +#X msg 451 680 0; +#X obj 198 331 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 198 345 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 198 359 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 443 334 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 443 348 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 443 362 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 270 315 % 6; +#X obj 270 363 select 0 1 2 3 4 5, f 19; +#X text 9 10 Julia florida~; +#X text 10 42 LEFT RIGHT; +#X text 15 93 F#3 -- B 3 | G3 -- B3 D3 B2 -- | E3 C#3 --; +#X obj 171 229 inlet; +#X obj 223 840 outlet~; +#X obj 290 840 outlet; +#X obj 313 628 loadbang; +#X obj 110 226 inlet~; +#X obj 328 235 r zhuy16_tempo; +#X obj 344 820 throw~ zhuy16_audio_1; +#X obj 867 815 osc~ 440; +#X msg 536 493 55; +#X msg 492 494 49; +#X msg 434 493 47; +#X msg 389 493 50; +#X msg 291 491 59; +#X msg 197 491 59; +#X msg 145 491 54; +#X msg 242 491 52; +#N canvas 769 51 1011 911 horrible-marimba 0; +#X obj 245 457 line~; +#X obj 230 484 *~; +#X obj 243 41 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 -1 +-1; +#X obj 228 396 osc~; +#X obj 396 255 noise~; +#X obj 484 293 line~; +#X obj 427 347 *~; +#X obj 132 320 line~; +#X obj 85 317 osc~; +#X msg 132 290 1 \, 0 100; +#X floatatom 230 133 3 0 0 0 - - -; +#X floatatom 262 132 3 0 0 0 - - -; +#X obj 85 350 *~; +#X obj 85 287 * 3; +#X obj 85 385 *~ 1; +#X obj 427 442 *~ 0.5; +#X obj 229 178 mtof; +#X msg 484 265 1 \, 0 44; +#X msg 245 428 1 \, 0 400; +#X obj 230 510 *~ 0.4; +#X obj 262 178 * 0.33; +#X obj 262 200 * 0.4; +#X obj 244 654 outlet~; +#X obj 325 25 inlet; +#X obj 427 384 lop~ 5000; +#X connect 0 0 1 1; +#X connect 1 0 19 0; +#X connect 2 0 18 0; +#X connect 2 0 9 0; +#X connect 2 0 17 0; +#X connect 2 0 11 0; +#X connect 2 0 10 0; +#X connect 3 0 1 0; +#X connect 5 0 6 1; +#X connect 6 0 24 0; +#X connect 7 0 12 1; +#X connect 8 0 12 0; +#X connect 9 0 7 0; +#X connect 10 0 16 0; +#X connect 11 0 20 0; +#X connect 12 0 14 0; +#X connect 13 0 8 0; +#X connect 14 0 22 0; +#X connect 15 0 22 0; +#X connect 16 0 3 0; +#X connect 16 0 13 0; +#X connect 17 0 5 0; +#X connect 18 0 0 0; +#X connect 19 0 22 0; +#X connect 20 0 21 0; +#X connect 21 0 19 1; +#X connect 21 0 15 1; +#X connect 21 0 14 1; +#X connect 23 0 10 0; +#X connect 23 0 11 0; +#X connect 23 0 2 0; +#X connect 24 0 15 0; +#X restore 456 615 pd horrible-marimba; +#N canvas 689 49 1011 911 horrible-marimba 1; +#X obj 245 457 line~; +#X obj 230 484 *~; +#X obj 243 41 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 -1 +-1; +#X obj 228 396 osc~; +#X obj 426 255 noise~; +#X obj 484 293 line~; +#X obj 427 347 *~; +#X obj 132 320 line~; +#X obj 85 317 osc~; +#X msg 132 290 1 \, 0 100; +#X floatatom 230 133 3 0 0 0 - - -; +#X floatatom 262 132 3 0 0 0 - - -; +#X obj 85 350 *~; +#X obj 85 287 * 3; +#X obj 85 385 *~ 1; +#X obj 427 442 *~ 0.5; +#X obj 229 178 mtof; +#X msg 484 265 1 \, 0 44; +#X msg 245 428 1 \, 0 400; +#X obj 230 510 *~ 0.4; +#X obj 262 178 * 0.33; +#X obj 262 200 * 0.4; +#X obj 227 653 outlet~; +#X obj 325 28 inlet; +#X obj 427 384 lop~ 5000; +#X connect 0 0 1 1; +#X connect 1 0 19 0; +#X connect 2 0 18 0; +#X connect 2 0 9 0; +#X connect 2 0 17 0; +#X connect 2 0 11 0; +#X connect 2 0 10 0; +#X connect 3 0 1 0; +#X connect 5 0 6 1; +#X connect 6 0 24 0; +#X connect 7 0 12 1; +#X connect 8 0 12 0; +#X connect 9 0 7 0; +#X connect 10 0 16 0; +#X connect 11 0 20 0; +#X connect 12 0 14 0; +#X connect 13 0 8 0; +#X connect 14 0 22 0; +#X connect 15 0 22 0; +#X connect 16 0 3 0; +#X connect 16 0 13 0; +#X connect 17 0 5 0; +#X connect 18 0 0 0; +#X connect 19 0 22 0; +#X connect 20 0 21 0; +#X connect 21 0 19 1; +#X connect 21 0 15 1; +#X connect 21 0 14 1; +#X connect 23 0 10 0; +#X connect 23 0 11 0; +#X connect 23 0 2 0; +#X connect 24 0 15 0; +#X restore 55 610 pd horrible-marimba; +#X obj 287 788 *~ 0.4; +#N canvas 871 117 791 817 reverb 0; +#X floatatom 200 229 0 0 120 0 - - -; +#N canvas 0 22 539 448 tests 0; +#X obj 67 33 inlet; +#X obj 309 189 inlet; +#X obj 235 207 line~; +#X obj 235 230 cos~; +#X obj 235 68 loadbang; +#X msg 235 91 -0.25; +#X obj 235 276 *~; +#X obj 186 309 hip~ 5; +#X floatatom 308 218 0 0 0 0 - - -; +#X obj 308 264 osc~ 440; +#X obj 308 241 mtof; +#X obj 235 253 *~ 0.1; +#X obj 308 299 *~; +#X obj 326 325 *~; +#X obj 292 330 *~; +#X msg 279 150 -0.25 \, 0.25 \$1; +#X obj 41 148 biquad~ 0 0 1 -1 0; +#X obj 63 70 t b; +#X obj 104 72 del 3; +#X obj 57 101 1; +#X obj 96 101 0; +#X obj 41 355 outlet~; +#X obj 279 126 inlet; +#X obj 51 192 *~; +#X connect 0 0 17 0; +#X connect 1 0 8 0; +#X connect 2 0 3 0; +#X connect 3 0 11 0; +#X connect 4 0 5 0; +#X connect 5 0 2 0; +#X connect 6 0 7 0; +#X connect 7 0 21 0; +#X connect 8 0 10 0; +#X connect 9 0 6 1; +#X connect 9 0 12 0; +#X connect 9 0 12 1; +#X connect 9 0 13 0; +#X connect 10 0 9 0; +#X connect 11 0 6 0; +#X connect 12 0 13 1; +#X connect 12 0 6 1; +#X connect 12 0 14 0; +#X connect 12 0 14 1; +#X connect 13 0 6 1; +#X connect 14 0 6 1; +#X connect 15 0 2 0; +#X connect 16 0 23 0; +#X connect 17 0 18 0; +#X connect 17 0 19 0; +#X connect 18 0 20 0; +#X connect 19 0 16 0; +#X connect 19 0 23 1; +#X connect 20 0 16 0; +#X connect 20 0 23 1; +#X connect 22 0 15 0; +#X connect 23 0 21 0; +#X restore 117 189 pd tests; +#X msg 156 70 10; +#X msg 154 97 20; +#X msg 153 125 100; +#X msg 152 150 500; +#X obj 117 50 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 137 44 impulse; +#X floatatom 197 162 0 0 0 0 - - -; +#X text 236 131 tone; +#X text 235 147 pitch; +#X text 241 230 level \, dB; +#X floatatom 235 252 0 0 100 0 - - -; +#X text 276 252 liveness \, 0-100; +#X floatatom 270 276 4 0 5000 0 - - -; +#X floatatom 305 299 0 0 100 0 - - -; +#X text 318 274 crossover frequency \, Hz.; +#X text 341 301 HF damping \, percent; +#X text 195 70 tone; +#X text 196 87 bursts; +#X text 232 165 (60 for; +#X text 215 185 middle C); +#X obj 119 343 rev3~ 100 90 3000 20; +#X text 364 22 REV3~ - hard-core \, 2-in \, 4-out reverberator; +#X text 337 74 The creation arguments (level \, liveness \, crossover +frequency \, HF damping) may also be supplied in four inlets as shown. +The "liveness" (actually the internal feedback percentage) should be +100 for infinite reverb \, 90 for longish \, and 80 for short. The +crossover frequency and HF damping work together: at frequencies above +crossover \, the feedback is diminished by the "damping" as a percentage. +So zero HF damping means equal reverb time at all frequencies \, and +100% damping means almost nothing above the crossover frequency gets +through.; +#X text 337 47 (A more expensive \, presumably better \, one than rev2~.) +; +#X obj 45 33 inlet~; +#X obj 39 162 adc~; +#X obj 113 430 outlet~; +#X connect 0 0 22 2; +#X connect 1 0 22 0; +#X connect 2 0 1 1; +#X connect 3 0 1 1; +#X connect 4 0 1 1; +#X connect 5 0 1 1; +#X connect 6 0 1 0; +#X connect 8 0 1 2; +#X connect 12 0 22 3; +#X connect 14 0 22 4; +#X connect 15 0 22 5; +#X connect 22 0 28 0; +#X connect 22 1 28 0; +#X connect 22 2 28 0; +#X connect 22 3 28 0; +#X connect 26 0 22 0; +#X restore 562 677 pd reverb; +#X obj 135 131 noise~; +#X msg 196 701 0.6; +#X msg 450 703 0.3; +#X obj 629 323 keycontrol zhuy16; +#X obj 627 427 list trim; +#X msg 627 448 zhuy16 key 0 Shift_L 0; +#X obj 627 406 list prepend set; +#X obj 884 434 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 627 477 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 925 382 list trim; +#X obj 1002 453 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 925 428 route key; +#X obj 925 474 unpack f s f; +#X floatatom 925 511 5 0 0 0 - - -; +#X symbolatom 966 512 10 0 0 0 - - -; +#X floatatom 1007 556 5 0 0 0 - - -; +#X obj 627 358 receive zhuy16_control; +#X obj 925 405 route zhuy16 obamab; +#X obj 896 704 throw~ zhuy16_audio_1; +#X obj 812 516 print; +#X obj 897 597 *~ 1; +#X msg 947 592 0; +#N canvas 97 152 719 731 tremolo 0; +#X obj 94 55 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 5000 1; +#X floatatom 216 95 5 0 0 0 - - -; +#X obj 217 116 osc~; +#X obj 106 153 +~ 1; +#X obj 105 179 *~ 0.5; +#X text 87 38 Sine wave; +#X obj 35 186 gate~; +#X obj 20 22 inlet; +#X obj 100 337 outlet~; +#N canvas 0 23 1920 1030 fm-synthesis 0; +#X obj 84 53 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 5000 1; +#X text 78 36 Carrier Frequency; +#X obj 82 83 mtof~; +#X text 91 534 * NOTE here we're using "mtof~" not "mtof". The output +from this object is an audio signal not just a float.; +#X obj 83 357 osc~; +#X obj 82 303 +~; +#X obj 96 221 osc~; +#X text 136 118 Modulation frequency in Hz; +#X floatatom 97 118 5 0 0 0 - - -; +#X obj 97 277 *~; +#X floatatom 112 249 5 0 0 0 - - -; +#X text 151 250 Modulation amount in Hz; +#X text 425 30 The Synthesis of Complex Audio Spectra by Means of Frequency +Modulation; +#X text 423 73 JOHN M. CHOWNING (first published: J. M. Chowning. The +Synthesis of Complex Audio Spectra by Means of Frequency Modulation. +J. Audio Eng. Soc. 21 \, 7 \, 1973.); +#X text 422 143 https://ccrma.stanford.edu/sites/default/files/user/jc/fm_synthesispaper-2.pdf +; +#X obj 22 8 inlet; +#X obj 84 459 outlet~; +#X connect 0 0 2 0; +#X connect 2 0 5 0; +#X connect 4 0 16 0; +#X connect 5 0 4 0; +#X connect 6 0 9 0; +#X connect 8 0 6 0; +#X connect 9 0 5 1; +#X connect 10 0 9 1; +#X connect 15 0 0 0; +#X restore 43 114 pd fm-synthesis; +#X obj 305 206 dac~; +#X obj 91 214 *~; +#X connect 0 0 9 0; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X connect 3 0 4 0; +#X connect 4 0 11 1; +#X connect 7 0 0 0; +#X connect 9 0 11 0; +#X connect 9 0 3 0; +#X connect 11 0 8 0; +#X restore 295 576 pd tremolo; +#X obj 274 704 *~ 2; +#X msg 948 615 0.5; +#X msg 308 685 0; +#X obj 506 770 tgl 35 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X msg 308 703 2; +#X text 552 770 Coolest button kill all 3 channels; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 18 0; +#X connect 3 0 19 0; +#X connect 4 0 41 0; +#X connect 5 0 4 1; +#X connect 6 0 7 0; +#X connect 7 0 8 0; +#X connect 10 0 41 0; +#X connect 11 0 10 1; +#X connect 18 0 3 0; +#X connect 19 0 34 0; +#X connect 19 0 12 0; +#X connect 19 0 37 0; +#X connect 19 1 33 0; +#X connect 19 1 13 0; +#X connect 19 2 36 0; +#X connect 19 2 14 0; +#X connect 19 3 31 0; +#X connect 19 3 15 0; +#X connect 19 3 38 0; +#X connect 19 4 32 0; +#X connect 19 4 16 0; +#X connect 19 5 17 0; +#X connect 19 5 35 0; +#X connect 26 0 44 0; +#X connect 26 0 45 0; +#X connect 26 0 70 0; +#X connect 28 0 0 1; +#X connect 31 0 39 0; +#X connect 32 0 39 0; +#X connect 33 0 39 0; +#X connect 34 0 39 0; +#X connect 34 0 65 0; +#X connect 35 0 40 0; +#X connect 36 0 40 0; +#X connect 37 0 40 0; +#X connect 38 0 40 0; +#X connect 38 0 65 0; +#X connect 39 0 42 0; +#X connect 39 0 10 0; +#X connect 40 0 4 0; +#X connect 41 0 24 0; +#X connect 41 0 29 0; +#X connect 42 0 10 0; +#X connect 44 0 4 1; +#X connect 45 0 10 1; +#X connect 47 0 48 0; +#X connect 48 0 51 0; +#X connect 49 0 47 0; +#X connect 52 0 60 0; +#X connect 54 0 55 0; +#X connect 54 0 62 0; +#X connect 55 0 56 0; +#X connect 55 1 57 0; +#X connect 55 2 58 0; +#X connect 58 0 65 0; +#X connect 59 0 49 0; +#X connect 59 0 52 0; +#X connect 60 0 50 0; +#X connect 60 0 54 0; +#X connect 60 1 53 0; +#X connect 63 0 61 0; +#X connect 64 0 63 1; +#X connect 65 0 66 0; +#X connect 65 0 63 0; +#X connect 66 0 41 0; +#X connect 67 0 63 1; +#X connect 68 0 66 1; +#X connect 69 0 4 1; +#X connect 69 0 66 1; +#X connect 69 0 10 1; +#X connect 70 0 66 1; diff --git a/zhuy16_reverb.pd b/zhuy16_reverb.pd new file mode 100755 index 0000000..4334961 --- /dev/null +++ b/zhuy16_reverb.pd @@ -0,0 +1,444 @@ +#N canvas 581 78 1067 912 12; +#X obj 268 266 mycounter; +#X obj 267 239 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 269 292 5 0 0 0 - - -; +#X floatatom 270 340 5 0 0 0 - - -; +#X obj 148 703 *~ 0.1; +#X msg 196 683 0; +#X floatatom 35 160 5 0 0 0 - - -; +#X obj 37 188 mtof; +#X floatatom 37 215 5 0 0 0 - - -; +#X text 24 131 middie C=60; +#X obj 404 704 *~ 0.1; +#X msg 451 680 0; +#X obj 198 331 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 198 345 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 198 359 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 443 334 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 443 348 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 443 362 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 270 315 % 6; +#X obj 270 363 select 0 1 2 3 4 5, f 19; +#X text 9 10 Julia florida~; +#X text 10 42 LEFT RIGHT; +#X text 15 93 F#3 -- B 3 | G3 -- B3 D3 B2 -- | E3 C#3 --; +#X obj 171 229 inlet; +#X obj 223 840 outlet~; +#X obj 290 840 outlet; +#X obj 313 628 loadbang; +#X obj 110 226 inlet~; +#X obj 328 235 r zhuy16_tempo; +#X obj 344 820 throw~ zhuy16_audio_1; +#X obj 867 815 osc~ 440; +#X msg 536 493 55; +#X msg 492 494 49; +#X msg 434 493 47; +#X msg 389 493 50; +#X msg 291 491 59; +#X msg 197 491 59; +#X msg 145 491 54; +#X msg 242 491 52; +#N canvas 769 51 1011 911 horrible-marimba 0; +#X obj 245 457 line~; +#X obj 230 484 *~; +#X obj 243 41 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 -1 +-1; +#X obj 228 396 osc~; +#X obj 396 255 noise~; +#X obj 484 293 line~; +#X obj 427 347 *~; +#X obj 132 320 line~; +#X obj 85 317 osc~; +#X msg 132 290 1 \, 0 100; +#X floatatom 230 133 3 0 0 0 - - -; +#X floatatom 262 132 3 0 0 0 - - -; +#X obj 85 350 *~; +#X obj 85 287 * 3; +#X obj 85 385 *~ 1; +#X obj 427 442 *~ 0.5; +#X obj 229 178 mtof; +#X msg 484 265 1 \, 0 44; +#X msg 245 428 1 \, 0 400; +#X obj 230 510 *~ 0.4; +#X obj 262 178 * 0.33; +#X obj 262 200 * 0.4; +#X obj 244 654 outlet~; +#X obj 325 25 inlet; +#X obj 427 384 lop~ 5000; +#X connect 0 0 1 1; +#X connect 1 0 19 0; +#X connect 2 0 18 0; +#X connect 2 0 9 0; +#X connect 2 0 17 0; +#X connect 2 0 11 0; +#X connect 2 0 10 0; +#X connect 3 0 1 0; +#X connect 5 0 6 1; +#X connect 6 0 24 0; +#X connect 7 0 12 1; +#X connect 8 0 12 0; +#X connect 9 0 7 0; +#X connect 10 0 16 0; +#X connect 11 0 20 0; +#X connect 12 0 14 0; +#X connect 13 0 8 0; +#X connect 14 0 22 0; +#X connect 15 0 22 0; +#X connect 16 0 3 0; +#X connect 16 0 13 0; +#X connect 17 0 5 0; +#X connect 18 0 0 0; +#X connect 19 0 22 0; +#X connect 20 0 21 0; +#X connect 21 0 19 1; +#X connect 21 0 15 1; +#X connect 21 0 14 1; +#X connect 23 0 10 0; +#X connect 23 0 11 0; +#X connect 23 0 2 0; +#X connect 24 0 15 0; +#X restore 456 615 pd horrible-marimba; +#N canvas 689 49 1011 911 horrible-marimba 0; +#X obj 245 457 line~; +#X obj 230 484 *~; +#X obj 243 41 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 -1 +-1; +#X obj 228 396 osc~; +#X obj 426 255 noise~; +#X obj 484 293 line~; +#X obj 427 347 *~; +#X obj 132 320 line~; +#X obj 85 317 osc~; +#X msg 132 290 1 \, 0 100; +#X floatatom 230 133 3 0 0 0 - - -; +#X floatatom 262 132 3 0 0 0 - - -; +#X obj 85 350 *~; +#X obj 85 287 * 3; +#X obj 85 385 *~ 1; +#X obj 427 442 *~ 0.5; +#X obj 229 178 mtof; +#X msg 484 265 1 \, 0 44; +#X msg 245 428 1 \, 0 400; +#X obj 230 510 *~ 0.4; +#X obj 262 178 * 0.33; +#X obj 262 200 * 0.4; +#X obj 227 653 outlet~; +#X obj 325 28 inlet; +#X obj 427 384 lop~ 5000; +#X connect 0 0 1 1; +#X connect 1 0 19 0; +#X connect 2 0 18 0; +#X connect 2 0 9 0; +#X connect 2 0 17 0; +#X connect 2 0 11 0; +#X connect 2 0 10 0; +#X connect 3 0 1 0; +#X connect 5 0 6 1; +#X connect 6 0 24 0; +#X connect 7 0 12 1; +#X connect 8 0 12 0; +#X connect 9 0 7 0; +#X connect 10 0 16 0; +#X connect 11 0 20 0; +#X connect 12 0 14 0; +#X connect 13 0 8 0; +#X connect 14 0 22 0; +#X connect 15 0 22 0; +#X connect 16 0 3 0; +#X connect 16 0 13 0; +#X connect 17 0 5 0; +#X connect 18 0 0 0; +#X connect 19 0 22 0; +#X connect 20 0 21 0; +#X connect 21 0 19 1; +#X connect 21 0 15 1; +#X connect 21 0 14 1; +#X connect 23 0 10 0; +#X connect 23 0 11 0; +#X connect 23 0 2 0; +#X connect 24 0 15 0; +#X restore 55 610 pd horrible-marimba; +#X obj 287 788 *~ 0.4; +#N canvas 871 117 791 817 reverb 1; +#X floatatom 200 229 0 0 120 0 - - -; +#N canvas 0 22 539 448 tests 0; +#X obj 67 33 inlet; +#X obj 309 189 inlet; +#X obj 235 207 line~; +#X obj 235 230 cos~; +#X obj 235 68 loadbang; +#X msg 235 91 -0.25; +#X obj 235 276 *~; +#X obj 186 309 hip~ 5; +#X floatatom 308 218 0 0 0 0 - - -; +#X obj 308 264 osc~ 440; +#X obj 308 241 mtof; +#X obj 235 253 *~ 0.1; +#X obj 308 299 *~; +#X obj 326 325 *~; +#X obj 292 330 *~; +#X msg 279 150 -0.25 \, 0.25 \$1; +#X obj 41 148 biquad~ 0 0 1 -1 0; +#X obj 63 70 t b; +#X obj 104 72 del 3; +#X obj 57 101 1; +#X obj 96 101 0; +#X obj 41 355 outlet~; +#X obj 279 126 inlet; +#X obj 51 192 *~; +#X connect 0 0 17 0; +#X connect 1 0 8 0; +#X connect 2 0 3 0; +#X connect 3 0 11 0; +#X connect 4 0 5 0; +#X connect 5 0 2 0; +#X connect 6 0 7 0; +#X connect 7 0 21 0; +#X connect 8 0 10 0; +#X connect 9 0 6 1; +#X connect 9 0 12 0; +#X connect 9 0 12 1; +#X connect 9 0 13 0; +#X connect 10 0 9 0; +#X connect 11 0 6 0; +#X connect 12 0 13 1; +#X connect 12 0 6 1; +#X connect 12 0 14 0; +#X connect 12 0 14 1; +#X connect 13 0 6 1; +#X connect 14 0 6 1; +#X connect 15 0 2 0; +#X connect 16 0 23 0; +#X connect 17 0 18 0; +#X connect 17 0 19 0; +#X connect 18 0 20 0; +#X connect 19 0 16 0; +#X connect 19 0 23 1; +#X connect 20 0 16 0; +#X connect 20 0 23 1; +#X connect 22 0 15 0; +#X connect 23 0 21 0; +#X restore 117 189 pd tests; +#X msg 156 70 10; +#X msg 154 97 20; +#X msg 153 125 100; +#X msg 152 150 500; +#X obj 117 50 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 137 44 impulse; +#X floatatom 197 162 0 0 0 0 - - -; +#X text 236 131 tone; +#X text 235 147 pitch; +#X text 241 230 level \, dB; +#X floatatom 235 252 0 0 100 0 - - -; +#X text 276 252 liveness \, 0-100; +#X floatatom 270 276 4 0 5000 0 - - -; +#X floatatom 305 299 0 0 100 0 - - -; +#X text 318 274 crossover frequency \, Hz.; +#X text 341 301 HF damping \, percent; +#X text 195 70 tone; +#X text 196 87 bursts; +#X text 232 165 (60 for; +#X text 215 185 middle C); +#X obj 119 343 rev3~ 100 90 3000 20; +#X text 364 22 REV3~ - hard-core \, 2-in \, 4-out reverberator; +#X text 337 74 The creation arguments (level \, liveness \, crossover +frequency \, HF damping) may also be supplied in four inlets as shown. +The "liveness" (actually the internal feedback percentage) should be +100 for infinite reverb \, 90 for longish \, and 80 for short. The +crossover frequency and HF damping work together: at frequencies above +crossover \, the feedback is diminished by the "damping" as a percentage. +So zero HF damping means equal reverb time at all frequencies \, and +100% damping means almost nothing above the crossover frequency gets +through.; +#X text 337 47 (A more expensive \, presumably better \, one than rev2~.) +; +#X obj 45 33 inlet~; +#X obj 39 162 adc~; +#X obj 113 430 outlet~; +#X connect 0 0 22 2; +#X connect 1 0 22 0; +#X connect 2 0 1 1; +#X connect 3 0 1 1; +#X connect 4 0 1 1; +#X connect 5 0 1 1; +#X connect 6 0 1 0; +#X connect 8 0 1 2; +#X connect 12 0 22 3; +#X connect 14 0 22 4; +#X connect 15 0 22 5; +#X connect 22 0 28 0; +#X connect 22 1 28 0; +#X connect 22 2 28 0; +#X connect 22 3 28 0; +#X connect 26 0 22 0; +#X restore 562 677 pd reverb; +#X obj 135 131 noise~; +#X msg 196 701 0.6; +#X msg 450 703 0.3; +#X obj 629 323 keycontrol zhuy16; +#X obj 627 427 list trim; +#X msg 627 448 zhuy16 key 0 Shift_L 0; +#X obj 627 406 list prepend set; +#X obj 884 434 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 627 477 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 925 382 list trim; +#X obj 1002 453 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 925 428 route key; +#X obj 925 474 unpack f s f; +#X floatatom 925 511 5 0 0 0 - - -; +#X symbolatom 966 512 10 0 0 0 - - -; +#X floatatom 1007 556 5 0 0 0 - - -; +#X obj 627 358 receive zhuy16_control; +#X obj 925 405 route zhuy16 obamab; +#X obj 896 704 throw~ zhuy16_audio_1; +#X obj 812 516 print; +#X obj 897 597 *~ 1; +#X msg 947 592 0; +#N canvas 97 152 719 731 tremolo 0; +#X obj 94 55 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 5000 1; +#X floatatom 216 95 5 0 0 0 - - -; +#X obj 217 116 osc~; +#X obj 106 153 +~ 1; +#X obj 105 179 *~ 0.5; +#X text 87 38 Sine wave; +#X obj 35 186 gate~; +#X obj 20 22 inlet; +#X obj 100 337 outlet~; +#N canvas 0 23 1920 1030 fm-synthesis 0; +#X obj 84 53 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 5000 1; +#X text 78 36 Carrier Frequency; +#X obj 82 83 mtof~; +#X text 91 534 * NOTE here we're using "mtof~" not "mtof". The output +from this object is an audio signal not just a float.; +#X obj 83 357 osc~; +#X obj 82 303 +~; +#X obj 96 221 osc~; +#X text 136 118 Modulation frequency in Hz; +#X floatatom 97 118 5 0 0 0 - - -; +#X obj 97 277 *~; +#X floatatom 112 249 5 0 0 0 - - -; +#X text 151 250 Modulation amount in Hz; +#X text 425 30 The Synthesis of Complex Audio Spectra by Means of Frequency +Modulation; +#X text 423 73 JOHN M. CHOWNING (first published: J. M. Chowning. The +Synthesis of Complex Audio Spectra by Means of Frequency Modulation. +J. Audio Eng. Soc. 21 \, 7 \, 1973.); +#X text 422 143 https://ccrma.stanford.edu/sites/default/files/user/jc/fm_synthesispaper-2.pdf +; +#X obj 22 8 inlet; +#X obj 84 459 outlet~; +#X connect 0 0 2 0; +#X connect 2 0 5 0; +#X connect 4 0 16 0; +#X connect 5 0 4 0; +#X connect 6 0 9 0; +#X connect 8 0 6 0; +#X connect 9 0 5 1; +#X connect 10 0 9 1; +#X connect 15 0 0 0; +#X restore 43 114 pd fm-synthesis; +#X obj 305 206 dac~; +#X obj 91 214 *~; +#X connect 0 0 9 0; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X connect 3 0 4 0; +#X connect 4 0 11 1; +#X connect 7 0 0 0; +#X connect 9 0 11 0; +#X connect 9 0 3 0; +#X connect 11 0 8 0; +#X restore 295 576 pd tremolo; +#X obj 274 704 *~ 2; +#X msg 948 615 0.5; +#X msg 308 685 0; +#X obj 506 770 tgl 35 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X msg 308 703 2; +#X text 552 770 Coolest button kill all 3 channels; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 18 0; +#X connect 3 0 19 0; +#X connect 4 0 41 0; +#X connect 5 0 4 1; +#X connect 6 0 7 0; +#X connect 7 0 8 0; +#X connect 10 0 41 0; +#X connect 11 0 10 1; +#X connect 18 0 3 0; +#X connect 19 0 34 0; +#X connect 19 0 12 0; +#X connect 19 0 37 0; +#X connect 19 1 33 0; +#X connect 19 1 13 0; +#X connect 19 2 36 0; +#X connect 19 2 14 0; +#X connect 19 3 31 0; +#X connect 19 3 15 0; +#X connect 19 3 38 0; +#X connect 19 4 32 0; +#X connect 19 4 16 0; +#X connect 19 5 17 0; +#X connect 19 5 35 0; +#X connect 26 0 44 0; +#X connect 26 0 45 0; +#X connect 26 0 70 0; +#X connect 28 0 0 1; +#X connect 31 0 39 0; +#X connect 32 0 39 0; +#X connect 33 0 39 0; +#X connect 34 0 39 0; +#X connect 34 0 65 0; +#X connect 35 0 40 0; +#X connect 36 0 40 0; +#X connect 37 0 40 0; +#X connect 38 0 40 0; +#X connect 38 0 65 0; +#X connect 39 0 42 0; +#X connect 39 0 10 0; +#X connect 40 0 4 0; +#X connect 41 0 24 0; +#X connect 41 0 29 0; +#X connect 42 0 10 0; +#X connect 44 0 4 1; +#X connect 45 0 10 1; +#X connect 47 0 48 0; +#X connect 48 0 51 0; +#X connect 49 0 47 0; +#X connect 52 0 60 0; +#X connect 54 0 55 0; +#X connect 54 0 62 0; +#X connect 55 0 56 0; +#X connect 55 1 57 0; +#X connect 55 2 58 0; +#X connect 58 0 65 0; +#X connect 59 0 49 0; +#X connect 59 0 52 0; +#X connect 60 0 50 0; +#X connect 60 0 54 0; +#X connect 60 1 53 0; +#X connect 63 0 61 0; +#X connect 64 0 63 1; +#X connect 65 0 66 0; +#X connect 65 0 63 0; +#X connect 66 0 41 0; +#X connect 67 0 63 1; +#X connect 68 0 66 1; +#X connect 69 0 4 1; +#X connect 69 0 66 1; +#X connect 69 0 10 1; +#X connect 70 0 66 1; diff --git a/zhuy16_tremolo.pd b/zhuy16_tremolo.pd new file mode 100755 index 0000000..9e82a15 --- /dev/null +++ b/zhuy16_tremolo.pd @@ -0,0 +1,444 @@ +#N canvas 581 78 1067 912 12; +#X obj 268 266 mycounter; +#X obj 267 239 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 269 292 5 0 0 0 - - -; +#X floatatom 270 340 5 0 0 0 - - -; +#X obj 148 703 *~ 0.1; +#X msg 196 683 0; +#X floatatom 35 160 5 0 0 0 - - -; +#X obj 37 188 mtof; +#X floatatom 37 215 5 0 0 0 - - -; +#X text 24 131 middie C=60; +#X obj 404 704 *~ 0.1; +#X msg 451 680 0; +#X obj 198 331 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 198 345 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 198 359 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 443 334 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 443 348 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 443 362 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 270 315 % 6; +#X obj 270 363 select 0 1 2 3 4 5, f 19; +#X text 9 10 Julia florida~; +#X text 10 42 LEFT RIGHT; +#X text 15 93 F#3 -- B 3 | G3 -- B3 D3 B2 -- | E3 C#3 --; +#X obj 171 229 inlet; +#X obj 223 840 outlet~; +#X obj 290 840 outlet; +#X obj 313 628 loadbang; +#X obj 110 226 inlet~; +#X obj 328 235 r zhuy16_tempo; +#X obj 344 820 throw~ zhuy16_audio_1; +#X obj 867 815 osc~ 440; +#X msg 536 493 55; +#X msg 492 494 49; +#X msg 434 493 47; +#X msg 389 493 50; +#X msg 291 491 59; +#X msg 197 491 59; +#X msg 145 491 54; +#X msg 242 491 52; +#N canvas 769 51 1011 911 horrible-marimba 0; +#X obj 245 457 line~; +#X obj 230 484 *~; +#X obj 243 41 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 -1 +-1; +#X obj 228 396 osc~; +#X obj 396 255 noise~; +#X obj 484 293 line~; +#X obj 427 347 *~; +#X obj 132 320 line~; +#X obj 85 317 osc~; +#X msg 132 290 1 \, 0 100; +#X floatatom 230 133 3 0 0 0 - - -; +#X floatatom 262 132 3 0 0 0 - - -; +#X obj 85 350 *~; +#X obj 85 287 * 3; +#X obj 85 385 *~ 1; +#X obj 427 442 *~ 0.5; +#X obj 229 178 mtof; +#X msg 484 265 1 \, 0 44; +#X msg 245 428 1 \, 0 400; +#X obj 230 510 *~ 0.4; +#X obj 262 178 * 0.33; +#X obj 262 200 * 0.4; +#X obj 244 654 outlet~; +#X obj 325 25 inlet; +#X obj 427 384 lop~ 5000; +#X connect 0 0 1 1; +#X connect 1 0 19 0; +#X connect 2 0 18 0; +#X connect 2 0 9 0; +#X connect 2 0 17 0; +#X connect 2 0 11 0; +#X connect 2 0 10 0; +#X connect 3 0 1 0; +#X connect 5 0 6 1; +#X connect 6 0 24 0; +#X connect 7 0 12 1; +#X connect 8 0 12 0; +#X connect 9 0 7 0; +#X connect 10 0 16 0; +#X connect 11 0 20 0; +#X connect 12 0 14 0; +#X connect 13 0 8 0; +#X connect 14 0 22 0; +#X connect 15 0 22 0; +#X connect 16 0 3 0; +#X connect 16 0 13 0; +#X connect 17 0 5 0; +#X connect 18 0 0 0; +#X connect 19 0 22 0; +#X connect 20 0 21 0; +#X connect 21 0 19 1; +#X connect 21 0 15 1; +#X connect 21 0 14 1; +#X connect 23 0 10 0; +#X connect 23 0 11 0; +#X connect 23 0 2 0; +#X connect 24 0 15 0; +#X restore 456 615 pd horrible-marimba; +#N canvas 689 49 1011 911 horrible-marimba 0; +#X obj 245 457 line~; +#X obj 230 484 *~; +#X obj 243 41 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 -1 +-1; +#X obj 228 396 osc~; +#X obj 426 255 noise~; +#X obj 484 293 line~; +#X obj 427 347 *~; +#X obj 132 320 line~; +#X obj 85 317 osc~; +#X msg 132 290 1 \, 0 100; +#X floatatom 230 133 3 0 0 0 - - -; +#X floatatom 262 132 3 0 0 0 - - -; +#X obj 85 350 *~; +#X obj 85 287 * 3; +#X obj 85 385 *~ 1; +#X obj 427 442 *~ 0.5; +#X obj 229 178 mtof; +#X msg 484 265 1 \, 0 44; +#X msg 245 428 1 \, 0 400; +#X obj 230 510 *~ 0.4; +#X obj 262 178 * 0.33; +#X obj 262 200 * 0.4; +#X obj 227 653 outlet~; +#X obj 325 28 inlet; +#X obj 427 384 lop~ 5000; +#X connect 0 0 1 1; +#X connect 1 0 19 0; +#X connect 2 0 18 0; +#X connect 2 0 9 0; +#X connect 2 0 17 0; +#X connect 2 0 11 0; +#X connect 2 0 10 0; +#X connect 3 0 1 0; +#X connect 5 0 6 1; +#X connect 6 0 24 0; +#X connect 7 0 12 1; +#X connect 8 0 12 0; +#X connect 9 0 7 0; +#X connect 10 0 16 0; +#X connect 11 0 20 0; +#X connect 12 0 14 0; +#X connect 13 0 8 0; +#X connect 14 0 22 0; +#X connect 15 0 22 0; +#X connect 16 0 3 0; +#X connect 16 0 13 0; +#X connect 17 0 5 0; +#X connect 18 0 0 0; +#X connect 19 0 22 0; +#X connect 20 0 21 0; +#X connect 21 0 19 1; +#X connect 21 0 15 1; +#X connect 21 0 14 1; +#X connect 23 0 10 0; +#X connect 23 0 11 0; +#X connect 23 0 2 0; +#X connect 24 0 15 0; +#X restore 55 610 pd horrible-marimba; +#X obj 287 788 *~ 0.4; +#N canvas 871 117 791 817 reverb 0; +#X floatatom 200 229 0 0 120 0 - - -; +#N canvas 0 22 539 448 tests 0; +#X obj 67 33 inlet; +#X obj 309 189 inlet; +#X obj 235 207 line~; +#X obj 235 230 cos~; +#X obj 235 68 loadbang; +#X msg 235 91 -0.25; +#X obj 235 276 *~; +#X obj 186 309 hip~ 5; +#X floatatom 308 218 0 0 0 0 - - -; +#X obj 308 264 osc~ 440; +#X obj 308 241 mtof; +#X obj 235 253 *~ 0.1; +#X obj 308 299 *~; +#X obj 326 325 *~; +#X obj 292 330 *~; +#X msg 279 150 -0.25 \, 0.25 \$1; +#X obj 41 148 biquad~ 0 0 1 -1 0; +#X obj 63 70 t b; +#X obj 104 72 del 3; +#X obj 57 101 1; +#X obj 96 101 0; +#X obj 41 355 outlet~; +#X obj 279 126 inlet; +#X obj 51 192 *~; +#X connect 0 0 17 0; +#X connect 1 0 8 0; +#X connect 2 0 3 0; +#X connect 3 0 11 0; +#X connect 4 0 5 0; +#X connect 5 0 2 0; +#X connect 6 0 7 0; +#X connect 7 0 21 0; +#X connect 8 0 10 0; +#X connect 9 0 6 1; +#X connect 9 0 12 0; +#X connect 9 0 12 1; +#X connect 9 0 13 0; +#X connect 10 0 9 0; +#X connect 11 0 6 0; +#X connect 12 0 13 1; +#X connect 12 0 6 1; +#X connect 12 0 14 0; +#X connect 12 0 14 1; +#X connect 13 0 6 1; +#X connect 14 0 6 1; +#X connect 15 0 2 0; +#X connect 16 0 23 0; +#X connect 17 0 18 0; +#X connect 17 0 19 0; +#X connect 18 0 20 0; +#X connect 19 0 16 0; +#X connect 19 0 23 1; +#X connect 20 0 16 0; +#X connect 20 0 23 1; +#X connect 22 0 15 0; +#X connect 23 0 21 0; +#X restore 117 189 pd tests; +#X msg 156 70 10; +#X msg 154 97 20; +#X msg 153 125 100; +#X msg 152 150 500; +#X obj 117 50 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X text 137 44 impulse; +#X floatatom 197 162 0 0 0 0 - - -; +#X text 236 131 tone; +#X text 235 147 pitch; +#X text 241 230 level \, dB; +#X floatatom 235 252 0 0 100 0 - - -; +#X text 276 252 liveness \, 0-100; +#X floatatom 270 276 4 0 5000 0 - - -; +#X floatatom 305 299 0 0 100 0 - - -; +#X text 318 274 crossover frequency \, Hz.; +#X text 341 301 HF damping \, percent; +#X text 195 70 tone; +#X text 196 87 bursts; +#X text 232 165 (60 for; +#X text 215 185 middle C); +#X obj 119 343 rev3~ 100 90 3000 20; +#X text 364 22 REV3~ - hard-core \, 2-in \, 4-out reverberator; +#X text 337 74 The creation arguments (level \, liveness \, crossover +frequency \, HF damping) may also be supplied in four inlets as shown. +The "liveness" (actually the internal feedback percentage) should be +100 for infinite reverb \, 90 for longish \, and 80 for short. The +crossover frequency and HF damping work together: at frequencies above +crossover \, the feedback is diminished by the "damping" as a percentage. +So zero HF damping means equal reverb time at all frequencies \, and +100% damping means almost nothing above the crossover frequency gets +through.; +#X text 337 47 (A more expensive \, presumably better \, one than rev2~.) +; +#X obj 45 33 inlet~; +#X obj 39 162 adc~; +#X obj 113 430 outlet~; +#X connect 0 0 22 2; +#X connect 1 0 22 0; +#X connect 2 0 1 1; +#X connect 3 0 1 1; +#X connect 4 0 1 1; +#X connect 5 0 1 1; +#X connect 6 0 1 0; +#X connect 8 0 1 2; +#X connect 12 0 22 3; +#X connect 14 0 22 4; +#X connect 15 0 22 5; +#X connect 22 0 28 0; +#X connect 22 1 28 0; +#X connect 22 2 28 0; +#X connect 22 3 28 0; +#X connect 26 0 22 0; +#X restore 562 677 pd reverb; +#X obj 135 131 noise~; +#X msg 196 701 0.6; +#X msg 450 703 0.3; +#X obj 629 323 keycontrol zhuy16; +#X obj 627 427 list trim; +#X msg 627 448 zhuy16 key 0 Return 10; +#X obj 627 406 list prepend set; +#X obj 884 434 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 627 477 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 925 382 list trim; +#X obj 1002 453 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 925 428 route key; +#X obj 925 474 unpack f s f; +#X floatatom 925 511 5 0 0 0 - - -; +#X symbolatom 966 512 10 0 0 0 - - -; +#X floatatom 1007 556 5 0 0 0 - - -; +#X obj 627 358 receive zhuy16_control; +#X obj 925 405 route zhuy16 obamab; +#X obj 896 704 throw~ zhuy16_audio_1; +#X obj 812 516 print; +#X obj 897 597 *~ 1; +#X msg 947 592 0; +#N canvas 647 135 719 731 tremolo 1; +#X obj 94 55 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 5000 1; +#X floatatom 216 95 5 0 0 0 - - -; +#X obj 217 116 osc~; +#X obj 106 153 +~ 1; +#X obj 105 179 *~ 0.5; +#X text 87 38 Sine wave; +#X obj 35 186 gate~; +#X obj 20 22 inlet; +#X obj 100 337 outlet~; +#N canvas 0 23 1920 1030 fm-synthesis 0; +#X obj 84 53 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 5000 1; +#X text 78 36 Carrier Frequency; +#X obj 82 83 mtof~; +#X text 91 534 * NOTE here we're using "mtof~" not "mtof". The output +from this object is an audio signal not just a float.; +#X obj 83 357 osc~; +#X obj 82 303 +~; +#X obj 96 221 osc~; +#X text 136 118 Modulation frequency in Hz; +#X floatatom 97 118 5 0 0 0 - - -; +#X obj 97 277 *~; +#X floatatom 112 249 5 0 0 0 - - -; +#X text 151 250 Modulation amount in Hz; +#X text 425 30 The Synthesis of Complex Audio Spectra by Means of Frequency +Modulation; +#X text 423 73 JOHN M. CHOWNING (first published: J. M. Chowning. The +Synthesis of Complex Audio Spectra by Means of Frequency Modulation. +J. Audio Eng. Soc. 21 \, 7 \, 1973.); +#X text 422 143 https://ccrma.stanford.edu/sites/default/files/user/jc/fm_synthesispaper-2.pdf +; +#X obj 22 8 inlet; +#X obj 84 459 outlet~; +#X connect 0 0 2 0; +#X connect 2 0 5 0; +#X connect 4 0 16 0; +#X connect 5 0 4 0; +#X connect 6 0 9 0; +#X connect 8 0 6 0; +#X connect 9 0 5 1; +#X connect 10 0 9 1; +#X connect 15 0 0 0; +#X restore 43 114 pd fm-synthesis; +#X obj 305 206 dac~; +#X obj 91 214 *~; +#X connect 0 0 9 0; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X connect 3 0 4 0; +#X connect 4 0 11 1; +#X connect 7 0 0 0; +#X connect 9 0 11 0; +#X connect 9 0 3 0; +#X connect 11 0 8 0; +#X restore 295 576 pd tremolo; +#X obj 274 704 *~ 2; +#X msg 948 615 0.5; +#X msg 308 685 0; +#X obj 506 770 tgl 35 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X msg 308 703 2; +#X text 552 770 Coolest button kill all 3 channels; +#X connect 0 0 2 0; +#X connect 1 0 0 0; +#X connect 2 0 18 0; +#X connect 3 0 19 0; +#X connect 4 0 41 0; +#X connect 5 0 4 1; +#X connect 6 0 7 0; +#X connect 7 0 8 0; +#X connect 10 0 41 0; +#X connect 11 0 10 1; +#X connect 18 0 3 0; +#X connect 19 0 34 0; +#X connect 19 0 12 0; +#X connect 19 0 37 0; +#X connect 19 1 33 0; +#X connect 19 1 13 0; +#X connect 19 2 36 0; +#X connect 19 2 14 0; +#X connect 19 3 31 0; +#X connect 19 3 15 0; +#X connect 19 3 38 0; +#X connect 19 4 32 0; +#X connect 19 4 16 0; +#X connect 19 5 17 0; +#X connect 19 5 35 0; +#X connect 26 0 44 0; +#X connect 26 0 45 0; +#X connect 26 0 70 0; +#X connect 28 0 0 1; +#X connect 31 0 39 0; +#X connect 32 0 39 0; +#X connect 33 0 39 0; +#X connect 34 0 39 0; +#X connect 34 0 65 0; +#X connect 35 0 40 0; +#X connect 36 0 40 0; +#X connect 37 0 40 0; +#X connect 38 0 40 0; +#X connect 38 0 65 0; +#X connect 39 0 42 0; +#X connect 39 0 10 0; +#X connect 40 0 4 0; +#X connect 41 0 24 0; +#X connect 41 0 29 0; +#X connect 42 0 10 0; +#X connect 44 0 4 1; +#X connect 45 0 10 1; +#X connect 47 0 48 0; +#X connect 48 0 51 0; +#X connect 49 0 47 0; +#X connect 52 0 60 0; +#X connect 54 0 55 0; +#X connect 54 0 62 0; +#X connect 55 0 56 0; +#X connect 55 1 57 0; +#X connect 55 2 58 0; +#X connect 58 0 65 0; +#X connect 59 0 49 0; +#X connect 59 0 52 0; +#X connect 60 0 50 0; +#X connect 60 0 54 0; +#X connect 60 1 53 0; +#X connect 63 0 61 0; +#X connect 64 0 63 1; +#X connect 65 0 66 0; +#X connect 65 0 63 0; +#X connect 66 0 41 0; +#X connect 67 0 63 1; +#X connect 68 0 66 1; +#X connect 69 0 4 1; +#X connect 69 0 66 1; +#X connect 69 0 10 1; +#X connect 70 0 66 1;