-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathks~.pd
106 lines (106 loc) · 2.77 KB
/
ks~.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
#N canvas 0 124 749 567 12;
#X obj 44 15 inlet;
#X obj 252 459 outlet~;
#X obj 44 146 noise~;
#X obj 44 220 *~;
#N canvas 728 229 450 300 env 0;
#X obj 103 165 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 128 73 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 128 93 t b b, f 12;
#X msg 128 141 0;
#X msg 209 141 1;
#X obj 127 34 inlet;
#X obj 103 185 outlet;
#X obj 128 117 del 30;
#X obj 183 34 inlet;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 2 0 7 0;
#X connect 2 1 4 0;
#X connect 3 0 0 0;
#X connect 4 0 0 0;
#X connect 5 0 1 0;
#X connect 7 0 3 0;
#X connect 8 0 7 1;
#X restore 100 146 pd env;
#X obj 100 129 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X floatatom 252 250 5 0 0 0 - - -;
#X text 290 250 delay time;
#X obj 252 411 *~ 0.99;
#X text 307 410 NEVER SET THIS >= 1!!!!;
#X obj 252 435 lop~ 5000;
#X obj 211 219 /;
#X msg 189 192 1000;
#X obj 189 160 t b f, f 6;
#X text 227 119 frequency;
#X obj 433 27 inlet;
#X obj 433 75 clip 0 1;
#X text 321 434 for a less bright \, more natural sound;
#X obj 210 19 inlet;
#X floatatom 189 119 5 0 0 0 - - -;
#X text 238 230 that. to convert back to freq \, 1000 / 2.27 == 440
;
#X text 236 215 from the delay line every 1000 / 440 == 2.27ms to simulate
;
#X text 236 182 e.g. \, A 440 is 440 cycles per second \, or 440 /
1000ms.;
#X text 235 164 freq is hertz == cycles per second \, or cycles / 1000ms.
;
#X text 234 149 translate freq to corresponding delay time.;
#X text 238 199 so we'd want to read;
#X obj 45 458 delwrite~ \$0-kss-del 500;
#X obj 252 327 vd~ \$0-kss-del;
#X obj 252 375 +~;
#X obj 252 273 t f f;
#X obj 416 272 + 2.26757e-05;
#X obj 416 325 vd~ \$0-kss-del;
#X obj 416 349 *~ 0.5;
#X obj 252 351 *~ 0.5;
#X text 413 252 v 1 / 44100 == length of one sample in ms;
#X text 304 366 avg the sample with the next sample for a more natural
body;
#X obj 252 297 sig~;
#X obj 416 296 sig~;
#X text 251 18 \$1 sustain;
#X text 476 26 \$2 decay % \, between 0 and 1;
#X obj 366 14 loadbang;
#X obj 44 39 t b f;
#X text 86 15 frequency;
#X obj 210 43 deff \$1 5;
#X obj 433 51 deff \$2 0.975;
#X connect 0 0 41 0;
#X connect 2 0 3 0;
#X connect 3 0 26 0;
#X connect 4 0 3 1;
#X connect 5 0 4 0;
#X connect 6 0 29 0;
#X connect 8 0 10 0;
#X connect 10 0 1 0;
#X connect 10 0 26 0;
#X connect 11 0 6 0;
#X connect 12 0 11 0;
#X connect 13 0 12 0;
#X connect 13 1 11 1;
#X connect 15 0 44 0;
#X connect 16 0 8 1;
#X connect 18 0 43 0;
#X connect 19 0 13 0;
#X connect 27 0 33 0;
#X connect 28 0 8 0;
#X connect 29 0 36 0;
#X connect 29 1 30 0;
#X connect 30 0 37 0;
#X connect 31 0 32 0;
#X connect 32 0 28 1;
#X connect 33 0 28 0;
#X connect 36 0 27 0;
#X connect 37 0 31 0;
#X connect 40 0 43 0;
#X connect 40 0 44 0;
#X connect 41 0 5 0;
#X connect 41 1 19 0;
#X connect 43 0 4 1;
#X connect 44 0 16 0;