do
-- bpm(60)
-- resetCycles
let fund = (quantise 1 $ slow 132 $ range 0 6 $ (isaw + sine) / 2) - 5
-- let gainMult = (trigger 1 $ range "0" "1" $ slow 20 $ envL)
-- let gainMult = 1
let gainMult = (trigger 1 $ range "1" "0" $ slow 20 $ envL)
d1
$ stutWith 3 0.12 (
(# pan (slow 57 $ sine))
.(sometimesBy (0.35) (# s "inr").(# accelerate (range 0 1.5 $ slow 53 $ sine)))
)
$ s "in"
# del' 0.9 0.21 0.21
# rvb' 0.99 0.7
# comb 0.3
# lp' 3500 0.1
# hp' 600 0.1
# gain 0.75
# orbit 0
d2
$ degradeBy (slow 45 $ (tri+saw)/2)
$ every 3 (|/ n "1.125")
$ juxBy (range "-1" "1" $ slow 12 $ sine)
(
(|+ n (segment 1 $ choose [4/3, 5/4, 8/7]))
.("0.3333" ~>)
)
$ whenmod 60 30 (|- n "1.3333")
$ foldEvery [4,7,13] (|+ n "1.125")
$ s "pulsa*8"
# n fund
# legato 4
# lp' (range 600 2500 $ slow 32 $ cosine) 0.2
# rvb' 0.5 0.4
# octave 5
# gain (0.8 * gainMult)
# ar' 0.6 2
# orbit 1
d3
$ slow 16
$ rarely (superimpose ((|+ octave 2).(0.08 ~>).(stut 3 0.4 0.08)))
$ struct (binary "<98 98 102 [112|212]>")
$ s "supergong"
# n (scale "enigmatic" "4 3 6 2 1 6 2 3" + fund)
# rvb' 0.9 0.9
# legato 8
# gain ((range 0.22 0.48 $ slow 36 $ sine) * gainMult)
# octave "[6|7]"
# pan (sine)
# accelerate (range "-2" "2" $ rand)
# orbit 2
d4
$ slow 4
$ (0.09 ~>)
$ sometimes (stut 4 0.5 0.2)
$ whenmod 38 37 ((fast 2).(euclid 4 4).(# ar' 0.01 0.5))
$ s "pitchednoise"
# n fund
# ar' 0.1 1.02
# rvb' 0.5 0.8
# gain (1.24 * gainMult)
# orbit 3
d5
$ juxBy (range 0.3 0.6 $ slow 67 $ tri) (|- n 3)
$ almostNever (# crush 3)
$ s "gfreeze"
# n fund
# legato 4
# octave 3
# lp' (range 200 510 $ slow 145 $ cosine) (range 0.09 0.13 $ slow 32 $ pulse 0.13)
# hp' 60 0.45
# orbit 4
# gain (0.87 * gainMult)
# rmod' (slow 67 $ saw / 2) (range 1 15 $ slow 48 $ cosine) (slow 67 (saw+square)/3)
d6
$ sometimes (superimpose (|+ octave 2).(stut 6 0.4 0.12).(|+ n "4"))
$ s "superpiano"
# n fund
# octave 3
# smear (range 0.3 0.6 $ slow 126 $ cosine)
# gain ((range 0 0.87 $ slow 32 $ tri) * gainMult)
# pan (slow 37 $ perlin)
# orbit 5
d7
$ sometimesBy 0.11 (# accelerate (rand - 0.7))
$ speed (segment 2 $ slow 6 $ (sine + square + isaw)/6 + 0.7)
# s "censor"
# gain ((range 0.1 0.65 $ slow 35 $ sine) * gainMult)
# del' (slow 24 $ isaw) 0.3 0.1
# rmod' (slow 8 sine) (range 2 10 $ slow 12 $ cosine) (slow 13 isaw)
# orbit 6
d8
$ striate (run 16 + 24)
$ s "chair"
# n fund
# gain ((range 0.3 0.76 $ slow 47 $ sine) * gainMult)
# pan (perlin)
# rvb' 0.4 0.6
# lp' 1500 0.1
# speed (slow 4 $ sine/2 + 0.3)
# orbit 7
all $ (every 33 (# crush (4)))