-
Notifications
You must be signed in to change notification settings - Fork 3
/
partikkel_chn.inc
122 lines (108 loc) · 4.13 KB
/
partikkel_chn.inc
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
; Copyright 2014 Oeyvind Brandtsegg and Axel Tidemann
;
; This file is part of [self.]
;
; [self.] is free software: you can redistribute it and/or modify
; it under the terms of the GNU General Public License version 3
; as published by the Free Software Foundation.
;
; [self.] is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details.
;
; You should have received a copy of the GNU General Public License
; along with [self.]. If not, see <http://www.gnu.org/licenses/>.
/*
; default
kamp = 1 ; amp in dB
kGrainRate = 10 ; number of grains per second
kGrainDur = 1 ; length of each grain relative to grain rate
ksustain_amount = 0 ; balance between enveloped time(attack+decay) and sustain level time, 0.0 = no time at sustain level
ka_d_ratio = 0.5 ; balance between attack time and decay time, 0.0 = zero attack time and full decay time
kwavfreq = 220 ; transposition factor (playback speed) of audio inside grains,
kgainOct = 0 ; octaviation, amp mod on every 2nd grain
kdevAmount = 0 ; synchronous/asynchronous balance
kGrFmFreq = 10 ; FM freq for modulating the grainrate
kGrFmIndex = 0.0 ; FM index for modulating the grainrate (normally kept in a 0.0 to 1.0 range)
kdistribution = 0.0 ; grain random distribution in time
krandommask = 0 ; stochastic masking
kwavekey1 = 1 ; individual source pitch
kwavekey2 = 1 ; individual source pitch
kwavekey3 = 1 ; individual source pitch
kwavekey4 = 1 ; individual source pitch
kPtchFmFreq = 440 ; FM freq, modulating waveform pitch
kPtchFmIndex = 0 ; FM index, modulating waveform pitch
knumpartials = 4 ; number of partials in trainlet
kchroma = 2 ; chroma, falloff of partial amplitude towards sr/2
kwavemorf = 0 ; wave mix morfing (range 0 to 3)
*/
; read values
kamp chnget "partikkel1_amp"
kGrainRate chnget "partikkel1_grainrate"
kGrainDur chnget "partikkel1_graindur"
ksustain_amount chnget "partikkel1_sustain"
ka_d_ratio chnget "partikkel1_adratio"
kwavfreq chnget "partikkel1_wavfreq"
kgainOct chnget "partikkel1_octaviation"
kdevAmount chnget "partikkel1_async_amount"
kdistribution chnget "partikkel1_distribution"
krandommask chnget "partikkel1_randomask"
kGrFmFreq chnget "partikkel1_grFmFreq"
kGrFmIndex chnget "partikkel1_grFmIndex"
kwavekey1 chnget "partikkel1_wavekey1"
kwavekey2 chnget "partikkel1_wavekey2"
kwavekey3 chnget "partikkel1_wavekey3"
kwavekey4 chnget "partikkel1_wavekey4"
kPtchFmFreq chnget "partikkel1_pitchFmFreq"
kPtchFmIndex chnget "partikkel1_pitchFmIndex"
knumpartials chnget "partikkel1_trainPartials"
kchroma chnget "partikkel1_trainChroma"
kwavemorf chnget "partikkel1_wavemorf"
; range control
kamp limit kamp, 0, 1
kGrainRate limit kGrainRate, 1, 1000
kGrainDur limit kGrainDur, 0.1, 4
ksustain_amount limit ksustain_amount, 0, 1
ka_d_ratio limit ka_d_ratio, 0, 1
kwavfreq limit kwavfreq, 30, 1500
kgainOct limit kgainOct, 0, 1
kdevAmount limit kdevAmount, 0, 1
kdistribution limit kdistribution, 0, 1
krandommask limit krandommask, 0, 1
kGrFmFreq limit kGrFmFreq, 1, 1000
kGrFmIndex limit kGrFmIndex, 0, 10
kwavekey1 limit kwavekey1, 0.25, 4
kwavekey2 limit kwavekey2, 0.25, 4
kwavekey3 limit kwavekey3, 0.25, 4
kwavekey4 limit kwavekey4, 0.25, 4
kPtchFmFreq limit kPtchFmFreq, 1, 1000
kPtchFmIndex limit kPtchFmIndex, 0, 10
knumpartials limit knumpartials, 1, 20
kchroma limit kchroma, 1, 10
kwavemorf limit kwavemorf, 0, 3
; provide critical defaults if channel empty
;if kamp == 0 then
; chnset 1, "partikkel1_amp"
;endif
if kGrainRate == 0 then
chnset 10, "partikkel1_grainrate"
endif
if kGrainDur == 0 then
chnset 1, "partikkel1_graindur"
endif
;if kwavfreq == 0 then
; chnset 1, "partikkel1_wavfreq"
;endif
if kwavekey1 == 0 then
chnset 1, "partikkel1_wavekey1"
endif
if kwavekey2 == 0 then
chnset 1, "partikkel1_wavekey2"
endif
if kwavekey3 == 0 then
chnset 1, "partikkel1_wavekey3"
endif
if kwavekey4 == 0 then
chnset 1, "partikkel1_wavekey4"
endif