Modulations

Share this post

#001 - Jungle beat, created with Tidal Cycles

modulations.substack.com

#001 - Jungle beat, created with Tidal Cycles

Tidal cycles is back on Modulations today and yes I keep resetting my numbering system, silly me. Anyway enjoy today's example of how to make code musical!

Nick Lewis
Apr 1, 2023
3
Share
let
setbpm x = setcps (x/60/4)
_add :: Time -> Pattern a -> Pattern a -> Pattern a
_add t value pat = slow (pure $ 1+t) $ timeCat [(shift,pat),(1-shift, value)]
                where shift = 1 / (t + 1)
add :: Pattern Time -> Pattern a -> Pattern a -> Pattern a
add pt x y = innerJoin $ fmap (\t -> _add t x y) pt

setbpm 160

all $ timeLoop 4 . (rotL 4)

all $ id

d1
$ while "t(4,16)" (|+ krush 1)
$ while "[0 | 1]*16" (superimpose (plyWith 4 (|* speed 1.25) . slow 2))
$ layer [id
        ,\x -> degradeBy (segment 16 perlin)
            $ slow 2
            $ x
            # speed 0.75
            # shape 0.1
        ,\x -> add "[0.5 | 0.25]*4" (s "jungbass:1" # speed 0.8 # shape 0.2 # krush 2)
            $ x # speed "[2 | -2]*8"
        ]
$ s "[drum drum:1 [~ drum] drum:1, drum:3*[[8 | 16]*4]]"
# krush 2

hush
1×
0:00
-0:23
Audio playback is not supported on your browser. Please upgrade.

Tidal Cycles is back as some people were asking about it and today’s example makes use of some cool syntax, that I am going to walk you through in a future post,

Modulations is a reader-supported publication. To receive new posts and support my work, consider becoming a free or paid subscriber.

3
Share
Previous
Next
Comments
Top
New
Community

No posts

Ready for more?

© 2023 Nick Lewis
Privacy ∙ Terms ∙ Collection notice
Start WritingGet the app
Substack is the home for great writing