aboutsummaryrefslogtreecommitdiff
path: root/main.scm
blob: 348a2ba34ff6ba5a14ca4ac293fdbf5fee048a48 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
(define (note freq start len) (
	lambda (t) (
		if (or (< t start) (> t (+ start len)))
			0
			freq
	)
))

(define (music t) (
	(note 440 0 10) t
))

(define (play t) (
	if (< t 100)
		(cons (music t) (play (+ t 1)))
		(music t)
))

(display (play 0))