PC World 2008 February/PCWorld_2008-02_cd.bin/audio-video/reaper/reaper2028-install.exe/Effects/MIDI/midinoteondelay

Text File | 2007-12-03 | 347b | 23 lines

desc:midi noteon delayer

slider1:0<0,4096>max delay samples (limited to blocksize)
slider2:0,poo

@init
slider2=1;

@block

while(
  midirecv(msgt,msg1,msg23)?
  (
    ((msg1&240)==144)?(
      msgt+=rand(slider1);
      slider2+=1;
      sliderchange(slider2);
    );
    midisend(msgt,msg1,msg23);
    1;
  ):0;
);