1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19

(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 (* 1/4 (tri (* t (music t))))
		(if (< t end)
			(play (+ t (/ 1 bitrate)) end)
			'())))

; Output the list in the s16 raw audio format
(for-each (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))))
	(play 0 4))