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
68
69
-- Exp #2: Le Disco Punk
-- https://www.youtube.com/watch?v=sNzhxE45mGE
setcps 0.6
d10 -- metronome
$ s "tok*4" # note ("10 0 0 0" - 28)
# gain 0.8
d1 -- grosse caisse / caisse claire poum tchak
$ fix (# s "[bd,lt]") (s "k")
$ fix (# s "sn:2") (s "s")
$ s "k ~ s ~ k s/4 s ~"
# gain 0.7
d2 -- charley double croche
$ s "hh*16" # note "1 0 0 0 1 0 0 0 1 0 0 0 1 0 1 2 1"
# n 8
# gain 0.8
patBass = "0 0 . 12 . 0 0 . 12"
patBassAlt = "0 0 . ~ 12 ~ ~ . 12 ~ 9 ~ . [6 ~ . 0 ~]"
chordsBass = "<a'min c f d'min>"
d3 -- basse simple octave sur accords
$ superimpose (
(# s "bassWarsaw") . (|- gain 0.4) . (|+ note 12) . (|/ sustain 8)
)
$ jux (# s "subBass1")
-- la mineur do fa re mineur)
-- $ every' 4 3 (# note 0)
$ note (slowcat (take 7 (repeat patBass) ++ [patBassAlt]) + chordsBass)
# s "subBass1"
# gain 1.2
# sustain "1/6 . 1/3 . 1/6 . 1/3"
|- note 36
patGuitar = "0 0 . 12 . 0 0 . 12"
patGuitarAlt = "0 0 . 12 ~ ~ . 12 ~ ~ 12 . 0"
d4 -- guitare main
$ jux id
$ note (slowcat (take 3 (repeat patGuitar) ++ [patGuitarAlt])
+ chordsBass )
# s "pluck"
# gain 0.85
d5 -- guitare disco LA
$ fast 2
-- $ superimpose ((|- note 12) . (|- gain 0.2) . (# sustain 1))
$ note ("a4 a4 . ~")
# s "bsguitar:8"
# begin 0.28
# end 0.6
# gain 0.33
# cut 1
d6 -- TODO: synthe trans charnu delay (4:30)
$ note ("12 12 . ~ 6 . 9 6 . 3 0" + "<a c d f>")
# s "phazer"
-- |+ note 24
-- # delay (1/16)
# release 0.5
# gain 0.8
once $
s "pluck:0" # gain 0.6