Implement saw wave
This commit is contained in:
parent
41b550eca2
commit
f11992a8fc
9
main.scm
9
main.scm
|
@ -2,11 +2,18 @@
|
||||||
|
|
||||||
(define bitrate 8000)
|
(define bitrate 8000)
|
||||||
|
|
||||||
|
(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) (
|
(define (note freq start len) (
|
||||||
lambda (t) (
|
lambda (t) (
|
||||||
if (or (< t start) (>= t (+ start len)))
|
if (or (< t start) (>= t (+ start len)))
|
||||||
0
|
0
|
||||||
(sin (* 2 (acos -1) freq t))
|
(saw (* freq t))
|
||||||
)
|
)
|
||||||
))
|
))
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue