ChameleonBass.hs

module ChameleonBass where

import Haskore.Music
import Haskore.Melody
import Haskore.Basic.Pitch
import Haskore.Basic.Duration
import Haskore.Music.GeneralMIDI
import Haskore.Interface.MIDI.Render

pitch_line = map (\(x,y,z) -> x (y :: Octave) z () )

first_part = pitch_line [(g,-2,1%+12),(gs,-2,1%+12),(a,-2,1%+12),(as,-2,1%+12)]
second_part = pitch_line [(gs,-1,1%+8),(as,-1,1%+8)]
first_part' = pitch_line [(c,-1,1%+12),(cs,-1,1%+12),(d,-1,1%+12),(ds,-1,1%+12)]
second_part' = pitch_line [(as,-1,1%+8),(cs,0,1%+8)]

-- G|-------------3-----------3-6--------------------------------|
-- D|-----------6------------------------------------------------|
-- A|----------------3-4-5-6-------------------------------------|
-- E|--3-4-5-6---------------------------------------------------|

main_line = concat $ Prelude.replicate 8 $ concat [first_part, [rest (1%+24)], second_part, [rest (1%+32)], first_part', [rest (1%+24)], second_part', [rest (1%+32)]]


main = fileFromGeneralMIDIMusic "chameleon.midi" $ fromMelodyNullAttr AcousticBass (line main_line)