Ring Surfing (live-coded mix)

ring-surfing.tidal

{-|
Static example code of a live-coded performance of Ring Surfing
for ODD7 live-coding compilation release (summer 2015).
Performance video: https://youtu.be/4KZn0YBpx9o
Performed on 2015-04-21 by Kindohm (a.k.a. Mike Hodnick)
-}

bps (200/120)

let rip a b p = within (0.25, 0.75) (slow 2 . rev . stut 8 a b) p
let rip' a b c d e p = within (a, b) (slow 2 . rev . stut c d e) p
let up = speed . ((1.059466**) <$>)

d1 $ slowspread ($) [id, rev, (|+| speed "1.2 1.5 -1.2 0.8"), rip' 0.2 0.1,
(|+| coarse "32 64 16"), trunc 0.25, trunc 0.25, striate 4 . slow 2, 
gap 4 . rev, (|+| speed "0.5") . slow 2] $
whenmod 8 6 (|+| up "-2") $ foldEvery [3,2] (0.25 <~) $
stack [
sound (samples "ringkit*8?" (slow 0.7 $ run 15)),
whenmod 9 7 (|+| gain "0") $ sound "~ [rings]" 
  |+| shape "0.3" 
  |+| speed "1.2",
whenmod 12 8 (|+| gain "0") $ foldEvery [2,3,4] (density 2) $ 
every 3 (density 2) $ sound "ringh*8",
weave' 3 (sound "~ vocad/2" |+| delay "0.3")
    [(|+| speed "0.5"), 
    (0.25 <~) . (|+| speed "-1"), 
    (|+| accelerate "-1")],
sound (samples "[gli1 peri]*8?" (slow 0.7 $ run 20)) 
  |+| speed "2" 
  |+| end "0.5",
density 2 $ "ringk [~ ringk/2]",
sound "~ ringpad" 
  |+| cut "92" 
  |+| delay "0.3"]
|+| delaytime "0.4" 
|+| delayfeedback "0.5"

hush