:PROPERTIES:
:ID:       088d51ce-bf1e-4717-b3a6-f2dd6d445836
:END:
#+TITLE: Tidalcycles Resources
#+Author: Yann Esposito

tags :: [[id:d248036c-4117-4406-a230-030b4d2b0085][tidal]]
source ::

* MIDI

Video: [[file:assets/Tidal Acid Jam (MIDI test)--fpSKvxOA0k.mkv][Tidal Acid Jam (MIDI test)]] ; https://www.youtube.com/watch?v=-fpSKvxOA0k

Init MIDI

- https://www.youtube.com/watch?v=cdB0dBGiar4
- https://tidalcycles.org/index.php/SuperDirt_MIDI_Tutorial

* Chiptune like

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

#+begin_src tidal
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
#+end_src