【文件属性】:
文件名称:cl-pulseaudio:Common Lisp的PulseAudio绑定
文件大小:11KB
文件格式:ZIP
更新时间:2021-02-14 12:53:50
lisp common-lisp bindings pulseaudio CommonLisp
cl-pulseaudio
Common Lisp的绑定。
安装
待定
用法
; ; play 440Hz sine wave for 1 second
( flet ((sine-to-byte (x)
(coerce (floor (* 255 (+ 0.5 (/ (sin x) 2 )))) '(unsigned-byte 8 ))))
( let ((buffer (make-array 44100 :element-type '(unsigned-byte 8 ))))
(pulseaudio:with-audio-stream (stream :sample-format :u8 :channels 1 )
( loop :for i :from 0 :below (length buffer)
:for s
【文件预览】:
cl-pulseaudio-master
----cl-pulseaudio.asd(1KB)
----src()
--------keyword.lisp(986B)
--------cffi()
--------pulseaudio.lisp(3KB)
----examples()
--------parec-simple.ros(2KB)
--------pacat-simple.ros(3KB)
----README.md(889B)