gistfile1.hsc

import Haskore.Interface.MIDI.Render
import Haskore.Melody
import Haskore.Music.GeneralMIDI as GM
import qualified Haskore.Music as Music 

test m = fileFromGeneralMIDIMusic "test.mid" $ GM.fromMelodyNullAttr AcousticGrandPiano m

riff = line [utp, mi, sol, ti] where
    utp = chord [ut, mi, sol]
    ut = c 2 en ()
    mi = e 2 en ()
    sol = g 2 en ()
    ti = b 2 en ()

-- alternativamente,

riff2 = line [utp, mi, sol, ti] where
    utp = chord [ut, mi, sol]
    ut = c 2 en ()
    mi = transpose majorThird ut
    sol = transpose fifth ut
    ti = transpose majorSeventh ut

-- (es exactamente lo mismo)