Audio overlap loop: Difference between revisions
Added FreeBASIC
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
(Added FreeBASIC) |
||
| (3 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=
program Audio_Overlap_Loop;
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.
<syntaxhighlight lang="go">package main
import (
Line 191 ⟶ 242:
=={{header|JavaScript}}/{{header|HTML}}==
<syntaxhighlight lang=
var j = prompt("Enter the sound manipulation level you want", "");
for(i=0; i<j; i++) {
Line 201 ⟶ 252:
=={{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.
<syntaxhighlight lang="julia">const soundfile = "loop.wav"
if length(ARGS) < 1
Line 219 ⟶ 270:
{{trans|Go}}
As in Go version, we use Sox "play" command.
<syntaxhighlight lang=
proc getValue[T: int | float](msg: string; minval, maxval: T): T =
Line 252 ⟶ 303:
=={{header|Phix}}==
<!--<syntaxhighlight lang=
<span style="color: #000080;font-style:italic;">--
-- demo\rosetta\AudioOverlapLoop.exw
Line 286 ⟶ 337:
Either of these may be desirable in different circumstances, so both are left as an example.
<syntaxhighlight lang=
package require snack
Line 392 ⟶ 443:
{{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.
<syntaxhighlight lang=
class C {
Line 432 ⟶ 483:
<br>
We now embed this in the following C program, compile and run it.
<syntaxhighlight lang="c">#include <stdio.h>
#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 525 ⟶ 576:
return 0;
}</syntaxhighlight>
{{omit from|Bc}}
Line 530 ⟶ 582:
{{omit from|GUISS}}
{{omit from|Lotus 123 Macro Scripting}}
▲[[Category:Temporal media]]
| |||