Record sound: Difference between revisions

 

=={{header|AutoHotkey}}==

waitsec := 5

Tooltip Recording %name%.wav

; For more intuitive functions, see the MCI library by jballi.

; doc: http://www.autohotkey.net/~jballi/MCI/v1.1/MCI.html

 

=={{header|BBC BASIC}}==

{{works with|BBC BASIC for Windows}}

bitspersample% = 16

channels% = 2

SYS "mciSendString", "close capture", 0, 0, 0

 

{{omit from|Batch File}}

Read/write raw device <code>/dev/dsp</code>. On Linux you need access to said device, meaning probably you should be in audio user group.

 

#include <unistd.h>

#include <sys/types.h>

play(p, 65536);

return 0;

 

=={{header|C++}}==

Uses Windows MCI

#include <iostream>

#include <string>

return 0;

}

 

=={{header|ChucK}}==

 

// example> chuck foo.ck bar.ck rec

 

// infinite time loop...

// ctrl-c will stop it, or modify to desired duration

 

=={{header|Common Lisp}}==

{{trans|C}}

(defun record (n)

(with-open-file (in "/dev/dsp" :element-type '(unsigned-byte 8))

)

(play (record 65536))

 

=={{header|Go}}==

 

The file name, sampling rate and duration can all be set by the user.

 

import (

check(err)

fmt.Println("Play-back completed.")

 

 

 

 

 

 

 

=={{header|Julia}}==

using PortAudio, LibSndFile

 

buf = read(stream, 441000)

save("recorded10sec.wav", buf)

 

=={{header|Kotlin}}==

{{trans|Scala}}

 

import java.io.File

println(lue.message)

}

 

=={{header|Liberty BASIC}}==

LB can easily send a MCI string to the OS, or extra routines eg SOX, so a minimal solution could be

run "sndrec32.exe"

A more direct way is..

print "Starting 5 sec. recording..."

r$ =mciSendString$( "open new type waveaudio alias capture")

end if

end function

 

=={{header|LiveCode}}==

set the dontUseQT to false -- on windows use true

set the recordFormat to "wave" -- can be wav,aiff, au

stop recording

end if

 

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

 

=={{header|Nim}}==

This code is for Linux systems and uses “arecord” and “aplay”. Previous code which used “/dev/dsp” no longer works on modern OS.

This code is a direct translation from Go version, but uses integers instead of floats for duration.

 

var name = ""

echo "'$1' created on disk and will now be played back..." % name

echo execProcess("aplay", args = [name], options = {poStdErrToStdOut, poUsePath})

 

=={{header|OCaml}}==

{{trans|C}}

 

let record bytes =

let bytes = 65536 in

let p = record bytes in

 

=={{header|Phix}}==

{{trans|C}}

{{trans|Go}}

<span style="color: #000080;font-style:italic;">--

-- demo\rosetta\Record_sound.exw

-- printf(1,"Play-back completed.\n")</span>

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

 

=={{header|PicoLisp}}==

 

(make

(while (rd 2)

 

Output:

=={{header|Python}}==

 

 

chunk = 1024

 

data = stream.read(chunk)

 

=={{header|Racket}}==

{{trans|C}}

#lang racket

(define (record n) (with-input-from-file "/dev/dsp" ( () (read-bytes n))))

(define (play bs) (display-to-file bs "/dev/dsp" #:exists 'append))

(play (record 65536))

 

=={{header|Raku}}==

(formerly Perl 6)

Slightly modified from an example provided with the <code>Audio::PortAudio</code> module distribution.

use Audio::Sndfile;

 

}

 

 

=={{header|Scala}}==

{{libheader|Scala}}

import javax.sound.sampled.{AudioFileFormat, AudioFormat, AudioInputStream}

import javax.sound.sampled.{AudioSystem, DataLine, LineUnavailableException, TargetDataLine}

case ioe: IOException => ioe.printStackTrace()

}

 

=={{header|Tcl}}==

 

# Helper to do a responsive wait

 

# Destroy the recording object

 

=={{header|Wee Basic}}==

micrec

print 1 "Playing..."

micpla

 

=={{header|Wren}}==

{{trans|Go}}

The ability to call external processes such as ''arecord'' 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 {

System.print("\n'%(name)' created on disk and will now be played back...")

C.aplay(name)

<br>

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

#include <stdio_ext.h>

#include <stdlib.h>

WrenVM* vm = wrenNewVM(&config);

const char* module = "main";

char *script = readFile(fileName);

WrenInterpretResult result = wrenInterpret(vm, module, script);

free(script);

return 0;