brak $ let x = "bd [sn [[sn bd] sn]]*1/3" in interlace (sound $ slow 3 $ x) (sound $ every 3 (append "[bd]*6") x) 

Cycle 0

echo (1/32) $ whenmod 8 6 (rev) $ density 4 $ striate 64 $ sound $ samples "[bd bd [sn]*3]*1/4 cp" (slow 13 $ run 12)

Cycle 2

Resident

stack [spin 6 $ spread' (slow) "3 4 5 2" $ sound "[bd*5 ht*5, [sid/4]*3 lt*2/5 mt*3, [sid/3]*3]"] |+| speed "2"

Cycle 5

every 2 rev $ spread' (striate' 6) (((+0.1) . (*0.2)) <$> slow 32 sinewave1) $ sound "[diphone2/6 diphone2]/4"

Cycle 6

spread' striate "[4 2 3 8]/3" $ whenmod 4 2 (jux (rev)) $ sound "[[bd mt*3 bd [sn*8 bd] [lt*4 bd] [~ sn*4] ht/5*6 ht*2]]"

Cycle 7

spread' striate "[4 2 8 1]/3" $ jux palindrome $ sound "[jvbass*4 jvbass/5*8 ~ jvbass/9*6, drum*2 sn/2 drum/2*6 rave/3]"

Cycle 7.1

density 2 $ jux (iter 32) $ sound "bass3/2 bass3/0" |+| (speed $ every 2 rev  $ "[8 3 4]/3")

Cycle 10.1

superimpose ((|+| vowel "a") . iter 4) $ jux rev $ sound (samples "[amencutup*8 bass3*2,[jvbass*8]/3]" $ slow (3/5) $ run 12)

Cycle 11

d1 $ (jux (spread' (<~) (toRational <$> (slow 16 sinewave1))) $ sound "bd*2 pluck/2 sn/2 [pluck/0 pluck/1]") |+| speed "1 2 3 2"

Cycle 12

stack [smash 4 [1..16] $ (jux (spread' (<~) (slow 64 $ sinerat1)) $ sound $ samples "[bd bd*4, jvbass*8]" (slow 4 $ run 8)), sound "future/1"]

Cycle 13

(spread' (striate' 4) ((+0.2) <$> slow 8 sine1)) $ jux rev $ sound (samples "[latibro*6,bd]/2" "0 7 4") |+| speed "[1 2 1.5]/4"

Cycle 15

sound (samples "{casio ~ bd*3, bd*2 rm*3, numbers lt [mt sn, lt*3 voodoo] sn bass3*2}" ("{7 2, 3 1 5}")) |+| end rand

Cycle 17

every 3 (0.5 &lt;~) $ jux (spread' (density) "[2 1 3]/4") $ sound "{drum drum odx*2, drum/2 drum/3 [hit/7 ~ ~ ~]/4 drum/2 ~}" |+| shape "0.9"

Cycle 18

<pre>
d1 $ every 8 (|+| speed "-1") $ 
  stack [slow 2 $ (every 4 (trunc (1%4)) $ density 2 $ sound "[bd sn [~ bd] sn, bd bass3 sn bd [bd sn] sn ht lt]")
         |+| speed "2",
         every 4 (density 2) $ sound "~ [bass3:2 ~ 2, drum:1, cp]",
         superimpose rev $ density 2 $ slowspread ($) [striate 2, (|+| speed "2"), rev, (|+| speed "3")] $ sound "[jvbass*2 rave2 rave2:2 ~]",
         jux rev $ density 2 $ striate 2 $ sound (pick &lt;$&gt; "[rave2*2 ~ rave2 ~ , rave2 ~ rave2]" &lt;*&gt; "[[1 4]/4 2, ~ 7 ~]/7")
         |+| gain "0.87"
        ]
</pre>

Cycle 19

stack [jux (echo (1%8)) $ sound "drum*2 [bass2:4 ~ bass2:3]"
            |+| gain "1.15"
            |+| speed "2",
            sound (pick &lt;$&gt; "amencutup*16" &lt;*&gt; ((floor . (*16))&lt;$&gt; rand))
            |+| gain "1.5"
            |+| speed "[1 1 1 -1, 1.5 2]/3",
            slow 2 $ every 3 (slow 2) $ every 2 (echo (1%64)) $ jux rev $ sound (pick &lt;$&gt; "arpy*16" &lt;*&gt; (superimpose ((7-) &lt;$&gt;) "0 0 4 0  0 4 7 4  4 3 4 2  2 2 2 6"))
            |+| speed (every 8 ((+1) &lt;$&gt;) "[2 3, 1]")
            |+| cutoff (slow 8 $ (*0.4) &lt;$&gt; sine1)
            |+| resonance "0.8"
           ]

Cycle 20

d1 $ stack [slow 2 $ slowspread (stut 3 0.8) [1%8,1%3,1%4,1%5] $ sound "[bd*4 bd*3]/2 bd*3 bd*1"
            |+| gain "1.9"
            |+| speed "2",
            jux (slow 2 . rev) $ slow 2 $ stut 3 0.6 (1%2) (sound (pick &lt;$&gt; "arpy*3 arpy:2 arpy*2 arpy:3" &lt;*&gt; "{2 1 3 0 4, 7 10 9}/7"))
            |+| speed "[1, 2 3]/4"
            |+| end "0.4",
            jux rev $ every 4 (jux (iter 8)) $ slow 2 $ stut 3 0.6 (1%2) $ sound "rave2*3 rave2:7 rave2:4*2 rave2:4"
            |+| speed "2"
            |+| gain "1.5"
            |+| cutoff (slow 3 $ (*0.3) &lt;$&gt; sine1)
            |+| resonance "0.65"
           ]


Cycle 22

<code>
slow 2 $ stack [every 4 rev $ (jux ((|+| speed "0.5") . rev) $ sound "arpy ~ arpy:5 ~ arpy:3 ~")
            |+| end "0.6"
            |+| delay "0.9",
            jux rev $ superimpose (iter 4) $ slow 2 $ sound "[bass3 ~ bass3:3*2 ~ bass3*2 bass3:2]"
            |+| speed ("[4 8 6]/4")
            |+| shape "0.4" |+| gain "0.9" |+| delay "0.4",
            slowspread ($) [id, brak, id, density 2, trunc (1%4), rev] $ sound "ht lt future sn drum ~"
            |+| shape "0.9"
            |+| speed "4"
           ]
  |+| delayfeedback "[0.3 0.5]/3"
  |+| delaytime (every 8 (const "0.5") $ slow 4 $ ((+0.03) . (*0.04)) &lt;$&gt; sine1)
</code>

Cycle 21

Cycle22 live extension

Cycle22b

Cycle23 extension


d1 $ every 16 (echo 0.25) $ 
  stack [sound "[bd ~ bd:4] [drum bd]"
            |+| speed "0.8"
            |+| gain "1.5",
            slowspread ($) [(|+| speed "2"), rev, iter 4, rev] $ stut 3 (0.25) (-0.25) $ sound (pick &lt;$&gt; "industrial*8" &lt;*&gt; (every 6 (const (irand 32)) "[0 [1 4]/3 2 [3 6 4]/3]*2"))
            |+| end (every 8 (const 0.04 &lt;$&gt;) $ "0.03")
            |+| cutoff (every 4 ((*4) &lt;$&gt;) "0.04 0.05")
            |+| resonance "[0.6 0.4 0.1]/3"
            |+| gain "1.5",
            jux rev $ density 4 $ striate' 2 0.2 $ sound (pick &lt;$&gt; "[bass3:2 bass3:7]/2" &lt;*&gt; (slow 8 $ run 8))
            |+| speed (every 4 ((*2) &lt;$&gt; ) "[1 1 1 [4.1 2]/2]/4")
            |+| delay "0.9"
            |+| delayfeedback "[0.6 0.2]/4"
            |+| delaytime "0.1"
            |+| accelerate "1"
            |+| gain "1.2",
            jux (iter 4) $ slowspread ($) [id, id, iter 4] $ spread' (\x -&gt; striate' x 0.1) "[2 4 2 2]/3" $ sound "[[latibro]/2 ~ jvbass:5 jvbass:5]"
            |+| speed "[[1 0.9]/4,0.5,2]"
            |+| cutoff (every 4 ((*4) &lt;$&gt;) "[0.04 0.05 0.8]/4")
            |+| resonance "[0.6 0.4 0.1]/3"
            |+| gain "1.7"
           ]

Cycle24

Cycle24 extended

Inspired by percussionist Sarah Jones but probably nothing like her. code:

sometimes (rev . chop 8) $ sometimes (|+| speed "2") $ jux (0.25 <~) $ sound (samples "[ifdrums*8, future*8]" (run 8)) # nudge "[0 0.04]*4" # shape "0.2"


eu_jones

Repetitive cycles made with Tidal
http://yaxu.org/tidal/

See description of each cyclce to see the complete Tidal source code.

All cycles are downloadable under a CC-BY-SA license.

For updates: http://twitter.com/tidalcycles/

tidalcycles

Popular tracks