home *** CD-ROM | disk | FTP | other *** search
/ Sound Sensations! / sound_sensations.iso / soundb / sndhack / examp010.wsn < prev    next >
Text File  |  1991-07-28  |  635b  |  27 lines
  1. ;The call to SetVoiceThreshold sets the
  2. ;threshold level to 4 notes so more
  3. ;notes can be placed on the voice queue
  4. ;while the sound is still playing.
  5.  
  6. CloseSound();
  7. OpenSound();
  8.  
  9. SetVoiceThreshold(1, 4);
  10. SetVoiceNote(1,C3,8,1);
  11. SetVoiceNote(1,D3,16,0);
  12. SetVoiceNote(1,C3,8,0);
  13. SetVoiceNote(1,B-2,8,0);
  14. SetVoiceNote(1,A2,8,0);
  15. SetVoiceNote(1,B-2,8,0);
  16. SetVoiceNote(1,C3,4,0);
  17. StartSound();
  18. WaitSoundState(S_THRESHOLD);
  19. SetVoiceNote(1,G2,8,0);
  20. SetVoiceNote(1,A2,8,0);
  21. SetVoiceNote(1,B-2,4,0);
  22. SetVoiceNote(1,A2,8,0);
  23. SetVoiceNote(1,B-2,8,0);
  24. SetVoiceNote(1,C3,4,0);
  25. WaitSoundState(S_QUEUEEMPTY);
  26. CloseSound();
  27.