#!/bin/sh
mkdir -p ~/common-lisp/ecl-mpv/
;; apt install -y ecl mpv rlwrap lynx
lynx -dump --dont-wrap-pre - > ~/common-lisp/ecl-mpv/ecl-mpv.asd <<EOG
gopher://gopher.club/1/users/tfw/ecl-mpv.asd
EOG
lynx -dump --dont-wrap-pre - > ~/common-lisp/ecl-mpv/ecl-mpv.lisp <<EOG
gopher://gopher.club/1/users/tfw/ecl-mpv.lisp
EOG
## The gist here is to use
## mpv --demuxer=rawaudio -
## as a portable virtual (in this case u8) raw device.
## (out) gets the stream to that mpv (exec'd by (getout))
## *io* is a :direction :io stream backed by your disk ;
## I would just put it on a ramdisk instead if you wanted
## fast speeds. sequential u8s are smol anyhow.
rlwrap ecl <<EOG
(require 'asdf)
(require 'ecl-mpv)
(in-package :mpv)
(enbuff) ;; setqs *io*
(getout) ;; setf symbol-function (out) to mpv virt. dev.
(setq *sin* (getsin 44100 300))
;;; 44100-looping frequency=300Hz sine (for fs=44100)
;;; The meaning of the counter loop limit is debatable
(setq *win* (getsin 44100 1))
;;; 44100-looping frequence=1Hz as above. LFO
;;; Obviously subsonic.
;;; Oh, getsin makes max. '(unsigned-byte 8) outputs.
(setq *tyn* (compose *win* *sin*))
;;;Utility for hadamarding sinusoidal closures into
;;;new closures.
;;;Sound at last
(loop repeat (* 6 44100)
for byte = (Funcall *tyn*)
do (write-byte byte *io*))
;;;We're using a single bivalent stream *io*
;;goto position 0 and then go along
;;writing bytes to (out)
(file-position *io* 0)
(loop repeat (1- (file-length *io*))
for byte = (read-byte *io*)
do (write-byte byte (out)))
;;;Now we're at the end of the stream,
;; (Check (file-position *io*))
;;let's add an upward slide.
(loop for f from 50 to 350
do (setq *sin* (getsin 4410 f))
do (loop repeat 4410
for byte = (funcall *tyn*)
do (write-byte byte *io*)))
;;; Let's play that
(defun play ()
(loop initially (file-position *io* 0)
repeat (1- (file-length *io*))
for byte = (read-byte *io*)
do (write-byte byte (out))))
(play)
(sleep 1)
(loop for r = (random (+ -44100 (file-length *io*)))
for n from 0 below 300
for d = (random 44100)
for m = (* 0.01 (random 100))
do (file-position *io* r)
do (loop repeat d
for byte = (truncate (* (read-byte *io*) m))
do (write-byte byte (out)))
finally (play))
(sleep 1)
(loop repeat 20
for m = (* 0.01 (random 50))
for dur = (+ 44100 (random 44100))
do (file-position *io* (- (* 6 44100) 20000))
do (loop repeat dur
for byte = (read-byte *io*)
do (write-byte (truncate (* m byte)) (out)))
finally (play))
EOG
