home *** CD-ROM | disk | FTP | other *** search
/ Sound Sensations! / sound_sensations.iso / midifile / cmtcmu / echoes.c < prev    next >
C/C++ Source or Header  |  1990-06-28  |  356b  |  20 lines
  1. #include "cmtprog.h"
  2.  
  3. #define delay 15
  4.  
  5. echo(chan, pitch, vel) {
  6.     vel = vel - 5;
  7.     if (vel > 0) {
  8.         midi_note(chan, pitch, vel);
  9.     cause(delay, echo, chan, pitch, vel);
  10.     } else midi_note(chan, pitch, 0);
  11. }
  12.  
  13. keydown(chan, pitch, vel) {
  14.     cause(delay, echo, chan, pitch, vel);
  15. }
  16.  
  17. mainscore() {
  18.     cause(1000, mainscore);
  19. }
  20.