Plaster
New
List
Login
common-lisp
default
shinmera
2020.08.23 09:36:31
(defun play (file &key (samples 500)) (mixed:with-objects ((source (mixed:make-unpacker samples :float 2 44100)) (mp3 (make-instance 'org.shirakumo.fraf.mixed.mpg123:source :file file :pack source)) (void-l (mixed:make-void)) (void-r (mixed:make-void))) (mixed:with-buffers samples (l r) (mixed:connect source :left void-l :mono l) (mixed:connect source :right void-r :mono r) (mixed:with-sequence sequence (mp3 source void-l void-r) (loop (mixed:mix sequence))))))
Raw
Annotate
Repaste