max v2;
#N vpatcher 10 59 560 375;
#P window setfont Times 10.;
#P comment 155 252 104 1310730 show pitch and velocity;
#P comment 246 170 258 1310730 (Note that at a tempo of 100 BPM \, a 1/16 note lasts 150 ms.);
#P comment 246 130 245 1310730 begin a linear velocity crescendo from 32 to 127 over 15 seconds \, sending out a new value every 150 milliseconds;
#P comment 290 86 236 1310730 look for the moment when the tempo object is turned on;
#P comment 22 131 168 1310730 a lookup table containing a pattern of 16 pitches \, to be played in a loop by tempo;
#P window setfont "Fixedwidth Serif" 18.;
#P number 193 231 48 18 0 0 0 22 0 0 0 221 221 221 222 222 222 0 0 0;
#P user kslider 7 231 35 1 48 36 19 7 0 128 128 128 128 128 128 255 255 255 0 0 0 0 0 0;
#P newex 16 196 108 1441810 noteout a;
#P newex 16 165 174 1441810 makenote 32 150;
#P newex 193 134 53 1441810 line;
#P message 193 108 240 1441810 set 32 \, 127 15000 150;
#P newex 193 80 97 1441810 select 1;
#P toggle 16 57 15 0;
#P newex 16 80 173 1441810 tempo 100. 1 16;
#N vtable 16 20 74 230 241 970020 128;
#T set 0 60 55 60 62 63 67 72 70 68 67 65 63 67 65 62 59;
#P newobj 16 107 64 1441810 table;
#P window setfont Times 10.;
#P comment 35 26 168 1310730 tempo is like a combination of metro and counter \, but you express the rate in musical terms (beats per minute and note length -- in terms of a 4/4 measure);
#P fasten 1 0 9 0 21 161 12 161;
#P connect 3 0 2 0;
#P connect 2 0 1 0;
#P connect 1 0 7 0;
#P connect 7 0 8 0;
#P fasten 7 1 8 1 185 192 70 192;
#P fasten 6 0 7 1 198 161 103 161;
#P fasten 3 0 4 0 21 76 198 76;
#P connect 4 0 5 0;
#P connect 5 0 6 0;
#P connect 6 0 10 0;
#P pop;