Play recorded sounds: Difference between revisions

This snippet of code will stream an unsigned 8-bit PCM sample to the [[wp:Yamaha_YM2612|Yamaha 2612's]] [[wp:Digital-to-analog_converter|DAC]]. Unfortunately, the data needs to be continuously streamed, meaning that the game essentially comes to a halt while this is happening. However, a clever game designer can hide this fact quite easily by only using voice samples at key moments where the player expects a brief pause in the action. Playing with other sounds is possible if the Z80 coprocessor is handling the playback, however the DAC uses a few of the channels and therefore some of them will not be heard if DAC streaming begins during regular FM audio playback.

dac_enable equ $2B

LEA pcmsample,a1

pcmSample:

=={{header|AutoHotkey}}==

1. monitoring timepoints in the sound <br>

2. simultaneous play

SoundPlay, %A_WinDir%\Media\Windows XP Startup.wav, wait

SoundSet +10 ; increase volume by 10%

Loop, 2

=={{header|Batch File}}==

{{works with|BBC BASIC for Windows}}

BBC BASIC for Windows has native support for playing MIDI files, and WAV files can be played using simple API calls:

SND_ASYNC = 1

SND_FILENAME = &20000

PRINT "Stopped MIDI."

=={{header|C sharp|C#}}==

using System.Threading;

using System.Media;

s1.PlayLooping();

}

=={{header|Delphi}}==

{$APPTYPE CONSOLE}

begin

sndPlaySound('SoundFile.wav', SND_NODEFAULT OR SND_ASYNC);

=={{header|Go}}==

See the PicoLisp entry for a description of what these particular arguments do.

import (

log.Fatal(err)

}

=={{header|GUISS}}==

Here we use the media player to play a sound file in the default directory:

=={{header|Liberty BASIC}}==

'Midi may be played simultaneously

'with .wav but only one .wav voice

calldll #winmm, "waveOutSetVolume", 0 as long, _

dwVol as long, ret as long

This makes a good music player. There is a slight latency to load the player, so very low game

latencies would not be well supported.

using FileIO: load

recordingplayerapp()

=={{header|Mathematica}}/{{header|Wolfram Language}}==

stopping before the end of the sound,looping (preferably glitch-free)and setting the volume of each sound

ListPlay[a, {t, 0, 10}]; ListPlay[b, {t, 0, 10}];

While[True,ListPlay[{a,b}, {t, 0, 10}];]

-Supported audio formats :

{{trans|Go}}

Using "sox" to play two sound files mixed. These are "wav" files but "sox" recognizes a lot of sound formats.

let args = ["-m", "-v", "0.75", "a.wav", "-v", "0.25", "b.wav",

"trim", "4", "6",

"repeat", "5"]

=={{header|Phix}}==

procedure play_sound()--string filename)

end if

end procedure

=={{header|PicoLisp}}==

percent, the second with 25 percent, starting at the 4th second, with a duration

of 6 seconds, looping 5 times.

"-m" "-v" "0.75" "a.wav" "-v" "0.25" "b.wav"

"-d"

"trim" 4 6

=={{header|PureBasic}}==

; We need this to use Sound functions

UseOGGSoundDecoder()

;suitable for 2D games and music playing.

=={{header|Python}}==

Pygame is a library for cross-platform game development and depends on the SDL multimedia library (SDL_mixer) for its audio playback. SDL_mixer supports any number of simultaneously playing channels of 16 bit stereo audio, plus a single channel of music, mixed by the popular MikMod MOD, Timidity MIDI, Ogg Vorbis, and SMPEG MP3 libraries.

from pygame import mixer

s1.stop()

s2.stop()

To play back .mp3 (or .ogg) files, the music import is used.

from pygame import mixer

from pygame.mixer import music

music.stop()

=={{header|R}}==

R's sound package uses system commands to call a built-in media player. On Windows, by default, this is Media Player. You can see the system call with <code>WavPlayer()</code>. Only .WAV files are supported, and the external code call means there is some latency before sounds are played. Samples longer than 10 minutes may correspond to significant chunks of your machine's memory.

#Setup

# Warning: The example files are Windows specific.

#Other actions (not obviously possible)

=={{header|Racket}}==

(Works on all platforms.)

#lang racket/gui

(play-sound "some-sound.wav" #f)

=={{header|Ring}}==

Load "guilib.ring"

new qapp {

func mute2

q2.setmuted(true)

Output:

There aren't many mature sound libraries for Ruby. The {{libheader|RubyGems}} package [http://rubyforge.org/projects/win32utils/ win32-sound] can play WAV files on the Windows platform only.

include Win32

sleep 1

=={{header|Swift}}==

Uses AVFoundation's AVAudioPlayer.

// This example uses AVAudioPlayer for playback.

player.player2.play()

=={{header|Tcl}}==

{{libheader|snack}}

# Potentially also require driver support for particular formats

after 30000 set done 1; vwait done

s1 stop

Note that this library is capable of handling both short and long sounds (sound effects and music).

=={{header|TUSCRIPT}}==

$$ MODE TUSCRIPT

audiofile="test.wav"

ERROR/STOP OPEN (audiofile,READ,-std-)

BROWSE $audiofile

=={{header|UNIX Shell}}==

# play.sh

# Usage: play.sh <recorded_sound.au>

=={{header|VBA}}==

Volume can be set using the function waveOutSetVolume, see [http://support.microsoft.com/kb/118377/en-us http://support.microsoft.com/kb/118377/en-us].

Declare Function libPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _

(ByVal filename As String, ByVal Flags As Long) As Long

Call libPlaySound(sWav, 1) '1 to play asynchronously

End Sub

Type <pre>Playsound "d:\explode.wav"</pre> in the Immediate window and that sound will play. Nothing will happen if the file d:\explode.wav does not exist.

It is certainly suitable for game sound effects (it's a game engine) and can play music at CD quality as well.

import "dome" for Process

}

}

=={{header|Z80 Assembly}}==

This routine streams an unsigned 8-bit PCM sample to the [[wp:Yamaha_YM2612|Yamaha 2612's]] [[wp:Digital-to-analog_converter|DAC]] in order to play a recorded sound. Unfortunately, the Sega Genesis's Z80 coprocessor can only access a limited pool of memory, so any PCM samples will have to be copied from the cartridge ROM to the shared memory area.

dac_data equ &2A

pop de

pop bc

{{omit from|Applesoft BASIC}}