(define effem (au:make-node “aumu” “Nif8” “-NI-“))
(au:connect-node effem 0 *au:output-node* 0)
(au:update-graph)
(play-note (now) effem 80 127 (* 1.0 *second*))
(play-note (+ (now) *second*) effem 70 127 (* 0.5 *second*))
(play-note (+ (now)(* 2.0 *second*)) effem 84 127 (* 1.0 *second*))
(define amby
(lambda ()
(play-note (now) effem 50 127 (* .5 *second*))
(play-note (now) effem 58 127 (* .5 *second*))
(play-note (+ (now)(* .5 *second*)) effem 51 127 (* .5 *second*))
(play-note (+ (now)(* .5 *second*)) effem 57 127 (* .5 *second*))
(play-note (+ (now) *second*) effem 52 127 (* .5 *second*))
(play-note (+ (now) *second*) effem 56 127 (* .5 *second*))
(play-note (+ (now)(* 1.5 *second*)) effem 53 127 (* .5 *second*))
(play-note (+ (now)(* 1.5 *second*)) effem 55 127 (* .5 *second*))
(play-note (+ (now)(* 2.0 *second*)) effem 54 127 (* .5 *second*))
(callback (+ (now)(* 2.0 *second*)) ‘wamby)))
(amby)
(define wamby
(lambda ()
(play-note (now) effem 60 127 (* .5 *second*))
(play-note (now) effem 62 127 (* .5 *second*))
(play-note (+ (now)(* .5 *second*)) effem 61 127 (* .5 *second*))
(play-note (+ (now)(* .5 *second*)) effem 63 127 (* .5 *second*))
(play-note (+ (now) *second*) effem 63 127 (* .5 *second*))
(play-note (+ (now) *second*) effem 64 127 (* .5 *second*))
(callback (+ (now)(* 2.0 *second*)) ‘amby)))