drums.rkt

#lang racket/base

(provide write-dist-file)
(require rsound polyglot)

(define (write-dist-file . _)
  (let ([output-path (dist-rel "out.wav")])
    (rs-write (rs-append* (list clap-1 snare bassdrum clap-2 kick))
              (path->string output-path))
    output-path))