cleary

-- https://www.youtube.com/toplap_barcelona/live

-- extra functions added to tidal_function_helpers.tidal
-- see also: https://club.tidalcycles.org/t/superfm/1761/8
-- for extra syntax options

-- adsr, see screenshot in dir

-- There are 6 operators/oscillators, 
-- all are carriers (algorithm 32 in DX7 no fb loop)

cleary

setcps 0.5

d1 $ slow 4 $ n "c1" # s "superpwm" # legato 7 # gain "1.15" # room 0.2 # size 0.2

d2 $ plyWith 3 (# squiz 4 ) $ n "g5/4" # s  "superpwm" # hpf 8000 # room 0.2 # sz 0.2 # orbit 0 

d3 $ every 16 (# attack 0.4) $ rarely (struct "t/6" . (# up "e'minor7")) $ slow 4 $ n "c5" # s "superfm"  

d4 $ rarely (jux rev) $ slow 8 $ n (arp "down" "g7'dom7/3") # s "superchip" 
    # accelerate (choose [-1, -0.5, 0.25, -1, 0, 0, 0]) 

cleary

let pat = binary 64

do  d2 silence 
    d4 silence 
    d1 $ foldEvery [8,16,30,32] (#accelerate 6) $ struct (pat) $ slow 4 $ note (scale "ionian" "<1 2 -1 -2 -3 1 4 0>") # s "superchip"
        #octave 2
        # lpf 2000
        # legato 1.07
        # accelerate 6
        # squiz 3

cleary

-- Some Euclidean experiments
-- ref: https://www.lawtonhall.com/blog/euclidean-rhythms-pt1

d1 $ stack [
      struct "t(5,8)" $ s "hh"
    , struct "t(9,16)" $ s "hh"
]

d2 $ struct "<[~ t] t*4?>" $ s "realclaps" 

cleary

-- https://www.twitch.tv/videos/756377738

-- welcome .... revisiting the long samples
-- chord management ideas from this great newmoon set from th4:
-- https://www.youtube.com/watch?v=alTqtIngNgI

d1 $ slow 2 $ up "<'min7 ['thirteen 'aug] 'maj7 'maj7>" 
    # s "<lidellvox:8 lidellvox:4 [ lidellvox:5 lidellvox:7] lidellvox:0>"

d2 $ slow 2 $ struct "t t*2? t t?" $ up "<2 [6 5] [7 0] 0>" # s "pluck:5"

cleary

-- https://gist.github.com/cleary
-- 20200923.tidal

setcps 0.5


  d1 $ slow 4 $ stack [
        n "0(5,8) [[2 0] 0]"   # s "cpu"
        , s "cpu:20*4 cpu:20(5,8)?0.7"
        , s "cpu:4*16?"

cleary

-- livestream replay: 
-- https://www.twitch.tv/videos/743029308
-- https://youtu.be/kliiBKWWy4w

d1 $ stack [
    foldEvery [7,8] (0.25 <~ ) $ s "[[<dr_few dr_few*2?> realclaps*4?], [~ cpu:2]]"
] # room 0.3 # sz 0.3

d5 $ silence

cleary

-- companion video of the set: https://www.youtube.com/watch?v=BBLuobPLE4w

-- https://club.tidalcycles.org/t/tidal-club-new-moon-sign-up-info/1839/1 (requires free membership)
-- hi all

-- @moxus amazin set

-- I feel like a total prude but... here's a piano

--lol

cleary

-- reggae
do  let accent = "[ 0.7 1 0.7 1]"
    d1 $ struct "t?0.9 ~ t ~" $ "bd" -- kick
    d2 $ struct "t t(3,8) t t" $ gain accent # s "cpu:1" -- rimshot
    d3 $ struct "[~ t!3]*4" $ gain accent # s "cpu:4" -- closed hh


-- Indian - Taala-like
d1 $ stack [
      struct "[t@1.5 t]" $ n "2" # s "lo"

cleary

-- Dirt-Samples
d1 $ slow 2 $ s "bass3" <| n (run 10) -- softer synth bass, 0 = A2, 1-4 = C#2, 5 = G#2, 6-7 = D3, 8 = C2 9-10 = B2(woah)
d1 $ slow 2 $ s "pluck" <| n (run 16) -- double bass, pitch in filename, 9 = E1, vscode swaps # compared to superdirt
  -- n (toScale [5,6,10,12,15,2,4] (run7)) -- pluck C major scale-ish
d1 $ slow 2 $ s "sax" <| n (run 21) -- sax long notes, pitch in filename, 5 = C2


-- jamie-lidell-iso
d1 $ slow 2 $ s "lidellvox" <| n (run 23) -- CMaj scale 3+ octaves from C4, # legato