notes.pd 7.66 KB
Newer Older
1
#N struct staff float x float y;
Ivica Bukvic's avatar
Ivica Bukvic committed
2
3
#N canvas 0 19 828 643 10;
#X scalar staff 305 187 \;;
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
#X msg 194 372 0;
#X msg 234 372 2;
#X obj 194 413 + 69;
#X obj 360 322 keyup;
#X obj 195 491 osc~ 0;
#X obj 195 562 *~;
#X msg 243 486 1;
#X msg 325 486 0;
#X msg 243 507 \$1 100;
#X obj 243 528 line~;
#X obj 194 435 mtof;
#X obj 193 338 route 99 100 101 102;
#X obj 194 456 t a b;
#X obj 191 317 key;
#X msg 274 372 4;
#X msg 314 372 5;
#X text 336 594 Engraved by Lilypond :);
#X floatatom 447 379 5 0 0 1 Zoom(%) - -, f 5;
#X obj 447 330 loadbang;
#X msg 447 351 100;
#X text 187 52 Click a note name on the computer keyboard (in lower
case) to play one of the four notes shown:;
#X text 187 242 The notation software Lilypond can output svg files.
Pd can't automatically import such a file at the moment. Here I ported
the path instructions by hand.;
#X obj 195 583 output~;
Ivica Bukvic's avatar
Ivica Bukvic committed
30
#N canvas 0 27 1366 684 (subpatch) 0;
31
32
33
34
35
36
37
38
39
40
#X obj 374 -494 loadbang;
#X obj 1026 -132 loadbang;
#X obj 524 -29 draw path M 220 138 c 56 0 109 -29 109 -91 c 0 -72 -56
-121 -103 -149 c -36 -21 -76 -36 -117 -36 c -56 0 -109 29 -109 91 c
0 72 56 121 103 149 c 36 21 76 36 117 36 z;
#X obj 524 -88 loadbang;
#X obj 524 27 loadbang;
#X obj 524 141 loadbang;
#X obj 524 249 loadbang;
#X obj 1026 -76 draw path M 359 27 c -49 0 -75 42 -75 75 c 0 38 27
41
42
43
44
45
46
77 72 77 c 4 0 9 0 14 -1 c -28 37 -72 59 -120 59 c -106 0 -113 -73
-113 -186 v -51 v -51 c 0 -113 7 -187 113 -187 c 80 0 139 70 158 151
c 2 7 7 10 12 10 c 6 0 13 -4 13 -12 c 0 -94 -105 -174 -183 -174 c -68
0 -137 21 -184 70 c -49 51 -66 122 -66 193 s 17 142 66 193 c 47 49
116 69 184 69 c 87 0 160 -64 175 -150 c 1 -5 1 -9 1 -13 c 0 -40 -30
-72 -67 -72 z;
47
48
#X obj 374 -437 draw path M 335 -262 c -188 0 -333 172 -333 374 c 0
181 132 314 251 452 c -22 70 -40 142 -49 215 c -6 55 -8 109 -8 165
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
c 0 119 55 230 150 302 c 3 2 7 4 10 4 c 4 0 7 -1 10 -4 c 77 -89 145
-263 145 -384 c 0 -149 -90 -265 -188 -379 c 23 -73 44 -147 63 -221
c 1 0 2 1 3 1 c 155 0 256 -128 256 -261 c 0 -76 -33 -154 -107 -210
c -25 -19 -53 -31 -83 -39 v -32 c 0 -48 -1 -97 -4 -145 c -7 -122 -95
-228 -216 -228 c -112 0 -202 92 -202 205 c 0 58 53 104 112 104 c 54
0 95 -48 95 -104 c 0 -52 -43 -95 -95 -95 c -12 0 -23 3 -34 8 c 26 -45
73 -75 127 -75 c 98 0 165 91 171 191 c 3 46 4 93 4 139 v 23 c -26 -4
-51 -6 -78 -6 z M 454 -205 c 72 23 121 95 121 167 c 0 88 -63 176 -164
191 c 23 -109 39 -236 43 -358 z M 338 -219 c 25 0 50 1 74 4 c -4 126
-21 258 -45 370 c -86 -5 -135 -61 -135 -122 c 0 -44 26 -92 82 -124
c 5 -5 7 -10 7 -15 c 0 -11 -10 -22 -22 -22 c -3 0 -6 1 -9 2 c -80 43
-117 115 -117 185 c 0 91 62 179 170 199 c -16 63 -34 125 -53 187 c
-109 -125 -218 -250 -218 -415 c 0 -136 130 -249 266 -249 z M 406 1103
c -100 -53 -163 -157 -163 -270 c 0 -87 22 -158 43 -230 c 84 102 155
209 155 341 c 0 70 -7 98 -35 159 z;
64
#X msg 374 -473 transform translate 15.0264 8.8453 scale 0.004 -0.004
65
\, fill black;
66
#X msg 1026 -110 transform translate 19.2264 7.8453 scale 0.004 -0.004
67
\, fill black;
68
#X msg 524 -67 transform translate 22.9264 10.8453 scale 0.004 -0.004
69
\, fill black;
70
#X msg 524 48 transform translate 25.9406 10.3453 scale 0.004 -0.004
71
\, fill black;
72
#X msg 524 162 transform translate 28.9548 9.8453 scale 0.004 -0.004
73
\, fill black;
74
#X msg 524 270 transform translate 31.969 9.3453 scale 0.004 -0.004
75
\, fill black;
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
#X obj 755 -462 draw line 0.05 -0 21.1469 -0;
#X obj 755 -517 loadbang;
#X obj 755 -437 loadbang;
#X obj 755 -382 draw line 0.05 -0 21.1469 -0;
#X obj 755 -357 loadbang;
#X obj 753 -302 draw line 0.05 -0 21.1469 -0;
#X obj 755 -277 loadbang;
#X obj 753 -222 draw line 0.05 -0 21.1469 -0;
#X obj 755 -197 loadbang;
#X obj 753 -142 draw line 0.05 -0 21.1469 -0;
#X text 303 -342 clef ->;
#X text 903 -41 time signature ->;
#X text 432 -15 middle c ->;
#X text 442 93 d ->;
#X text 439 210 e ->;
#X text 438 323 f ->;
#X obj 247 -180 loadbang;
#X obj 247 -122 draw rect 16.9068 -0.1 1.9743 0.2;
#X msg 247 -158 transform translate 5.6906 10.8453 \, stroke-width
0.1 \, fill black;
#X text 139 -148 ledger-line ->;
#X obj 176 -83 key;
#X obj 176 -49 route 99 100 101 102;
#X msg 176 -18 99;
#X msg 206 -18 100;
#X msg 236 -18 101;
#X msg 266 -18 102;
#X obj 176 58 t a b;
#X obj 466 -82 r c;
#X msg 466 -61 fill \$1;
#X obj 466 28 r d;
#X msg 466 49 fill \$1;
#X obj 464 144 r e;
#X msg 464 165 fill \$1;
#X obj 467 259 r f;
#X msg 467 280 fill \$1;
#X msg 203 85 \; c - black \; d - black \; e - black \; f - black;
#X msg 176 168 \; \$1 - red;
#X obj 301 37 route 99 100 101 102;
#X obj 301 16 keyup;
#X obj 217 -221 r cl;
#X msg 217 -200 fill \$1 \, stroke \$1;
#X obj 524 198 draw path M 220 138 c 56 0 109 -29 109 -91 c 0 -72 -56
-121 -103 -149 c -36 -21 -76 -36 -117 -36 c -56 0 -109 29 -109 91 c
0 72 56 121 103 149 c 36 21 76 36 117 36 z;
#X obj 524 307 draw path M 220 138 c 56 0 109 -29 109 -91 c 0 -72 -56
-121 -103 -149 c -36 -21 -76 -36 -117 -36 c -56 0 -109 29 -109 91 c
0 72 56 121 103 149 c 36 21 76 36 117 36 z;
#X obj 524 81 draw path M 220 138 c 56 0 109 -29 109 -91 c 0 -72 -56
-121 -103 -149 c -36 -21 -76 -36 -117 -36 c -56 0 -109 29 -109 91 c
0 72 56 121 103 149 c 36 21 76 36 117 36 z;
#X obj 408 -61 s cl;
#X obj 176 37 makefilename %c;
Ivica Bukvic's avatar
Ivica Bukvic committed
129
130
131
132
133
134
135
136
137
138
#X msg 755 -496 transform translate 14.2264 9.8453 \, stroke-linejoin
1 \, stroke-linecap 1 \, stroke-width 0.1 \, stroke black;
#X msg 755 -418 transform translate 14.2264 8.8453 \, stroke-linejoin
1 \, stroke-linecap 1 \, stroke-width 0.1 \, stroke black;
#X msg 753 -338 transform translate 14.2264 7.8453 \, stroke-linejoin
1 \, stroke-linecap 1 \, stroke-width 0.1 \, stroke black;
#X msg 753 -257 transform translate 14.2264 6.8453 \, stroke-linejoin
1 \, stroke-linecap 1 \, stroke-width 0.1 \, stroke black;
#X msg 753 -177 transform translate 14.2264 5.8453 \, stroke-linejoin
1 \, stroke-linecap 1 \, stroke-width 0.1 \, stroke black;
139
140
141
142
143
144
145
146
147
#X connect 0 0 9 0;
#X connect 1 0 10 0;
#X connect 3 0 11 0;
#X connect 4 0 12 0;
#X connect 5 0 13 0;
#X connect 6 0 14 0;
#X connect 9 0 8 0;
#X connect 10 0 7 0;
#X connect 11 0 2 0;
Ivica Bukvic's avatar
Ivica Bukvic committed
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
#X connect 12 0 58 0;
#X connect 13 0 56 0;
#X connect 14 0 57 0;
#X connect 16 0 61 0;
#X connect 17 0 62 0;
#X connect 19 0 63 0;
#X connect 21 0 64 0;
#X connect 23 0 65 0;
#X connect 31 0 33 0;
#X connect 33 0 32 0;
#X connect 35 0 36 0;
#X connect 36 0 37 0;
#X connect 36 1 38 0;
#X connect 36 2 39 0;
#X connect 36 3 40 0;
#X connect 37 0 60 0;
#X connect 38 0 60 0;
#X connect 39 0 60 0;
#X connect 40 0 60 0;
#X connect 41 0 51 0;
#X connect 41 1 50 0;
#X connect 42 0 43 0;
#X connect 42 0 59 0;
#X connect 43 0 2 0;
#X connect 44 0 45 0;
#X connect 45 0 58 0;
#X connect 46 0 47 0;
#X connect 47 0 56 0;
#X connect 48 0 49 0;
#X connect 49 0 57 0;
#X connect 52 0 50 0;
#X connect 52 1 50 0;
#X connect 52 2 50 0;
#X connect 52 3 50 0;
#X connect 53 0 52 0;
#X connect 54 0 55 0;
#X connect 55 0 32 0;
#X connect 60 0 41 0;
#X connect 61 0 15 0;
#X connect 62 0 18 0;
#X connect 63 0 20 0;
#X connect 64 0 22 0;
#X connect 65 0 24 0;
191
192
193
194
195
196
197
198
#X restore 447 519 group;
#X obj 447 408 * 0.01;
#X obj 447 432 * 11;
#X obj 447 473 pack;
#X floatatom 495 409 5 0 0 1 Rotate - -, f 5;
#X obj 495 430 t b a;
#X msg 447 495 transform scale \$1 translate -20 -10 rotate \$2 25
10;
Ivica Bukvic's avatar
Ivica Bukvic committed
199
#X obj 447 304 struct staff float x float y;
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
#X connect 1 0 3 0;
#X connect 2 0 3 0;
#X connect 3 0 11 0;
#X connect 4 0 8 0;
#X connect 5 0 6 0;
#X connect 6 0 23 0;
#X connect 7 0 9 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 6 1;
#X connect 11 0 13 0;
#X connect 12 0 1 0;
#X connect 12 1 2 0;
#X connect 12 2 15 0;
#X connect 12 3 16 0;
#X connect 13 0 5 0;
#X connect 13 1 7 0;
#X connect 14 0 12 0;
#X connect 15 0 3 0;
#X connect 16 0 3 0;
#X connect 18 0 25 0;
221
222
223
#X connect 19 0 20 0;
#X connect 20 0 18 0;
#X connect 25 0 26 0;
Ivica Bukvic's avatar
Ivica Bukvic committed
224
225
226
227
228
229
#X connect 26 0 27 0;
#X connect 27 0 30 0;
#X connect 28 0 29 0;
#X connect 29 0 27 0;
#X connect 29 1 27 1;
#X connect 30 0 24 0;