SHARE
TWEET

MuzykaAlgorytmiczna

NotQuiteMyTempo Nov 12th, 2019 130 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,
  25.                      rest qn, pr1 en, rest qn, pr1 en, rest qn, rest wn, rest wn, pr1 qn,
  26.                      rest qn, pr1 en, rest qn, pr1 en, rest qn, pr1 qn, rest qn, pr1 en,
  27.                      rest qn, pr1 en, rest qn, rest wn]
  28. --Poczetek //Gitara Bassowa//
  29. motyw5 = line [b 1 wn, rest (4/4), rest (4/4), rest (4/4), rest (4/4), rest (4/4),
  30.                rest (4/4),rest (4/4), e 3 wn, g 2 wn, g 2 wn]
  31. poczatek =  motyw5
  32. poczatekPiaty = Modify (Instrument ElectricBassPicked) poczatek
  33.  
  34. --Koniec //GitaraBasowa//
  35. ending = phrase [Art $ Legato 1.0] $ times 2 (g 1 wn)
  36. 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]
  37. koniec = motyw6 :+: ending
  38. koniecSzosty= Modify (Instrument ElectricBassPicked) koniec
  39.  
  40. --Szybkie granie
  41. y = playDev 3 motyw1Bass
  42. u = playDev 3 motyw2Bass
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