-
Notifications
You must be signed in to change notification settings - Fork 0
/
s9.chops
171 lines (154 loc) · 3.98 KB
/
s9.chops
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
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
/*
S5 Test Program
*/
aconfig {
defaultoport: "foo"
oport: "echo"
oport: "distort"
oport: "bass"
}
bgn "s5" // Begin of Program "s1"
bpm 192.0 // Set sequencer BPM
sig 8,8 // Set sequencer TimeSignature
set eight,1.0/8.0
//------------------------------------
sel bass
ld "jungbass.wav"
fit 0.5
stop
mrk m0,0.0
mrk m1,eight
mrk m2,2.0*eight
mrk m3,3.0*eight
mrk m4,4.0*eight
mrk m5,5.0*eight
mrk m6,6.0*eight
mrk m7,7.0*eight
//---------------------------------
sel hp // select a1 as current context/setup/..? TODO: find suiting name
ld "Hot_Pants.wav" // Load audio.wav into current workspace
fit 1.0
stop
mrk m0,0.0
mrk m1,eight
mrk m2,2.0*eight
mrk m3,3.0*eight
mrk m4,4.0*eight
mrk m5,5.0*eight
mrk m6,6.0*eight
mrk m7,7.0*eight
//------------------------------------
sel su
ld "Dancing.wav"
fit 1.0
stop
mrk m0,0.0
mrk m1,eight
mrk m2,2.0*eight
mrk m3,3.0*eight
mrk m4,4.0*eight
mrk m5,5.0*eight
mrk m6,6.0*eight
mrk m7,7.0*eight
//------------------------------------
sel a
ld "amen.wav"
fit 1.0
stop
mrk m0,0.0
mrk m1,eight
mrk m2,2.0*eight
mrk m3,3.0*eight
mrk m4,4.0*eight
mrk m5,5.0*eight
mrk m6,6.0*eight
mrk m7,7.0*eight
mrk h0,0.0
//------------------------------------
bpm 48.0
sig 11,8
srst
start: set cx,16
jmp intro
intro:
sel bass
sop "bass"
playf m0
sel su
playf m0
wait 0:1:0 // 1/8
stop
sel hp
playf m2
wait 0:1:0 // 2/8
stop
sel su
sop "distort"
playf m2
wait 0:1:0 // 3/8
//sop "foo"
stop
sel hp
playf m4
wait 0:1:0 // 4/8
stop
sel bass
playb m0
sel a
playf m1
wait 0:0:12
playf m1
wait 0:0:12
playf m1
wait 0:0:72 // 7+8/7
wait 0:1:0 // 7+8/7
stop
sel su
playf m3
wait 0:0:12
playf m3
wait 0:0:12
playf m3
wait 0:0:24
playf m3
wait 0:0:24
playf m3
wait 0:0:24 // 9/8
stop
sel bass
playf m0
sel a
playf m1
wait 0:0:12
playf m1
wait 0:0:12
playf m1
wait 0:0:24
sop "echo"
playf m1
wait 0:0:48 // 10/8
stop
sop "foo"
sel bass
stop
sel hp
playf m1
wait 0:0:24
playf m1
wait 0:0:24
playf m2
wait 0:0:12
playf m2
wait 0:0:12
playf m2
wait 0:0:6
playf m2
wait 0:0:6
playf m2
wait 0:0:6
playf m2
wait 0:0:6 //11/8
stop
jdgz cx,intro
h: // label
hlt // halt program execution