max v2;
#N vpatcher 416 116 1249 684;
#P window setfont "Sans Serif" 9.;
#P window linecount 4;
#P comment 429 217 107 196617 flush sends note-offs to all MIDI channels if you have 'hanging' notes.;
#P number 172 69 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P window linecount 1;
#P newex 152 88 30 196617 - 60;
#P number 65 230 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P number 65 159 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P window setfont "American Typewriter" 14.;
#P comment 494 488 128 199491598 Make a chord...;
#P window setfont "Sans Serif" 9.;
#P newex 48 252 27 196617 + 3;
#P button 138 69 15 0;
#P newex 585 376 57 196617 pgmout 1;
#B color 5;
#P number 585 352 28 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P slider 585 212 15 128 0 1;
#P window setfont "Fixedwidth Serif" 10.;
#P number 193 209 32 10 0 127 3 22 0 0 0 221 221 221 222 222 222 0 0 0;
#P button 383 214 18 0;
#P window setfont "Sans Serif" 9.;
#P newex 383 236 36 196617 flush;
#B color 5;
#P window setfont "Fixedwidth Serif" 10.;
#P number 152 50 32 10 0 0 0 22 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 152 27 32 1441802 key;
#B color 5;
#P window setfont "Sans Serif" 9.;
#P newex 152 238 92 196617 makenote 80 1000;
#P newex 152 361 46 196617 noteout;
#P message 152 209 26 196617 60;
#P number 48 331 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P window setfont "Fixedwidth Serif" 10.;
#P newex 48 196 27 1441802 + 4;
#P window setfont "Sans Serif" 9.;
#P window linecount 2;
#P comment 216 28 351 196617 key takes in key presses on the qwerty keyboard and sends out the key number. Key can also test for modifiers \, such as shift \, etc.;
#P comment 216 59 351 196617 As the key numbers tend to be quite high \, this allows an offset \, initially -60 \, but you can set this yourself with the number box above.;
#P window linecount 4;
#P comment 216 127 349 196617 Take the newly offset value and output it to makenote. Take a copy and add one value (the first interval) and output that. Take a copy of that \, add a second value and output that... In this way you can create chords as 'large' as you like.;
#P window linecount 6;
#P comment 256 220 107 196617 makenote creates the MIDI note. In this case the default velocity is 80 and the default duration is 1000 milliseconds.;
#P window linecount 2;
#P comment 477 359 100 196617 pgmout changes MIDI programme number;
#P fasten 23 0 5 0 157 153 53 153;
#P connect 5 0 19 0;
#P connect 19 0 6 0;
#P connect 21 0 5 1;
#P connect 22 0 19 1;
#P connect 11 0 18 0;
#P connect 10 0 11 0;
#P connect 11 0 23 0;
#P connect 23 0 9 0;
#P fasten 19 0 9 0 53 287 136 287 136 231 157 231;
#P fasten 5 0 9 0 53 227 157 227;
#P connect 7 0 9 0;
#P connect 9 0 8 0;
#P fasten 12 0 8 0 388 328 157 328;
#P fasten 9 1 8 1 239 275 175 275;
#P fasten 12 1 8 1 414 338 175 338;
#P connect 24 0 23 1;
#P connect 14 0 9 1;
#P connect 13 0 12 0;
#P connect 15 0 16 0;
#P connect 16 0 17 0;
#P pop;