diff options
Diffstat (limited to 'lambeat.scm')
| -rw-r--r-- | lambeat.scm | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/lambeat.scm b/lambeat.scm deleted file mode 100644 index 5214b56..0000000 --- a/lambeat.scm +++ /dev/null @@ -1,17 +0,0 @@ -(use-modules (ice-9 binary-ports)) -(include "music.scm") - -; Bitrate is the number time to sample the music function each second -(define bitrate 8000) - -; Get the music as a list sampled at the bitrate -(define (play t end) - (cons ((lambda (a) - (let ((b (modulo (inexact->exact (round (* (+ a 2) 32768))) 65536))) cons - (put-u8 (current-output-port) (modulo b 256)) - (put-u8 (current-output-port) (quotient b 256)))) (music t)) - (if (< t end) - (play (+ t (/ 1 bitrate)) end) - '()))) - -(play 6 100) |