pre-assignment 2 cleanup

hamilr4 · Jun 19, 2020 · 41e39cf0002659886b8e6e8f0d4cf20262a5d2d9 · 41e39cf
1 parent 853bd60
commit 41e39cf0002659886b8e6e8f0d4cf20262a5d2d9
Show file tree

Hide file tree

Showing 10 changed files with 392 additions and 180 deletions.
diff --git a/bpmtoms.pd b/bpmtoms.pd
@@ -1,30 +1,33 @@
 #N canvas 250 30 722 344 12;
-#X floatatom 267 137 5 0 0 0 - - -;
-#X obj 267 169 expr 60000/$f1;
-#X floatatom 267 203 10 0 0 0 - - -;
-#X text 311 138 bpm;
-#X text 343 203 ms;
-#X obj 267 101 inlet;
-#X obj 267 236 outlet;
-#X text 114 31 Convert BPM to MS for Metro;
-#X floatatom 107 120 5 0 0 0 - - -;
-#X text 111 100 bpm;
-#X floatatom 161 121 10 0 0 0 - - -;
-#X text 184 101 ms;
-#X obj 350 102 inlet;
-#X floatatom 350 126 5 0 0 0 - - -;
-#X floatatom 407 203 10 0 0 0 - - -;
-#X text 483 203 bpm;
-#X obj 407 169 expr 60000/$f1;
-#X floatatom 407 280 5 0 0 0 - - -;
-#X obj 407 226 list prepend set;
-#X obj 407 250 list trim;
+#X floatatom 327 137 5 0 0 0 - - -;
+#X obj 327 169 expr 60000/$f1;
+#X floatatom 327 203 10 0 0 0 - - -;
+#X text 371 138 bpm;
+#X text 403 203 ms;
+#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 obj 410 102 inlet;
+#X floatatom 410 126 5 0 0 0 - - -;
+#X floatatom 467 203 10 0 0 0 - - -;
+#X text 543 203 bpm;
+#X obj 467 169 expr 60000/$f1;
+#X floatatom 467 280 5 0 0 0 - - -;
+#X obj 467 226 list prepend set;
+#X obj 467 250 list trim;
+#X obj 261 234 outlet;
 #X connect 0 0 1 0;
 #X connect 1 0 2 0;
 #X connect 2 0 6 0;
 #X connect 2 0 10 0;
 #X connect 5 0 8 0;
 #X connect 8 0 0 0;
+#X connect 8 0 20 0;
+#X connect 10 0 16 0;
 #X connect 12 0 10 0;
 #X connect 12 0 13 0;
 #X connect 13 0 16 0;
@@ -33,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 140 48 2 100 100;
+#X coords 0 -1 1 1 220 48 2 90 100;
diff --git a/channel.pd b/channel.pd
@@ -31,7 +31,7 @@
 1;
 #X obj 55 351 tgl 20 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
 1;
-#N canvas 892 187 864 792 mute_solo 1;
+#N canvas 892 187 864 792 mute_solo 0;
 #X obj 17 57 inlet~;
 #X obj 217 17 inlet;
 #X obj 287 17 inlet;
@@ -48,7 +48,7 @@
 #X msg 320 322 set \$1;
 #X floatatom 267 220 5 0 0 0 - - -;
 #X obj 267 194 -;
-#X obj 48 736 outlet~;
+#X obj 75 736 outlet~;
 #X floatatom 77 428 5 0 0 0 - - -;
 #X obj 267 249 expr if($f1 < 0 \, 1 \, 0);
 #X obj 336 352 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
@@ -59,28 +59,28 @@
 #X obj 267 273 select 1;
 #X obj 716 59 s solo_mode;
 #X obj 716 37 expr if($f1 == 1 \, 1 \, -1);
-#X obj 111 543 v global_solo_count;
+#X obj 138 543 v global_solo_count;
 #X text 111 474 Check to see if there are any solo'd channels;
-#X floatatom 111 615 5 0 0 0 - - -;
-#X floatatom 141 567 5 0 0 0 - - -;
-#X obj 111 493 r solo_mode;
-#X obj 111 518 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+#X floatatom 138 615 5 0 0 0 - - -;
+#X floatatom 168 567 5 0 0 0 - - -;
+#X obj 138 493 r solo_mode;
+#X obj 138 518 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
 -1 -1;
 #X text 714 83 Update global count for solo-mode (> 0 we're soloing)
 ;
-#X text 286 684 expr if( $f1 > 0 \, if($f2 > 0 \, 1 \, 0) \, 1);
-#X obj 111 591 expr if( $f1 > 0 \, if($f2 > 0 \, 1 \, 0) \, 1);
-#X obj 76 562 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
--1;
-#X obj 151 615 r init;
+#X text 313 684 expr if( $f1 > 0 \, if($f2 > 0 \, 1 \, 0) \, 1);
+#X obj 138 591 expr if( $f1 > 0 \, if($f2 > 0 \, 1 \, 0) \, 1);
+#X obj 103 562 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X obj 178 615 r init;
 #X obj 352 70 r init;
-#X obj 194 493 r init;
-#X obj 269 495 r solo_all;
-#X obj 269 544 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+#X obj 221 493 r init;
+#X obj 296 495 r solo_all;
+#X obj 296 544 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
 -1 -1;
-#X obj 269 519 pipe 10;
+#X obj 296 519 pipe 10;
 #X obj 17 456 switcher~;
-#X obj 48 672 switcher~;
+#X obj 75 672 switcher~;
 #X connect 0 0 41 0;
 #X connect 1 0 5 0;
 #X connect 1 0 24 0;
@@ -121,15 +121,15 @@
 #X connect 41 1 42 0;
 #X connect 42 0 16 0;
 #X restore 165 305 pd mute_solo;
-#X obj -61 354 r mute all;
-#X obj -61 332 r solo all;
-#X obj -61 376 r rec all;
 #X obj 32 312 panner;
 #X obj 73 461 outlet~;
 #X obj 451 21 inlet;
 #X text 450 0 solo;
 #X obj 494 21 inlet;
 #X text 493 0 mute;
+#X obj -61 333 r solo_all;
+#X obj -61 354 r mute_all;
+#X obj -61 376 r rec_all;
 #X connect 2 0 11 0;
 #X connect 3 0 10 0;
 #X connect 3 0 25 0;
@@ -149,12 +149,12 @@
 #X connect 16 0 1 0;
 #X connect 23 0 25 2;
 #X connect 24 0 25 1;
-#X connect 25 0 29 0;
-#X connect 26 0 23 0;
-#X connect 27 0 24 0;
-#X connect 28 0 19 0;
-#X connect 29 0 8 0;
-#X connect 29 1 30 0;
-#X connect 31 0 24 0;
+#X connect 25 0 26 0;
+#X connect 26 0 8 0;
+#X connect 26 1 27 0;
+#X connect 28 0 24 0;
+#X connect 30 0 23 0;
+#X connect 32 0 24 0;
 #X connect 33 0 23 0;
+#X connect 34 0 19 0;
 #X coords 0 -1 1 1 88 392 1 25 32;
diff --git a/channel_hamilr4.pd b/channel_hamilr4.pd
@@ -0,0 +1,154 @@
+#N canvas 267 203 796 552 12;
+#X obj 25 33 cnv 15 88 392 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 68 56 vu 15 200 masheen_meter_text empty -1 -8 0 10 -66577 -1
+1 0;
+#X obj 28 56 vsl 20 200 1 101 1 0 empty empty empty 0 -9 0 10 -262144
+-1 -1 0 1;
+#X obj 321 133 *~;
+#X obj 339 96 line~;
+#X msg 339 72 \$1 20;
+#X floatatom 339 50 5 0 0 0 - - -;
+#X obj 55 1 inlet~;
+#X obj 17 461 outlet~;
+#X floatatom 321 221 5 0 0 0 - - -;
+#X obj 321 194 env~ 16384 8192;
+#X obj 339 1 - 1;
+#X obj 339 26 / 100;
+#X floatatom 201 221 5 0 0 0 - - -;
+#X obj 201 194 env~ 16384 8192;
+#X obj 201 249 - 103;
+#X obj 321 249 - 103;
+#X obj 50 56 vu 15 200 masheen_meter_text empty -1 -8 0 10 -66577 -1
+0 0;
+#X floatatom 48 287 5 0 0 0 - - -;
+#X obj 55 435 tgl 20 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#X text 77 352 S;
+#X text 77 374 M;
+#X text 77 436 R;
+#X obj 55 373 tgl 20 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#X obj 55 351 tgl 20 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#N canvas 892 187 864 792 mute_solo 0;
+#X obj 17 57 inlet~;
+#X obj 217 17 inlet;
+#X obj 287 17 inlet;
+#X text 217 -5 solo;
+#X text 287 -5 mute;
+#X floatatom 217 111 5 0 0 0 - - -;
+#X floatatom 287 111 5 0 0 0 - - -;
+#X obj 320 378 outlet;
+#X text 389 322 set mute button;
+#X text 403 94 If solo is pressed \, override mute;
+#X msg 354 350 0;
+#X msg 352 93 0;
+#X obj 286 158 t b f;
+#X msg 320 322 set \$1;
+#X floatatom 267 220 5 0 0 0 - - -;
+#X obj 267 194 -;
+#X obj 48 736 outlet~;
+#X floatatom 77 428 5 0 0 0 - - -;
+#X obj 267 249 expr if($f1 < 0 \, 1 \, 0);
+#X obj 336 352 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X floatatom 341 295 5 0 0 0 - - -;
+#X obj 269 317 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X obj 267 273 select 1;
+#X obj 716 37 expr if($f1 == 1 \, 1 \, -1);
+#X text 111 443 Check to see if there are any solo'd channels;
+#X floatatom 111 635 5 0 0 0 - - -;
+#X floatatom 141 587 5 0 0 0 - - -;
+#X obj 111 518 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X text 714 83 Update global count for solo-mode (> 0 we're soloing)
+;
+#X text 286 684 expr if( $f1 > 0 \, if($f2 > 0 \, 1 \, 0) \, 1);
+#X obj 111 611 expr if( $f1 > 0 \, if($f2 > 0 \, 1 \, 0) \, 1);
+#X obj 76 582 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 269 544 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X obj 269 519 pipe 10;
+#X obj 17 456 switcher~;
+#X obj 48 672 switcher~;
+#X obj 111 462 r solo_mode_hamilr4;
+#X obj 194 493 r init_hamilr4;
+#X obj 269 464 r solo_all_hamilr4;
+#X obj 716 59 s solo_mode_hamilr4;
+#X obj 151 635 r init_hamilr4;
+#X obj 352 70 r init_hamilr4;
+#X obj 111 563 v global_solo_count_hamilr4;
+#X connect 0 0 34 0;
+#X connect 1 0 5 0;
+#X connect 1 0 23 0;
+#X connect 2 0 6 0;
+#X connect 5 0 15 0;
+#X connect 5 0 30 1;
+#X connect 6 0 12 0;
+#X connect 11 0 6 0;
+#X connect 11 0 5 0;
+#X connect 12 0 5 0;
+#X connect 12 1 15 1;
+#X connect 13 0 7 0;
+#X connect 13 0 19 0;
+#X connect 13 0 10 0;
+#X connect 14 0 18 0;
+#X connect 15 0 14 0;
+#X connect 17 0 34 1;
+#X connect 18 0 17 0;
+#X connect 18 0 22 0;
+#X connect 22 0 21 0;
+#X connect 22 1 13 0;
+#X connect 22 1 20 0;
+#X connect 23 0 39 0;
+#X connect 25 0 35 1;
+#X connect 27 0 42 0;
+#X connect 30 0 25 0;
+#X connect 31 0 5 0;
+#X connect 32 0 42 0;
+#X connect 33 0 32 0;
+#X connect 34 1 35 0;
+#X connect 35 0 16 0;
+#X connect 36 0 27 0;
+#X connect 37 0 27 0;
+#X connect 38 0 33 0;
+#X connect 40 0 25 0;
+#X connect 41 0 11 0;
+#X connect 42 0 26 0;
+#X connect 42 0 30 0;
+#X connect 42 0 31 0;
+#X restore 165 305 pd mute_solo;
+#X obj 32 312 panner;
+#X obj 73 461 outlet~;
+#X obj 451 21 inlet;
+#X text 450 0 solo;
+#X obj 494 21 inlet;
+#X text 493 0 mute;
+#X connect 2 0 11 0;
+#X connect 3 0 10 0;
+#X connect 3 0 25 0;
+#X connect 4 0 3 1;
+#X connect 5 0 4 0;
+#X connect 6 0 5 0;
+#X connect 6 0 18 0;
+#X connect 7 0 3 0;
+#X connect 7 0 14 0;
+#X connect 9 0 16 0;
+#X connect 10 0 9 0;
+#X connect 11 0 12 0;
+#X connect 12 0 6 0;
+#X connect 13 0 15 0;
+#X connect 14 0 13 0;
+#X connect 15 0 17 0;
+#X connect 16 0 1 0;
+#X connect 23 0 25 2;
+#X connect 24 0 25 1;
+#X connect 25 0 26 0;
+#X connect 26 0 8 0;
+#X connect 26 1 27 0;
+#X connect 28 0 24 0;
+#X connect 30 0 23 0;
+#X coords 0 -1 1 1 88 392 2 25 32;
diff --git a/dsp_onoff.pd b/dsp_onoff.pd
@@ -0,0 +1,10 @@
+#N canvas 0 23 450 300 12;
+#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
+1;
+#X text 131 117 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;