Skip to content

Instantly share code, notes, and snippets.

@jeremy-w jeremy-w/demo.hs
Created Feb 10, 2014

Embed
What would you like to do?
Euterpea demo. Use this to verify your install is working. To install Euterpea under OS X, see: https://jeremywsherman.com/blog/2014/02/09/installing-and-using-euterpea-under-os-x-10-dot-9/
import Euterpea.Music.Note.Music
import Euterpea.IO.MIDI.ToMidi
-- Writes |test.mid| in the current directory.
main = test chord
where chord = foldl1 (:=:) $ map (note 1.0) pitches
pitches = [(Fs, o), (As, o), (Cs, o + 1), (Fs, o + 1)]
o = 6::Int
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.