Pure-Data_Procedural-Music/Tutorial8_Pluck_pitch_env.pd at master · XavierXee/Pure-Data_Procedural-Music · GitHub

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
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
#N canvas 193 162 900 589 10;
#X obj 100 391 dac~;
#X obj 90 56 r notes;
#X obj 359 322 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 360 386 s notes;
#X floatatom 360 363 5 0 0 0 - - -;
#N canvas 0 23 514 326 random_notes 0;
#X obj 37 37 inlet;
#X obj 42 274 outlet;
#X obj 179 150 table pitches;
#X obj 37 188 tabread pitches;
#X floatatom 37 212 5 0 0 0 - - -;
#X floatatom 37 159 5 0 0 0 - - -;
#X obj 185 80 loadbang;
#X obj 37 232 - 12;
#X obj 110 96 sel 0 1;
#X obj 110 75 random 6;
#X obj 37 79 random 12;
#X obj 36 120 + 1;
#X msg 182 104 \; pitches 0 60 67 62 58 63 70 72 65 48 55 53 56 84
;
#X obj 147 178 * 1;
#X obj 107 23 inlet;
#X msg 107 126 500;
#X msg 131 147 250;
#X obj 37 58 metro 500;
#X connect 0 0 17 0;
#X connect 3 0 4 0;
#X connect 4 0 7 0;
#X connect 5 0 3 0;
#X connect 6 0 12 0;
#X connect 7 0 1 0;
#X connect 8 0 15 0;
#X connect 8 1 16 0;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 11 0 5 0;
#X connect 13 0 17 1;
#X connect 14 0 13 1;
#X connect 15 0 13 0;
#X connect 16 0 13 0;
#X connect 17 0 9 0;
#X connect 17 0 10 0;
#X restore 360 342 pd random_notes;
#X floatatom 446 315 5 0 0 0 - - -;
#N canvas 498 265 777 497 karplusStrongSynth 0;
#X obj 37 37 inlet;
#X obj 107 170 noise~;
#X obj 117 256 *~;
#X obj 227 170 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#N canvas 603 310 450 300 env 0;
#X obj 37 37 inlet;
#X obj 47 191 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 41 67 t b b, f 9;
#X obj 41 104 del 30;
#X msg 41 141 0;
#X msg 146 140 1;
#X obj 47 211 outlet;
#X connect 0 0 2 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 2 1 5 0;
#X connect 3 0 4 0;
#X connect 4 0 1 0;
#X connect 5 0 1 0;
#X restore 227 205 pd env;
#X obj 117 395 delwrite~ del 500;
#X obj 395 285 delread4~ del;
#X text 652 287 NEVER > 1!!!!!!;
#X floatatom 392 84 5 0 0 0 - - -;
#X text 388 64 MIDI NOTE;
#X obj 43 80 t b f;
#X floatatom 655 259 5 0 1 0 - - -;
#X text 727 261 decay;
#X obj 395 380 outlet~;
#X obj 656 222 inlet;
#X obj 464 125 inlet;
#X obj 464 146 pack f 50;
#X obj 464 167 line~;
#X text 508 276;
#X obj 393 105 sig~;
#X obj 392 203 mtof~;
#X obj 393 181 +~;
#X obj 392 231 expr~ 1000 / $v1;
#X text 501 123 PITCH BEND;
#X obj 395 322 *~ 0.999;
#X obj 395 359 lop~ 3000;
#X connect 0 0 10 0;
#X connect 1 0 2 0;
#X connect 2 0 5 0;
#X connect 3 0 4 0;
#X connect 4 0 2 1;
#X connect 6 0 24 0;
#X connect 8 0 19 0;
#X connect 10 0 3 0;
#X connect 10 1 8 0;
#X connect 11 0 24 1;
#X connect 14 0 11 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 17 0 21 1;
#X connect 19 0 21 0;
#X connect 20 0 22 0;
#X connect 21 0 20 0;
#X connect 22 0 6 0;
#X connect 24 0 25 0;
#X connect 25 0 5 0;
#X connect 25 0 13 0;
#X restore 98 325 pd karplusStrongSynth;
#X floatatom 220 304 5 0 1 0 - - -;
#X text 256 305 decay;
#X obj 100 370 *~ 0.5;
#X floatatom 156 270 5 0 1 0 - - -;
#X text 192 271 pitch bend (in semitones);
#X obj 279 85 vsl 15 128 -5 5 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 6900 1;
#X obj 90 158 t f b;
#N canvas 408 254 450 300 examplePitchEnv 0;
#X obj 65 37 inlet;
#X obj 69 67 t b b, f 9;
#X obj 68 217 outlet;
#X obj 69 162 line 0;
#X obj 171 107 del 100;
#X msg 174 140 2 110;
#X obj 69 104 del 220;
#X msg 69 141 0 250;
#X connect 0 0 1 0;
#X connect 1 0 6 0;
#X connect 1 1 4 0;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 5 0 3 0;
#X connect 6 0 7 0;
#X connect 7 0 3 0;
#X restore 132 200 pd examplePitchEnv;
#X floatatom 92 125 5 0 0 0 - - -;
#X msg 360 47 36;
#X obj 360 68 s notes;
#X msg 397 45 46;
#X msg 435 42 60;
#X connect 1 0 16 0;
#X connect 2 0 5 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 6 0 5 1;
#X connect 7 0 10 0;
#X connect 8 0 7 2;
#X connect 10 0 0 0;
#X connect 10 0 0 1;
#X connect 11 0 7 1;
#X connect 13 0 11 0;
#X connect 14 0 7 0;
#X connect 14 1 15 0;
#X connect 15 0 11 0;
#X connect 16 0 14 0;
#X connect 17 0 18 0;
#X connect 19 0 18 0;
#X connect 20 0 18 0;