import Distribution.Simple
import Euterpea

helm_output_id = 1
simple_synth_output_id = 2



-- MOTYW 1

m1Hook = instrument AcousticGuitarNylon (tempo 0.8 (line ([e 1 qn, e 2 qn, e 1 hn, e 2 hn, g 1 qn, g 2 qn, g 1 hn, g 2 hn])))
m1 = playDev simple_synth_output_id $ m1Hook :+: m1Hook :+: m1Hook

-- MOTYW 2

m2Intro = instrument Glockenspiel (tempo 2 (line [e 1 qn, e 2 qn, g 1 hn, e 1 qn, e 2 qn]))
m2MainMelody = instrument Glockenspiel (tempo 2 (line [e 2 qn, g 2 hn, g 2 hn, e 1 qn, e 2 qn, e 1 qn, e 1 hn, e 2 qn, g 1 qn, e 1 qn, e 1 hn]))
m2Outro = instrument Glockenspiel (tempo 1 (line [e 1 qn, e 2 qn, g 1 hn, e 1 qn, e 1 hn]))


m2 = playDev simple_synth_output_id $  m2Intro :+: m2MainMelody :+: m2Outro

-- MOTYW 3

m3Hook = line [e 1 hn, e 2 hn, e 1 hn]
m3Interlude = line [g 2 qn, e 1 qn, e 1 hn]
m3Outro = tempo 2 (line [e 2 qn, e 2 hn, e 1 qn])

m3 = playDev helm_output_id $ m3Hook :+: m3Interlude :+: (m3Hook :=: m3Interlude) :+: m3Hook :+: (m3Hook :=: m3Interlude) :+: m3Outro

--
m0 = playDev simple_synth_output_id $ instrument ElectricBassPicked (line [b 4 wn, rest wn, rest wn, rest wn, rest wn, rest wn, rest wn, rest wn, e 3 wn, e 3 dwn] )

m4 = playDev simple_synth_output_id $ instrument Percussion (line [e 3 qn, rest qn, e 3 en, rest en, e 3 en, rest en, rest wn, e 2 qn, rest qn, e 2 en, rest en, e 2 en, rest en, rest wn, rest wn, e 3 qn, rest qn, e 3 en, rest en, e 3 en, rest en, e 2 qn, rest qn, e 2 en, rest en, e 2 en, rest en])

koniec = playDev simple_synth_output_id $ instrument Celesta (line [b 3 wn, cff 5 wn ,cff 5 wn, e 4 wn, b 3 wn, e 3 wn, cff 5 wn, cff 5 wn,cff 5 wn, b 3 dwn] )



main = defaultMain