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