Skip to content

Instantly share code, notes, and snippets.

View StasisPod's full-sized avatar

Ed Wang StasisPod

View GitHub Profile
@StasisPod
StasisPod / gist:7493602
Created November 15, 2013 23:37
This function returns all notes that end in the first 10 seconds.
;; a note is (make-note note-num frames frames)
(define-struct note (pitch time duration))
;; number -> number
;; converts seconds to frames
(define (s f)
(* 44100 f))
(check-expect (s 10) 441000)