-odac --midi-key=4
sr = 44100
ksmps = 64
nchnls = 2
0dbfs = 1
gaL init 0
gaR init 0
section@global:k init 0
; roots (basenotes)
F2@global:i = cpspch(6.05)
baseNotes@global:i[] = [ F2*27/8, F2*9/4, F2*3/2, F2, F2*4/3, F2*16/9, F2*64/27 ]
printarray baseNotes
#define D4 #62#
ratios@global:i[][] init 127, 7
ratios setrow [1, 3/2, 0, 0, 5/4, 15/8, 0], 62 ; D4
ratios setrow [3/2, 0, 0, 0, 0, 0, 0], 69 ; A4
ratios setrow [2 * 5/4 , 2* 28/15, 4*7/5, 8*21/20, 4*63/40, 0, 0], 78 ; F#5
ratios setrow [2 * 7/6, 2*7/4, 0, 0, 4 * 3/2, 4* 9/8, 0 ], 77 ; F5
ratios setrow [5/3, 2*5/4, 2*28/15, 4*7/5, 21/20*4, 63/40*2, 0 ], 71 ; B4
; Section 2
ratios setrow [0, 1, 3/2, 0, 0, 0, 0 ], 55 ; G3
ratios setrow [0, 2 * 7/6, 2 * 7/4, 0, 0, 0, 0 ], 70 ;Bb4
ratios setrow [0, 5/3, 5/4*2, 0, 0 ,0, 0 ], 64 ; E4
; Section 3
ratios setrow [0, 0, 1, 3/2, 0, 0, 0 ], 48 ; C3
ratios setrow [0, 0, 2*7/6, 2*7/4, 2*21/16, 0, 0 ], 63 ; Eb4
ratios setrow [0, 0, 5/3, 2*5/4, 0, 0, 0 ], 57 ; A3
;Section 4
ratios setrow [0, 0, 0, 1, 3/4, 0, 0 ], 41 ; F2
; Section 5
ratios setrow [0, 0, 0, 0, 1, 3/4, 0 ], 58 ; Bb3
ratios setrow [0, 0, 0, 0, 7/4, 0, 1 ], 56 ; Ab3
; Section 6
ratios setrow [0, 0, 0, 0, 0, 1, 3/4 ], 51 ; Eb3
ratios setrow [0, 0, 0, 0, 0, 2 *21/16, 0 ], 68 ; Ab4
ratios setrow [0, 0, 0, 0, 0, 7/4, 0 ], 61 ; Db4
ratios setrow [0, 0, 0, 0, 0, 4*21/20, 4* 21*3/(20*4) ], 76 ; E5
ratios setrow [0, 0, 0, 0, 0, 3/2 * 4, 9/8 *4 ], 82 ; Bb5
ratios setrow [0, 0, 0, 0, 0, 5/4*2, 15/8 ], 67 ; G4
;Section 7
; Ab3 defined above
ratios setrow [0, 0, 0, 0, 0, 0, 21/16 * 2 ], 73 ; Db5
ratios setrow [0, 0, 0, 0, 0, 0, 7/4 ], 66 ; Gb4
ratios setrow [0, 0, 0, 0, 0, 0, 21/20 * 4 ], 81 ; A5
; p4 - freq. ratio from base note of the section
; p5 - player number
; p6 - panning (notebased) if negative, read the panning slider
instr Sound1
note:i = p4
player:i = p5==0 ? 1 : p5
volumeChannel:S = sprintf("volume%d", player)
timbreChannel:S = sprintf("timbre%d", player)
filterChannel:S = sprintf("filter%d", player)
panningChannel:S = sprintf("panning%d", player)
section:i = chnget:i("section")
frequency:i = baseNotes[section-1] * ratios[note][section-1]
print section, baseNotes[section-1], ratios[note][section-1], frequency, cpsmidinn(note)
if frequency>0 then
kTimbre port chnget:k(timbreChannel), 0.02, chnget:i(timbreChannel)
; Clip . squareness; Skew - symmetry (1=saw)
; timbre: 0 - sine, 0.5 - saw, 1 - square
if kTimbre<=0.5 then
kClip = 0
kSkew = kTimbre * 2
elseif kTimbre>0.5 && kTimbre<=1.0 then
kClip = (kTimbre-0.5) * 2
kSkew = 1-kClip
else
kClip = 0
kSkew = 0
endif
signal:a squinewave a(frequency), a(kClip), a(kSkew)
cutoff:k = frequency * lag(1+chnget:k(filterChannel)*10, 0.1)
signal = butterlp(signal, a(cutoff))
signal *= a(lag(chnget:k(volumeChannel), 0.05))
signal *= madsr(2, 0,1,2) * 0.4
panning:k = lag( chnget:k(panningChannel), 0.1)
aL, aR = pan2(signal, panning)
out aL, aR
gaL += aL
gaR += aR
else
printf_i "Frequncy is 0 for note %d, section %d \n", 1, note, section
endif
endin
alwayson("Reverb")
instr Reverb
wet:i = 0.15
size:i = 0.8
rvbL:a, rvbR:a reverbsc gaL*wet, gaR*wet, size, 5000
out rvbL, rvbR ; wet only
clear gaL, gaR
endin
0
0
436
209
true
67
67
67
75
12
280
37
{cbf06616-ec4c-4eb6-aa70-fd71a51722e1}
true
true
0
-3
left
top
Liberation Sans
17
3
5
false
252
252
252
32
35
38
0
0
0
false
1
0
D4
19
202
53
37
{b8129a75-27fe-466a-b4d6-9a214048b5b5}
true
true
0
0
event
1.00000000
D4
/
i "Sound1" 0 -1 62 1
false
false
false
10
true
0
85
0
#00cb00
#007800
#ffffff
2
3
A4
88
202
53
37
{621aa809-aba4-46a0-9e5e-042e6540a322}
true
true
0
0
event
1.00000000
A4
/
i "Sound1" 0 -1 69 1
false
false
false
10
true
0
85
0
#00cb00
#007800
#ffffff
2
3
volume1
107
71
80
80
{9995162c-4035-401b-aa28-4bb6e5f8f501}
true
true
0
0
0.00000000
1.00000000
1.00000000
0.67500000
lin
continuous
0.01000000
false
245
124
0
#f57c00
0
#512900
true
true
false
123
152
56
22
{1ac2795d-b0c8-493c-8646-bc54f7f460fb}
true
true
0
-3
left
top
Liberation Sans
10
3
5
false
252
252
252
32
35
38
0
0
0
false
1
0
panning1
340
64
66
22
{725307cd-1140-4f51-9ef9-25a534822d26}
true
true
0
0
0.00000000
1.00000000
0.19696970
lin
continuous
-1.00000000
false
308
62
31
24
{0cc786f0-1afe-4763-838b-ce9faa001e0d}
true
true
0
-3
left
top
Liberation Sans
10
3
5
false
252
252
252
32
35
38
0
0
0
false
1
0
407
63
31
24
{950b8666-1d9c-4878-b888-abab2980aa08}
true
true
0
-3
left
top
Liberation Sans
10
3
5
false
252
252
252
32
35
38
0
0
0
false
1
0
F#5
157
202
53
37
{3668b472-dc97-49c6-9d62-7b1a53b45ce6}
true
true
0
0
event
1.00000000
F#5
/
i "Sound1" 0 -1 78 1
false
false
false
10
true
0
85
0
#00cb00
#007800
#ffffff
2
3
F5
226
202
53
37
{c7b77473-981a-4108-a689-9c1972f3613f}
true
true
0
0
event
1.00000000
F5
/
i "Sound1" 0 -1 77 1
false
false
false
10
true
0
85
0
#00cb00
#007800
#ffffff
2
3
308
165
42
27
{9983ebee-7d6c-4271-89f3-117eed43f52a}
true
true
0
-3
left
top
Liberation Sans
10
3
5
false
252
252
252
32
35
38
0
0
0
false
1
0
353
164
42
27
{a99067ed-d2a2-479f-ab97-ab6862809169}
true
true
0
-3
left
top
Liberation Sans
10
3
5
false
252
252
252
32
35
38
0
0
0
false
1
0
401
164
46
27
{08c4bf89-7da7-4f23-991b-07c1c39eb9e3}
true
true
0
-3
left
top
Liberation Sans
10
3
5
false
252
252
252
32
35
38
0
0
0
false
1
0
filter1
220
70
18
80
{40fdb138-d188-43fc-aed6-25c039658d36}
true
true
0
0
0.00000000
1.00000000
0.26250000
lin
continuous
-1.00000000
false
203
157
65
24
{6f2d6c7b-27ae-451e-808d-27ac8209fa6c}
true
true
0
-3
left
top
Liberation Sans
10
3
5
false
252
252
252
32
35
38
0
0
0
false
1
0
timbre1
310
132
126
30
{dea7df2d-c781-4e54-978d-bfdd15780727}
true
true
0
0
0.00000000
1.00000000
0.00000000
lin
continuous
-1.00000000
false
G3
19
257
53
37
{19ef87be-d313-421c-ab0e-ff69761163f3}
true
true
0
0
event
1.00000000
G3
/
i "Sound1" 0 -1 55 1
false
false
false
10
true
0
85
127
#008bcb
#007cb1
#ffffff
2
3
Bb4
88
257
53
37
{08679b4f-87e7-4c44-8159-2b3a46f9a4cb}
true
true
0
0
event
1.00000000
Bb4
/
i "Sound1" 0 -1 70 1
false
false
false
10
true
0
85
127
#008bcb
#007cb1
#ffffff
2
3
E4
157
257
53
37
{563bc97f-d730-47c3-af83-de66209a0230}
true
true
0
0
event
1.00000000
E4
/
i "Sound1" 0 -1 64 1
false
false
false
10
true
0
85
127
#008bcb
#007cb1
#ffffff
2
3
B4
296
202
53
37
{2b1aca03-bbd2-40bb-8576-efef9d52298f}
true
true
0
0
event
1.00000000
B4
/
i "Sound1" 0 -1 71 1
false
false
false
10
true
0
85
0
#00cb00
#007800
#ffffff
2
3
8
64
80
25
{a5a9b003-ba34-45fc-896f-25960a54cefb}
true
true
0
-3
left
top
Liberation Sans
10
3
5
false
252
252
252
32
35
38
0
0
0
false
1
0
section
9
91
80
75
{0ba621f5-717c-44ce-b82d-6d8ed251123c}
true
true
0
0
center
JetBrains Mono
36
252
252
252
32
35
38
1.00000000
1
7
false
1
C3
19
312
53
37
{1aa1133c-5c96-45eb-a444-f47c745646b1}
true
true
0
0
event
1.00000000
C3
/
i "Sound1" 0 -1 48 1
false
false
false
10
true
135
0
0
#f90000
#d00000
#ffffff
2
3
Eb4
88
312
53
37
{30cfd1cb-ca56-4669-9b02-6c40fef69c8a}
true
true
0
0
event
1.00000000
Eb4
/
i "Sound1" 0 -1 63 1
false
false
false
10
true
135
0
0
#f90000
#d00000
#ffffff
2
3
A3
157
312
53
37
{da416049-32d9-4a6f-956a-67d396f0d7b5}
true
true
0
0
event
1.00000000
A3
/
i "Sound1" 0 -1 57 1
false
false
false
10
true
135
0
0
#f90000
#d00000
#ffffff
2
3
F2
296
312
53
37
{db28c4e6-fa00-4621-aca5-3670099e9c51}
true
true
0
0
event
1.00000000
F2
/
i "Sound1" 0 -1 41 1
false
false
false
10
true
49
140
0
#00ff00
#2a7e3e
#ffffff
2
3
Bb3
19
359
53
37
{4e4a9e74-544f-417a-b380-37ff041d8ed4}
true
true
0
0
event
1.00000000
Bb3
/
i "Sound1" 0 -1 58 1
false
false
false
10
true
85
0
127
#8400c6
#8100c1
#ffffff
2
3
Ab3
88
359
53
37
{b4f87577-15fa-4820-8fe6-23c0b535145a}
true
true
0
0
event
1.00000000
Ab3
/
i "Sound1" 0 -1 56 1
false
false
false
10
true
85
0
127
#8400c6
#8100c1
#ffffff
2
3
Eb3
19
411
53
37
{031f68e7-de7a-4c18-8f45-f969ac385121}
true
true
0
0
event
1.00000000
Eb3
/
i "Sound1" 0 -1 51 1
false
false
false
10
true
85
85
0
#999900
#8c8c00
#ffffff
2
3
Ab4
88
411
53
37
{ae5d72a5-4591-4890-ad23-737682852105}
true
true
0
0
event
1.00000000
Ab4
/
i "Sound1" 0 -1 68 1
false
false
false
10
true
85
85
0
#999900
#8c8c00
#ffffff
2
3
Db4
157
411
53
37
{1c2b69c1-5ca8-433f-acdf-732570bace4a}
true
true
0
0
event
1.00000000
Db4
/
i "Sound1" 0 -1 61 1
false
false
false
10
true
85
85
0
#999900
#8c8c00
#ffffff
2
3
E5
226
411
53
37
{456f16b1-fdcb-4978-b53b-99acc8f43248}
true
true
0
0
event
1.00000000
E5
/
i "Sound1" 0 -1 76 1
false
false
false
10
true
85
85
0
#999900
#8c8c00
#ffffff
2
3
Bb5
296
411
53
37
{fec409ba-a54b-4b98-a148-ffa18babfe8d}
true
true
0
0
event
1.00000000
Bb5
/
i "Sound1" 0 -1 82 1
false
false
false
10
true
85
85
0
#999900
#8c8c00
#ffffff
2
3
Ab3
19
461
53
37
{a5116fbe-9e2d-426b-b060-be08bad5093c}
true
true
0
0
event
1.00000000
Ab3
/
i "Sound1" 0 -1 56 1
false
false
false
10
true
170
85
127
#d46a9f
#ce679a
#ffffff
2
3
Db5
88
461
53
37
{95cf67a2-d106-4cfe-b671-c0ce6846532a}
true
true
0
0
event
1.00000000
Db5
/
i "Sound1" 0 -1 73 1
false
false
false
10
true
170
85
127
#d46a9f
#ce679a
#ffffff
2
3
Gb4
157
461
53
37
{d95d2842-82e6-43c3-a877-555f39374ab0}
true
true
0
0
event
1.00000000
Gb4
/
i "Sound1" 0 -1 66 1
false
false
false
10
true
170
85
127
#d46a9f
#ce679a
#ffffff
2
3
A5
226
461
53
37
{49d30368-4c29-4bf2-9431-ce53201217f2}
true
true
0
0
event
1.00000000
A5
/
i "Sound1" 0 -1 81 1
false
false
false
10
true
170
85
127
#d46a9f
#ce679a
#ffffff
2
3
Bb5
365
411
53
37
{334d7929-d553-4ced-9d80-e30abba314cd}
true
true
0
0
event
1.00000000
G4
/
i "Sound1" 0 -1 67 1
false
false
false
10
true
85
85
0
#999900
#8c8c00
#ffffff
2
3