diff options
Diffstat (limited to 'music.scm')
| -rw-r--r-- | music.scm | 19 |
1 files changed, 7 insertions, 12 deletions
@@ -1,10 +1,9 @@ (include "lib.scm") -(define (melody t) ( - apply + ( - map (lambda (x) ( - apply (lambda (octave pitch start len) ((note (getfreq octave pitch) start len) t)) x - )) '( +(define (melody t) + (apply + (map (lambda (x) + (apply (lambda (octave pitch start len) ((note (getfreq octave pitch) start len) t)) x)) + '( (2 5 1 1) (2 8 4 1) (3 5 7 1) @@ -20,11 +19,7 @@ (3 3 23 1) (3 5 25 1) (3 0 30 1) - (3 3 31 1) - ) - ) -)) + (3 3 31 1))))) -(define (music t) ( - melody (* t 8) -)) +(define (music t) + (melody (* t 8))) |