blob: 02781481b764e1de16338d3325d1ceb080c41e4b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
(use-modules (ice-9 binary-ports))
(define (note freq start len) (
lambda (t) (
if (or (< t start) (>= t (+ start len)))
0
freq
)
))
(define (music t) (
* t (logand 42 (ash t -10))
))
(define (play t) (
cons (modulo (music t) 256) (if (< t 100000)
(play (+ t 1))
'()
)
))
; (display (play 0))
(map (lambda (c) (put-u8 (current-output-port) c)) (play 0))
|
