Sine wave: Difference between revisions

 

=={{header|AmigaBASIC}}==

The maximum allowed sound duration parameter in AmigaBASIC is 77 units. Since a second equals 18.2 sound units, this tone will only play for 4.23 seconds.

 

=={{header|BASIC256}}==

 

=={{header|C}}==

{{trans|Python}}

#include <math.h>

#include <stdlib.h>

putchar(v % 256);

}

Test:

./csine 440 5 | play - # Now either pipe output into SoX to play

 

=={{header|Delphi}}==

{{libheader| Winapi.MMSystem}}

Copy of Andreas Rejbrand example found here [https://stackoverflow.com/questions/7742377/how-can-i-generate-continuous-tones-of-varying-frequencies].

program Sine_wave;

 

end;

end;

 

=={{header|Emacs Lisp}}==

 

===8-bit samples===

"Play a sine wave for dur seconds."

(setq header (unibyte-string ; AU header:

(play-sound `(sound :data ,s)))

 

While the generated AU sound file is 16 bit, the samples themselves are 8 bit because only their high byte is set by the sine function. Therefore you will hear some faint hiss in the background due to the higher noise floor of 8-bit audio.

 

===16-bit samples===

This (slightly slower) version of the function creates proper 16-bit samples by setting both high and low bytes, resulting in less playback noise.

"Play a sine wave for dur seconds."

(setq header (unibyte-string ; AU header:

(play-sound `(sound :data ,s)))

 

 

=={{header|FreeBASIC}}==

Original code programmed by Angelo Rosina

[https://www.freebasic.net/forum/viewtopic.php?t=12733]

_ASYNC = &h000001

_NODEFAULT = &h000002

'This is the base syntax, works exactly like in QB

'Sound Frequency, Duration , Volume, A, D, S, R, ModFreq, ModStart, ModAmplitude, MA, MD, MS, MR

 

=={{header|Go}}==

<br>

Go lacks audio support in its standard library and, whilst there are third party packages that could be used, an easier approach is to invoke the SoX utility's 'play' command as was done in the second Kotlin example.

 

import (

fmt.Println(err)

}

 

=={{header|J}}==

4 wavplay wavmake <.1e3*1 o.i.55e3

 

=={{header|JavaScript}}==

let osc = ctx.createOscillator();

osc.frequency.setValueAtTime(440, ctx.currentTime);

osc.connect(ctx.destination);

osc.start();

 

=={{header|Julia}}==

PortAudio library version.

 

function paudio()

 

play(paudio(), 440.0, 5.0)

 

=={{header|Kotlin}}==

===Using Java Sound API===

 

import javax.sound.sampled.AudioFormat

close()

}

 

===Invoking SoX===

An easier approach invoking the SoX utility's 'play' command which has this stuff built-in. The following was tested on Ubuntu 16.04.

 

fun main(args:Array<String>) {

val proc = pb.start()

proc.waitFor()

 

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

 

=={{header|Nim}}==

Using Sox external player.

 

proc getIntValue(msg: string; minval, maxval: int): int =

let kind = "sine"

let args = ["-n", "synth", $duration, $kind, $freq]

 

=={{header|OCaml}}==

{{libheader|ocaml-sfml}}

 

module BA1 = Bigarray.Array1

 

while true do

SFTime.sleep (SFTime.of_milliseconds 100_l);

 

To run this code in script mode you can add this at the beginning of the file:

 

#load "bigarray.cma"

#load "sfml_system.cma"

Then run:

<pre>ocaml sine_wave.ml</pre>

 

=={{header|Perl}}==

 

Audio::NoiseGen::init() || die 'No access to sound hardware?';

 

alarm 5;

 

=={{header|Phix}}==

<span style="color: #008080;">without</span> <span style="color: #008080;">js</span> <span style="color: #000080;font-style:italic;">-- (dll/c_proc, system, prompt_number)</span>

<span style="color: #004080;">atom</span> <span style="color: #000000;">k32</span><span style="color: #0000FF;">=</span><span style="color: #004600;">NULL</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">xBeep</span>

<span style="color: #000000;">beep</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">prompt_number</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"Enter Frequency (100..10000 recommended):"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">0x25</span><span style="color: #0000FF;">,</span><span style="color: #000000;">0x7FFF</span><span style="color: #0000FF;">}))</span>

 

=={{header|Python}}==

{{trans|Emacs Lisp}}

 

import os

os.system("vlc " + oname) # starts an external media player to play file

 

Creates an AU file with the sine wave and plays it with VLC.

 

=={{header|Racket}}==

See https://docs.racket-lang.org/rsound/index.html

#lang racket

(require rsound)

; 440 Hz, 50% volume, 5 seconds

(play (make-tone 440 0.50 (* 5 FRAME-RATE)))

 

=={{header|Raku}}==

What a horribly underspecified task. Ah well, gives me lots of wiggle room to cheat in various ways.

 

my $v = floor $rows / 2;

print "\e[H\e[J", 'Generating sine wave of zero amplitude and zero frequency for 5 seconds...',

say 'Oops, too late.';

say 'Still no? Ok how about:';

 

=={{header|REXX}}==

Note: &nbsp; This REXX program will <u>only</u> work for PC/REXX or Personal REXX.

parse arg freq time . /*obtain optional arguments from the CL*/

if freq=='' | freq=="," then freq= 880 /*Not specified? Then use the default.*/

if time=='' | time=="," then time= 5 /* " " " " " " */

call sound freq, time /*invoke a BIF to generate a sine wave.*/

 

=={{header|Scala}}==

 

import scala.math.{Pi, sin}

line.close()

 

 

=={{header|Wren}}==

{{libheader|Wren-sound}}

As Wren-cli doesn't have any built-in audio support, we instead build a .wav file which can then be played using a utility such as rhythmbox or SoX,

 

var sineWave = Fn.new { |frequency, seconds, sampleRate|

var sampleRate = 44000

var buffer = sineWave.call(440, 5, sampleRate)

 

=={{header|Yabasic}}==

// by Galileo, 05/2022

 

end sub

 

 

=={{header|zkl}}==

{{trans|Go}}

Running on Mint Linux

synthType:="sine";

cmd:="play -n synth %d %s %d".fmt(durationInSec,synthType,frequency);

}