cleary

#!/bin/bash

# Generate a strudel.json file suitable for use with https://strudel.cc
# This script expects a number of subdirs containing .wav files
#
# Copyright (c) 2024 by Bernard Gray <[email protected]>
# based on generateAudioResources.sh from the estuary project by David Ogborn
# https://github.com/dktr0/estuary
#
# License: GPLv3 https://www.gnu.org/licenses/gpl-3.0.html

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 "[[email protected] t]" $ n "2" # s "lo"