1 KiB
1 KiB
Tidalcycles Resources
tags :: tidal source ::
MIDI
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