Musiikkia¶
raco pkg install rsound
(require rsound)
(require rsound/piano-tones)
(define (piano-list number-list time)
(cond [(empty? number-list) empty]
[else (cons (list (piano-tone (first number-list))
(* 22050 time))
(piano-list (rest number-list)
(+ time 1)))]))
(play
(assemble
(piano-list
(list 60 60 60 64 62 62 62 65 64 64 62 62 60) 0)))