home *** CD-ROM | disk | FTP | other *** search
/ PC World 2006 November / PCWorld_2006-11_cd.bin / audio-video / reaper / reaper119-install.exe / Effects / MIDI / midinoteondelay < prev   
Encoding:
Text File  |  2006-09-22  |  347 b   |  23 lines
  1. desc:midi noteon delayer
  2.  
  3. slider1:0<0,4096>max delay samples (limited to blocksize)
  4. slider2:0,poo
  5.  
  6. @init 
  7. slider2=1;
  8.  
  9. @block
  10.  
  11. while(
  12.   midirecv(msgt,msg1,msg23)?
  13.   (
  14.     ((msg1&240)==144)?(
  15.       msgt+=rand(slider1);
  16.       slider2+=1;
  17.       sliderchange(slider2);      
  18.     );
  19.     midisend(msgt,msg1,msg23);
  20.     1;
  21.   ):0;
  22. );
  23.