diff options
Diffstat (limited to 'music.scm')
-rw-r--r-- | music.scm | 25 |
1 files changed, 13 insertions, 12 deletions
@@ -1,18 +1,19 @@ (include "lib.scm") -(define (melody t) (+ - ((note (getfreq 3 4) 0 1/4) t) - ((note (getfreq 3 8) 1/4 1/4) t) - ((note (getfreq 3 4) 3/4 1/4) t) - ((note (getfreq 3 11) 1 1/4) t) - ((note (getfreq 3 4) 5/4 1/4) t) - ((note (getfreq 3 2) 3/2 1/4) t) - ((note (getfreq 3 8) 7/4 1/4) t) - ((note (getfreq 3 4) 9/4 1/4) t) - ((note (getfreq 3 11) 5/2 1/4) t) - ((note (getfreq 3 4) 11/4 1/4) t) +(define (melody t) ( + apply + (map + (lambda (octave pitch start len) ((note (getfreq octave pitch) start len) t)) + ;'(3) + ;(cons (* 3 (sin t)) '()) + ;'(0) + ;'(6.28) + '(3 3 3 3 3 3 3 3 3 3) + '(4 8 4 11 4 2 8 4 11 4) + '(0 1/4 3/4 1 5/4 3/2 7/4 9/4 5/2 11/4) + '(1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4 1/4) + ) )) (define (music t) ( - melody (floor-remainder t 3) + melody (floor-remainder t 6.28) )) |