Sul fatto di farlo in java non sono molto d'accordo invece, a suo tempo ci avevo provato e il risultato era addirittura peggiore di poke.
mmmhh, non mi risulta... ti allego UNA patch

che, almeno sul mio computer dimostra che mxj è 10 volte più veloce di peek~.
E qui:
http://www.fredrikolofsson.com/pages/code-max.htmltrovi una piccola routine da aggiungere a buf.Op per fare le copie parziali di un buffer.
#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#P comment 279 188 106 196617 copia con mxj buf.Op;
#P newex 207 21 48 196617 loadbang;
#P newex 322 274 50 196617 deferlow;
#P flonum 282 325 51 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 282 300 35 196617 timer;
#P newex 308 227 40 196617 t b b b;
#P button 308 204 15 0;
#P message 391 272 106 196617 copyInto destinazione;
#P message 26 83 33 196617 clear;
#P flonum 27 262 51 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 27 236 35 196617 timer;
#P newex 52 204 40 196617 t b b b;
#P newex 143 301 27 196617 t i i;
#P newex 160 324 78 196617 peek~ sorgente;
#P newex 143 349 94 196617 peek~ destinazione;
#P newex 143 276 27 196617 - 1;
#P button 52 181 15 0;
#P newex 85 253 68 196617 uzi 4410000;
#P user waveform~ 362 101 200 74 3 9;
#W mode select;
#W mouseoutput continuous;
#W unit ms;
#W grid 1000.;
#W ticks 0;
#W labels 1;
#W vlabels 0;
#W vticks 1;
#W bpm 120. 4.;
#W frgb 33 0 0;
#W brgb 60 178 173;
#W rgb2 0 95 255;
#W rgb3 0 0 0;
#W rgb4 0 0 0;
#W rgb5 190 137 255;
#W rgb6 100 100 100;
#W rgb7 100 100 100;
#P message 362 73 91 196617 set destinazione 1;
#P newex 26 103 141 196617 buffer~ destinazione 100000;
#P newex 269 121 64 196617 / 4410000.;
#P button 207 43 15 0;
#P newex 215 125 27 196617 - 1;
#P newex 215 101 27 196617 t i i;
#P newex 207 68 68 196617 uzi 4410000;
#P newex 217 150 78 196617 peek~ sorgente;
#P newex 24 60 125 196617 buffer~ sorgente 100000;
#P newex 391 294 101 196617 mxj buf.Op sorgente;
#P comment 24 164 81 196617 copia con peek~;
#P connect 21 0 9 0;
#P connect 18 2 19 0;
#P connect 19 0 20 0;
#P connect 13 0 18 0;
#P connect 18 0 19 1;
#P connect 18 1 12 0;
#P connect 12 2 14 0;
#P connect 14 0 17 0;
#P connect 17 0 15 0;
#P connect 17 1 16 0;
#P connect 16 0 15 1;
#P connect 28 0 7 0;
#P connect 7 0 4 0;
#P connect 4 2 5 0;
#P connect 5 0 6 0;
#P connect 6 0 3 0;
#P connect 8 0 3 1;
#P connect 5 1 8 0;
#P connect 24 2 25 0;
#P connect 25 0 26 0;
#P connect 27 0 25 1;
#P connect 23 0 24 0;
#P connect 24 0 27 0;
#P fasten 7 0 10 0 212 63 367 63;
#P connect 10 0 11 0;
#P connect 24 1 22 0;
#P connect 22 0 1 0;
#P window clipboard copycount 30;