home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 July & August / PCWorld_2007-07-08_cd.bin / audio-video / reaper / reaper1861-install.exe / Effects / MIDI / midinoteondelay < prev   
Text File  |  2007-02-12  |  347b  |  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.