Euterpea - My music

#!/usr/bin/env runhaskell
import Euterpea

--Main
p = playDev 1

--Gamma
long = qn
octave = 4

--Piano
rythm1 = (g 4 qn) :+: (b 4 qn) :+: (e 5 qn) :+: (b 4 qn) :+: (g 5 qn) :+: (b 4 qn) :+: (e 5 qn) :+: (b 4 qn)
rythm1Higher = (b 4 qn) :+: (e 5 qn) :+: (g 5 qn) :+: (e 5 qn) :+: (b 5 qn) :+: (e 5 qn) :+: (g 5 qn) :+: (e 5 qn)

rythm1godown = (g 5 en) :+: (e 5 en) :+: (b 4 en) :+: (g 4 en)

mychord1 = (g 4 qn) :=: (b 4 qn) :=: (e 5 qn) :=: (g 5 qn)
mychord1longer = (g 4 wn) :=: (b 4 wn) :=: (e 5 wn) :=: (g 5 wn)
mychord2 = (fs 4 qn) :=: (as 4 qn) :=: (ds 5 qn) :=: (fs 5 qn)
mychord2longer = (fs 4 hn) :=: (as 4 hn) :=: (ds 5 hn) :=: (fs 5 hn)
mychord3 = (e 3 qn) :=: (g 3 qn)

fastpiano = instrument AcousticGrandPiano((g 5 sn) :+: (b 4 sn) :+:(e 5 sn) :+:(g 4 sn))
fastpianoDark = instrument AcousticGrandPiano((fs 5 sn) :+:(as 4 sn) :+: (ds 5 sn) :+:(g 4 sn))

mybass = (e 4 wn) :+: (c 4 hn) :+: (g 3 hn)
mybass2 = (e 4 wn) :+: (c 4 hn) :+: (g 4 hn)

percusion1 = rest hn :+: (c 2 qn) :+: rest hn :+: rest qn  :+: (c 2 qn) :+: rest qn
percusion2 = times(16)(g 4 sn) :+: times(1)(rest wn) :+: times(16)(g 4 sn) :+: times(1)(rest wn)
percusion3 = (c 2 qn) :+: rest qn :+: (c 2 qn) :+: rest qn
percusion3fast = (c 2 en) :+: (c 2 en) :+: (c 2 en) :+: (c 2 en)

pianoVer = instrument AcousticGrandPiano (times(2)(rythm1) :+: times(2)(rythm1Higher))
bassVer = instrument FretlessBass mybass :+: mybass2
bass1 = instrument FretlessBass mybass
bass2 =  instrument FretlessBass mybass2
percVer = instrument Percussion percusion1
perv2Ver = instrument Percussion percusion3
perc3Ver = instrument Percussion percusion3fast
violVer = instrument SynthVoice percusion3

--Final guitar
guitar = instrument DistortionGuitar (mybass)

part1 =  pianoVer :+: (pianoVer :=: times(2)(bassVer) :=: times(4)(percVer))
part2 = (pianoVer :=: times(2)(percusion2) :=: times(2)(bassVer) :=: times(4)(percVer))
part3 = (times(8)(mychord1) :=: times(2)perv2Ver) :+: times(4)(mychord2) :=: times(1)perv2Ver :+: times(2)(mychord1) :+: rythm1godown
part4 = (times(8)(mychord1) :=: times(4)perc3Ver) :+: times(4)(mychord2) :=: times(2)perc3Ver :+: times(2)(mychord1) :+: rythm1godown
final = ((times(8)(fastpiano) :=: bass1 :+: times(8)(fastpianoDark):=: bass2)) :=: times(4)(violVer) :+: (e 4 wn)


main = p $ part1 :+: part2 :+: part3 :+: part4 :+: final