Computers

data

let (freq, _) = pI "freq" (Just 440)

d1-- $ every "2 4 6" ((|+| n (run 12)) . density "<0.75 1.25 2.25 0.25>")
   $ rarely (degradeBy 0.1)
   $ stut "<2 3 4>" "<0.1 0.25 0.125 0.5>" "<0.125 0.25 0.5>"
   $ stack [
     n (rarely (offadd (2/16) 7) $
        "<[1 [~ -2]] [3] [5] [7? 8 10]>(3,8)" + "[-24, -12, -5, 0]*2")
       # sustain (slow 8 $ scale 0.2 2 sine1)
     ,n ("<20!3 22>" + "<0 0 0 [2 3 5]>") # sustain (choose [2,1,4,0.7,3] + rand) # attack (choose [0.2,0.4,0.6])
   ]
   # sound "plucklead"
--   # speed (slow "<1 2 3 4>" $ rand + scale 0.5 1.2 tri1)
   # phaserrate (scale 1 10 sine1 + (rand * 10)) # phaserdepth "1" # offset "0.01"
   # cutoff (slow "1 2 4 8" $ scale 100 10000 sine1)
   # resonance (slow "8 4 2 1" $ scale 0 0.3 sine1)
   # orbit "0"
   # gain "0.7"

d2 $ slow "1"
   $ stack [
   iter "4 6 8" $ slow "2" $
   swingBy (1/3) 16 $
   density "[2 1 2 1 1!4] [1!5 1 4!1 8!1]" $
   s "hh:23*16" # orbit "0" # phaserrate "1" # phaserdepth "0.5" # gain "0.8" # pan "[0 1]*4"
   ,density "[[1 2?] 1 1 [2 4?]]/4"
   $ s "pck:8 ~ [~ pck:8?] ~" # accelerate "0 -0.2 -0.3 -0.5 2"
   # speed (0.9 + rand) # gain "1.1"
   ,density "[1 1 1 1]/2"
   $ s "[~ ~ pcsn:12 [~ ~ ~ pcsn:12?]]" # orbit "4" # speed "1" # gain "1.2"
]
   # orbit "2"

d3 $ up ("[[0 -3 -5] 2 [4 [7 9]]]/4(5,8)" + "[0 0 12]*2") # sound "fmpuls" # orbit "4"
   # cut "1" # gain "0.9"
   # tremolorate "3" # tremolodepth "0.5"
--   # resonance "0.3" # cutoff "1500" # vowel "a e i"

d4 $ iter "[2 4 6 8]/8"
   $ foldEvery [3,5] (|-| accelerate "1")
   $ sometimes (density "[4 1!3]" . chop (irand 4))
   $ slow "16!6 12 10"
   $ jux ((# accelerate (slow 4 $ scale 0 0.6 sine)))
   $ s "wav*64"
   # n (irand 64)
   # speed ((slow 1 $ scale (-0.2) 0.2 sine))
   # cutoff (density "2 4 3 6" $ scale 5000 12000 rand)
   # resonance "0.4"
   # room "0.10" # size "0.4"
   # gain "0.7" # orbit "6"

d5 $ slow 3 $ striate 4 $ chop 2 $ up (--every "3 4" (fmap (subtract 2)) $
   "[6(9,12)]/4")
   # s "senzo:1"
   # end "0.2"
   # delay "0.5" # delaytime "0.5" # delayfeedback "0.5"
   # hcutoff "7500"
   # speed "[0.5 0.75 1]/3"
   # accelerate (slow 6 $ scale (-4) 4 sine1)
   # pan (every "<2 3>" (density 2) $ tri1)
   # attack "0.4" # release "0.6"
   # tremolorate "4" # tremolodepth "1"
   # phaserrate "1" # phaserdepth "1"
   # room "0.2" # size "0.2"
   # cutoff (density "<0.5 1 2 4>" $ scale 1000 10000 sine) # resonance "0.3"
   # orbit "8"
   # gain "0.7"

d6 $ striate "16 8 4 2" $ slow "<1 2 4 8>" $ sound "reef:2"
   # orbit "10"
   # speed (slow 32 $ scale 0.5 1.5 sine1)
   # accelerate (slow 32 $ scale 0 1 sine1)
   # cut "6"
   # gain "0.8"
   # delay "0.5" # delaytime "<0.5 1>" # delayfeedback "0.6"
   # hcutoff "1500" # resonance "0.2"

Upload Me Daddy

'Burnnn' Single Out Now On @pcmus PC029 http://smarturl.it/lil-data-burnnn

'Folder Dot Zip' Album Unarchiving Feb 15: http://zip.pcmusic.info

Limited Edition FDZ T-Shirts & USB Album: http://merch.pcmusic.info

Burnnn Video by SCOTTY2HOTTY69 http://www.youtube.com/watch?v=qrTMkgpBia8

Art by Timothy Luke

```
do -- burnnn
  bps (160/120)
  let tickle = ev "<2 3>" (fa "<2 4 6>" . (|+| sp (strif 1 2 0.25 * ssinf 1 3 0.125)))
  t1 (j 0) . m
     . (> hpf' (ssinf 0.1e3 1e3 0.125) 0.2)
     . (> lpf "10e3:0.2") . (> shape "0.2") . (> phaser' 10 0.4)
     $ stack [
          slow 2 $ s "<pcshaker pcshaker pcbur:5>*8" > o 0 > pan 1 > g (sc 0.5 1 cos)
        , slow 2 $ tickle $ s "<pcshaker pcbur:5  pcshaker>*8" > o 2 > pan 0 > g (sc 0.5 1 sin)
        , slow 2 $ tickle $ s "<pcshaker:8 pcbur:5  pcshaker:2>*16" > o 4 > pan (sqf 8) > g 0.8
        , slow 2 $ tickle $ s "[pcbur:1 ch2hh](11,16)" > gco "0.8:1:6" > pan rand > ac (ssinf (-2) 2 0.125)
       ]
  t2 (j 0) . m
     . fa "[1 [1 2] [1 [1 0.5]] [1 [1 1.5]]]/4"
     . ev 6 (jux (rev) . (> hpf "0.1e3 1e3:0.2"))
     . ev 8 ((> pan rand) . (> up (scaleP "major" $ cat [odd (irand 8), eveni (irand 8)])) . fa "<1.5 2 0.5 3>")
     . (|+| up ("2*4"))
     . fa 4
     $ stack [
         s "[bdk2:13] ~"
        ,s (samples "ch2kit ~" 2)
        s "~ [retbs retbs:8]"
       ] > go "1:8"
  t3 (j 0) . m
     . jux ((> ac 0.4) . (> lpf' (ssinf 5e3 10e3 0.333) 0.1))
     . (> hpf' (ssinf 0.1e3 5e3 0.125) 0.1)
     . fa "1 2 1 1.5"
     $ stack [
         s (samples "[~ ch2hh]*4" "2") > g "1"
         ,s "[~ hc:2*2]*4" > g (ssinf 0.4 0.7 0.125)
       ] > o 10
  t4 (j 0) . m
     . sl 2 . str "<4>"
     . ev 4 ((> sp 2) . (jux (rev . (> ac 0.5))))
     . (> rvb "0.2:0.2") . (> del "0.25:0.25:0.25")
     . (> phaser "10:1")
     . sl "[1 2 4]/3"
     . struct "x x*4 x ~"
     $ s "vxriff:9" > legato "1" > go "0.7:12"
     > ac "-0.2"
```

Folder Dot Zip

Burnnn

'Hickory' by @lil-data 

Disc 4 Track 5, 'Folder Dot Zip'

@pcmus PC030 2019-02-15

"A live coding musical parable where the initial melody is transformed by an algorithm into something unrecognisable and seemingly non-repeating, but nevertheless kinda catchy." - @lil-data

---

do -- hickory
  bps (120/120)
  let panpw = rpwf "0 0.25" "1 0.75" 0.75 2
  let stutter = fa "<1 [4 1 2 1] 1 [1 [4 1]]> 1"
  d1 . i . sl 1
     . fa "1 <[2 [2 3]] [0.5 2]>"
     . striate (rodd 4) . sl 8
     . (# rvb "0.1:0.1")
     . iter 4
     $ stack [
         note (scale "major" (reven "8! 16")) # cut 1 # pan "1!3 0"
         ,note (scale "major" (roddi "24 8!")) # cut 2 # pan "0!3 1"
       ] # s "[bsfmrev]" # go "1:0"
  d2 . i
     $ stack [
         loopAt 1 $ s "jbreaks:13(3,8)" # cut 3 # shape 0.2 # go "1:2"
         ,stutter $ s "[[<bdk2:27 bdk2:28>!6 ~ ~ ] [~ cp*4]]" # o 4 # sp "1 <1 1.5 2>"
         ,often stutter $ s "hc*16" # pan (sqf 8) # go "0.9:2"
       ]
  d3 . i . sl 2
     . juxBy 0.25 (rev . sl 2 . ev 2 (fa 3))
     . (# adsr' (rsin 0 0.2) (rsin 2 3) (rsin 2 3) (rsin 0.5 3))
     . (# rvb "0.3:0.3") . (# detune (rsawf 0 3 0.125))
     $ n ("[[<4 4 -1> ~ ~ <4 4 -1>] [<1 -3> ~ <1 <4 6>>] [<1 1> ~ <<[8 9] 1> <-1 -3>>] []]" + "12")
     # s "superdetune" # go "0.9:6"
  d4 . m . sl 8
     . sl "2 1 2 1" . jux (rev) . (# pan sin)
     . (# spa' ("[1 [1.5 2]]*2") ("[-1 -2 1 0]*4"))
     -- . stut' 8 (1/69) ((# pan (rsqf (rsin 0 0.5) (rsin 0.5 1) 16)) . (# sp 1.5) . (|-| g "0.02"))
     . (# del "0.4:0.06:0.8")
     . sl 4 $ s (samples "vxshout(21,32) vxshout(25,32)" (r 8)) # go "0.9:8"
  d5 . m . sl 8
     $ note ("[[0 [2 4]] [5 0] [10 [9 ~ 9]] [7] [9 [7 ~ 7]] [7] [2 [4 ~ 4]] [5 [~ 2]]]" + "-8")
     # s "bssub" # gco "1.0:5:10" # adsr "0:1:1:1"

Hickory

'Tork' by @lil-data

Disc 1 Track 1, 'Folder Dot Zip'

@pcmus PC030 2019-02-15

Download Stems & MIDI*: https://www.dropbox.com/s/k2f35pu49trggfe/tork_stems.zip

* some sounds missing due to software rot 🦠

Tork

Tork (Download Stems & MIDI)

Live video: https://www.youtube.com/watch?v=Db0QJo1eaoI

Lil Data TidalCycles live coding at London Algorave for TOPLAP15
https://twitter.com/lildata

Live coded visuals by Rumblesan & LiveCodeLab
https://twitter.com/rumblesan
https://livecodelab.net

Celebrating 15 years of TOPLAP and the live coding community
https://toplap.org/wearefifteen

Sonics Immersive Media Labs
Goldsmiths University of London
Friday 15 February 2019

Live Coding at London Algorave for TOPLAP15

Live at London Algorave for TOPLAP15

Live coding video: https://www.youtube.com/watch?v=sNj-I2pZwX8
Code and samples: https://github.com/lil-data/vroomvroom

LD 🖤

```
do
  let t = "cxvv"
  let build = loopAt 2 $ n "0" # s "cutcxvv"
      drive = loopAt 1 $ n "1" # s "cutcxvv"   
  bpm 180
  let mx = [0,0,0,0]
  p (t++"vx")
    -- . fa 2
    $ drive # glo' (mx!!0) 1 0 # shape 0.4
    -- # ac (-1)
  p (t++"syn") . jux (# ac 0.03)
    $ build # glo' (mx!!1) 1 1
  p (t++"pc") . fa 1
    $ stack [
       -- struct "[t ~] [~ t _ [t? ~]]" $ n 2 # s "bddnb",
       -- jux (# ac 0.2) . struct "[~ t]*4" $ n 20 # s "ch2hh" # shape 0.5,
       -- fa "<1 [1 [1 4]]>" . struct "[~ t]*2" $ n 13 # s "pcmsn",
       -- struct "t*4" $ n 13 # s "pcmcp"
      ] # glo' (mx!!2) 1 2
  p (t++"bs")
    -- . struct "[t ~] [~ t _ [t? ~]]"
    . struct "t*4"
    $ n (sl 4 $ "[0 2]" + 2)
    -- $ n (sl 16 $ "[0 2]!2 [0 1 4 [3 2 1]] [2 2 2 [3 2 1]*2]" + 2)
    # s "cutcxvv" # glo' (mx!!3) 1 3 # rvb "0.3:0.3"
```

Charli XCX - Vroom Vroom (Lil Data TidalCycles live coding edit)

99 Favor Taste is @lil-data x @syntqxyz

Recorded live at Egg Mantis on 4 May 2019

504 Arch London

https://www.instagram.com/p/BwqAxkzA8Bq/

99 Favor Taste (Lil Data x syntqxyz) Live @ Egg Mantis, 4 May 2019

'Burnnn' Single Out Now On @pcmus http://smarturl.it/lil-data-burnnn 

'Folder Dot Zip' Album Unarchiving Feb 15: http://zip.pcmusic.info 

Limited Edition FDZ T-Shirts & USB Album: http://merch.pcmusic.info

Burnnn Video by SCOTTY2HOTTY69 https://www.youtube.com/watch?v=qrTMkgpBia8

Contact data@lildata.co.uk

Lil Data

Popular tracks