home *** CD-ROM | disk | FTP | other *** search
/ Sound Sensations! / sound_sensations.iso / soundb / sndhack / examp009.wsn < prev    next >
Text File  |  1991-07-28  |  709b  |  24 lines

  1. ;The SetVoiceSound function plays a
  2. ;sound specified by a frequency and
  3. ;length in clock tics.
  4. CloseSound();
  5. OpenSound();
  6. SetVoiceSound(1, 0x01000000, 8);  Freq : 0x0100 Hz
  7. SetVoiceSound(1, 0x01200000, 8);  Freq : 0x0200 Hz
  8. SetVoiceSound(1, 0x01400000, 8);  Freq : 0x0400 Hz
  9. SetVoiceSound(1, 0x01800000, 8);  Freq : 0x0800 Hz
  10.  
  11. SetVoiceSound(1, 0x01000000, 8);  Repeat the pattern
  12. SetVoiceSound(1, 0x01200000, 8);
  13. SetVoiceSound(1, 0x01400000, 8);
  14. SetVoiceSound(1, 0x01800000, 8);
  15.  
  16. SetVoiceSound(1, 0x01000000, 8);  One more time
  17. SetVoiceSound(1, 0x01200000, 8);
  18. SetVoiceSound(1, 0x01400000, 8);
  19. SetVoiceSound(1, 0x01800000, 8);
  20.  
  21. StartSound();
  22. WaitSoundState(S_QUEUEEMPTY);
  23. CloseSound();
  24.