-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy paththump-hiss.pd
111 lines (111 loc) · 3.08 KB
/
thump-hiss.pd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
#N canvas 0 46 1364 720 10;
#X obj 461 311 pil;
#X obj 539 348 print pd_out;
#X obj 624 125 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 617 163 metro 100;
#X obj 352 359 print pil_out;
#X msg 339 229 (setq ticks 0);
#X msg 896 145 (pd-post ticks);
#X msg 134 177 (de scheduler (ticks) (when (= (% ticks 4) 0) (pd-message
'bd)) (pd-message 'hh));
#X msg 8 140 (de bang () (setq ticks (% (+ ticks 1) 16)) (scheduler
ticks));
#X obj 430 429 route bd;
#X obj 590 416 route hh;
#X obj 475 500 print bd;
#X obj 644 489 print hh;
#X obj 627 530 hsl 128 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 2850 1;
#X obj 430 534 hsl 128 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 12700 1;
#X obj 785 525 delay 10;
#X msg 362 548 0;
#X msg 747 556 0;
#X obj 620 602 line~;
#X obj 445 608 line~;
#X obj 691 620 noise~;
#X obj 496 629 osc~ 100;
#X obj 452 691 *~;
#X obj 643 702 *~;
#X obj 802 620 vsl 15 128 0 1 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 0 1;
#X obj 592 774 +~;
#X obj 559 959 dac~;
#X obj 343 509 delay 50;
#X obj 235 462 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 8000 1;
#X obj 838 490 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 654 415 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 499 430 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 687 131 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X msg 744 282 (gc);
#X obj 774 223 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 756 253 metro 50;
#X text 831 230 switch this on to test for audible effects of garbage
collection (gc) on timing;
#X text 643 96 switch metronome on/off \, set metronome speed;
#X text 238 438 thump length;
#X text 837 469 hiss length;
#X text 495 450 thump manual trigger;
#X text 675 403 hiss manual trigger;
#X text 446 549 thump volume;
#X text 642 547 hiss volume;
#X text 823 676 volume;
#X text 29 91 bang these two messages to program the world's crappiest
algorithmic beat (driven by metronome on right);
#X obj 655 46 netreceive 6000;
#X obj 544 840 *~ 0.5;
#X obj 352 389 loadbang;
#X msg 373 416 1;
#X obj 899 387 loadbang;
#X msg 860 436 0.5;
#X connect 0 0 4 0;
#X connect 0 1 9 0;
#X connect 0 1 10 0;
#X connect 2 0 3 0;
#X connect 3 0 0 0;
#X connect 5 0 0 0;
#X connect 6 0 0 0;
#X connect 7 0 0 0;
#X connect 8 0 0 0;
#X connect 9 0 14 0;
#X connect 9 0 27 0;
#X connect 10 0 13 0;
#X connect 10 0 15 0;
#X connect 13 0 18 0;
#X connect 14 0 19 0;
#X connect 15 0 17 0;
#X connect 16 0 19 0;
#X connect 17 0 18 0;
#X connect 18 0 23 0;
#X connect 19 0 22 0;
#X connect 20 0 23 1;
#X connect 21 0 22 1;
#X connect 22 0 25 0;
#X connect 23 0 25 1;
#X connect 24 0 47 1;
#X connect 25 0 47 0;
#X connect 27 0 16 0;
#X connect 28 0 27 1;
#X connect 29 0 15 1;
#X connect 30 0 15 0;
#X connect 30 0 13 0;
#X connect 31 0 14 0;
#X connect 31 0 27 0;
#X connect 32 0 3 1;
#X connect 33 0 0 0;
#X connect 34 0 35 0;
#X connect 35 0 33 0;
#X connect 46 0 0 0;
#X connect 47 0 26 0;
#X connect 47 0 26 1;
#X connect 48 0 49 0;
#X connect 49 0 14 0;
#X connect 50 0 51 0;
#X connect 51 0 13 0;