deft/journal/2020-05-17--09-13-02Z--tidal_resources.org
Yann Esposito (Yogsototh) d4a0c9a3a0
save
2020-06-13 14:01:12 +02:00

988 B

Tidalcycles Resources

tags :: tidal source ::

Chiptune like

https://www.youtube.com/watch?v=MbCNdB3hfpc&feature=youtu.be

import qualified Sound.Tidal.Chords as Chords

let mute = const silence

do
  let arp = "[0 0 2 4]*2"
      pat = "<0 2 5 4>"
      oct = -2
  d1 $ fast 2 $ stack [
    n (toScale Chords.major (arp + pat) + 2*oct) # s "superchip" # release 0.075,
    n ("0*8" + (slow 4 pat) - 14) # s "superchip" # release 0.3 # cut 2
    ] # orbit 1 # room 0.15 # size 0.93 # gain 0.9
  d2 $ fast 2 $ stack [
    "bd:10(3,8)",
    s "~ sn" # n 3,
    s "[~ cp:1]*2"
    ] # orbit 2 # room 0.05 # size 0.2