Audio overlap loop: Difference between revisions
Added FreeBASIC
(Added FreeBASIC) |
|||
| (4 intermediate revisions by 2 users not shown) | |||
Line 1:
[[Category:Temporal media]]▼
{{draft task}}
'''Audio Overlap Loop''' is a program that produces an "echo chamber" effect by playing an audio file several times in an overlapping loop. A repetition level determines the number of times that the file is looped. For the purpose of this task, write a program that takes a parameter for the number of repetitions and plays the file ''loop.wav'' in an overlapping loop according to the number of repetitions.
Line 7 ⟶ 8:
{{libheader| Winapi.Windows}}
{{libheader| Winapi.MMSystem}}
<syntaxhighlight lang="delphi">
program Audio_Overlap_Loop;
Line 120 ⟶ 121:
vol := vol * (1 - decay);
end;
end.</
{{out}}
<pre>Enter number of repetitions (1 to 20) :
Line 128 ⟶ 129:
Enter decay between repetitions (0.01 to 0.99) :
0.2</pre>
=={{header|FreeBASIC}}==
{{libheader| FMOD}}
[https://www.fmod.com/core Library FMOD]
<syntaxhighlight lang="vbnet">#Include "fmod.bi"
Sub PlaySound (nombrearchivo As String, repeticiones As Integer, retardo As Integer, decaimiento As Single)
Dim As Single volumen = 1.0
Dim As Integer canal, sonido
' Initialize FMOD
FSOUND_Init(44100, 32, 0)
For i As Integer = 1 To repeticiones
' Cargar el archivo de sonido
sonido = FSOUND_Sample_Load(FSOUND_FREE, nombrearchivo, FSOUND_NORMAL, 0, 0)
If sonido = 0 Then
Print "Error: Failed to load the sample!"
FSOUND_Close
Exit Sub 'END
End If
' Play the sound at the current volume
canal = FSOUND_PlaySound(FSOUND_FREE, sonido)
FSOUND_SetVolume(canal, volumen * 255) ' FMOD uses a volume range of 0 to 255
' Wait for the specified delay
Sleep retardo
' Apply the decay
volumen *= decaimiento
' Release the sound
FSOUND_Sample_Free(sonido)
Next i
' Close FMOD
FSOUND_Close
End Sub
Dim As Integer repeticiones, retardo
Dim As Single decaimiento
' Get the parameters from the user
Input "Enter the number of repeticiones: ", repeticiones
Input "Enter the retardo between repeticiones (in milliseconds): ", retardo
Input "Enter the decaimiento factor (between 0 and 1): ", decaimiento
' Play the sound
PlaySound("loop.wav", repeticiones, retardo, decaimiento)</syntaxhighlight>
=={{header|Go}}==
As Go does not have any audio support in its standard library, this invokes the SoX utility's 'play' command with the appropriate parameters to achieve the 'echo chamber' effect.
<
import (
Line 188 ⟶ 239:
err := cmd.Run()
check(err)
}</
=={{header|JavaScript}}/{{header|HTML}}==
<
var j = prompt("Enter the sound manipulation level you want", "");
for(i=0; i<j; i++) {
document.write("<bgsound src='loop.wav'>")
}
</script></
=={{header|Julia}}==
Uses Julia's ability to run iterations of a 4 loop in separate threads to play a file 4 times, with each play 0.1 seconds out of sync with the previous play. Requires available threads on the CPU at Julia startup.
<
if length(ARGS) < 1
Line 214 ⟶ 265:
end
end
</syntaxhighlight>
=={{header|Nim}}==
{{trans|Go}}
As in Go version, we use Sox "play" command.
<
proc getValue[T: int | float](msg: string; minval, maxval: T): T =
Line 249 ⟶ 300:
args.add $(i * delay)
args.add $decay2
echo execProcess("play", args = args, options = {poStdErrToStdOut, poUsePath})</
=={{header|Phix}}==
<!--<
<span style="color: #000080;font-style:italic;">--
-- demo\rosetta\AudioOverlapLoop.exw
Line 268 ⟶ 319:
<span style="color: #0000FF;">?</span><span style="color: #008000;">"done"</span>
<span style="color: #0000FF;">{}</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">wait_key</span><span style="color: #0000FF;">()</span>
<!--</
The distributed version also has a loop/wait for all channels to finish playing
before terminating the program, or you could just use sleep() or as above wait_key().
Line 286 ⟶ 337:
Either of these may be desirable in different circumstances, so both are left as an example.
<
package require snack
Line 387 ⟶ 438:
make_gui
</syntaxhighlight>
=={{header|Wren}}==
{{trans|Go}}
The ability to call external processes such as ''SoX'' is expected to be added to Wren-cli in the next release. In the meantime, we embed the following Wren script in a C host to complete this task.
<
class C {
Line 429 ⟶ 480:
args.add(decayS)
}
C.play(args.join(" "))</
<br>
We now embed this in the following C program, compile and run it.
<
#include <stdio_ext.h>
#include <stdlib.h>
Line 508 ⟶ 559:
WrenVM* vm = wrenNewVM(&config);
const char* module = "main";
const char* fileName = "
char *script = readFile(fileName);
WrenInterpretResult result = wrenInterpret(vm, module, script);
Line 524 ⟶ 575:
free(script);
return 0;
}</
{{omit from|Bc}}
Line 530 ⟶ 582:
{{omit from|GUISS}}
{{omit from|Lotus 123 Macro Scripting}}
▲[[Category:Temporal media]]
| |||