#N canvas 306 198 666 603 10;
#X floatatom 174 380 5 0 0 0 - - -;
#X obj 167 494 soundoutput;
#X floatatom 166 292 5 0 0 0 - - -;
#X obj 166 436 pack 0 0;
#X text 49 25 m_majorscale - map numbers to a major scale;
#X text 112 84 Translates nuumbers like this:;
#X msg 257 110 0 2 4 5 7 9 11;
#X msg 116 109 0 1 2 3 4 5 6;
#X floatatom 194 201 5 0 0 0 - - -;
#X floatatom 194 156 5 0 0 0 scale_step - -;
#X obj 194 176 m_majorscale;
#X text 221 111 ==>;
#X floatatom 275 155 5 0 0 1 base_note - -;
#X text 382 109 and so on for higher octaves;
#X text 119 232 Arguments: <base note>;
#X obj 166 357 m_majorscale 60;
#X obj 166 457 u_makepoly 8 1 s_rhodey \$0-piano;
#X obj 166 406 makenote 20 1000;
#X obj 223 290 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#N canvas 359 223 592 507 play-a-little-song-for-me 0;
#X msg 133 301 0 \, 2 \, 3 \, 5 \, 8 \, 9;
#X msg 100 326 0 \, 2 \, 4 \, 6 \, 8;
#X obj 238 223 random 7;
#X obj 139 237 ==;
#X obj 100 237 f;
#X obj 100 266 select 0 1;
#X obj 100 390 outlet;
#X obj 206 52 inlet;
#X obj 272 55 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 330 244 f;
#X obj 364 244 + 1;
#X obj 329 411 outlet;
#X msg 329 384 60;
#X msg 365 384 58;
#X obj 330 363 select 0 1;
#X obj 330 221 b;
#X obj 330 336 f;
#X obj 363 336 ==;
#X floatatom 396 273 5 0 0 0 - - -;
#X obj 203 171 t b b b;
#X obj 330 305 select 0;
#X obj 330 274 mod 16;
#X obj 329 37 loadbang;
#X msg 329 59 220 180;
#X obj 206 86 c_multimetro 6 200;
#X obj 206 149 select 0 2 4 5;
#X connect 0 0 6 0;
#X connect 1 0 6 0;
#X connect 2 0 6 0;
#X connect 3 0 4 1;
#X connect 4 0 3 0;
#X connect 4 0 5 0;
#X connect 5 0 1 0;
#X connect 5 1 0 0;
#X connect 7 0 24 0;
#X connect 8 0 24 0;
#X connect 9 0 18 0;
#X connect 9 0 21 0;
#X connect 10 0 9 1;
#X connect 12 0 11 0;
#X connect 13 0 11 0;
#X connect 14 0 12 0;
#X connect 14 1 13 0;
#X connect 15 0 9 0;
#X connect 16 0 14 0;
#X connect 16 0 17 0;
#X connect 17 0 16 1;
#X connect 19 0 4 0;
#X connect 19 1 2 0;
#X connect 19 2 15 0;
#X connect 20 0 16 0;
#X connect 21 0 10 0;
#X connect 21 0 20 0;
#X connect 22 0 23 0;
#X connect 23 0 24 2;
#X connect 24 0 25 0;
#X connect 25 0 19 0;
#X connect 25 1 2 0;
#X connect 25 2 2 0;
#X connect 25 3 2 0;
#X restore 223 308 pd play-a-little-song-for-me;
#X floatatom 268 338 5 0 0 0 - - -;
#X connect 2 0 15 0;
#X connect 3 0 16 0;
#X connect 9 0 10 0;
#X connect 10 0 8 0;
#X connect 12 0 10 1;
#X connect 15 0 0 0;
#X connect 15 0 17 0;
#X connect 16 0 1 0;
#X connect 16 0 1 1;
#X connect 17 0 3 0;
#X connect 17 1 3 1;
#X connect 18 0 19 0;
#X connect 19 0 15 0;
#X connect 19 1 20 0;
#X connect 20 0 15 1;
