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
63
64
65
66
67
-- if Nina was a punk
-- TODO trois couplets: Husband - ??? - All of your life
do
resetCycles
setcps (80/60/4)
d1 -- grosse caisse / caisse claire poum tchak
$ fix (# s "[bd,808bd]") (s "k")
$ fix (
whenmod 16 12 (fast "2 [4!3 8]")
. (# s "[snare:2,snare:49]")
. (|- note 2)
. (|* gain "<0!4 1!60>")
) (s "s")
$ s "k s k s"
# gain 0.9
d2 -- charley double croche
$ mask "<f!4 [t f]!3 t!20>"
$ s "[hh,h2ogmcy:1]*[16 <16!3 32>]"
# release 0.7
# note "1 0 0 0 1 0 0 0 1 0 0 0 1 0 1 2 1"
# pan (slow 16 $ range 0.35 0.65 sine)
# gain "<0.9!8 0.8!24>"
d3
-- $ superimpose ((|* speed 2) . (# cut 31)) -- Chipmunk
$ whenmod 64 32 (
sometimesBy "0 <0!4 1 1 0 1>" ((# delay 0.75) . (# delayfb "<0 0 0 0.75>") . (# delaytime "h"))
. slice 16 "<[14 15] [14 15] [12 13] [14 15]>"
)
$ someCyclesBy "<1!32 0!32>" (
slice 8 (run "<8!4 4 4 8 4 2 2 8 2 1!4 1!48>"))
$ whenmod 16 12 (# hpf 5000)
$ "nina/4"
# pan 0.4
# gain 1.25
# cut 3
d4
$ mask "<f!8 t!56>"
$ someCyclesBy "<1!4 0!4 1!6 0!2>" (
(# lpf 1000)
. (|* gain "<1!3 1.15 0!4 1!4 1.1 1.15 0!2>") -- Fade out up
)
$ superimpose (
(# crush (slow 8 $ range 2.5 8 sine))
. (# cut 41)
. (|* gain 0.85)
)
$ slice 2 "<0 0 1 1>"
$ "punk" -- FIXME speed decalage swing seconde mesure
# pan 0.8
# gain 0.8
# cut 4
-- TODO: Breakbeat-a-nina
do
setcps (80/60/4)
d1 $ "k . k(<1 3 1 5>,8)" # "reverbkick" # gain 0.85
d2 $ slice 8 (stack [
"0 . 1(5,8)"
]) "breaks165:2" # gain 1.25
d10
-- $ g
$ whenmod 8 4 (scramble "<2 2 4 4>")
$ slice 8 (run 4)
$ "nina/4"
# pan 0.4
# gain 1.2
# cut 3