Record sound: Difference between revisions
Content deleted Content added
→Tcl: Added implementation |
Added PicoLisp |
||
Line 2:
Record sound (mono 16-bit PCM) into an integer array.
=={{header|PicoLisp}}==
<lang PicoLisp>(in '(rec -q -c1 -tu16 - trim 0 2) # Record 2 seconds
(make
(while (rd 2)
(link @) ) ) )</lang>
Output:
<pre>-> (16767 19071 17279 ... 5503 9343 14719) # 96000 numbers</pre>
=={{header|Python}}==
| |||