Hack Pact - CybOrch April 2017

Hack Pact 2017

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

Short snippets of daily live coded jamz. Tidalcycles code:

 d6 $ stack [
 whenmod 32 16 ((density 2) . (|*| speed "2") . (# slow 32 (end (scale 0.2 1 sine1)))) $ whenmod 4 3 (# coarse "10") $ whenmod 4 2 (superimpose (jux rev)) $ sound "808BD 808RS:1 [808CP 808CH/4] 808OH" 
  |*| slow 2 (iter 4 (accelerate "0 0 0 -2")) # gain "1.3",
  whenmod 32 16 ((density 2) . (# slow 32 (end (scale 0.1 0.5 sine1))) . (|*| speed "2")) $ sound "jvbass*4" |*| slow 16 (up "0 3 6 9") 
    |*| iter 4 (slow 2 ( speed "[1 2 8 4,0.5]")) 
    |*| every 4 (slow 2) (density 2 (speed "1 -1"))
    # shape "0.8"
    # coarse (slow 5 (fmap (floor) (scale 0 22 saw1)))
]

Hack Pact Day 8

Short snippets of daily live coded jams. tidalcycles code:
d6 $ whenmod 15 10 (striate 2) $ whenmod 20 15 (# slow 2 (room (scale 0.1 0.99 sine1))) $ stack [
  superimpose ((slow 2) . (# end "1") . (|*| speed "8") . (# gain "1.1")) $ every 1 (# slow 11 (end (scale 0.05 1 sine1))) $ density 4 $ sound "pluck*2"
  # shape "0.9" # slow 5 (cutoff (scale 500 8000 sine1))
  # speed "[1,3,4 1.5]"
  |*| slow 32 (up "[0 [0 0.5]] [-2 [-2 -2.5]]")
  # coarse (slow 7 (fmap floor (scale 0 23 sine1))),
  every 3 (superimpose $ slow 2 ) $ sound "sid:2 dr/2 [dr/3,808CB/3 808OH/2,sn:2?] [dr/4 dr/5 dr/6 dr/7 dr/8]" # shape "0.96" # gain "1.3"
]

Hack Pact Day 9

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. SuperCollider code:
Pdefn(\scale,Scale.minor.degrees)
Pdefn(\deg, Pseq([0,3,7,11,14,-4,0,2,3,4,7],inf)+Pstutter(32,Pseq([0,-2,-1,-1],inf)))

(
//a
Pdef(\a,
	PmonoArtic(\saw6,\octave,[3,4,5,6],\panScatter,0,\panFreq,0,\scale,Pdefn(\scale),\degree,Pdefn(\deg),\dur,0.25/2,\lpf,Penv([100,10000,0],[30,45]),\rq,0.15,\db,-16)
).play;
//b
Pdef(\b,
	Pmono(\saw6,\octave,[6,7],\panScatter,1,\panFreq,2,\scale,Pdefn(\scale),\degree,Pdefn(\deg)+5,\dur,0.25/2,\lpf,Penv([100,10000,0],[30,20]),\rq,0.2,\db,-38)
).play;
//sweep
(instrument:\filterSweep,\sustain:60,\db:-38,\rq:0.1,\curve:10).play;
)

Hack Pact Day 26

Short snippets of daily live coded jamz. Tidalcycles code:
d1
  $ whenmod 8 6 (superimpose (# slow 2 (coarse "10 8")))
  $ whenmod 32 28 (superimpose (const $ sound "filterSweep/4" # end "8"))
  $ stack [ 
  sound "saw6*9" # end "0.1 0.2 0.3 0.4 0.5 1" # jux (iter 3) (density 2 (n "[0 3 [7 14] 10]")) |+| slow 8 (n "[0,[12 [12 24]] 7,-12,-24]") |+| slow 32 (end (scale 0.5 1.5 sine1)) # shape "0.8" # gain "0.9" |+| slow 32 (n "3 0"),
  whenmod 4 3 ((# crush "4") . (# accelerate "-1.5")) $ whenmod 10 5 ((superimpose (const $ sound "~ cp cp*2? cp/2" |*| slow 5 (iter 5 (accelerate "0 1 -1 0.5 -2" # crush "8 6" # shape "0.5"))))) $ density 2 $ sound "bd [dr,sn:2/2]" # speed "1" # gain "1.2"
] # slow 16 (room (scale 0 0.2 saw1))

Hack Pact Day 27

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

HackPact Day 29

Jamie Beverley