blob: 75c78df7722402d4dd2de7929eb889dbaabbfa04 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
(use-modules (ice-9 binary-ports))
(define bitrate 8000)
(define (note freq start len) (
lambda (t) (
if (or (< t start) (>= t (+ start len)))
0
(sin (* 2 (acos -1) freq t))
)
))
(define (music t) (+
((note 523.25 0 1) t)
((note 587.33 1 1) t)
((note 659.25 2 1) t)
((note 698.46 3 1) t)
((note 783.99 4 1) t)
))
(define (play t) (
cons (music t) (if (< t 5)
(play (+ t (/ 1 bitrate)))
'()
)
))
;(display (play 0))
(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))
|
