sumisonic

[sumisonic]

TidalCycles - Pattern 0059

Made with TidalCycles.

https://soundcloud.com/sumisonic/pattern-0059

do let whenmod' n s e = when ( (\c -> (c >= s) && (c < e)).(`mod` n) ) d1 $ whenmod' 128 0 8 ((stut "<0 1 2 3 4 6>" 0.5 0.5).(slow "<1.5 2 4 6 8>")) $ every' 8 7 (within (0.5, 1) (stut 3 0.25 0.5)) $ stack [ every' 4 3 (within (0, 0.5) (stut 4 0.5 0.5)) $ slow "1 1.5 2" $ stack [ sound "909(<2 3>,4)" # shape 0.5 # coarse "4 2", sound "ifdrums(3,8,<0 5>)" # shape 0.5 # speed 0.7 # coarse "6 8" ], whenmod' 128 0 16 (slow "1 2") $ stack [ whenmod' 64 0 8 (# gain 0) $ stut "<4 4 [4 2]>" 0.25 0.25 $ gain "[0 1]*8" # sound "808:1" # legato (slow 4 $ scale 0.1 1 sine1) # pan (fast 2 $ scale 0.25 0.75 sine1) |*| gain 1.1, every' 3 2 (0.125 <~) $ iter 4 $ gain "[1 0.8 0.8 1 0.5 1 0.8 1]*2" # sound "lt" # lpf (slow 4 $ scale 400 300 tri1) # lpq 0.05 # speed 0.5 # hpf 100 # coarse 12 ], stut 4 0.5 0.25 $ slow 1.5 $ sound "if:2(1,8,2)" # speed 0.7 # coarse 8 # legato 2 # lpf 2000, gap (choose [4,8,12]) $ sound "stab:3*16" # gain (slow 3 $ scale 0.9 0.5 sine1) # coarse 4 # speed 0.8, stut "<3 3 4 4>" 0.75 0.75 $ sound "[~ insect:1/2] ~ ~ ~" # coarse 2 # up 1, every' 4 3 (stut 6 0.25 0.75) $ every' 3 2 (0.125 ~>) $ slow 1.5 $ gain "0 0 1 0" # sound "short:1" # shape 0.5 # coarse 4 # speed 0.8 # hpf 100 |*| gain 1.1, whenmod' 8 0 4 (# gain 0) $ stut 3 0.25 0.5 $ gain "[1 0.8]*6" # sound "auto:9" |*| gain 0.9 # hpf 100 # speed (-0.9), (0.25 ~>) $ sound "jungbass:14/2" # gain 1, stut 4 0.75 2 $ (1 <~) $ sound "[flick:2, dr:13](1/4,8,6)" # shape 0.5 # legato 2 # speed 0.8, stut "6 4" 0.75 0.75 $ sound "808(1/2,8,3)" # speed (0.5) # bpf 1200 # gain 1.1 ] d2 $ stack [ gain "[1 0.5]*8" # sound "chin" # gain 1.2, sound "v:3(1/2,8,7)" # speed 0.5, whenmod' 8 4 8 (# gain 0) $ sound "d*16" # gain (slow 2 $ scale 0.5 1 saw1) # lpf (slow 4 $ scale 2000 1000 tri1) # lpq 0.15, whenmod' 64 0 8 (# gain 0) $ stut 4 0.5 0.5 $ (0.125 ~>) $ up "~ ~ [[0 5] [~ 2]] ~" # sound "sundance:3" # gain (slow 8 $ scale 1 1.3 sine1) |+| up 12 # lpf 1200 # legato 2 # coarse 8, (1 <~) $ sound "flick:1(1/4,8,3)" ] # room 1 # size 0.98 # orbit 1 |*| gain 0.8

[sumisonic]

TidalCycles - Pattern 0058

Made with TidalCycles.

https://soundcloud.com/sumisonic/pattern-0058

do let whenmod' n s e = when ( (\c -> (c >= s) && (c < e)).(`mod` n) ) d1 $ whenmod' 128 0 2 (|*| gain 0) $ (2 ~>) $ every' 4 3 (within (0.5, 1) (slow 1.5)) $ stack [ iter 4 $ gain "1 1 0 1 0 1 <1 0> <0 1>" # sound "909" # shape 0.5 # coarse 6, every' 3 2 (fast (6/4)) $ stut 3 0.25 0.25 $ gain "0 0 0 0 0 0 <1 0> <0 1>" # sound "[auto:2, ifdrums:2]" # shape 0.5 # speed 0.75 # coarse 6 |*| gain 0.9, whenmod 8 4 (fast (6/4)) $ stack [ every' 4 3 (slow 1.5) $ gain "[0.7 1]*4" # sound "[glitch:0, 808:1]" # shape 0.3 |*| gain 1.3, sound "ifdrums(<2 3>,<2 3>)" # shape 0.5 # speed 0.6 ], iter 4 $ sound "jungbass:2(3,8,<2 5>)" # shape 0.5 # lpf 100 # up (-3) # lpq 0.1, whenmod 6 3 (fast (6/4)) $ sound "lt*16" # lpf (slow 4 $ scale 120 200 tri1) # lpq 0.1 # speed 1.5 # gain (slow 2 $ scale 0.5 1.1 saw1) # hpf 100, sound "auto:5(2,<8 4>,6)" # shape 0.3 # coarse 4 # gain 1.1 ] |*| gain 1 d2 $ (2 ~>) $ stack [ sound "chin*16" # gain 1.2, sound "cp(1/2,8,1)", (0.5 <~) $ stut 6 0.25 1 $ sound "flick:1/4" # speed (0.8) # shape 0.1 # coarse 4, loopAt 1 $ gap 64 $ sound "arp/2" # hpf 100 # gain 1, sound "industrial:8" # speed (-0.5) # gain 0.8 # coarse 8 # lpf (slow 16 $ scale 1000 20000 sine1) # lpq 0.2, sound "click:2*6" # gain (slow 4 $ scale 0.75 1 sine1) ] # room 1 # size 0.95 # orbit 1 |*| gain 0.9

[sumisonic]

TidalCycles - Pattern 0057

Made with TidalCycles.

https://soundcloud.com/sumisonic/pattern-0057

do d1 $ every' 4 3 (within (0.25, 0.75) (slow 1.5)) $ every' 8 7 (within (0.5, 1) (stut 3 0.25 0.5)) $ stack[ sound "909(<2 3>,<2 3>)" # shape 0.5 # coarse 6 # speed 0.8, sound "mt*4" # hpf 100 # lpf 800 # speed 0.5 |*| gain (slow 6 envL), whenmod 8 4 (fast (8/6)) $ gain "[1 0.6]*6" # sound "808:1" |*| gain (slow 8 envL), stut (choose [3,4,6]) 0.5 0.5 $ (0.75 ~>) $ sound "industrial:2/1.5" # coarse 2 # speed 0.8 # gain 1.1, (0.5 ~>) $ stack [ sound "ifdrums" # shape 0.5 # speed 0.7 # coarse 6 # gain 0.9, sound "jungbass:4" # speed 0.7 ] # hpf 40 |*| gain 0.9, whenmod 6 3 (fast (8/12)) $ sound "techno(12,12)" # shape 0.5 # speed (scale 1.1 1.2 tri1) # lpf (slow 4 $ scale 100 800 tri1) # lpq 0.1 # legato (slow 6 $ scale 0.25 1 tri1) # pan (fast 2 $ scale 0.25 0.75 sine1) # gain 0.9 |*| gain (slow 8 envL) ] d2 $ stack [ gain "[1 0.6]*8" # sound "chin" # gain 1, sound "tok:(1,4,3)" # gain 1.1 # coarse 2, sound "wind:5(8,8)" # speed 0.2 # gain (slow 2 $ scale 1 0.5 tri1) # hpf 200, (0.25 ~>) $ gap 32 $ sound "flick:4/1.5" # speed (-0.5) # gain 0.7 # coarse 4, stut 12 0.5 1 $ slow 1.5 $ stack [ sound "sine:0(1,8,7)" # speed 3 # gain 0.5 # legato (slow 4 $ scale 0.1 1 tri1), sound "sundance(1,8,3)" # speed 0.5 # coarse "<2 4 6 8>" # gain 0.9 ] |*| gain (slow 12 envL) ] # room 1 # size 0.95 # orbit 1 |*| gain 0.9

[sumisonic]

TidalCycles - Pattern 0056

Made with TidalCycles.

https://soundcloud.com/sumisonic/pattern-0056

do let whenmod' n s e = when ( (\c -> (c >= s) && (c < e)).(`mod` n) ) d1 $ off 0.25 ( (|*| gain 0.8). (rev). (slow 1.5). (# coarse (choose [6,8,4])). (# speed (choose [0.5, 0.75, -0.75, 0.8])) ) $ every' 8 7 (within (0.5, 1) (stut 4 0.25 0.5)) $ stack[ sound "ifdrums(<3 3 3 3 4 4 4 4>,8,<0 3>)" # shape 0.5 # speed 0.8, every' 3 2 (stut 4 0.75 0.75) $ within (0.25, 0.75) (slow 1.5) $ iter 8 $ sound "amencutup(<8 4>,2)" # n (slow 4 $ run 32) # shape 0.5 # speed (choose [0.5, -0.5, 0.75, 0.25]) # coarse 4 # hpf 200 # pan (fast 2 $ scale 0.25 0.75 tri1) # lpf (slow 8 $ scale 1200 6000 tri1) # lpq 0.2 # hpf 200 # gain (scale 0.5 0.8 sine1), degradeBy 0.2 $ stut 4 0.5 0.25 $ every' 3 2 (brak) $ sound "auto:6*4" # up 5 # shape 0.5 # coarse 6 # hpf 100 # lpf (slow 6 $ scale 400 2200 tri1) # gain (slow 8 $ scale 0.5 0.9 tri1), whenmod' 16 0 8 (# gain 0) $ every' 3 2 (within (0.5, 1) (stut 6 0.5 0.5)) $ sound "ifdrums:2(2,8,<1 5>)" # speed "0.5 0.6" # coarse 4 # gain 0.95, whenmod 16 8 (fast 2) $ gain "[0.75 1.0]*4" # sound "ifdrums:1" # speed 1.2, (0.125 ~>) $ sound "jungbass:4" # lpf 100, stut 4 0.5 0.25 $ sound "mt(3,8,<0 1>)" # coarse 8 # speed 0.75 ] d2 $ stack [ sound "chin*3" # gain 1.3, sound "industrial:20/2" # speed (-0.25) # gain 0.8 # hpf 100 # lpf 1800, whenmod' 64 0 8 (# gain 0) $ gap 128 $ sound "subroc3d:6/4" # coarse 6 # shape 0.2 # speed 0.4 # gain 0.95 ] # room 1 # size 0.95 # orbit 1 |*| gain 0.8

[sumisonic]

TidalCycles - Pattern 0055

Made with TidalCycles.

https://soundcloud.com/sumisonic/pattern-0055

do let whenmod' n s e = when ( (\c -> (c >= s) && (c < e)).(`mod` n) ) d1 $ every 3 (within (0.25, 0.75) (slow 1.5)) $ every' 8 7 (within (0.5, 1) (stut 6 0.25 0.5)) $ stack [ interlace (sound "ab:4*2") (sound "ab:4*3") # speed 0.8 # coarse 4, (0.125 ~>) $ stut 8 0.25 1.5 $ striate 16 $ sound "lt:2(3/2,8)" # speed 0.5 # coarse 6 |*| gain (slow 8 envL), sound "auto:4/2" # shape 0.5 # coarse 6 # speed 0.75 # hpf 100, gain "[0.75 1]*8" # sound "bd:8" # shape 0.3 # coarse 2 # speed (slow 4 $ scale 1.0 0.5 tri1) # hpf 160 # pan (fast 2 $ scale 0.25 0.75 sine1) |*| gain (slow 16 envL), stut 3 0.5 "<0.5 1 0.75>" $ sound "ifdrums" # shape 0.5 # speed 0.5 # hpf 100, sound "jungbass:4", stut 3 0.5 0.5 $ slow 1.5 $ sound "future:9(1,8,<2 3>)" # shape 0.5 # speed 0.5 # coarse 5 # gain 1.1 # hpf 200 ] d2 $ stack [ stut 6 0.5 0.25 $ sound "ab:5*3", slow 1.5 $ sound "stomp:3(1,4,1)" # coarse 4, loopAt 2 $ sound "subroc3d:6" # hpf 100 # gain 0.8, (1 <~) $ sound "cp(1/8,8,2)" # speed 0.9 # coarse 2 # lpf 3000, gain "[0.75 1]*8" # sound "chin:0" # coarse 2 # speed (slow 8 $ scale 1.5 1.0 tri1) # pan (fast 2 $ sine1) ] # room 1 # size 0.95 # orbit 1 |*| gain 0.8 d3 $ stack [ whenmod' 64 0 16 (# gain 0) $ whenmod 8 6 (fast 1.5) $ gain "[0.75 1]*4" # sound "808:1" # speed 1.2 # coarse 2 |*| gain 0.95 ]

[sumisonic]

TidalCycles - Pattern 0054

Made with TidalCycles.

https://soundcloud.com/sumisonic/pattern-0054

do let whenmod' n s e = when ( (\c -> (c >= s) && (c < e)).(`mod` n) ) d1 $ stack[ every 4 (0.125 ~>) $ sound "[jungbass:5,less]/2" # lpf 400 # hpf 40, slow 2 $ sound "[future:3]*3" # speed 0.8 # shape 0.3 # coarse 2, interlace (sound "future:1*6") (sound "future:1*8") # gain 0.8 # coarse 2 # speed 0.8, stut 4 0.5 0.25 $ weave 4 (pan sine1) [(sound "glitch2*3"), (sound "glitch2*4")] # lpf (slow 4 $ scale 1200 2000 tri1) # lpq 0.1 # speed 1.25, stut 6 0.5 0.25 $ sound "chin(3,8)" # coarse 6 # pan (slow 1.5 $ sine1), stut 3 0.25 0.5 $ slow 1.5 $ sound "[industrial:6](1/2,8,4)" # speed 0.5 # shape 0.5 # coarse 2 # lpf 2000 # hpf 200 # gain (slow 8 $ envL * 1.1) ] # room 0.1 d2 $ stack [ stut 2 1 1.5 $ loopAt 3 $ sound "koy" # hpf 150 # speed (-1) # gain 1.1, sound "dr55:1*8", stut 12 0.25 1 $ sound "industrial:26" # speed "-0.2" # hpf 100 # gain (slow 8 $ scale 0.4 1.0 tri1), whenmod' 64 0 16 (# gain 0) $ sound "chink(1/4,8,5)" # speed 0.8 # gain 0.9, whenmod' 64 0 8 (# gain 0) $ every 8 (# gain "0.8 0 0.8 [0.8 0.8]") $ gain "0*8" # up "0 0 2 [8 7]" # sound "sine" # legato 0.15 ] # room 1 # size (slow 8 $ scale 0.95 0.99 tri1) # orbit 1 |*| gain 0.8

[sumisonic]

TidalCycles - Pattern 0053

Made with TidalCycles.

https://soundcloud.com/sumisonic/pattern-0053

do d1 $ stack[ sound "[ifdrums, 909]" # shape 0.5 # speed 0.8, stut 6 0.5 0.5 $ interlace (sound "stomp:1*2") (sound "stomp:1*4") # hpf 100, stut 4 0.5 0.25 $ (0.125 ~>) $ sound "bass3" # shape 0.1 # speed 0.6 # gain 1.2, every 3 (stut 6 0.25 0.25) $ weave 4 (pan sine1) [sound "ul:5(4,8)", sound "ul:5(8,8)"] # gain 0.8 # coarse 8 # lpf (slow 8 $ scale 1200 4000 tri1) # lpq 0.1, stut (choose [6,8]) 0.5 0.5 $ sound "flick:1(1,8,3)" # gain (slow 8 $ scale 0.5 0.9 tri1) # shape 0.5 # coarse 2 # speed 0.8 # lpf (slow 6 $ scale 1000 3000 sine1) # lpq 0.1 |*| gain (slow 8 envL), sound "jungbass:4" ] d2 $ stack [ sound "ul:3*4", sound "techno:5/4" # speed 0.25 # hpf 100 # coarse 8 # gain 1.1, gain "[0.5 1]*4" # sound "808:1" |*| gain (slow 4 $ scale 0.5 1 tri1*(-1)) # pan (fast 2 sine1) |*| gain (slow 8 envL), sound "future:5*6" # gain 0.9, stut (choose [6,8]) 0.5 0.5 $ sound "industrial:24(1,8,7)" # coarse (choose [4,6,8]) # shape 0.2 |*| gain (slow 16 envL) ] # room 1 # size 0.95 # orbit 1 |*| gain 0.8

[sumisonic]

TidalCycles - Pattern 0052

Made with TidalCycles.

https://soundcloud.com/sumisonic/pattern-0052

do let whenmod' n s e = when ( (\c -> (c >= s) && (c < e)).(`mod` n) ) d1 $ every 3 (within (0.25, 0.75) (slow 1.5)) $ every' 8 7 (within (0.5, 1) (stut 8 0.25 0.5)) $ stack [ whenmod 6 4 (slow 2) $ weave 8 (gain (scale 0.6 1 sine1)) [ sound "[ifdrums, 909](3,3)", sound "[ifdrums, 909](2,8)" ] # shape 0.5 # speed 0.8 # coarse 5, every' 2 1 (0.125 ~>) $sound "jungbass" # shape 0.5 # up 2, weave' 3 (sound "lt(<2 4>,8)") [fast 2, (# speed 0.7), (# coarse 8)] # hpf 150, stut 4 0.5 0.75 $ slow 1.5 $ sound "feel:4(1/2,16,2)" # shape 0.2 # speed 0.9 # coarse 4, whenmod 4 2 (stut 4 0.5 0.25) $ sound "sf:11(2,<3 4>,1)" # shape 0.5 # coarse 8, whenmod' 64 0 16 (# gain 0) $ gain "[1 0.7]*8" # sound "808:1" # pan (fast 2 $ scale 0.25 0.75 sine1) ] # room 0.1 d2 $ stack [ stut 3 0 0.125 $ sound "808:1(3,6,1)" # legato 0.01, sound "industrial:2(2,8,<1 0>)", sound "tok:2*4" # coarse 6, sound "stab:3/2" # speed (-0.3) # gain 0.9, sound "sf:10/1.5" # speed (-0.5) # gain 0.8, sound "feelfx:5(1/3,8,1)" # speed 0.5 # coarse 6, off 1.5 (# speed (-0.5)) $ sound "subroc3d:6/3" # speed (-0.25) # gain 0.8 ] # room 1 # size 0.95 # orbit 1 |*| gain 0.8

[sumisonic]

TidalCycles - Pattern 0051

Made with TidalCycles.

https://soundcloud.com/sumisonic/pattern-0051

do let whenmod' n s e = when ( (\c -> (c >= s) && (c < e)).(`mod` n) ) let len = 8 let time = (8/3) let kick = stack [sound "[909, 808bd]" # shape 0.5 # speed 0.8 # coarse 2 # gain 1.1, sound "ifdrums" # gain 0.8 # speed 0.8 # coarse 6 # legato 0.5] d1 $ stack [ stack[ ((time*0) ~>) $ e 4 4 $ kick |*| gain (slow len $ scale 0 1 sine1), ((time*1) ~>) $ e 6 3 $ kick |*| gain (slow len $ scale 0 1 sine1), ((time*2) ~>) $ e 3 8 $ kick |*| gain (slow len $ scale 0 1 sine1) ], every 3 (within (0.25, 0.75) (slow 1.5)) $ stack [ sound "auto:4/2" # shape 0.5 # speed 0.7 # gain 1 # coarse 4, sound "auto:5" # speed 0.8, sound "glitch:2" # speed "0.7", stut 4 0.5 0.25 $ sound "ifdrums*4" # hpf 200 # speed (slow 2 $ scale 1 1.1 sine1) # lpf (slow 4 $ scale 800 1200 tri1) # lpq 0.15 # shape 0.2 # coarse 6 # gain 1, stut 12 0.5 1 $ (0.125 ~>) $ sound "bass3" # shape 0.5 # up (-3) # lpf 150 # legato 0.2 # gain 0.9, slow 1.5 $ sound "bend:1(1,4,1)" # gain 1.25 # coarse 4 # shape 0.5 ], whenmod' 32 0 16 (# gain 0) $ gain "[0.6 1]*4" # sound "808:1" # speed 1.1 # legato 0.1 ] # room 0.1 d2 $ stack [ sound "glitch/2" # gain 1.1, stut 6 0.5 1 $ gain "0 1 0 0 0 0 0 0" # sound "click:2" |*| gain 0.9, gain "0 1 0 0 0 0 0 0" # sound "sundance" |*| gain (slow 4 $ scale 0.8 1.1 sine1), slow 1.5 $ gain "0 0 0 0 0 0 0 1" # sound "wind" # speed (choose [0.5, 0.75, 1]) |*| gain 1 ] # room 1 # size (slow 8 $ scale 0.99 0.95 tri1) # orbit 1 |*| gain 0.9

[sumisonic]

TidalCycles - Pattern 0050

Made with TidalCycles.

https://soundcloud.com/sumisonic/pattern-0050

do let whenmod' n s e = when ( (\c -> (c >= s) && (c < e)).(`mod` n) ) d1 $ every' 8 7 (trunc 0.75) $ every 3 (within (0.25, 0.75) (slow 2)) $ whenmod' 8 5 8 (iter 4) $ stack[ every' 4 2 (0.125 ~>) $ sound "[feel:6/2, auto:5]" # shape 0.4 # speed 0.8 # coarse 6, iter 4 $ stut 3 0.7 "<0.5 0.25>" $ sound "bass3(3,6,<2 1>)" # shape 0.5 # hpf 200 # up 0 # gain 0.85 # coarse 6 # lpf (slow 4 $ scale 400 2000 tri1) # lpq 0.1, iter 4 $ stut 4 0.5 0.75 $ sound "jungbass(3,8,<0 1>)" # shape 0.4 # gain 1.2 # hpf 60 # up 2 # coarse 4, (0.125 ~>) $ sound "bend*4", (0.125 ~>) $ stut (choose [8, 12, 16]) 0.25 1 $ gain "[0.8 1] 0 0 0 0 0 0 0" # sound "[industrial:4]" # coarse 6 # shape 0.5, stut (choose [4, 6, 8, 12]) 0.5 1 $ stut (choose [1, 2]) 0.8 0.125 $ slow 1.5 $ sound "[flick:1](1,8,<1 3>)" # coarse 6 # shape 0.2 # speed (choose [0.25, 0.5]) # gain (fast 3 $ scale 0.9 1 tri1) # pan (fast 12 $ scale 0.25 0.75 sine1), sound "[909, ifdrums](<3 4>,8)" # shape 0.5 # gain (slow 8 $ scale 0.25 1 sine1) # coarse 6 # speed 0.8, whenmod' 16 0 8 (# gain 0) $ gain "1*16" # sound "808:1" # pan "[0.25 0.75]*8" # speed 1 # coarse 2 # gain 1.1 ] d2 $ stack [ sound "bend:3(1,8,3)" # coarse 4 # speed (-0.5), slow 1.5 $ spin 4 $ sound "lighter" # speed (choose [1, 1.5]), sound "industrial:20/6" # speed (-0.125) # gain 0.7, sound "industrial:12/1.5" # speed (-1) ] # room 1 # size (slow 8 $ scale 0.95 0.99 sine1) # orbit 1 |*| gain 0.9

[sumisonic]

TidalCycles - Pattern 0049

Made with TidalCycles.

https://soundcloud.com/sumisonic/pattern-0049

do let p1 = sound "[auto:5/2, [ifdrums, 909](<3 3 4 4>,8,<0 5>)]" # shape 0.5 # speed 0.7 # coarse 6 let p2 = sound "~ ~ ifdrums:2 glitch:2" # shape 0.5 # speed 0.4 # coarse 6 # legato 0.75 # gain 0.8 let p3 = sound "jungbass*3" # shape 0.5 let p4 = stut (iter 4 "4 3") 0.8 0.25 $ sound "lt*4" # coarse 6 # speed (scale 0.9 1.0 sine1) # hpf 100 # gain 0.9 let p5 = gain "[0.5 1]*4" # sound "808:1" |*| gain 1.1 d1 $ every' 8 7 (trunc 0.75) $ every 3 (within (0.25, 0.75) (slow 2)) $ stack[ p1, every' 4 3 (stut (choose [4,8,6]) 0.5 0.5) $ p2, p3, p4, p5, (0.125 ~>) $ slow 1.5 $ iter 4 $ stack [ brak $ p1, spin 3 $ p2, slow 1.5 $ p4 # pan (scale 0.25 0.75 sine1), p5 ] |*| gain 0.8 # speed (choose [0.5, (-0.75), 0.75, 0.8]) # coarse (choose [9, 8, 12]) # hpf 200 ] # room 0.1 # size 0.5 d2 $ stack [ (36 ~>) $ off 1.5 (|+| up "<12 4>") $ iter 8 $ stut 32 0.5 2.0 $ sound "~ [~ sundance:3/2] ~ ~" # up "12" # shape 0.4 # pan sine1, slow 1.5 $ sound "industrial:17/3" # speed (-0.3) # gain 0.9, sound "~ glitch:2/2" ] # orbit 1 # room 1 # size 0.95 # delay 1 # delaytime 0.75 # delayfeedback 0.9 |*| gain 0.9

[sumisonic]

TidalCycles -Pattern 0048

Made with TidalCycles.

https://soundcloud.com/sumisonic/pattern-0048

do let whenmod' n s e = when ( (\c -> (c >= s) && (c < e)).(`mod` n) ) d1 $ off 1.25 ( (|*| gain (slow 4 $ scale 0.5 0.7 sine1)). (# hpf 200). (stut 2 0.5 1.25). (slow 1.5). (iter 4). (# speed (fast 1.5 $ "0.5 0.75 -0.5 1.2")). (# coarse (fast 2 $ "6 8 12")). (# orbit 1). (# room 1). (# size 0.95) ) $ stack[ every' 3 2 (stut "<6 4>" 0.5 0.25) $ every' 2 1 (0.125 ~>) $ stack [ sound "auto:5, 909" # shape 0.5 # speed 0.9 # coarse 6, sound "jungbass" # shape 0.6 # gain 1.1, sound "jungbass:6/2" # shape 0.5 # gain 0.9 ], stut "<4 3>" 0.5 0.25 $ stack [ every' 3 2 (fast 1.5) $ sound "odx*4" # shape 0.5 # coarse 4 # speed 0.8 # gain (slow 4 $ scale 0.5 1.0 tri1) # pan (slow 6 $ scale 0.8 0.2 sine1), every' 4 3 (fast 1.5) $ sound "feel*3" # shape 0.5 # coarse 6 # speed 0.7 # gain (slow 4 $ scale 1.0 0.5 tri1 * 1.1) # pan (slow 6 $ scale 0.2 0.8 sine1) ] # lpf (slow 8 $ scale 1200 2400 tri1) # lpq 0.1, stut "<4 3 2>" 0.5 0.25 $ sound "808lt*8" # shape 0.5 # speed "1.2 1.1" # hpf 120 # gain 1, whenmod' 16 0 8 (# gain 0) $ gain "[0.5 1]*4" # sound "808:1" # pan (fast 2 $ scale 0.25 0.5 sine1) |*| gain 1.1 ] d2 $ stack [ sound "pad:2*3" # speed (slow 8 "<0.7 0.6>"), stut 6 0.8 0.5 $ slow 1.5 $ sound "industrial:24" # speed 0.5 ] # orbit 1 |*| gain 0.9

[sumisonic]

TidalCycles -Pattern 0047

Made with TidalCycles.

https://soundcloud.com/sumisonic/pattern-0047

do d1 $ off 1.25 ( (|*| gain 0.8). (stut "<6 4>" 0.5 "<1.5 0.5 1.25>"). (slow 1.5). (brak). (iter 8). (|*| speed (fast 2 $ "0.75 1.25 -0.75 0.9")). (# coarse (iter 4 "6 8 12 4")). (# hpf 200). (# lpf (slow 2 $ scale 2000 8000 tri1)). (# lpq 0.1) ) $ stack[ every 3 (stut 6 0.5 0.25) $ every' 4 3 (0.125 ~>) $ stack [ sound "[909, auto:5]" # shape 0.5 # gain 1.1 # coarse 8, sound "jungbass" # shape 0.5 # gain 1.2 ], iter 4 $ gain "[1 1] 0 0 1 [0 1] 1 0 1" # sound "[ifdrums, auto]" # shape 0.5 # speed 0.7 # coarse 4 |*| gain (slow 3 $ scale 0.5 1.1 sine1), gain "0 0 1 0 0 0 1 0" # sound "odx:1" # shape 0.5 # speed 0.9 # coarse 6, gain "0 0 0 1 0 0 0 0" # sound "odx:4" # shape 0.5 # speed 0.8 # coarse 4, gain "[0.7 1]*8" # sound "odx:2" # pan (fast 4 $ scale 0.25 0.75 sine1) |*| gain 0.8, (0.125 ~>) $ iter 4 $ stut "<4 3>" 0.6 0.25 $ sound "lt:6*8" # speed 0.8 # shape 0.5 # coarse 6 # lpf (slow 1.5 $ scale 400 600 sine1) # lpq 0.1 # hpf 100 # gain (fast 4 $ scale 0.6 1.1 sine1) ] d2 $ off 0.75 ( (|*| gain 0.8). (stut 4 0.5 0.25). (slow 1.5). (iter 4). (# speed (iter 4 "1.5 0.5 0.75 -0.75")) ) $ stack [ slow 1.5 $ sound "rave:3" # speed (-0.7), stut 4 0.75 0.25 $ sound "miniyeah*2" # coarse 6 # gain (slow 2.5 $ scale 0.8 1.2 sine1), sound "industrial:17(1,8,3)" # coarse 6, sound "insect(3,8)" # coarse 2, sound "glitch:4*4" # shape 0.5 # gain 1.2 # coarse 2, loopAt 2 $ sound "industrial:20" # gain 0.9 # speed (-1), sound "bass3*4" # speed (0.5) # gain 1.2 ] # room 1 # size 0.95 # orbit 1 |*| gain 0.71

[sumisonic]

TidalCycles - Pattern 0046

Made with TidalCycles.

https://soundcloud.com/sumisonic/pattern-0046

do let whenmod' n s e = when ( (\c -> (c >= s) && (c < e)).(`mod` n) ) d1 $ off 1.25 ( (|*| gain (slow 4 $ scale 0.75 0.95 sine1)). (iter 8). (slow 1.5). (stut 4 0.5 0.5). (|*| speed "1.5 0.75 -0.5 0.8"). (# coarse "6 8 12") ) $ stack [ sound "[909, ifdrums](2,8,<0 3>)" # shape 0.5 # coarse 4 # speed 0.8 # gain 1.1, stut "<3 4>" 0.75 0.5 $ sound "rm*3" # hpf (slow 4 $ scale 100 120 sine1) # hpq 0.4 # speed (slow 8 $ scale 0.75 1 sine1) # coarse 6 # gain 0.9 |*| gain (slow 8 envL) sound "less" # shape 0.5 # coarse 6 # gain 0.95, sound "less:3(1/2,8,3)" # legato 8 # shape 0.5 # speed 0.8 # coarse 4 # gain 1.1, sound "glitch:4*16" # gain 1.2 # pan sine1, gain "1" # sound "bass3" # shape 0.5 # up (-5) # gain 1.1, whenmod' 64 0 16 (# gain 0) $ gain "[0.7 1]*4" # sound "808:1" |*| gain 1.2 ] |*| gain 1 d2 $ stack [ striate 32 $ sound "metal(<4 2 6 3>/2,8)" # coarse 6 # speed 0.75, stut "<6 3 4>" 0.5 0.5 $ sound "monsterb:2(1/2,8,3)" # speed 0.75, chop "<8 4>" $ sound "procshort" # speed 0.25 # lpf 2000, sound "sine:2(1,4,<0 1>)", stut 8 0.5 1 $ chop "<6 8 4>" $ spin "<8 12>" $ sound "sid:3(1,4,3)" # shape 0.5 # speed "<2 1.5>" # gain (slow 4 $ scale 0 0.7 sine1) |*| gain (slow 8 envL) ] # room 1.0 # size 0.95 # orbit 1 |*| gain 0.9

[sumisonic]

TidalCycles - Pattern 0045

Made with TidalCycles.

https://soundcloud.com/sumisonic/pattern-0045

do let whenmod' n s e = when ( (\c -> (c >= s) && (c < e)).(`mod` n) ) d1 $ stack [ stut "<2 3>" 0.6 0.5 $ loopAt 1 $ spin "<8 4 6>" $ chop (density 1.5 $ "<32 16>") $ sound "feelfx:4/2" # lpf (slow 8 $ scale 2000 3000 sine1) # lpq 0.2 # shape 0.2, stut "<6 6 8 12>" 0.9 0.5 $ slow 3 $ sound "sine:0(8,8)" # up (density 1.5 $ iter 4 "-6 -2 4") |+| up "-12" # legato 0.1 # lpf 1200 # lpq 0.3 |*| speed "-1" # gain (slow 4 envL * 0.8), stut "<4 2 6>" 0.5 0.25 $ every' 3 2 (density 1.5) $ sound "sid*6" # speed "-2" # hpf (slow 4 $ scale 200 400 sine1) # hpq 0.2 # legato "0.75 0.5>" # shape 0.2 # pan (fast 2 $ scale 0.25 0.75 sine1) # gain (slow 8 envL), stut 3 0.5 0.75 $ loopAt 2 $ sound "auto:3/2" # coarse 6 # shape 0.3, loopAt 1 $ sound "[industrial:12/2, industrial:21]" # speed "-1" # coarse 6 # lpf 800 # gain 0.8 ] # room 1.0 # size 0.9 # delay (slow 8 $ scale 0.5 1.0 sine1) # delaytime (slow 4 $ scale 0.005 0.0055 tri1) # delayfeedback 0.5 # orbit 1 |*| gain 0.9 d2 $ whenmod' 64 28 64 (# gain 0) $ stack [ sound "jungbass:1" # shape 0.5, sound "lt(6,8,<1 4>)" # lpf 1200 # lpq 0.1 # shape 0.2 # speed 0.5 # coarse 6 ] |*| gain (slow 8 envL)

[sumisonic]

TidalCycles - Pattern 0044

Made with TidalCycles.

https://soundcloud.com/sumisonic/pattern-0044

do d1 $ off 0.75 ((|*| gain 0.8).(iter 8).(slow 1.25).(|*| speed "0.7 0.8 -0.9 0.75").(# coarse "8 12 6 5 4 9").(# pan (fast 2 $ sine1))) $ stack [ every' 3 2 (fast 1.5) $ stut 4 1 0.25 $ sound "ifdrums*8" # hpf 200 # lpf (slow 4 $ scale 400 800 sine1) # lpq 0.2 # up (iter 4 "2 0 4 12 -12 -5 0 8") # shape 0.1 # coarse 8 # legato 2 |*| speed 0.75 # gain 0.9, sound "ifdrums" # shape 0.5 # lpf 800 # speed 0.7 # gain 1.2, sound "909(3,8,2)" # shape 0.5 # speed 0.8 # gain 1.1, stut 3 0.75 0.25 $ sound "bass3:6*3" # shape 0.5 # coarse 4 # gain 1.1 ] d2 $ off 1.25 ((|*| gain 0.8).(slow 1.5).(# speed "0.5 1.5 0.75 -0.5").(# coarse "2 8 4 6")) $ stack [ stut 4 0.75 1 $ sound "glitch:4*6" # lpf (slow 8 $ scale 2000 1000 sine1) # lpq 0.3 # gain 1, stut 3 0.25 1.5 $ sound "flick:4(1/2,8,5)" # coarse 2 # speed 0.5 # gain 0.9, sound "stomp:3(1,8,4)", loopAt 1.5 $ sound "[industrial:2, industrial:11]" # shape 0.3 # hpf 100 # gain 0.7 # speed (-1), spin 4 $ sound "sid/4" # speed 0.5 # coarse 5 # shape 0.1 # gain 0.9, stut 4 0.75 0.25 $ sound "sid:3*8" # up (fast 3 "<0 3 7 6>") # lpf 600 # lpq 0.2 # gain 0.9 |*| gain (slow 8 envL) # legato 0.1, sound "auto:6(1/4,4,3)" # shape 0.5 # speed 0.6 # gain 1.1 # coarse 6 # legato 0.5 ] # room 1.0 # size (slow 6 $ scale 0.9 0.99 sine1) # orbit 1 |*| gain 0.8 d3 $ iter 4 $ stack [ stut 4 0.5 0.25 $ sound "mt:2(7,16,<0 1>)" # lpf 2000 # lpq 0.1 # speed 0.75 # coarse 6 # gain 0.8, every 2 (fast 1.5) $ gain "[0.5 1.1]*6" # sound "808:1" # coarse 2 # speed 1 # legato 0.1 # pan (scale 0.25 0.75 sine1), sound "noise2:1*6" # coarse 2 ] |*| gain (slow 12 envL)

[sumisonic]

TidalCycles - Pattern 0043

Made with TidalCycles.

https://github.com/sumisonic/TidalDiary/blob/master/pattern_0043.tidal

do let whenmod' n s e = when ( (\c -> (c >= s) && (c < e)).(`mod` n) ) d1 $ stack [ stut 2 0.75 1 $ sound "ab:2" # speed 0.25 # coarse 2 # cutoff (slow 8 $ scale 300 1200 sine1) # resonance 0.1 # hcutoff 100, sound "ab:8/2" # speed 0.8, whenmod' 16 0 8 (# gain 0) $ sound "ab:7(3,6,7)" # coarse 2 # speed 0.9 # gain 0.9, every' 8 7 (0.5 <~) $ off 1 ((# up (-18)).(|*| gain (slow 12 envL))) $ sound "ade:3/2" # up (-16) |*| speed (-1) # cutoff 1200 # resonance 0.1 # hcutoff 200 # gain 0.8, sound "ade:9" # gain 0.8, whenmod' 12 0 6 (# gain 0) $ sound "glitch:5(1,8,2)" # gain 0.9, stack [ stut 4 0.8 0.25 $ gain "1*4" # sound "techno" # coarse "<2 4 6 8>" # speed 0.7 # shape 0.9 |*| gain 0.6, sound "jungbass:1(<3 2>,8)" # gain 0.9 ] |*| gain (slow 16 envL) ] # room 0.9 # size 0.9 # delay 1 # delaytime (slow 8 $ scale 0.25 0.33 tri1) # delayfeedback 0.7 # orbit 1 |*| gain 0.9 d2 $ stack [ slow 2 $ sound "[ifdrums, 909](<2 3>,8)" # speed 0.8 # cutoff 200 # resonance 0.1 # gain 0.9 ]