(include "lib.scm")

(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)
))