1;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2;    SeqArc for Sample SE
3;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4
5; �m�[�g�R�}���h����
6; �R�C����
7coin:
8    prg 0
9    as5 127, 6
10    release 100
11    ds6 127, 48
12    fin
13
14
15; �W�����v�ɂ�郋�[�v�i�����̌J��Ԃ��j
16; �~�}��
17jump_seq:
18    prg 0
19    pan 127
20_loop_start:
21    frontbypass_on
22    bn4 127, 48
23    gn4 127, 48
24    frontbypass_off
25    bn4 127, 48
26    gn4 127, 48
27    jump _loop_start
28
29
30; ���[�v���g�����J��Ԃ��Đ�
31; �P���ɂU��J��Ԃ�
32loop_seq:
33    prg 0
34    loop_start 6
35    cn5 127,10
36    gn4 127,10
37    loop_end
38    fin
39
40
41; �R�[�����g�����p�^�[����
42; �����t���[�Y���p�^�[�������A�p����ݒ肵�Ă��ꂼ�ꓯ���t���[�Y��‚炷�B
43call_seq:
44    prg 0
45    pan 0
46    call _pattern
47    pan 64
48    call _pattern
49    pan 127
50    call _pattern
51    fin
52
53_pattern:
54    cn5 127,10
55    gn4 127,10
56    cn5 127,10
57    gn4 127,10
58    ret
59
60
61; �|���^�����g
62; cn4->cn5�Acn5->cn3�Acn3�i�|���^�����g�Ȃ��j�̏��ɔ�������
63porta_seq:
64    prg 0
65    porta cn4
66    cn5 127,48
67    cn3 127,48
68    porta_off
69    cn4 127,48
70    fin
71
72
73; porta_time ���g�����|���^�����g
74; cn4->cn5�Acn5->cn3�Acn3�i�|���^�����g�Ȃ��j�̏��ɔ�������
75porta_time_seq:
76    prg 0
77    porta cn4
78    porta_time 10
79    cn5 127,48
80    cn3 127,48
81    porta_off
82    cn4 127,48
83    fin
84
85; �X�C�[�v
86; �e���̎n�߂��A�S��������X�C�[�v����
87sweep_seq:
88    prg 0
89    porta_time 16
90    sweep_pitch -64*2
91    cn5 127,48
92    bn4 127,48
93    an4 127,48
94    gn4 127,48
95    fn4 127,48
96    en4 127,48
97    dn4 127,48
98    cn4 127,48
99    fin
100
101
102; ���W�����[�V����
103; �����̃��W�����[�V�����Ńm�[�g�I�����邲�ƂɃ��W�����[�V�������x�������Ȃ�
104mod_seq:
105    prg 0
106    mod_type MOD_TYPE_PITCH
107    mod_depth 64
108    mod_speed 24
109    cn5 127,48
110    mod_speed 48
111    cn5 127,48
112    mod_speed 96
113    cn5 127,48
114    fin
115
116
117; �^�C���[�h
118; ��L�̃��W�����[�V�����V�[�P���X�Ńm�[�g�R�}���h���^�C�Ō��Ԃ��Ƃɂ��A
119; �m�[�g�I���������̃��W�����[�V�������x�������Ȃ��Ă���
120tie_seq:
121    prg 0
122    mod_type MOD_TYPE_PITCH
123    mod_depth 64
124    mod_speed 24
125    tieon
126    cn5 127,48
127    mod_speed 48
128    cn5 127,48
129    mod_speed 96
130    cn5 127,48
131    tieoff
132    fin
133
134
135; ���ԕϕt�����R�}���h�ƃ����_���R�}���h�̑g�ݍ��킹
136; ���ʂ̖ڕW�l��0����64�̊Ԃ̃����_���l
137; �ω��ɂ����鎞�Ԃ�0����54�̊Ԃ̃����_���l
138move_volume_seq:
139    prg 0
140    volume_r_tr 0, 64, 0, 54
141    as5 127, 6
142    ds6 127, 48
143    fin
144
145
146; �m�[�g�E�G�C�g�Ȃ�
147; �X�[�p�[�}���I�̃C���g����3���|���t�H�j�b�N�m�[�g����‚̃g���b�N�ōs���Ă���
148super_mario:
149    prg 0
150    tempo 103
151    notewait_off
152    en5 100,10
153    fs4 100,10
154    dn3 100,10
155    wait 12
156    en5 100,12
157    fs4 100,12
158    dn3 100,12
159    wait 24
160    en5 100,12
161    fs4 100,12
162    dn3 100,12
163    wait 24
164    cn5 100,10
165    fs4 100,10
166    dn3 100,10
167    wait 12
168    en5 100,12
169    fs4 100,12
170    dn3 100,12
171    wait 24
172    gn5 100,12
173    gn4 100,12
174    gn3 100,12
175    wait 48
176    gn4 100,12
177    gn3 100,12
178    wait 48
179    fin
180
181
182; �g���b�N�I�[�v��
183; ��L�̃m�[�g�E�G�C�g�Ȃ��Ɠ����������R�g���b�N�ɕ����āA�P�g���b�N�P���ōs���Ă���
184; ����Ƀg���b�N�R�Ńm�C�Y�̃g���b�N���t�����Ă���B
185opentrack_seq:
186    alloctrack TRACK_1 | TRACK_2 | TRACK_3
187    opentrack 1, _seq_1
188    opentrack 2, _seq_2
189    opentrack 3, _seq_3
190    prg 0
191    tempo 103
192    en5 100,10
193    wait 2
194    en5 100,12
195    wait 12
196    en5 100,12
197    wait 12
198    cn5 100,10
199    wait 2
200    en5 100,12
201    wait 12
202    gn5 100,12
203    wait 36
204    gn4 100,12
205    wait 36
206    fin
207
208_seq_1:
209    prg 0
210    fs4 100,10
211    wait 2
212    fs4 100,12
213    wait 12
214    fs4 100,12
215    wait 12
216    fs4 100,10
217    wait 2
218    fs4 100,12
219    wait 12
220    gn4 100,12
221    wait 36
222    gn3 100,12
223    wait 36
224    fin
225
226_seq_2:
227    prg 0
228    dn3 100,10
229    wait 2
230    dn3 100,12
231    wait 12
232    dn3 100,12
233    wait 12
234    dn3 100,10
235    wait 2
236    dn3 100,12
237    wait 12
238    gn3 100,12
239    wait 36
240    fin
241
242_seq_3:
243    prg 1
244    volume 90
245    en4 100,4
246    wait 20
247    cn4 100,2
248    wait 10
249    en4 100,4
250    wait 20
251    cn4 100,2
252    wait 10
253    en4 100,4
254    wait 20
255    en4 100,4
256    wait 32
257    en4 100,6
258    wait 6
259    wait 12
260    en4 100,2
261    wait 10
262    en4 100,2
263    wait 10
264    en4 100,2
265    wait 10
266    fin
267
268
269bank_select_seq:
270    setvar VAR_0, 0
271    prg 0
272    cn5 127, 30
273    bank_select_r 0, 1
274    en5 100, 30
275    bank_select_v VAR_0
276    gn5 127, 30
277    fin
278
279
280filter:
281    prg 0
282    release 114
283
284    biquad_value 100  ;; 0-127 ���w��B0 �����ʂȂ��B127 �����ʂ��ő�B
285    biquad_type 0     ;; �t�B���^�K�p�Ȃ��B
286    call _sub
287    biquad_type 1     ;; biquad LPF
288    call _sub
289    biquad_type 2     ;; biquad HPF
290    call _sub
291    biquad_type 3     ;; biquad BPF (512Hz)
292    call _sub
293    biquad_type 4     ;; biquad BPF (1024Hz)
294    call _sub
295    biquad_type 5     ;; biquad BPF (2048Hz)
296    call _sub
297
298    biquad_type 0     ;; �t�B���^�K�p�Ȃ��ɖ߂��B
299
300    lpf_cutoff 0      ;; lpf_cutoff 0 �ŁALPF ���ő�܂ł�����B
301    call _sub
302    lpf_cutoff 16
303    call _sub
304    lpf_cutoff 32
305    call _sub
306    lpf_cutoff 48
307    call _sub
308    lpf_cutoff 64     ;; lpf_cutoff 64 (�f�t�H���g�l) �� LPF ��������Ȃ��Ȃ�B
309    call _sub
310    fin
311
312_sub:
313    cn5 127, 20
314    wait 10
315    en5 127, 20
316    wait 10
317    gn5 127, 20
318    wait 10
319    cn6 127, 20
320    wait 10
321    ret
322