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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
_______________________________________
|,---"-----------------------------"---,|
||___ 16 bit.................... ||
||====\ :HHHHHHHHHHHHHHHHHHHHHHHHHHH ||
||=====):H c> ATA-RIGHT??? # H ||
||====/ :H H ||
||""" :H H ||
|| :H H ||
|| :HHHHHHHHHHHHHHHHHHHHHHHHHHH ||
||_____,_________________________,_____||
|)_____)-----.| /I\ATARI |.------(_____(|
//"""""""|_____|=----------=|______|"""""""\
// _| _| _| _| _| _| _| _| _| _| _| _| _| _| \
// ___| _| _| _| _| _| _| _| _| _| _| _| | | \
|/ ___| _| _| _| _| _| _| _| _| _| _| _| ______| \
/ __| _| _| _| _| _| _| _| _| _| _| _| _| _| ___| \
/ _| _| _| _| ________________________| _| _| _| _| \
|------"--------------------------------------"-------|
`-----------------------------------------------------'
[] ,----.___ [] ,----.___
__||_/___ '. __||_/___ '.
/ O|| /| ) / O|| /| )
/ "" / / =._/ / "" / / =._/
/________/ / /________/ /
|________|/ |________|/
-- Thanks dew & PORTFO for the ASCII art <3
do
let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let g3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let modIndex = pF "modIndex"
setcps (120/60/4)
d1 $ g1 $ gMute -- THE ROAD
$ midiOn "^74" (fast 2)
$ midiOn "^42" (struct "t t t <t t*2 t [~ t]>")
$ midiOff "^42" (struct "t*2")
$ "[jazz,808bd:6]"
# midiG' "^78" 0 1.4
# orbit 0
d2 $ g1 $ gM -- THE FUEL
$ midiOn "^43" (mask "t f . f <t!4 f!4> t <t!4 f!3 t>")
$ midiOn "^75" (ply 2)
$ loopAt 4
$ chop 32
$ "drums_atari:21"
# midiG' "^79" 0 1.2
# lpf 2800
# cut 2
# orbit 1
d3 $ gM $ g1 -- THE GUIDELINES
$ midiOn ("^44" - "^76")
(sometimesBy (slow 8 $ range 0.3 0.95 saw)
$ mask "t(3,8)")
$ midiOn "^76" (fast "<2!4 <4 [4 8]>>") -- YOU SHALL RUN
$ struct "t*[<8!3 <16 [[16|32]*4]>>!3 <16!3 [12|24]*4> 12!4]"
$ "h2ogmhh"
# midiG' "^80" 0 1.2
# n "<0!4 1 2 3>"
# orbit 2
d4 $ gMask -- THE THUNDER
$ g2
$ midiOn "^57" (off "0.75" id)
$ midiOn "^89" (off "1" id . chop "8")
$ fix (|* gain 0.8) (note "a4")
$ note "<ef3 <~!0 [~ ~ ~ ~ ~ <~ e3> ~ <a3 <e3 cs3>>]!4>>"
# "FMRhodes1"
# cut 4
# modIndex (range 0 128 "^53")
# crushbus 41 (range 16 4 "^33")
# roombus 42 (range 0.05 0.6 "^33")
# sz 0.9
# pan "<0.8!3 0.5>"
# midiG' "^81" 0 1.8
# room 0.4
# orbit 3
d5 $ g2 $ gMask -- THE RAIN
$ midiOn "^58" ((whenmod 8 7 (off "s" id)) .(off "e" id))
$ midiOn "^90" (striate "<2!3 4>" . ply 2)
$ struct "t(<3!7 [3 8]>,8,<0!3 3>)"
$ note (
arp "down"
("<c'maj'4!2 <c'maj'4!3 ef'maj'4> g'min'4>" |+| "ef3" - 12))
# "FMRhodes2"
# modIndex (range 0 128 "^54")
# crushbus 41 (range 16 4 "^34")
# roombus 42 (range 0 0.2 "^34")
# sz 0.5
# pan 0.8
# orbit 4
# midiG' "^82" 0 1.9
d8 $ g3 $ gM -- THE UNAVOIDABLE BREAKS
$ mask "t(16,64)"
$ midiOn "^36" (# n 6) -- Double light
$ midiOn "^56" (# n 4) -- DOUBLE HEAVY
$ midiOn "^60" (ply 2)
$ midiOn "^92" (fast 2)
$ slice 8 ("<0!3 ~> <1!3 3> <2 2 [2 6][ 2 6 6 6]> <3!3 7>*<1 2>")
$ loopAt 2
$ "fbreak120:3"
# cut 8
# midiG' "^84" 0 1.3
# orbit 5