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.
 
 

188 lines
3.6 KiB

setcps (120/60/4)
hush
d1
$ fast 4 (sound "bd")
# speed 0.7
# freq 320
# overgain 0.4
# room 0.9
# orbit 0
d2 $ sound "[~ ho]*4"
# resonance 0.5
# gain 0.7
# orbit 1
d3 $ sound "~ ~ ~ [bd bd]"
# shape 0.7
# crush 4
# overgain 0.7
-- https://tidalcycles.org/index.php/Basic_Patterns
d1 $ chop 16 $ sound "arpy arp feel*4 arpy*4"
d1 $ up "0 ~ 12 24" # sound "jungbass:6" # pan "0 ~ 0.5 1"
-- Effects
d1 $ sound "jvbass*4" # accelerate "<0 1 -1 0.25 -0.5 2.1 -3>"
d1 $ s "[jvbass rave]/2" # attack "<0 0.1 0.2 0.3 0.5>"
d1 $ s "bd*8" # bandf "100 1000 2000"
d1 $ s "bd*8" # bandf "100 1000 2000" # bandq "<0.5 1 2>"
d1 $ s "bd*4" # coarse "<4 8 16 24>"
d1 $ s "bd*8" # cps "<0.7 1 0.5 1.2>"
d1 $ s "bd*8" # cps (range 1 2 $ slow 4 sine)
d2 $ s "cp(3,8)"
d1 $ s "[bd cp] hh drum arpy*2" # crush "<16 4 2>"
d1 $ stack [
sound "bd",
sound "~ [~ [ho:2 hc/2]]" # cut "1"
]
d1 $ sound "[bev, [ho:3](3,8)]" # cut "-1"
d1 $ sound "bev(3,8)" # cut "[1 2 3]*2"
d1 $ s "drum*8" # cutoff "100 1000 2000"
d1 $ s "[drum cp]*2 jvbass" # delay "[0 0.5]/2" # orbit 1
d1 $ s "drum jvbass [cp arpy] jvbass:1" # delayfeedback "[0.1 0.5 0.9]/6" # delay "0.5"
d1 $ s "rave/2" # end "<0 0.25 0.5>"
d1 $ s "drum*8" # hcutoff "100 1000 2000 5000"
d1 $ s "drum*8" # hpf "1000" # hresonance "0 0.2 0.4 0.6"
d1 $ s "ho" # loop 2.2
d1 $ note "0 3 7 9" # s "midi" # midichan "5 1 0 3"
d1 $ note "0 3 7 9" # s "midi" # midicmd "noteon"
d1 $ s "midi" # midinote "21"
d1 $ s "drum*4" # n "0"
d1 $ s "drum*4" # n "1"
d1 $ s "drum*4" # n "2 3"
d1 $ s "drum*4" # n "0 1 2 3"
-- Playground
d1 $ sound "bd sd:1"
d1 $ jux rev $ n (off 0.125 (|+ 7) "<c*2 a(3,8) f(3,8,2) e*2>")
# sound "supermandolin"
# legato 2
d1 $ sound "bd*2 [~ sn:3]"
d1 $ sound "bd*2 [[~ lt] sn:3] lt:1 [ht mt*2]"
d2 $ sound "hh hh hh hh"
d3 $ sound "[bd x [[bd bd] x] x]/2"
d3 $ sound "[bd bd bd [[bd bd] bd]]"
d1 $ sound "[bd sd sd] cp"
d1 $ sound "[bd bd] [sd sd sd sd]"
d1 $ sound "[bd bd bd, sd cp sd cp]"
d1 $ sound "[bd bd bd, [sd sd] cp, arpy [arpy [arpy arpy] arpy arpy], odx]"
d1 $ sound "bd <arpy:1 arpy:2 arpy:3>"
d1 $ sound "bd*2"
d1 $ sound "bd/2"
d1 $ sound "[bd sn]*2 cp"
d1 $ sound "[bd sn] cp/2"
d1 $ sound "[bd sn sn*3]/2 [bd sn*3 bd*4]/3"
d1 $ every 4 (rev) (sound "bd*2 [bd [sn sn*2 sn] sn]")
d1 $ slow 4 $ sound "bd*2 [bd [sn sn*2 sn] sn]"
d1 $ every 4 (fast 4) $ sound "bd*2 [bd [sn sn*2 sn] sn]"
d1 $ sound "bd*4" # crush "4"
d1 $ sound "bd*4" # crush "4" # speed "3"
d1 $ sound "bd*4" # gain "1 0.8 0.5 0.7"
d1 $ sound "bd*4 sn*4" # gain "[[1 0.8]*2 [0.5 0.7]]/2"
d1 $ sound "bd*4" # (every 3 (rev) $ gain "1 0.8 0.5 0.7")
d1 $ every 2 (|> speed "2") $ sound "arpy*4" |> speed "1"
d1 $ every 2 ((|> crush "4") . (|+ speed "1")) $ sound "arpy*4" |> speed "1"
d1 $ every 3 (|- note "3") $ every 2 (|+ up "5") $ sound "bd*4" |> note "0 3 0 5" |> crush "4"
d2 $ sound "arpy*4" |> note "0 -9 1 10" |> crush "6"
d3 $ sound "cp(3,8)"
# cps (slow 8 $ range 0.8 1.6 saw)
d3 $ sound "drum*4"
# n "1 2 3 4"
-- # up (every 2 (rev) $ run 16)
d3 $ sound "bd sn drum arpy" # pan "0 1 0.25 0.75"
d3 $ sound "bd bd ~ bd"
d1 $ sound "bd?*16"
d1 $ sometimesBy 0.75 (# crush 4) $ sound "bd arpy sn ~"
d1 $ jux (# accelerate "-0.1") $ s "supermandolin*8" # midinote "[80!6 78]/8"
# sustain "1 0.25 2 1"
-- Test
-- https://tidalcycles.org/index.php/Manipulating_samples
d1 $ chop 32 $ sound "bev"
d1 $ slow 2 $ sound "bd bd bd [bd bd ~ ~]"
xfade 2 $ sound "wobble*4"
xfade 2 $ sound "bd*4"
xfade 2 $ sound "metal*4"
-- sounds
forM_ ["808" "808bd"] $ \sample -> do
d1 $ s ( (sample ++ "*4"))
# n "<0 1 2 3 4 5 6>"