Me playing with tidalcycles
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

test.tidal 6.0KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294
  1. setcps (132/60/4)
  2. hush
  3. d1 $ fast 4 (sound "bd")
  4. # freq 250
  5. -- # overgain 0.4
  6. -- # room 4
  7. -- # orbit 0
  8. d2 $ sound "[~ ho]*4"
  9. # gain 0.7
  10. # orbit 1
  11. d3 $ sound "bd ~ ~ <~ [bd bd]>"
  12. # shape 0.7
  13. # crush 4
  14. # overgain 0.7
  15. # gain 0.5
  16. d4 $ s "[~ arpy] [~ arpy] [~ arpy] [~ [arpy arpy]]"
  17. # note "c2 c3 c3 [~ [f4 c3]]"
  18. # crush 3
  19. # room 0.9
  20. # gain (slow 4 (((+0.5) . (/20)) (run 10)))
  21. d5 $ up (run 12) # sound "arpy"
  22. -- sounds
  23. -- ======
  24. -- # Bass
  25. -- bass2, ht
  26. -- clubkick
  27. -- kicklinn
  28. -- popkick
  29. -- reverbkick
  30. -- rs,sd,sn,stomp,ul,ulgab
  31. -- # aigus
  32. -- co, cp (clap), cr (cimbales), dr, dr2
  33. -- hc, ho
  34. -- # sons
  35. -- control, cosmicg, f, fest, flick, fm, gab (gabbernation), gtr (guitare electrique)
  36. -- hit (futuristique), hoover (techno), if, juno, off, moog, pad, padlong (introductions)
  37. -- rave2, sine, stab
  38. -- # templates
  39. -- hardcore, hardkick
  40. d1 $ fast 4 (s "bass2")
  41. # overgain 0.4
  42. # gain 0.7
  43. d1 $ fast 4 (s "bass2")
  44. # freq 320
  45. # overgain 0.4
  46. # gain 0.5
  47. -- https://www.youtube.com/watch?v=54opUoqQLWQ&feature=youtu.be
  48. let pat = [ ["a", note "c4 e4" # c 1 # sus 2]
  49. , ["b", note "c6 [d7 f7 g5 g6]" # c 2]
  50. ]
  51. d1 $ while "t f" (hurry 2) $ n "0 .. 7" # sound "drum"
  52. -- https://tidalcycles.org/index.php/Basic_Patterns
  53. d1 $ chop 16 $ sound "arpy arp feel*4 arpy*4"
  54. d1 $ up "0 ~ 12 24" # sound "jungbass:6" # pan "0 ~ 0.5 1"
  55. -- Effects
  56. d1 $ sound "jvbass*4" # accelerate "<0 1 -1 0.25 -0.5 2.1 -3>"
  57. d1 $ s "[jvbass rave]/2" # attack "<0 0.1 0.2 0.3 0.5>"
  58. d1 $ s "bd*8" # bandf "100 1000 2000"
  59. d1 $ s "bd*8" # bandf "100 1000 2000" # bandq "<0.5 1 2>"
  60. d1 $ s "bd*4" # coarse "<4 8 16 24>"
  61. d1 $ s "bd*8" # cps "<0.7 1 0.5 1.2>"
  62. d1 $ s "bd*8" # cps (range 1 2 $ slow 4 sine)
  63. d2 $ s "cp(3,8)"
  64. d1 $ s "[bd cp] hh drum arpy*2" # crush "<16 4 2>"
  65. d1 $ stack [
  66. sound "bd",
  67. sound "~ [~ [ho:2 hc/2]]" # cut "1"
  68. ]
  69. d1 $ sound "[bev, [ho:3](3,8)]" # cut "-1"
  70. d1 $ sound "bev(3,8)" # cut "[1 2 3]*2"
  71. d1 $ s "drum*8" # cutoff "100 1000 2000"
  72. d1 $ s "[drum cp]*2 jvbass" # delay "[0 0.5]/2" # orbit 1
  73. d1 $ s "drum jvbass [cp arpy] jvbass:1" # delayfeedback "[0.1 0.5 0.9]/6" # delay "0.5"
  74. d1 $ s "rave/2" # end "<0 0.25 0.5>"
  75. d1 $ s "drum*8" # hcutoff "100 1000 2000 5000"
  76. d1 $ s "drum*8" # hpf "1000" # hresonance "0 0.2 0.4 0.6"
  77. d1 $ s "ho" # loop 2.2
  78. d1 $ note "0 3 7 9" # s "midi" # midichan "5 1 0 3"
  79. d1 $ note "0 3 7 9" # s "midi" # midicmd "noteon"
  80. d1 $ s "midi" # midinote "21"
  81. d1 $ s "drum*4" # n "0"
  82. d1 $ s "drum*4" # n "1"
  83. d1 $ s "drum*4" # n "2 3"
  84. d1 $ s "drum*4" # n "0 1 2 3"
  85. -- Playground
  86. d1 $ sound "bd sd:1"
  87. d1 $ jux rev $ n (off 0.125 (|+ 7) "<c*2 a(3,8) f(3,8,2) e*2>")
  88. # sound "supermandolin"
  89. # legato 2
  90. d1 $ sound "bd*2 [~ sn:3]"
  91. d1 $ sound "bd*2 [[~ lt] sn:3] lt:1 [ht mt*2]"
  92. d2 $ sound "hh hh hh hh"
  93. d3 $ sound "[bd x [[bd bd] x] x]/2"
  94. d3 $ sound "[bd bd bd [[bd bd] bd]]"
  95. d1 $ sound "[bd sd sd] cp"
  96. d1 $ sound "[bd bd] [sd sd sd sd]"
  97. d1 $ sound "[bd bd bd, sd cp sd cp]"
  98. d1 $ sound "[bd bd bd, [sd sd] cp, arpy [arpy [arpy arpy] arpy arpy], odx]"
  99. d1 $ sound "bd <arpy:1 arpy:2 arpy:3>"
  100. d1 $ sound "bd*2"
  101. d1 $ sound "bd/2"
  102. d1 $ sound "[bd sn]*2 cp"
  103. d1 $ sound "[bd sn] cp/2"
  104. d1 $ sound "[bd sn sn*3]/2 [bd sn*3 bd*4]/3"
  105. d1 $ every 4 (rev) (sound "bd*2 [bd [sn sn*2 sn] sn]")
  106. d1 $ slow 4 $ sound "bd*2 [bd [sn sn*2 sn] sn]"
  107. d1 $ every 4 (fast 4) $ sound "bd*2 [bd [sn sn*2 sn] sn]"
  108. d1 $ sound "bd*4" # crush "4"
  109. d1 $ sound "bd*4" # crush "4" # speed "3"
  110. d1 $ sound "bd*4" # gain "1 0.8 0.5 0.7"
  111. d1 $ sound "bd*4 sn*4" # gain "[[1 0.8]*2 [0.5 0.7]]/2"
  112. d1 $ sound "bd*4" # (every 3 (rev) $ gain "1 0.8 0.5 0.7")
  113. d1 $ every 2 (|> speed "2") $ sound "arpy*4" |> speed "1"
  114. d1 $ every 2 ((|> crush "4") . (|+ speed "1")) $ sound "arpy*4" |> speed "1"
  115. d1 $ every 3 (|- note "3") $ every 2 (|+ up "5") $ sound "bd*4" |> note "0 3 0 5" |> crush "4"
  116. d2 $ sound "arpy*4" |> note "0 -9 1 10" |> crush "6"
  117. d3 $ sound "cp(3,8)"
  118. # cps (slow 8 $ range 0.8 1.6 saw)
  119. d3 $ sound "drum*4"
  120. # n "1 2 3 4"
  121. -- # up (every 2 (rev) $ run 16)
  122. d3 $ sound "bd sn drum arpy" # pan "0 1 0.25 0.75"
  123. d3 $ sound "bd bd ~ bd"
  124. d1 $ sound "bd?*16"
  125. d1 $ sometimesBy 0.75 (# crush 4) $ sound "bd arpy sn ~"
  126. d1 $ jux (# accelerate "-0.1") $ s "supermandolin*8" # midinote "[80!6 78]/8"
  127. # sustain "1 0.25 2 1"
  128. -- Test
  129. -- https://tidalcycles.org/index.php/Manipulating_samples
  130. d1 $ chop 32 $ sound "bev"
  131. d1 $ slow 2 $ sound "bd bd bd [bd bd ~ ~]"
  132. xfade 2 $ sound "wobble*4"
  133. xfade 2 $ sound "bd*4"
  134. xfade 2 $ sound "metal*4"
  135. -- Chiptune-like
  136. -- https://www.youtube.com/watch?v=MbCNdB3hfpc&feature=youtu.be
  137. import qualified Sound.Tidal.Chords as Chords
  138. let mute = const silence
  139. do
  140. let arp = "[0 0 2 4]*2"
  141. pat = "<0 2 5 4>"
  142. oct = -2
  143. d1 $ fast 2 $ stack [
  144. n (toScale Chords.aug (arp + pat)) # s "superchip" # release 0.075,
  145. mute $ n ("0*8" + (slow 4 pat) - 14) # s "superchip" # release 0.3 # cut 2
  146. ] # orbit 1 # room 0.1 # size 0.93 # gain 0.9
  147. d2 $ fast 2 $ stack [
  148. mute $ "bd:10(3,8)",
  149. s "~ sn" # n 3,
  150. s "[~ cp:1]*2"
  151. ] # orbit 2 # room 0.05 # size 0.2
  152. hush
  153. import qualified Sound.Tidal.Chords as Chords
  154. do
  155. let arp = "[0 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1]*2"
  156. arp2 = "[7 0 2 4]*2"
  157. pat = "<0 2 5 4>"
  158. oct = -2
  159. d1 $ stack [
  160. n (toScale Chords.minor (arp + pat)) # s "superchip" # release 0.05,
  161. n (toScale Chords.minor (arp2 + pat - 4)) # s "superchip" # release 0.8,
  162. n ("0*8" + (slow 2 pat) - 14) # s "superchip" # release 0.3 # cut 2
  163. ] # orbit 1 # room 0.1 # size 0.93
  164. d2 $ s "clubkick*4"
  165. # room 0.5
  166. d3 $ "[~ co:2]*4"
  167. solo 1
  168. unsolo 1
  169. do
  170. setcps (160/60/4)
  171. d1 $
  172. s "[bd:1(3,8?) , [~ cp]*4? , hh*16?]"
  173. d1 $ stut' 3 (1/12) (|+ note "<5 7>") $ s "superpiano"
  174. d1 $ slow 2 $ n (scale "bhairav" "0 .. 7") # "superpiano"
  175. d1 $ slow 2 $ n (scale "minor" "0 .. 7") # "superpiano"
  176. d1 $ slow 2 $ n (scale "major" "0 .. 7") # "superpiano"
  177. -- Accords
  178. mychords = inhabit [("hola", "[0,4,2]" :: Pattern Double),
  179. ("hello", "[0,5,7,12]")
  180. ]
  181. d1 $ n (mychords "hello hola") # s "superpiano"