Audio frequency generator: Difference between revisions

 

=={{header|Action!}}==

volu,dist,freq,key=764

 

 

sndrst() mar=2 graphics(0)

=={{header|Axe}}==

{{untested|Axe}}

Disp "FREQ:",i

10→F

Output(5,0,F▶Dec)

Freq(F,10000)

 

=={{header|Go}}==

 

The duration of the monotone is set in advance (to a small number of seconds) and the application ends when it finishes playing. Consequently, a method to silence it is not required.

 

import (

err := cmd.Run()

check(err)

 

 

=={{header|Julia}}==

Uses the PortAudio library.

 

if Sys.iswindows()

@async(inputtask(chan))

playtone(ostr)

 

=={{header|Locomotive Basic}}==

 

20 if sq(2)<128 then sound 2,62500/f,100

30 a$=inkey$

70 locate 1,1:print f"Hz "

80 print:print " Use h and l to adjust frequency;":print " q to quit."

 

=={{header|Nim}}==

{{trans|Go}}

As in the Go version, we use the Sox "play" command to emulate the audio frequency generator. This version is a faithful translation of the Go version, even if the way things are done is pretty different.

 

type Waveform {.pure.} = enum

 

let args = ["-n", "synth", $dur, $kind, $freq, "vol", $vol, "dB"]

 

=={{header|Perl}}==

use feature 'say';

use feature 'state';

return $freq;

}

 

=={{header|Phix}}==

<span style="color: #000080;font-style:italic;">-- demo/rosetta/Audio_frequency_generator.exw</span>

<span style="color: #008080;">include</span> <span style="color: #000000;">pGUI</span><span style="color: #0000FF;">.</span><span style="color: #000000;">e</span>

<span style="color: #008080;">end</span> <span style="color: #008080;">procedure</span>

<span style="color: #000000;">main</span><span style="color: #0000FF;">()</span>

 

=={{header|Pure Data}}==

 

=={{header|Ring}}==

# Project : Audio frequency generator

 

ok

return

Output:

 

SuperCollider is a sound programming language, so the task is predictably easy.

 

// the server application detects audio hardware.

Server.default.boot;

// sound stops on exit

Server.default.quit;

 

=={{header|Tcl}}==

{{libheader|Snack}}

This does not work on Windows due the use of the external <tt>stty</tt> program.

 

set baseFrequency 261.63

# Stop the sound playing

$sound stop

 

=={{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 {

 

var args = ["-n", "-V1", "synth", durS, kindS, freqS, "vol", volS, "dB"].join(" ")

<br>

We now embed this in the following C program, compile and run it.

#include <stdio_ext.h>

#include <stdlib.h>

free(script);

return 0;

 

=={{header|ZX Spectrum Basic}}==

There is no volume control on the Spectrum.

 

20 REM We do not check for boundary errors in this simple demo

30 LET n=1

70 PRINT AT 0,0;n," "

80 BEEP 0.1,n: REM beep for 0.1 second at n semitones relative to middle C