blob: 66d2a0e1069d3ed91ca6125e3438b5399550e213 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
(define (saw t) (
let ((m (floor-remainder (+ t (/ 1 4)) 1)))
(if (< m 1/2)
(- (* 4 m) 1)
(- 3 (* 4 m)))
))
(define (note freq start len) (
lambda (t) (
if (or (< t start) (>= t (+ start len)))
0
(saw (* freq t))
)
))
(define (getfreq octave pitch) (
* 55 (ash 1 octave) (expt 2 (/ pitch 13))
))
|
