1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
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
|
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
+
+
-
+
+
+
+
+
+
+
+
+
+
+
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
sr=44100
ksmps=20
nchnls=1
nchnls=2
;isf sfload "samples/acoustic_grand_piano_ydp.sf2"
isf sfload "samples/default.sf2"
sfplist isf
sfpassign 0, isf
;gipre sfpreset 0, 0, isf, 0
;gienginenum1 fluidEngine
;isfnum1 fluidLoad "samples/default.sf2"
instr 1
; kcps = 220
; icps = 220
; ifn = 0
; imeth = p4
;; asig pluck 0.7, cpspch(p5), cpspch(p6), ifn, imeth, .1, 10
asound pluck p4, cpspch(p5), cpspch(p6), p7, p8 p9 p10
out asound
asig pluck p4, cpspch(p5), cpspch(p6), p7, p8 p9 p10
outs asig,asig
endin
instr 2
kenv linen p4, .1, p3, .2; envelope
asound oscili kenv, cpspch(p5), p6; oscillator
out asound
outs asound,asound
endin
instr 3
; pylassigni "note", p5
; pylruni "sample_file = 'samples/bass/%.2f.wav' % note"
; Ssample_file pylevali "sample_file"
Ssample_file sprintf "samples/bass/%.2f.wav", p5
asig diskin2 Ssample_file, 1
outs asig,asig
endin
instr 4
asound foscili p4, cpspch(p5), 5, 2, 3, p9
out asound
aFMinst foscili p4, cpspch(p5), p6, p7, p8, p9
endin
;instr 5
; Ssample_file sprintf "samples/violin/%.2f.wav", p5
; asig mp3in Ssample_file, 1
; outs asig,asig
;endin
instr 6
mididefault 60, p3
midinoteonkey p4, p5
inum init p4
ivel init p5
ivel init ivel/127
kamp linsegr 1, 1, 1, .1, 0
kamp = kamp/1000
kfreq init 1
a1,a2 sfplay3 ivel, inum, kamp*ivel, kfreq, 0
outs a1,a2
endin
;instr 7
;
;endin
|