1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
setcps 0.45
do
let bars = 96
let slowdown = 14
let chordC = "[0, 12, 16, 19]"
let chordG = "[-5, 11, 14, 19]"
let chordF = "[-7, 12, 17, 21]"
let timeless = [chordC, chordG, chordF, chordG]
let metronome = "<4!3 [4|2]>"
let semiRoll = "32 8"
let fullRoll = "16 [32 . 4 16]"
let cutProg = "0 <[1 0]> <1!3 0> <1!3 0.5>"
let cutMost = "0 0.9"
let cutFew = "0 0.1"
d1 -- Kick
$ whenmod bars (bars - slowdown)
-- (# cps (0.45 - "<0.03 0.05 0.1 0.1 0.1 [0.1 0.05]>")) -- SLOWDOWN
(degradeBy 0.9)
$ every 8 degrade
$ s "k(<3!3 1>,8,<0!3 1>) . k(3,4,<1 3>)" # s "jazz" # gain 1.2
d2 -- Snares + white noise
$ s "~ <s!3 s*2> . ~ <<s ~> s*2>" # s "[glitch:2,snare:11]" # gain 0.9
d3 -- Metronomo-roll
$ sometimes (jux id)
$ whenmod bars (bars - slowdown) -- SLOWDOWN? Nope!
(fast "<0.5 0.25 1 0.5 [1 2] [2 4]>")
$ fast (slowcat [metronome, metronome, metronome, semiRoll])
$ s "dr"
-- # room 0.5
# size 0.1 # dry 0
# cut 1
# pan (slow 8 $ range 0.6 0.8 sine)
d4 -- Piano
$ degradeBy (slowcat [cutMost, cutMost,
cutProg, cutProg, cutProg, cutProg, cutFew])
$ sometimes (off 0.125 (|+ note "12 0?"))
$ sometimesBy 0.5 (off 0.375 (|+ note "<12 5>"))
$ note ((slowcat timeless) - 12)
# s "superpiano"
# velocity 0.55
d5 -- basse
$ chew 4 "0*2 1(3,8) <2 [~ 2]> <3 [3 2]>"
$ arp "updown"
$ note ((slowcat timeless) - 36)
# s "supersaw" # voice 0.05
# sustain 0.25
# gain (slow 4 $ 0.55)
# pan (slow 8 $ range 0.5 1 sine)
d6 -- brass hits
$ whenmod bars (bars - slowdown) (# gain 0.5) -- SLOWDOWN? Gain up
$ s "~ ~ b/8 ~" # s "brass:6"
# note (scale "major" ("<1 1 2 1>"))
# gain 0.5
d8 -- Forks in tune
$ whenmod 32 16 (# accelerate "<0!3 <0.1 0.2>>")
$ euclid "<5 4 5 <8 [16 32]>>" 8
$ s "superfork"
# note ((slowcat timeless) - 24)
# sustain "<0.5!7 [0.25 0.125]>"
# gain (slow 32 $ range 0.5 0.8 cosine)
# pan (slow 2 $ rand / 2)