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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
resetCycles
-- Blade Dreamer: For you I will use Vangelis' synth <3
do
let chord = "d4'min7'4"
let gF = (# djfbus 1 (range 0.1 0.9 "^49"))
-- let gDJF = (whenmod 32 28 (# lpf (max 200 (slow 16 $ range 5000 0 sine))))
let g = gF
let chords = "<a4'min7 e'min7 f'maj7 g'sus4>"
let prog = "<a4 e f g>"
setcps (110/60/4)
d1 $ g
$ midiOff "^41" (mask "<f f [t f] t t!28>")
$ midiOn "^41" (<| "k k k <k*2 [~ k] k k*2>")
$ midiOff "^41" (<| "k . ~ k")
$ "[jazz,kick:14]"
# midiG' "^78" 0 1.3
d2 $ g
$ whenmod 16 14 (fast "<2 4>")
$ "~ s ~ s*<1!3 <4 1 2 4>>"
# "electro1" # n "<3!3 4 4 4 3 3>"
# midiG' "^79" 0 1.7
d6 --
$ g
$ midiOn "^44" (slow 2)
-- $ midiOn "^41" (struct "t*[<8 8 16 8> 8]")
-- $ degradeBy ("0 0.95!7 0" - "^52")
$ "~ h ~ h ~ h*2 ~ h" # "hh27:2"
# note (
whenmod 4 3 (2 -)
"0 . 2 0"
)
# midiG' "^80" 0 1.6
d5 $ g -- Breakbeat
$ midiOn "^76" (fast "<2!3 4>")
$ midiOff "^44" (slow "<4 2>")
$ sometimesBy "^32" rev
$ someCyclesBy (0.9 * "^52") (scramble "1 4")
$ slice 8 "0 1 <0 2 6 2> <1 3 7 3>"
$ loopAt 2
$ "fbreak100"
# cut 5
# midiG' "^80" 0 1.5
d3 $ g -- CBOW Electric Bass
$ midiOn "^57" (mask "t(<2 2 3 <4 5 6 8>>,8)")
-- $ midiOn "^57" (euclid "<1 <1 [1 2] 5> 3 5>" 8)
-- $ ("0.125" ~>)
$ superimpose (mask "t f" . (# cut 31) . (|- note 12))
$ arp "up <up!3 updown>"
$ note (chords)
# "cbow:0"
# pan 0.3
# cut 3
# room 0.6
# sz 0.5
# midiG' "^81" 0 0.9
# room 0.5 # sz 0.5
# crushbus 31 (range 10 2 "^53")
d4 $ g -- Lead vangelis' synth
$ juxBy 0.8 (
struct "<t [t . t*2]>" . arp "up" . (|+ note (12
|+ "0 0 <12!3 7>"
+ (arp "up" "<c'maj!3 c'min>")))
)
$ slow 2
$ note (
"<f g a4 e>"
+ "-12"
)
# "cs80leadMH"
# pan 0.3
# midiG' "^82" 0 1.2
d7 $ g -- Angel Bogdan
$ note (
prog
|+| "0 [<0 7*2>,12]"
- 12
)
# "choir:1"
# cut 7
# room 0.3 # sz 0.8
# legato 1.2
# pan 0.8
# midiG' "^83" 0 1.6
d8 $ g -- Angel Bogdan
$ slice "<6!3 3>" "<0!3 2>" "bogdan:10"
# cut 8
# room 0.2
# midiG' "^83" 0 1.1
d10
$ (# lpf 2000)
$ g $ "~ cp"
# midiG' "^84" 0 1.6