-
Notifications
You must be signed in to change notification settings - Fork 0
/
s5.chops
81 lines (71 loc) · 1.93 KB
/
s5.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
/*
S5 Test Program
*/
bgn "s5" // Begin of Program "s1"
bpm 192.0 // Set sequencer BPM
sig 8,8 // Set sequencer TimeSignature
sel a1 // select a1 as current context/setup/..? TODO: find suiting name
ld "audio.wav" // Load audio.wav into current workspace
fit 1.0
stop
set eight,1.0/8.0
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 bass
ld "jungbass.wav"
stop
bpm 192.0
fit 0.75
mrk b0,0.0
bpm 48.0
sel git
ld "gitar_loop.wav"
mrk g0,0.0
fit 0.5
stop
bpm 48.0
srst
set cx,54
start:
sel git
playf g0
sel bass
playf b0
sel a1
playf m0
wait 0:1:0
playf m4
wait 0:1:0
playf m6
sel git
seek 0.25
sel a1
wait 0:1:0
playf m2
wait 0:1:0
playf m6
sel git
seek 0.25
sel a1
wait 0:1:0
playf m4
wait 0:1:0
playf m2
sel git
seek 0.25
sel a1
wait 0:1:0
playf ms
sel git
seek 0.25
sel a1
wait 0:1:0
jdnz cx, start
h: // label
hlt // halt program execution