126 lines
3.0 KiB
Plaintext
126 lines
3.0 KiB
Plaintext
#N canvas 313 218 1296 948 12;
|
|
#X obj 547 228 grid;
|
|
#X obj 209 279 pack f f f;
|
|
#X msg 209 304 set \$1 \$2 \$3;
|
|
#X obj 241 368 s grid;
|
|
#X obj 547 170 r grid;
|
|
#X obj 209 242 r x;
|
|
#X obj 242 242 r y;
|
|
#X obj 276 241 r s;
|
|
#X obj 520 279 s x;
|
|
#X obj 559 280 s y;
|
|
#X obj 220 492 r s;
|
|
#X obj 587 280 s s;
|
|
#X text 464 469 when a key is pressed \, get the column \, subtract
|
|
7 and abs (so that the columns run bottom-top) \, multiply by 5 (to
|
|
create stacked 4ths) and add 40 (for a root note of E like a bass).
|
|
Then add the x position to that as a semitone.;
|
|
#X obj 364 222 until;
|
|
#X obj 364 279 f;
|
|
#X obj 364 304 + 1;
|
|
#X obj 388 330 div 16;
|
|
#X obj 364 199 t f b;
|
|
#X msg 500 171 all 0;
|
|
#X msg 408 222 -1;
|
|
#X obj 330 331 mod 16;
|
|
#X obj 380 495 mod 12;
|
|
#X obj 380 520 == 0;
|
|
#X obj 341 554 spigot;
|
|
#X obj 341 607 s grid;
|
|
#X obj 209 399 s draw-scale;
|
|
#X obj 364 128 r draw-scale;
|
|
#X msg 341 582 lset \$1 \$2 2;
|
|
#X obj 209 338 t b a;
|
|
#X msg 364 175 127;
|
|
#N canvas 135 140 631 431 get-note 0;
|
|
#X text 51 26 for an x and y value \, gets the note at that position
|
|
;
|
|
#X obj 113 94 inlet y;
|
|
#X obj 113 228 + 40;
|
|
#X obj 95 258 +;
|
|
#X obj 113 195 * 5;
|
|
#X obj 113 169 abs;
|
|
#X obj 95 283 outlet;
|
|
#X obj 95 70 inlet x;
|
|
#X obj 113 169;
|
|
#X obj 113 169;
|
|
#X obj 113 140 - 7;
|
|
#X connect 1 0 10 0;
|
|
#X connect 2 0 3 1;
|
|
#X connect 3 0 6 0;
|
|
#X connect 4 0 2 0;
|
|
#X connect 5 0 4 0;
|
|
#X connect 7 0 3 0;
|
|
#X connect 10 0 5 0;
|
|
#X restore 210 469 pd get-note;
|
|
#X obj 210 429 r x;
|
|
#X obj 284 429 r y;
|
|
#N canvas 132 141 631 431 get-note 0;
|
|
#X text 51 26 for an x and y value \, gets the note at that position
|
|
;
|
|
#X obj 113 94 inlet y;
|
|
#X obj 113 228 + 40;
|
|
#X obj 95 258 +;
|
|
#X obj 113 195 * 5;
|
|
#X obj 113 169 abs;
|
|
#X obj 95 283 outlet;
|
|
#X obj 95 70 inlet x;
|
|
#X obj 113 169;
|
|
#X obj 113 169;
|
|
#X obj 113 140 - 7;
|
|
#X connect 1 0 10 0;
|
|
#X connect 2 0 3 1;
|
|
#X connect 3 0 6 0;
|
|
#X connect 4 0 2 0;
|
|
#X connect 5 0 4 0;
|
|
#X connect 7 0 3 0;
|
|
#X connect 10 0 5 0;
|
|
#X restore 380 465 pd get-note;
|
|
#X obj 348 377 pack f f;
|
|
#X obj 348 402 t a a;
|
|
#X obj 380 433 unpack f f;
|
|
#X text 638 264 keyboard on the grid using the 4th string layout (like
|
|
a bass guitar).;
|
|
#X obj 467 208 inlet;
|
|
#X obj 210 553 outlet pitch;
|
|
#X obj 220 527 outlet velocity;
|
|
#X connect 0 0 8 0;
|
|
#X connect 0 1 9 0;
|
|
#X connect 0 2 11 0;
|
|
#X connect 1 0 2 0;
|
|
#X connect 2 0 28 0;
|
|
#X connect 4 0 0 0;
|
|
#X connect 5 0 1 0;
|
|
#X connect 6 0 1 1;
|
|
#X connect 7 0 1 2;
|
|
#X connect 10 0 40 0;
|
|
#X connect 13 0 14 0;
|
|
#X connect 14 0 15 0;
|
|
#X connect 15 0 14 1;
|
|
#X connect 15 0 16 0;
|
|
#X connect 15 0 20 0;
|
|
#X connect 16 0 34 1;
|
|
#X connect 17 0 13 0;
|
|
#X connect 17 1 19 0;
|
|
#X connect 18 0 0 0;
|
|
#X connect 19 0 14 0;
|
|
#X connect 20 0 34 0;
|
|
#X connect 21 0 22 0;
|
|
#X connect 22 0 23 1;
|
|
#X connect 23 0 27 0;
|
|
#X connect 26 0 29 0;
|
|
#X connect 27 0 24 0;
|
|
#X connect 28 0 25 0;
|
|
#X connect 28 1 3 0;
|
|
#X connect 29 0 17 0;
|
|
#X connect 30 0 39 0;
|
|
#X connect 31 0 30 0;
|
|
#X connect 32 0 30 1;
|
|
#X connect 33 0 21 0;
|
|
#X connect 34 0 35 0;
|
|
#X connect 35 0 23 0;
|
|
#X connect 35 1 36 0;
|
|
#X connect 36 0 33 0;
|
|
#X connect 36 1 33 1;
|
|
#X connect 38 0 0 0;
|