Algorave

Releasing short clips of daily live-coded jamz. Code:

p = ProxySpace.new.push;

~freq = {EnvGen.ar(Env.circle(([36,36,39,39,34,34,46,46,24,24,24,24]+24).midicps,[0.99,0.01,0.99,0.01,0.99/2,0.01/2,0.99,0.01,0.99/2,0.01/2,0.99,0.01]/4))}
~amp = {-20.dbamp}
~saw = {Saw.ar(~freq,mul:~amp/2)}

~n2 = {SinOsc.ar(DelayN.ar(~freq,1,0.125)+SinOsc.ar(~freq,mul:~freq*8*SinOsc.ar(0.125,mul:0.9,add:1)),mul:~amp)}

~n = {Out.ar(0,(Compander.ar((LPF.ar(SinOsc.ar([~freq,~freq*1.5]+SinOsc.ar(~freq,mul:~freq*2),mul:~amp)+~saw+~n2,2000*SinOsc.ar(8+SinOsc.ar(0.5,mul:4,add:8),mul:0.5,add:1))),control:~amp2,thresh:-20.dbamp,slopeBelow:1,slopeAbove:1/25,clampTime:0.01,relaxTime:0.1))!2)}

~amp2 = {EnvGen.ar(Env.circle([-5,-200].dbamp,[0.999,0.001]/2))}

~kick = {Out.ar(0,(SinOsc.ar(60,mul:~amp2*1)+LPF.ar(WhiteNoise.ar(~amp2/2),325))!2)}

~hh = {Out.ar(0,HPF.ar(WhiteNoise.ar(DelayC.ar(~amp2,1/4,1/4)/16),10000)!2)}

Hack Pact Day 1

Releasing short clips of daily live-coded jamz. Tidalcycles Code:

d1 $ every 2 (jux (# speed "1 2 1")) $ superimpose ((# speed "0.5") . (density 2)) $ sound "techno lighter [hh,sn:2/2] [lighter dr dr dr]"

d2 $ whenmod 4 2 ((# coarse "6")) $ density 2 $ sound "[latibro*8]" #  slow 36 (n "8 2 1 4")
  # slow 4 (end (scale 0.5 0.7 sine1))
  |*| jux rev (speed "1 2 1 1")
  |*| iter 4 (density 2 (up "0 3 7 [10 12]"))
  |*| slow 12 (up "14 10 9")
  
d3 $ sound "kick*2" # n "-30" # gain "1.1"

Hack Pact Day 2

Releasing short clips of daily live-coded jamz. SuperCollider code:

p = ProxySpace.new.push

~amp = {-20.dbamp}

~freq = {EnvGen.ar(Env.circle([50,50,38,38,43,43,43,43,48,48,48,48],[0.9,0.1,0.95,0.05,0.8,0.2]))}
~saw = {Mix.ar(Saw.ar(freq:[1,1.0002,1.0001,1.0004,1.0005]*~freq,mul:~amp/5))}
~noise = {WhiteNoise.ar(0.5,add:1)}

~n.fadeTime = 15



(
~n = {Mix.ar(SinOsc.ar([1,1.02,1.01,0.95]*(~freq*~noise+SinOsc.ar(~freq,mul:~freq*SinOsc.ar(0.25,mul:3,add:4))),mul:~amp))+~saw};

// ~n = {SinOsc.ar(mul:0)};
~out = {Out.ar(0,Compander.ar(~n!2,~amp2,-25.dbamp,1/5,1))}
)
~amp2 = {EnvGen.ar(Env.circle([-20.dbamp,0],[0.0001,0.9999].reverse/2))}
~kick = {Out.ar(0,(FreeVerb.ar(SinOsc.ar(50+SinOsc.ar(1000,mul:1000)*~amp,mul:~amp2*1.5),room:0.8))!2)}

Hack Pact Day 3

Oops, I like this one a lot better...

Releasing short clips of daily live-coded jamz. TidalCycles code:

d2 $ whenmod 8 7 (# coarse "14") $ stack [
  whenmod 5 1 (slow 2) $ every 4 (density 2) $ sound "[[808BD 808BD/3] 808BD 808BD/3 808BD]" # n "1" 
  # cut "1"
  # slow 8 (up "0 [2 9] [0 14] [0 [-5,2]]")
  |*| speed "[1 2 0.5 1]"
  # gain "1.1"
  # shape "0.8",
  sound "~ [808OH, 808CB:2/2, 808CB:2/4 808CB:2/8 808CB:2/4 808CB:2/8] [808SD:3,808CP,~ 808SD:2/2] [808OH 808CH/4 808CH/4 808CH/4 ,~ ~ ~808SD:1/4]" # shape "0.7"
  , sound "bassfoo sn:2" # cutoff "250" # resonance "0.1" # shape "0.2",
  whenmod 8 1 (const silence) $ sound "808BD*2 ~ 808CP*2 808CH*16" # shape "0.9" # cut "4"
  ] # slow 10 (end (scale 0.1 1 sine1))

d4 $ whenmod 8 1 (const silence) $ sometimes (# coarse "14") $ every 4 (density 2) $ sound "808RS*8" # n (run 10) # pan rand # shape "0.8"

Hack Pact Day 4 (b)

Daily short snippets of live-coded jamz. TidalCycles code:

d1 $ whenmod 18 16 (const $ sound "techno*32" # slow 2 (speed (run 64)) # slow 2 (shape "0.5 0.6 0.7 0.9 0.95 0.97 0.5 0.6 0.7 0.97 0.98 0.99")) $ every 7 (jux rev) $ whenmod 16 14 ((slow 2) . (# end "0.5") . (# coarse "10")) $ stack [
  sometimesBy 0.2 (jux rev) $ sound "{bd sn:2,techno*3,lighter*4,dr}" # slow 10 (cutoff (scale 500 3000 sine1)) # shape "0.7",
  every 3 (striate 2) $ sound "techno*8" # iter 4 (slow 2 (speed "1 3 4 6 12")) |*| speed "1 2"
] # slow 5 (shape (scale 0.01 0.9 sine1)) # coarse (run 14)

Hack Pact Day 5

Short snippets of daily live-coded jamz. Tidalcycles code:

d1 $ whenmod 9 7 ((# end "[0.5 0.1]/2") . (# coarse "[10 18]/2") . (density 2)) $ whenmod 8 5 (|*| speed "4") $ spread ($) [id, (|*| speed "2 1"), (# coarse "0 8")] $ spread slow [1,1%2,2,1%3,4] 
  $ sound "techno*2" # cut "1" # slow 8 (up "0 2") |*| speed "1" # shape "0.7"

d2 $ whenmod 9 7 ((# end "[0.5 0.1]/2") . (# coarse "[10 18]/2") . (density 2)) $ whenmod 8 6 (# coarse "10") $ sound "808BD [dr [dr/7,dr/8]] dr [sn:2, bd/4] dr [dr dr/8]"

d3 $ whenmod 9 8 (superimpose ((slow 2) . (# shape "0.4") . (stut 4 0.2 0.5) . (# vowel "o a e"))) $ every 3 (density 2) $ sound "pluck*3" # slow 6 (up "[2 [2 14]] 0 [-3 -5]") |*| speed "[0.5,0.75,1,3,4 2]" # gain "1.1"

Hack Pact Day 6

Short snippets of daily livecoded jamz. Tidalcycles code:
d6 $ stack[
 sound "[newnotes:3*6]" # (slow 11 (jux rev (n "2 3 4 5 6 5 4 3 [3 4] 3 3"))) # slow 30 (cutoff (scale 200 7000 sine1))
 ,
 every 4 (brak . (density 2))$ sound "bd dr? [dr,sn/2]" # gain "1.2" # slow 20 (cutoff (scale 800 10000 sine1)) # resonance "0.2"
]  # iter 3 (speed "[1 2 4,3 0.75,0.5,0.25,0.125]")
  # slow 31 (coarse (fmap floor (scale 0 24 sine1)))
  # slow 17 (shape (scale 0.3 0.8 sine1))
  # slow 11 (crush ((scale 3 10 sine1)))

Hack Pact Day 10

Short snippets of daily live-coded jamz. Tidalcycles code (using some custom synths):
d6 $ whenmod 32 28 (superimpose  (const $ jux rev $ sound "arpeg*8" # slow 4 (n "[0,3,10 12 19 24 28 29]") # gain "0.95" # hcutoff (scale 5000 10000 rand) )) $ stack[
  sound "det*5" # slow 2 (n "[0,3,10 8]") |+| slow 8 (n "3 0") # end "0.3" # gain "1.2"
  # room "0.4"
  # slow 17 (shape (scale 0.1 0.7 sine1))
  ,
  slow 2 $ sound "808BD:1 dr sn:2/2 dr" # slow 9 (coarse (fmap floor (scale 1 20 sine1))) # slow 13 (shape (scale 0.2 0.8 sine1))
]

Hack Pact Day 11

Short snippets of daily live-coded jamz. Tidalcycles code:
d6
  $ whenmod 64 62 (const $ sound "808BD*4" # shape "0.96")
  $ whenmod 32 28 (superimpose (const $ sound "techno*64" # rev (slow 4 (speed (run 64))) # shape "0.8" # pan rand)) 
$ stack [
  whenmod 32 30 ((slow 2) . (# shape "0.9")) $ slow 4 $ sound "808BD:3 ~ [808SD:4,sn:3,hh] [~ 808SD:3] ~ 808BD:3 [808SD:1,sn:3,hh] ~" # speed "[1,2,0.5]",
  whenmod 32 30 (density 2) $ whenmod 8 4 (superimpose (# pan rand)) $ sound "808CH 808CH 808OH [808CH]" # iter 4 (n (run 4)),  
  whenmod 32 30 ((# end "0.2") . (# shape "0.9") . (# crush "4")) $ whenmod 16 12 (# coarse "20") $ whenmod 8 6 (|*| slow 2 (accelerate "0 0 0.5 [1 -2]")) $ (superimpose (# pan rand)) $ sound "jvbass*4" 
    # speed "[1,3,4,0.75]" 
    |*| density 1 (speed "1 2 4 -1")
    # shape "0.4" 
    |*| slow 16 (up "[4 2] [11 7]")
] # room "0.1" # cutoff (slow 29 (scale 500 9000 sine1)) # resonance (slow 16 (scale 0.1 0.6 saw1)) # coarse (slow 31 (fmap floor (scale 0 15 sine1)))

Hack Pact Day 14

Short snippets of daily live-coded jamz. Some fun with Tidalcycles midi and Logic Pro, code:

cps $ 1.2
m1 $ density 2 $ midinote "36 ~ ~ [~ ~ ~ 36/8]"
m2 $ every 2 (slow 2) $ midinote "[48]*4" # dur "1" # slow 9 (velocity (scale 0.5 1 sine1)) # slow 21 (modwheel sine1)
m3 $ density 2 $ midinote "[[60*6 67*2] 64*8]/16" # iter 4 (density 4 (dur "1 0.1 2")) 
  # density 4 (velocity "1 0.5") 
  # slow 9 (modwheel (scale 0 1 saw1))
m4 $ slow 1 $ midinote "49 [49] 38 [49 38/4]" # dur "1.5"
m5 $ midinote "[]" # slow 10 (velocity (sine1)) # dur "8" # modwheel (slow 5 (sine1))

Hack Pact Day 15

Short snippets of daily live coded jamz. Tidalcycles code:
d6
  $ whenmod 8 7 (superimpose (const $ sound "numbers*4" # density 8 (n (fmap round (scale 0 25 rand))) # cutoff "5000" # density 12 (accelerate (scale (-7) (-3) rand) # pan rand)))
  $ stack[
  whenmod 4 3 (degrade) $ sound "[chord*8?,~ [lzr/4 lzr/2 lzr/5 lzr/2]]" # slow 8 (pan "0.5 1 0.5 0") # slow 16 (n "[0 [4 12]] [7 2]") |+| n "[0,24,12,-12]",
  whenmod 4 3 (rev . (# accelerate "-2") . (# cut "1")) $ sound "bd [sn:2 cp?,bd:1 ~ dr/5 dr/3]" # slow 31 (coarse (fmap round (scale 0 10 sine1)))
]

Hack Pact Day 18

Short snippets of daily live-coded jamz. tidalcycles code:
d6
  $ whenmod 16 15 (const $ degradeBy 0.4 $ sound "808BD:1 808BD:1 cp dr*4" # crush "4" # accelerate "-1.3" # shape "0.5" # cutoff "10000 4000")
  $ stack [
  chop 2 $ sound "{chord chord/2 chord? chord/4 chord,pad2/2}" |+| slow 8 (n "[[12,12 19] 4 7 2]") # end "0.5 1" |+| n "[0,12,-12]" |*| density 3 (pan (scale (-1) 1 rand)) # slow 32 (shape (scale 0 0.9 saw1)),
  whenmod 32 30 (density 2) $ whenmod 4 2 (jux rev) $ sound  "bd [dr bd/2] dr? [808OH,sn:2/2] [dr bd/4]" # slow 32 (cutoff (scale 1000 10000 saw1)) # resonance "0.35",
  whenmod 8 7 ((# crush "4") . (density 1.5) . (|+| n "[0,12]")) $ sound "sc_bass*5" |+| n "-12" # shape "0.5"
] # slow 32 (room (scale 0 0.4 saw1)) # iter 4 (slow 4 $ coarse "10 8 6 14")

Hack Pact Day 22

Short Snippets of Daily live coded jamz. SuperCollider Code:
(
Pdef(\a,
	Pmono(\saw6,\midinote, Pseq([Prand([60,72],1),Prand([64,64,64,76],1),67,60,71],inf)+Pstutter(16,Pseq([0,-12,7,10, 12],inf))+[-24,0,12,-12],\dur,Pseq([1/6],inf)*Pstutter(18,Pseq([1,0.5],inf)),\panScatter,1,\panFreq,10,\lpf,Pseq((200,300..10000)++(200,300..10000).reverse,inf)*Penv([0,1,0],[30,20]),\rq,0.2)
).play(quant:4);

Pbindef(\b,\instrument,\kick,\dur,Pseq([Pseq([0.5],2),Pseq([0.25],2),Pseq([0.125],4)],inf),\midinote,30+Prand([0,0,0,12],inf)).play;
)

Hack Pact Day 28

Short snippets of daily live coded jamz. Tidalcycles code:
d1
  $ whenmod 16 12 ((superimpose $ const $ sound "techno*48" # slow 4 (rev $ speed (run 48))) . (degradeBy 0.4) . (# slow 2 (coarse "14 20")) . (# slow 2 (vowel "o a t e")) . (|*| slow 4 (accelerate "0 -1.2")))
  $ stack [
  whenmod 4 2 (superimpose $ const $ sound "cp ~ cp/2 cp?" # accelerate "[-1 -2 0 0.7]/4" # room "0.1") $ sound "~ [808CH 808CH/2 808CH/4] [808CH,cp] [808OH]" 
    # slow 11 (coarse ((<$>) round (scale 0 17 sine1))),
  whenmod 5 4 ((# crush "5") . (# accelerate "-1.2") . (# cutoff "500")) $ sound "[bd 808BD:3/2] [dr/4 dr/2 dr/4 dr/2] dr [~ ~ ~ 808BD:2/4]" # shape "0.5",
  whenmod 4 3 (|+| n "[12,7 0]") $ sound "[saw6*8]" # iter 5 (n "[0 4 7 11 14 19 11 4]") # pan (sine1) |+| slow 16 (n "[3] -2") # shape "0.7" |+| n "[0,-24]",
  sound "lzr/16" # shape "0.7" |+| n "[0,7,11,4]" # end "0.5" |+| n "15"
]

HackPact Day 29

Short snippets of daily live coded jamz. Tidalcycles code:
d1
  $ whenmod 16 12 (superimpose $ const $ sound "amencutup*4" # n (run 8) # cut "2" # speed "2" # slow 4 (cutoff (run 8)) |*| cutoff "300" # shape "0.6")
  $ whenmod 32 28 (superimpose $ const $ sound "808BD:1 808BD:1*2 808BD:1/2" # slow 4 (pan sine1) # slow 4 (coarse (run 8)) # speed "4 -2")
  $ stack [
  sound "[amencutup*2]" # whenmod 16 12 (slow 8) (iter 6 (n (run 5))) # cut "1" # slow 32 (cutoff (scale 100 10000 sine1)) # resonance "0.2" # gain "0.8" # speed "1.5",
  sound "[lzr/16]" # slow 48 (n "[0,3,10] [3,14,19] [12,9,5]") # end "1.4" # gain "1",
  sound "[pad2/4 saw6/8]" # slow 48 (n "[0,3,10] [3,14,19] [12,9,5]") # end "1" # pan rand,
  sound "bev/8" # begin "0.87" # end "0.96" # gain "1.2" # slow 32 (coarse "0 12 8 20") |*| slow 24 (accelerate "0 0 -1.2")
]

Hack Pact Day 30

Breaking waves (crazy weird, gone too far? )

made with tidalcycles

cps (72/60/3)

do
  let bars =16 
      motif       = fast (bars/2) $ "[[0 [0 0]] [0 0]]"
      viole = "[a1 gs1 e1 a1 a1            g1 g1           [c2 ~]]"
  d2 $ stack [
          swingBy (8/8) 4 $ s "ddKicks? [~  ddKicks?] [ ~ ddKicks*2?] [~ ddKicks?]" # n 24 # gain 1.4,
          swingBy (8/8) 4 $ s "<[~ ddSnares ~ ddSnares][ ~ ddSnares ~   ddSnares]> " # n 17,
          stut 8 0.5 0.5 $ swingBy (8/8) 4 $ s "~ cymatic_snares/4" # gain 0.5 # n 5 ,
          stut 4 0.5 0.5 $ swingBy (8/8) 4 $ s "VMH1_Closed_Hats*4" # n (choose [ 0 .. 15 ] ) # pan sine,
          s "pad ~ [ ~ pad*2] ~ " # n (motif + viole) # cut 2 # gain 0.0,
          s "bin*8" # cut 5 # n (motif + viole) # gain " 0 0.3 0.5 0.7",
          s "bend*8" # cut 6 # n (motif + viole) # gain 0.87,
          s "VFX_Uplifter" # cut 8 # n (motif + viole) # gain 0.3 # n 11, 
          s "VFX_Noizes*4" # cut 9 # n (motif + viole) # gain 0.4 # n (choose [ 0 .. 99])  # pan sine ,
          ( 0.75 <~) $ striate 16 $ s "VFX_FX_Loops" # cut 3  # gain 0.6 # n (choose [ 9, 11 ,12  , 19 ,33])  # pan sine # speed 0.81 ,
          s "[  wobble ~ wobble ~ ] ~ ~ wobble? " # cut 9 # gain 1.2  # up "0 16" # accelerate "0 3" # sustain "1 4" ,
          slow 2 $ s "superpiano*8" # n "<[ c3 ~  c3  ~ c3  ~ a2],[ g4 ~ g4 ~ g4 ~ ~]> " # sustain 0.5 # gain 0.8 # crush 0 
          ]
  d3 $ every 3 (rev) $ slow 2 $ s "VMH1_Synth_Shots*8" # n "<[ f1 ~  a1  ~ f3  ~ a2],[ g1 ~ a1 ~ g3 ~ ~]> " # sustain 1 # gain 0.6

Boltz

WhoDot?

Made with tidalcycles


Sculpture in artwork by Roo rupert-o-nion.tumblr.com/sculpture

Algorave

Jayjay122