MuzykaAlgorytmiczna

import Euterpea

--Jeden
motyw1 = line [g 1 qn,rest wn,g 1 qn,g 1 qn,rest wn,g 1 qn,g 1 qn,rest wn,
               g 1 qn,g 1 qn,rest wn,g 1 qn,g 1 qn,rest wn,g 1 qn,g 1 qn,rest wn,
               g 1 qn,g 1 qn,rest wn,g 1 qn,g 1 qn,rest wn,g 1 qn,g 1 qn,rest wn,
               g 1 qn,g 1 qn,rest wn,g 1 qn]
motyw1Bass = Modify (Instrument ElectricBassPicked) motyw1

--Dwa
motyw2 = line [e 1 qn, e 1 qn, rest qn, g 2 hn, g 2 hn, g 2 hn, rest qn, e 1 qn,
               e 1 qn, rest qn, g 2 hn, e 1 qn, rest qn,g 2 qn, g 2 qn,
               g 2 qn, rest hn, rest hn, e 2 qn, e 2 qn, rest hn ]
motyw2Bass = Modify (Instrument ElectricBassPicked) motyw2

--Trzy
motyw3 = line [e 1 qn, e 1 qn, rest qn, g 2 hn, g 2 hn, g 2 hn, rest qn, e 1 qn,
               e 1 qn, rest qn, g 2 hn, e 1 qn, rest qn, g 2 qn,
               g 2 qn, g 2 qn, rest hn, rest hn, e 2 qn, e 2 qn, rest hn ]
motyw3Bass = Modify (Instrument ElectricBassPicked) motyw3

--Rytm //Perkusja//
pr1 a = perc BassDrum1 a --Perkusja instrument
rytmPerkusji = line [pr1 qn, rest wn, pr1 en, rest qn, pr1 en, rest qn, rest wn, pr1 qn,
                     rest qn, pr1 en, rest qn, pr1 en, rest qn, rest wn, rest wn, pr1 qn,
                     rest qn, pr1 en, rest qn, pr1 en, rest qn, pr1 qn, rest qn, pr1 en,
                     rest qn, pr1 en, rest qn, rest wn]
--Poczetek //Gitara Bassowa//
motyw5 = line [b 1 wn, rest (4/4), rest (4/4), rest (4/4), rest (4/4), rest (4/4),
               rest (4/4),rest (4/4), e 3 wn, g 2 wn, g 2 wn]
poczatek =  motyw5
poczatekPiaty = Modify (Instrument ElectricBassPicked) poczatek

--Koniec //GitaraBasowa//
ending = phrase [Art $ Legato 1.0] $ times 2 (g 1 wn)
motyw6 = line [rest wn, b 3 wn, b 3 wn, e 4 wn, a 4 wn , e 4 wn , b 3 wn, b 3 wn, b 3 wn]
koniec = motyw6 :+: ending
koniecSzosty= Modify (Instrument ElectricBassPicked) koniec

--Szybkie granie
y = playDev 3 motyw1Bass
u = playDev 3 motyw2Bass