Hack Pact 2017

Short snippets of daily livecoded jamz. Tidalcycles code (using some custom SuperCollider synths):

d6 $ whenmod 8 7 (superimpose (const $ sound "arpeg*6" # n "[0,3,7,10]" |+| n "24" # cutoff "500")) $ stack[
  whenmod 16 14 (slow 8) $ every 4 ((# coarse "10") . (superimpose (# pan rand)) . (# cutoff "1000")) $ sound "pad2*2" 
    # slow 16 (n "[0,-2 3,[0 2] 7]") 
    # gain "1.2"
    ,
  density 2 (sound "kick" # n "-30" # cut "1"),
  whenmod 9 5 (superimpose (jux rev)) $ sound "[808CB/4] dr/2 sn:2? [dr dr/4 dr/2 dr/8]" 
    # slow 11 (coarse (fmap floor (scale 4 18 sine1)))
    # slow 19 (accelerate (scale 0 1 sine1))
] # slow 23 (shape (scale 0.1 0.8 sine1)) # slow 11 (room (scale 0.05 0.2 sine1))

HackPact Day 12

Short snippets of daily livecoded jamz. Tidalcycles code (using some custom SuperCollider synths):
d6
  $ whenmod 16 12 ((slow 2) . (# crush "8 6 4 2 1 0.5") . (# accelerate "-1") . (# vowel "t o t a") . (# end "0.25"))
  $ whenmod 8 7 ((density 1.5) . (# end "0.25"))
  $ whenmod 9 7 (superimpose (const $ slow 2 $ sound "808BD:1 [808BD:1,dr*4] [cp] [dr*8,~ 808BD:1]" # shape "0.8" # speed "1 1 1 2" # gain "1.3"))
  $ stack [
  sound "lzr*8" # n "[0,3]" |+| n "12" # pan rand # slow 16 (rev $ hcutoff (scale 4000 20000 saw1)),
  whenmod 16 12 (degrade) $ sound "pad2*2" # n "[0,3,12,15]" # gain "1.2" # end "0.5" |+| slow 16 (n "-11 -14"),
  sound "kick" # n "-30",
  whenmod 4 2 (superimpose (# accelerate "-1")) $ sound "sn:2/5 [lighter,dr/2 dr/4 dr/4 dr/4 dr/4]"
]

Hack Pact Day 13

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 32 30 (superimpose (const $ superimpose (# pan (scale (-1) 1 rand))$ sound "techno*64" # slow 2 (speed (run 64) # shape "0.7")))
  $ stack[
  whenmod 16 14 ((# crush "4") . (|*| accelerate "-0.1 -1") . (density 2)) $ every 2 (# speed "1 2") $ sound "808BD:1 ~ 808BD:1/2? ~" # slow 23 (end (scale 0.1 0.6 sine1)) # shape "0.9" # cut "1" # slow 21 (coarse (fmap floor (scale 0 14 sine1))), 
  whenmod 16 14 ((# end "0.4") . (jux rev)) $ sound "sn:3/2 [dr dr/8 dr/8 dr/8 dr/8 dr/8 dr/8 dr/8] sn:2 [dr dr/4 dr/4 dr/4]" # shape "0.9" # slow 11 (coarse (fmap floor (scale 0 14 sine1))) # iter 4 (slow 2 (accelerate "0 0.5 -0.5 1")),
  whenmod 16 14 (degradeBy 0.5) $ degradeBy 0.3 $ superimpose (# pan (scale (-1) 1 rand)) $ sound "chord*6" # slow 7 (end (scale 0.25 1 sine1)) # slow 8 (n "[0,3 4,7,10 11]") |+| n "[12,0]" # gain "1.5" # slow 17 (cutoff (scale 500 5000 sine1)) # resonance "0.2"
] # slow 23 (coarse (fmap floor (scale 0 14 sine1)))

Hack Pact Day 16

Hack Pact Day 17 - TidalCycles code:
d6 $ whenmod 4 3 (superimpose (const $ sometimes ((# crush "5") . (|*| accelerate "-1.2 1")) $ sound "808BD:1 [808BD:1,hh*4?] cp*3? [cp?]" # shape "0.9" # speed "0.75 1 1.6 1" # gain "0.9"))
  $ stack [
  superimpose (# pan (scale (-1) 1 rand)) $ sometimes (|+| n "[12,0]") $ sound "[lzr/3 lzr/4?]" # end "3" # (slow 15 (n "[0 7 4 -1 -3]")) # iter 3 (slow 2 (speed "1 -1 1")) # slow 41 (coarse (fmap round (scale 0 8 saw1))),
  sometimes ((density 2) . (rev)) $ sound "bd? [dr? dr? ~ ~,cp/4?]" # slow 21 (cutoff (scale 1000 10000 saw1)) # coarse "14"
]

Day 17

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 livecoded jamz. Tidalcycles code:
d6
  $ whenmod 12 8 (superimpose (const $ sound "lzr*16" # end "0.5" |+| n "24" # slow 4 (n (run 48)) # density 2 (pan (scale (-0.25) 0.25 rand))))
  $ whenmod 6 4 ( (superimpose ((density 2) . (# pan (scale (-1) 1 rand)) . (|*| speed (run 8) ))) . (# end "0.9"))
  $ stack [
  whenmod 6 4 (# slow 2 (end "0.8 0.3")) $ sometimes (superimpose (# pan (scale (-0.5) (0.5) rand))) $ whenmod 9 7 ((|+| n "[0,7,12]") . (# cutoff "1000") ) $ sound "[pad2*3,sc_bass*6]" # end "1.5" # slow 16 (n "[2,9] [-7,5,12] [0 -1,4 2]") |+| n "[0,12,-12]" ,
  whenmod 4 3 (superimpose rev) $ sound "[bd/2,808BD:1/2] [sn:3/3?,808BD/2?] dr [dr,sn:2/2] dr techno" # slow 21 (coarse (fmap round (scale 4 10 sine1))) |*| slow 4 (accelerate (scale (-0.5) (-1.2) sine1))
]

Hack Pact Day 19

Shortsnippets of daily live-coded jamz. Tidalcycles code:
d6
$ stack [
  sometimes (superimpose ((# coarse "8") . (# vowel "o") . (# gain "0.7")))$ sound "[vrb/2,~ lzr/4]" # slow 12 (n "[0,3 7 5,-12] [2,9 10 5,-10]") # end "1.9 1.3",
  degradeBy 1 $whenmod 8 4 (density 2) $ degradeBy 0.3 $ juxBy 0.7 rev $ whenmod 9 3 (|*| speed "-1") $ sound "bd? dr? sn:2/2 lighter*4 cp" # iter 4 (slow 4 (coarse "2 4 8 10")) |*| iter 3 (slow 3 (accelerate "0 -1 2"))
] # speed "-1" # slow 31 (room (scale 0 0.5 saw1))

Hack Pact Day 20

Short snippets of daily live coded jamz. Tidalcycles code:
d6 (xfadeIn 32) 
  $ whenmod 18 14 (superimpose $ const $ sound "[techno*16]" # density 8 (speed "30 15") # density 4 (pan rand))
  $ stack [
  whenmod 16 14 ((# shape "0.5") . (# slow 2 (crush "6 4")) . (|*| accelerate "-1.2")) $ whenmod 16 8 (# speed "1.5") $ sound "[808BD:1 cp/3 808BD:0,~ dr sn:3 [dr dr/4]]" 
    # slow 5 (coarse (fmap round (scale 0 14 sine1))) # slow 31 (end (scale 0.3 1 sine1))
  ,
  sound "[pad2 pad2 pad2/4 pad2?,~ [lzr/12]]" # slow 12 (n "[0,3,10 8,-2] [4,7,-1,-5]") # gain "1.2"
  ]

Hack Pact Day 21

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. Tidalcycles code:
d6
  $ stack [
  whenmod 4 2 (striate 2) $ whenmod 5 3 ((# crush "7") . (|*| accelerate "-1.3")) $ every 2 (jux rev) $ sound "[bd,808BD:1/2] dr sn:2 [dr ~ dr dr] 808BD:2?" # slow 13 (shape (scale 0 0.8 sine1)),
  whenmod 15 8 ((# slow 7 (coarse (fmap round (scale 0 18 saw1)))) . (superimpose (# vowel "o a"))) $ sound "[808BD:1*10?]" |*| slow 8 (up "0 12 4 4") |*| slow 1 (iter 5 (speed "1 4 -1 2 -2")) |*| shape "0.7"
] # slow 21 (room (scale 0 0.5 saw1))

Hack Pact Day 23

Short snippets of daily live coded jamz. Tidalcycles code:
d6 $ stack [
  whenmod 4 2 (jux rev) $ whenmod 8 7 (slow 2) $ striate 2 $ sound "casio arpy arpy casio? arpy casio/2" # density 2 (accelerate "0.2 -0.5") # slow 21 (coarse (fmap round (scale 0 8 sine1))) # slow 11 (cutoff (scale 1000 10000 sine1)) # resonance "0.3" |*| up "[0,4,7,11,14]",
  density 2 $ sound "[kick,hh/2 clak] dr/2 [dr/2, cp] lighter/3",
  sound "pad2/8" # slow 16 (n "[4,7,11] [5,9,12]") # end "1.5" # gain "1.3",
  whenmod 5 4 ((# crush "[8,5]") . (|*| speed "[-1,1]")) $ sound "808BD:1" # slow 23 (speed (scale 1 1.7 sine1)) # cut "1"
] # room "0.2"

Hack Pact Day 24

Short snippets of daily live coded jamz. SuperCollider code:
Pdefn(\scale,Scale.minor.degrees)
Pdefn(\r, Pseq([0.5,0.25,0.5]/2,inf))
Pdefn(\db,-85)

Pbindef(\a,\instrument,\womp,\at,0.001, \numharm, Pseq((0.5,0.6..1.3)++(0.5,0.6..1.3).reverse,inf), \legato,0.25, Pdefn(\scale))
Pbindef(\a,\octave,[5],\degree, Pseq([0,3,7,5],inf)+Pstutter(6,Pseq([0,0,2,1],inf)),\dur,Pdefn(\r),\db,-23+Pdefn(\db))
Pbindef(\a, \lpf,Pseq((0.4,0.45..3)++(1.5,1.45..0.4),inf)).play
Pbindef(\a,\at,0.01)

Pbindef(\b,\instrument,Pseq([\kick,\hihat,\kick,\kick,\hihat],inf),\midinote,30,\dur,Pseq([0.25,0.25,0.125,0.125,0.25],inf),\db,-16+Pdefn(\db)).play

Pbindef(\c,\instrument,\fut,\at,Pseq([0.001,0.001,0.3],inf))
Pbindef(\c,\modPartial,Pseq([4,8,Prand([4,16],1),2],inf),\octave,3, \scale, Pdefn(\scale),\dur,Pdefn(\r)*Pstutter(8,Pseq([2,1],inf)),\degree, Pstutter(4,Pseq([0,0,4,7,2],inf)),\db,-16+Pdefn(\db)).play
Pbindef(\c,\db,-15)

Hack Pact 25

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 2017

Jamie Beverley