Acasă Explorează Ajutor
Autentificare
algorave
/
tidal-live-kit
2
0
Bifurcare 0
Fisiere
Ramură: master
Ramuri Etichete
tidal-live-kit
/
snippets-override
/
haskell-mode
/
livesetup

livesetup 1.3 KB
Permalink Istoric Crud

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162 
  1. # -*- mode: snippet -*-
    2. 

  2. # name: livesetup
    3. 

  3. # group: live
    4. 

  4. # key: livesetup
    5. 

  5. # expand-env: (yas-indent-line fixed)
    6. 

  6. # --
    7. 

  7. let bpm b = cps (b/60)
    8. 

  8.     msil = mapM_ ($ silence)
    9. 

  9.     bassP = (# gain 0.7) . (# hcutoff 485) . (# hresonance 0.001)
    10. 

  10.     cf = slow 2
    11. 

  11.     every' n o f = when ((== (o-1)) . (\`mod\` n)) f
    12. 

  12.     withmod a b c d = (whenmod a b . within (c, d))
    13. 

  13.     tmod s e = (# nudge (scale 0 s $ fmap (**e) saw1))
    14. 

  14.     swing a = within (0.1, 0.4) (a ~>) . within (0.6, 0.9) (a ~>)
    15. 

  15.     -- given bpm = 105
    16. 

  16.     tmod' s e = tmod (s*(1/(105/60))) e
    17. 

  17.     mt i = slow 16 $ tmod' 0.5 3 $ density 16 $ i
    18. 

  18.     d'drum = d1
    19. 

  19.     d'hi = d2
    20. 

  20.     d'perc = d2
    21. 

  21.     d'print = d2
    22. 

  22.     d'wobb = d2
    23. 

  23.     d'bass = d3
    24. 

  24.     -- d'gnome = d3
    25. 

  25.     -- d'qs = d3
    26. 

  26.     -- d'bass = d4
    27. 

  27.     d'bleep = d4
    28. 

  28.     d'eg = d4
    29. 

  29.     d'gnome = d4
    30. 

  30.     d'hand = d4
    31. 

  31.     -- d'jbass = d4
    32. 

  32.     d'qs = d4
    33. 

  33.     d'wax = d4
    34. 

  34.     d'fly = d5
    35. 

  35.     d'gt = d5
    36. 

  36.     d'mons = d5
    37. 

  37.     d'nim = d5
    38. 

  38.     d'warb = d5
    39. 

  39.     d'bass2 = d6
    40. 

  40.     d'bz = d6
    41. 

  41.     d'gt2 = d6
    42. 

  42.     -- d'hi = d6
    43. 

  43.     d'udu = d6
    44. 

  44.     d'arpy = d7
    45. 

  45.     d'casio = d7
    46. 

  46.     d'gt3 = d7
    47. 

  47.     d'pc = d7
    48. 

  48.     d'shard = d7
    49. 

  49.     d'arm = d8
    50. 

  50.     d'fx1 = d8
    51. 

  51.     d'misc = d8
    52. 

  52.     d'pcl = d8
    53. 

  53.     d'ql = d8
    54. 

  54.     d'tr = d8
    55. 

  55.     d'ant = d9
    56. 

  56.     d'baa = d9
    57. 

  57.     d'fx2 = d9
    58. 

  58.     d'tac = d9
    59. 

  59.     d'wbass = d9
    60. 

  60.     d'cymb = d10
    61. 

  61.     d'fx3 = d10
    62. 

  62.     d'jbass = d10
    63.