#N struct staff float x float y;
#N canvas 0 19 828 643 10;
#X scalar staff 305 187 \;;
#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~;
#N canvas 0 27 1366 684 (subpatch) 0;
#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
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;
#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
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;
#X msg 374 -473 transform translate 15.0264 8.8453 scale 0.004 -0.004
\, fill black;
#X msg 1026 -110 transform translate 19.2264 7.8453 scale 0.004 -0.004
\, fill black;
#X msg 524 -67 transform translate 22.9264 10.8453 scale 0.004 -0.004
\, fill black;
#X msg 524 48 transform translate 25.9406 10.3453 scale 0.004 -0.004
\, fill black;
#X msg 524 162 transform translate 28.9548 9.8453 scale 0.004 -0.004
\, fill black;
#X msg 524 270 transform translate 31.969 9.3453 scale 0.004 -0.004
\, fill black;
#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;
#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;
#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;
#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;
#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;
#X obj 447 304 struct staff float x float y;
#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;
#X connect 19 0 20 0;
#X connect 20 0 18 0;
#X connect 25 0 26 0;
#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;