Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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, pr1 qn, rest qn, 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), g 2 wn, g 2 wn, g 2 wn, 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 1 wn, e 1 wn, e 1 wn, e 1 wn, e 1 wn]
- poczatek = motyw5
- poczatekPiaty = Modify (Instrument ElectricBassPicked) poczatek
- --Koniec //GitaraBasowa//
- ending = phrase [Art $ Legato 1.0] $ times 2 (g 1 wn)
- motyw6 = line [b 3 wn, b 3 wn, b 3 wn, b 3 wn, b 3 wn, b 3 wn, b 3 wn, b 3 wn, e 3 wn , c 2 wn, a 1 wn, b 3 wn, b 3 wn, c 2 wn, c 2 wn, c 2 wn]
- koniec = motyw6 :+: ending
- koniecSzosty= Modify (Instrument ElectricBassPicked) koniec
- --Szybkie granie
- t = playDev 3 motyw1Bass
- y = playDev 3 motyw2Bass
- u = playDev 3 motyw3Bass
- i = playDev 3 rytmPerkusji
- o = playDev 3 poczatekPiaty
- p = playDev 3 koniecSzosty
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement