Me playing with tidalcycles
Você não pode selecionar mais de 25 tópicos Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.
 
 

44 linhas
1.0 KiB

-- sounds
-- ======
-- # Bass
-- bass2, ht
-- clubkick
-- kicklinn
-- popkick
-- reverbkick
-- rs,sd,sn,stomp,ul,ulgab
-- # aigus
-- co, cp (clap), cr (cimbales), dr, dr2
-- hc, ho
-- # sons
-- control, cosmicg, f, fest, flick, fm, gab (gabbernation), gtr (guitare electrique)
-- hit (futuristique), hoover (techno), if, juno, off, moog, pad, padlong (introductions)
-- rave2, sine, stab
-- # templates
-- hardcore, hardkick
-- Inspiration https://www.youtube.com/watch?v=MbCNdB3hfpc&feature=youtu.be
import qualified Sound.Tidal.Chords as Chords
do
let arp = "[0 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1]*2"
arp2 = "[7 0 2 4]*2"
pat = "<0 2 5 4>"
oct = -2
d1 $ stack [
n (toScale Chords.minor (arp + pat)) # s "superchip" # release 0.05,
n (toScale Chords.minor (arp2 + pat - 4)) # s "superchip" # release 0.8,
n ("0*8" + (slow 2 pat) - 14) # s "superchip" # release 0.3 # cut 2
] # orbit 1 # room 0.1 # size 0.93
d2 $ s "clubkick*4"
# orbit 2 # room 0.5
d3 $ s "[~ cp:2]*4"
# orbit 2
solo 4
unsolo 4
hush