SHARE
TWEET

MuzykaAlgorytmiczna22

NotQuiteMyTempo Nov 13th, 2019 125 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. import Euterpea
  2.  
  3. --Jeden
  4. motyw1 = line [g 1 qn,rest wn,g 1 qn,g 1 qn,rest wn,g 1 qn,g 1 qn,rest wn,
  5.                g 1 qn,g 1 qn,rest wn,g 1 qn,g 1 qn,rest wn,g 1 qn,g 1 qn,rest wn,
  6.                g 1 qn,g 1 qn,rest wn,g 1 qn,g 1 qn,rest wn,g 1 qn,g 1 qn,rest wn,
  7.                g 1 qn,g 1 qn,rest wn,g 1 qn]
  8. motyw1Bass = Modify (Instrument ElectricBassPicked) motyw1
  9.  
  10. --Dwa
  11. motyw2 = line [e 1 qn, e 1 qn, rest qn, g 2 hn, g 2 hn, g 2 hn, rest qn, e 1 qn,
  12.                e 1 qn, rest qn, g 2 hn, e 1 qn, rest qn,g 2 qn, g 2 qn,
  13.                g 2 qn, rest hn, rest hn, e 2 qn, e 2 qn, rest hn ]
  14. motyw2Bass = Modify (Instrument ElectricBassPicked) motyw2
  15.  
  16. --Trzy
  17. motyw3 = line [e 1 qn, e 1 qn, rest qn, g 2 hn, g 2 hn, g 2 hn, rest qn, e 1 qn,
  18.                e 1 qn, rest qn, g 2 hn, e 1 qn, rest qn, g 2 qn,
  19.                g 2 qn, g 2 qn, rest hn, rest hn, e 2 qn, e 2 qn, rest hn ]
  20. motyw3Bass = Modify (Instrument ElectricBassPicked) motyw3 
  21.  
  22. --Rytm //Perkusja//
  23. pr1 a = perc BassDrum1 a --Perkusja instrument
  24. 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,
  25.                      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
  26.                     ,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]
  27. --Poczetek //Gitara Bassowa//
  28. 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),
  29.                rest (4/4), rest (4/4), e 1 wn, e 1 wn, e 1 wn, e 1 wn, e 1 wn]
  30. poczatek =  motyw5
  31. poczatekPiaty = Modify (Instrument ElectricBassPicked) poczatek
  32.  
  33. --Koniec //GitaraBasowa//
  34. ending = phrase [Art $ Legato 1.0] $ times 2 (g 1 wn)
  35. 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]
  36. koniec = motyw6 :+: ending
  37. koniecSzosty= Modify (Instrument ElectricBassPicked) koniec
  38.  
  39. --Szybkie granie
  40. t = playDev 3 motyw1Bass
  41. y = playDev 3 motyw2Bass
  42. u = playDev 3 motyw3Bass
  43. i = playDev 3 rytmPerkusji
  44. o = playDev 3 poczatekPiaty
  45. p = playDev 3 koniecSzosty
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top