2Mod4 2/2 Module
DESCRIPTION:
2Mod4 2/2 Module is the second half of the Modulator system, the other one is called 2Mod4 1/2.
This Module gets up to 4 modulations at k-rate from 2Mod4 1/2.
- kADDITION, kADDPHASE and iADDPHASE is derived from the ADD channel
- kMAXIMUM, kMAXPHASE and iMAXPHASE is derived from the MAX channel
- kMINIMUM, kMINPHASE and iMINPHASE is derived from the MIN channel
- kMULTIPLY, kMULTIPHASE and iMULTPHASE is derived from the MULT channel
They are at k-rate, k-rate but inverted phase, and i-rate respectively.
These modulated signals can be used to manipulate frequencies or amplitudes of the opcodes, or effects like filters in the instrument, and
everything that you want to modulate.
---
version 1, April 2023
- initial version
iFirstTableNumber<INSTR_ID> = 100*<INSTR_ID> ; create room for 100 soundfile tables
giSample<INSTR_ID> ftsamplebank "<samplebank>", iFirstTableNumber<INSTR_ID>, 0, 4, 0
;===============================2Mod4 Module====================================
if (<addON> == 1) then
kaddition chnget "ADD" ; get ADD values from 2Mod4
kADDITION = (<offset_ADD> + kaddition) * <scale_ADD> ; k-rate variable
kADDPHASE = (<offset_ADDPHASE> + kADDITION) * -1
iADD = i(kADDITION) ; & i-rate variable
iADDPHASE = (i(<offset_ADDPHASE>) + iADD) * -1
endif
if (<maxON> == 1) then
kmaximum chnget "MAX" ; get MAX values from 2Mod4
kMAXIMUM = (<offset_MAX> + kmaximum) * <scale_MAX> ; k-rate variable
kMAXPHASE = (<offset_MAXPHASE> + kMAXIMUM) * -1
iMAX = i(kMAXIMUM) ; & i-rate variable
iMAXPHASE = (i(<offset_MAXPHASE>) + iMAX) * -1
endif
if (<minON> == 1) then
kminimum chnget "MIN" ; get MIN values from 2Mod4
kMINIMUM = (<offset_MIN> + kminimum) * <scale_MIN> ; k-rate variable
kMINPHASE = (<offset_MINPHASE> + kMINIMUM) * -1
iMIN = i(kMINIMUM) ; & i-rate variable
iMINPHASE = (i(<offset_MINPHASE>) + iMIN) * -1
endif
if (<multON> == 1) then
kmultiply chnget "MULT" ; get MULT values from 2Mod4- only works when Mod1 & Mod2 are activated
kMULTIPLY = (<offset_MULT> + kmultiply) * <scale_MULT> ; k-rate variable
kMULTPHASE = (<offset_MULTPHASE> + kMULTIPLY) * -1
iMULT = i(kMULTIPHASE) ; & i-rate variable
iMULTPHASE = (i(<offset_MINPHASE>) + iMULT) * -1
endif
5
5
DOT
true
0
0
Group
0x00000033
0x000000ff
0xffffffff
true
20
20
Roboto
12.0
0
0
8 O u t p u t M o d u l a t o r
0x4d4d4dff
0x4d1a4dff
0xffffffff
true
20
20
Roboto
14.0
10
10
2channel Modulate
0x282828ff
0x000000ff
0xffffffff
false
228
100
Roboto
12.0
10
10
outputs Modulator
0x3a3a3aff
0x000000ff
0xffffffff
false
629
85
Roboto
14.0
scale_MULT
325
215
true
-2.0
2.0
0.01
0.5
150
true
true
offset_MAX
90
80
true
-2.0
2.0
0.01
0.0
150
true
true
195
15
Roboto
18.0
413
220
Roboto
18.0
195
40
Roboto
18.0
addON
9
10
true
true
true
295
170
Roboto
12.0
530
30
Roboto
12.0
295
110
Roboto
12.0
scale_MIN
325
155
true
-2.0
2.0
0.01
1.0
150
true
true
195
145
Roboto
18.0
163
85
Roboto
18.0
295
230
Roboto
12.0
295
40
Roboto
12.0
413
160
Roboto
18.0
295
15
Roboto
12.0
295
145
Roboto
12.0
maxON
9
80
true
false
true
430
100
Roboto
18.0
offset_ADDPHASE
90
35
true
-2.0
2.0
0.01
2.0
150
true
true
multON
9
205
true
false
true
413
30
Roboto
18.0
530
160
Roboto
12.0
offset_MULTPHASE
90
225
true
-2.0
2.0
0.01
-1.0
150
true
true
offset_ADD
90
10
true
-2.0
2.0
0.01
0.0
150
true
true
430
160
Roboto
18.0
163
205
Roboto
18.0
295
85
Roboto
12.0
80
225
Standard Symbols PS
20.0
30
37
Roboto
12.0
430
30
Roboto
18.0
scale_ADD
325
25
true
-2.0
2.0
0.01
0.5
150
true
true
30
229
Roboto
12.0
offset_MINPHASE
90
165
true
-2.0
2.0
0.01
0.3700000000000001
150
true
true
60
165
Standard Symbols PS
20.0
offset_MIN
90
140
true
-2.0
2.0
0.01
1.0
150
true
true
offset_MAXPHASE
90
105
true
-2.0
2.0
0.01
-2.0
150
true
true
163
230
Roboto
18.0
530
220
Roboto
12.0
30
109
Roboto
12.0
scale_MAX
325
95
true
-2.0
2.0
0.01
1.0
150
true
true
offset_MULT
90
200
true
-2.0
2.0
0.01
1.0
150
true
true
minON
9
140
true
false
true
295
205
Roboto
12.0
530
100
Roboto
12.0
30
169
Roboto
12.0
60
35
Standard Symbols PS
20.0
65
105
Standard Symbols PS
20.0
413
100
Roboto
18.0
4
5
true
0.04800000000000004
ver2:0.31
true
false
261.625565
false
version=2@_@amplitude envelope:0.0:0.0:0.19550561797752808:1.0:0.5700934579439252:1.0:0.6214953271028038:1.0:0.8121495327102803:1.0:1.0:0.0:1.0:0.0@_@filter envelope:0.0:9025.0:0.0691588785046729:1127.0000000000011:0.21460674157303372:648.3333333333331:0.516822429906542:528.6666666666658:0.798876404494382:7828.333333333334:1.0:289.3333333333329@_@pitch bend envelope:0.0:2.3466666666666667:0.525233644859813:2.293333333333333:0.5831460674157304:1.12:0.7168539325842697:1.7599999999999998:0.8299065420560747:0.0:1.0:2.24
/media/menno/datae/EigenWerk/eigenwerk/samples/gilpiep.wav
ver2:1.0:1.0
1.0
0.0
true
false
0.0
1.0
true
ver2:1.666
2517.2
id:-717362694
ver2:0.54
false
true
false
0.299
0.321
1.0
0.237
ver2:1
ver2:1
ver2:1
1.0
2.0
ver2:0.102
false
ver2:10
ver2:1.76
4
5
false
0.04800000000000004
ver2:0.31
true
false
261.625565
false
version=2@_@amplitude envelope:0.0:0.0:0.19550561797752808:1.0:0.5700934579439252:1.0:0.6214953271028038:1.0:0.8121495327102803:1.0:1.0:0.0:1.0:0.0@_@filter envelope:0.0:9025.0:0.0691588785046729:1127.0000000000011:0.21460674157303372:648.3333333333331:0.516822429906542:528.6666666666658:0.798876404494382:7828.333333333334:1.0:289.3333333333329@_@pitch bend envelope:0.0:2.3466666666666667:0.525233644859813:2.293333333333333:0.5831460674157304:1.12:0.7168539325842697:1.7599999999999998:0.8299065420560747:0.0:1.0:2.24
/media/menno/datae/EigenWerk/eigenwerk/samples/gilpiep.wav
ver2:1.0:0.0
1.0
0.0
true
false
0.0
1.0
true
ver2:1.666
2517.2
id:-717362696
ver2:0.54
false
false
false
0.572
0.61
1.0
0.528
ver2:1
ver2:1
ver2:1
1.0
5.0
ver2:0.045
false
ver2:10
ver2:1.76
false
0.04800000000000004
ver2:0.26
true
false
false
version=2@_@amplitude envelope:0.0:0.0:0.19550561797752808:1.0:0.5700934579439252:1.0:0.6214953271028038:1.0:0.8121495327102803:1.0:1.0:0.0:1.0:0.0@_@filter envelope:0.0:9025.0:0.0691588785046729:1127.0000000000011:0.21460674157303372:648.3333333333331:0.516822429906542:528.6666666666658:0.798876404494382:7828.333333333334:1.0:289.3333333333329@_@pitch bend envelope:0.0:2.3466666666666667:0.525233644859813:2.293333333333333:0.5831460674157304:1.12:0.7168539325842697:1.7599999999999998:0.8299065420560747:0.0:1.0:2.24
/media/menno/datae/EigenWerk/verzameling_ideejen/samples/tiedtest.wav
ver2:1.0:1.0
1.0
0.0
true
true
0.0
1.0
true
ver2:0.651
2517.2
id:1680432903
ver2:0.54
false
false
0.45
0.503
2.504
0.346
ver2:1
ver2:7.46
ver2:1
1.0
5.0
ver2:0.045
false
ver2:10
ver2:0.48
11.79
true
id:-2009231365
false
-0.16099999999999998
ver2:0.082
ver2:0
ver2:0.29
ver2:0.35
ver2:0.2
true
ver2:0.69
ver2:40
ver2:20.14
2.63
true
false
version=2@_@amplitude envelope:0.0:0.0:0.0:1.0:1.0:1.0:1.0:0.0@_@filter envelope:0.0:0.0:0.6229299363057325:1.0:0.778343949044586:0.013333333333333308:1.0:0.5@_@pitch bend envelope:0.0:1.0:0.25477707006369427:1.95:1.0:1.0
ver2:1
false
ver2:1
/media/menno/datae/EigenWerk/verzameling_ideejen/samples/robot.wav
ver2:1
ver2:0.15
1.0
ver2:0.57
0.0
0.0
id:-2009231363
true
id:-2009231356
ver2:8.131
0.5
0.0
ver2:17.405
ver2:0.48
true
2.0
2.04
id:-2009231354
ver2:0
ver2:58
ver2:23
true
ver2:18.98
0.314
0.358
0.187
0.293
false
1.00001
ver2:0.15
false
ver2:4.7
3.0
29.77
false
id:-2009231365
false
-0.16099999999999998
ver2:0.082
ver2:0
ver2:0.14
ver2:0
ver2:0
false
ver2:0.69
ver2:40
ver2:20.14
4.63
false
false
version=2@_@amplitude envelope:0.0:0.0:0.0:1.0:0.30445859872611464:0.9866666666666667:0.6242038216560509:0.9533333333333334:0.8738853503184714:0.8866666666666667:0.9885350318471338:0.0:1.0:0.0@_@filter envelope:0.0:0.0:0.6229299363057325:1.0:0.778343949044586:0.013333333333333308:1.0:0.5@_@pitch bend envelope:0.0:1.0:0.25477707006369427:1.95:1.0:1.0
ver2:1
false
ver2:1
/media/menno/datae/EigenWerk/verzameling_ideejen/samples/gilpiepMONO.wav
ver2:0
ver2:0.58
1.0
ver2:0.57
0.0
0.0
id:-2009231363
true
id:-2009231356
ver2:10.6185
0.5
2.5
ver2:12.995
ver2:0.53
false
1.61
1.62
id:-2009231354
ver2:0
ver2:58
ver2:23
true
ver2:1
0.0
0.392
0.574
0.289
false
1.00001
ver2:0.15
false
ver2:4.7
3.0
4.2
false
id:-2009231365
false
0.008000000000000007
ver2:0.082
ver2:0
ver2:0.33
ver2:0.66
ver2:0.49
false
ver2:0.69
ver2:40
ver2:20.14
4.63
false
false
version=2@_@amplitude envelope:0.0:0.0:0.30445859872611464:0.9866666666666667:0.6242038216560509:0.9533333333333334:0.9885350318471338:0.0:1.0:0.0@_@filter envelope:0.0:0.0:0.6229299363057325:1.0:0.778343949044586:0.013333333333333308:1.0:0.5@_@pitch bend envelope:0.0:1.0:0.25477707006369427:1.95:1.0:1.0
ver2:1
false
ver2:1
/media/menno/datae/EigenWerk/verzameling_ideejen/samples/gilpiepMONO.wav
ver2:0.18
ver2:0.58
1.0
ver2:0.57
0.0
0.9
id:-2009231363
false
id:-2009231359
ver2:10.519
0.0
2.5
ver2:6.87
ver2:1
true
1.61
1.62
id:-2009231354
ver2:0
ver2:58
ver2:23
true
ver2:26.23
0.254
0.637
1.178
0.449
false
1.00001
ver2:0.15
false
ver2:4.7
3.0
12.59
false
id:-2009231365
false
-0.16099999999999998
ver2:0.082
ver2:0
ver2:0.14
ver2:0
ver2:0
false
ver2:0.69
ver2:40
ver2:20.14
5.0
false
false
version=2@_@amplitude envelope:0.0:0.0:0.0:1.0:0.30445859872611464:0.9866666666666667:0.6242038216560509:0.9533333333333334:0.8738853503184714:0.8866666666666667:0.9885350318471338:0.0:1.0:0.0@_@filter envelope:0.0:0.0:0.6229299363057325:1.0:0.778343949044586:0.013333333333333308:1.0:0.5@_@pitch bend envelope:0.0:1.0:0.25477707006369427:1.95:1.0:1.0
ver2:1
false
ver2:1
/media/menno/datae/EigenWerk/verzameling_ideejen/samples/reverse.wav
ver2:0
ver2:0.58
1.0
ver2:0.57
0.0
0.0
id:-2009231363
true
id:-2009231356
ver2:10.6185
0.5
2.5
ver2:12.995
ver2:0.53
false
5.0
5.0
id:-2009231354
ver2:0
ver2:58
ver2:23
true
ver2:1
0.0
0.445
1.423
0.0
false
1.00001
ver2:0.15
false
ver2:4.7
3.0
11.45
true
id:-1084426526
false
-0.07700000000000001
ver2:0.1
ver2:0
ver2:0.1
ver2:0
ver2:0
false
ver2:0.6
ver2:40
ver2:20.14
3.06
true
false
version=2@_@amplitude envelope:0.0:0.0:0.0:1.0:0.8598726114649682:0.0:0.9885350318471338:0.0:1.0:0.0@_@filter envelope:0.0:0.0:0.6229299363057325:1.0:0.778343949044586:0.013333333333333308:1.0:0.5@_@pitch bend envelope:0.0:1.0:0.2585987261146497:1.01:1.0:1.0
ver2:7.65
true
ver2:1
/media/menno/datae/EigenWerk/samples/plopjes3.wav
ver2:0
ver2:0.58
1.0
ver2:0.57
0.1
0.0
id:-1084426524
true
id:-1084426519
ver2:5.6435
0.5
2.5
ver2:8.83
ver2:0.53
false
1.88
1.98
id:-1084426529
0.494
ver2:0.07
ver2:58
ver2:23
true
ver2:1
0.321
0.505
1.187
0.361
false
1.00001
ver2:0.15
false
ver2:4.7
3.0
ver2:0
ver2:0.1
34.65
ver2:0
ver2:0
true
id:-1084426526
false
-0.07700000000000001
ver2:0.1
false
ver2:0.6
ver2:40
ver2:20.14
3.06
true
false
version=2@_@amplitude envelope:0.0:0.0:0.0:1.0:0.8598726114649682:0.0:0.9885350318471338:0.0:1.0:0.0@_@filter envelope:0.0:0.0:0.6229299363057325:1.0:0.778343949044586:0.013333333333333308:1.0:0.5@_@pitch bend envelope:0.0:1.0:0.2585987261146497:1.01:1.0:1.0
ver2:7.65
true
ver2:1
/media/menno/datae/EigenWerk/samples/plopjes3.wav
ver2:0
ver2:0.58
1.0
ver2:0.57
0.1
0.0
id:-1084426524
true
id:-1084426519
ver2:5.6435
0.5
2.5
ver2:8.83
ver2:0.53
false
1.88
1.98
id:-1084426529
0.494
ver2:0.07
ver2:58
ver2:23
true
ver2:1
0.841
0.953
1.187
1.0
false
1.00001
ver2:0.15
false
ver2:4.7
3.0
sampleONCE
i
S
Sfile xin
itable chnget Sfile
if (itable == 0) then
itable ftgen 0, 0, 0, 1, Sfile, 0, 0, 0
chnset itable, Sfile
endif
xout itable
k_suffixSOUND
Si
So
;returns the suffix of a filename or path, optional in lower case
Spath, ilow xin
ipos strrindex Spath, "."
Suf strsub Spath, ipos+1
if ilow != 0 then
Suf strlower Suf
endif
iok1 strcmp "wav", Suf ; specify wanted file extensions
iok2 strcmp "flac", Suf
iok3 strcmp "ogg", Suf
iok4 strcmp "mp3", Suf
iok5 strcmp "aif", Suf
iok6 strcmp "aiff", Suf
if (iok1 == 0) || (iok2 == 0) || (iok3 == 0) ||(iok4 == 0) || (iok5 == 0) ||(iok6 == 0) then
iok = 0 ; check OK
else
iok = 1 ; not OK
endif
xout Suf, iok
/****************************************************************************
Suf StrSuf Spath [,ilow]
Returns the suffix of a filename or path, optional in lower case
Returns the suffix (extension) of a filename or a full path, optional in lower case.
written by joachim heintz
Spath - full pathname (or filename) as string
ilow - return ensuring lower case (1) or return as in Spath (0 = default)
****************************************************************************/
adsr140_calc_coef
k
kk
knum_samps, kratio xin
xout exp( -log((1.0 + kratio) / kratio) / knum_samps)
adsr140
a
aakkkk
agate, aretrig, kattack, kdecay, ksustain, krelease xin
kstate init 0 ; 0 = attack, 1 = decay, 2 = sustain
klasttrig init -1
kval init 0.0
asig init 0
kindx = 0
kattack_base init 0
kdecay_base init 0
krelease_base init 0
kattack_samps init 0
kdecay_samps init 0
krelease_samps init 0
kattack_coef init 0
kdecay_coef init 0
ksustain_coef init 0
klast_attack init -1
klast_decay init -1
klast_release init -1
if (klast_attack != kattack) then
klast_attack = kattack
if(kattack > 0) then
kattack_samps = kattack * sr
kattack_coef = adsr140_calc_coef(kattack_samps, 0.3)
kattack_base = (1.0 + 0.3) * (1 - kattack_coef)
else
kattack_samps = 0
kattack_coef = 0
kattack_base = 0
endif
endif
if (klast_decay != kdecay) then
klast_decay = kdecay
kdecay_samps = kdecay * sr
kdecay_coef = adsr140_calc_coef(kdecay_samps, 0.0001)
kdecay_base = (ksustain - 0.0001) * (1.0 - kdecay_coef)
endif
if (klast_release != krelease) then
klast_release = krelease
krelease_samps = krelease * sr
krelease_coef = adsr140_calc_coef(krelease_samps, 0.0001)
krelease_base = -0.0001 * (1.0 - krelease_coef)
endif
while (kindx < ksmps) do
if (agate[kindx] > 0) then
kretrig = aretrig[kindx]
if (kretrig > 0 && klasttrig <= 0) then
kstate = 0
endif
klasttrig = kretrig
if (kstate == 0) then
if(kattack <= 0) then
kval = 1.0
kstate = 1
else
kval = kattack_base + (kval * kattack_coef)
if(kval >= 1.0) then
kval = 1.0
kstate = 1
endif
asig[kindx] = kval
endif
elseif (kstate == 1) then
kval = kdecay_base + (kval * kdecay_coef)
if(kval <= ksustain) then
kval = ksustain
kstate = 2
endif
asig[kindx] = kval
else
asig[kindx] = ksustain
endif
else ; in a release state
kstate = 0
if (kval == 0.0) then
asig[kindx] = 0
else
; releasing
kval = krelease_base + (kval * krelease_coef)
if(kval <= 0.0) then
kval = 0.0
endif
asig[kindx] = kval
endif
endif
kindx += 1
od
xout asig
k_SCORE_format_Sampler
ii
iii
iscore, ipitch, iamp xin
if (iscore == 0) then ; frequency mode
ipitch *= .0038222
elseif (iscore == 1) then
ipitch = semitone(ipitch - 48)
else
;empty
endif
xout ipitch, iamp
k_Vibrato_noJitter
k
kkkk
kOnVibrato, kdepth, kspeed, kwave xin
if kOnVibrato == 1 then ; if switch = ON, add vibrato to sall voices
if(changed2(kwave)==1) then ; check if LFO type has changed
reinit VIBRATOreinit
endif
VIBRATOreinit:
itype = i(kwave)
kvibrato lfo kdepth, kspeed, itype ; LFO 0-5
rireturn
else
kvibrato = 0 ; if switch = OFF, there is no vibrato
endif
xout kvibrato
lfo3
k
kk
kcps, ktype xin
iSineTable chnget "lfo2_sine"
if (iSineTable == 0) then
iSineTable ftgen 0, 0, 65536, 10, 1 ; sine wave
chnset iSineTable, "lfo2_sine"
endif
kout init 0
if (ktype == 0) then ;SINE
kout oscil3 1, kcps, iSineTable
elseif (ktype == 1) then ;TRIANGLE
aout vco2 1, kcps, 12
kout downsamp aout
elseif (ktype == 2) then ;SQUARE (BI-POLAR)
aout vco2 1, kcps, 10
kout downsamp aout
elseif (ktype == 3) then ;SQUARE (UNI-POLAR)
aout vco2 1, kcps, 10
kout downsamp aout
kout = (kout + 1) / 2
elseif (ktype == 4) then ;SAW TOOTH (UP)
aout vco2 1, kcps, 0
kout downsamp aout
elseif (ktype == 5) then ;SAW TOOTH (DOWN)
aout vco2 1, kcps, 0
kout downsamp aout
kout = kout * -1
endif
xout kout
k_lfo6
k
kkk
kcps, ktype, kline xin
kline = 1
iSineTable chnget "lfo4_cosine"
if (iSineTable == 0) then
iSineTable ftgen 0, 0, 65536, 11, 1 ; cosine wave
chnset iSineTable, "lfo4_cosine"
endif
kout init 0
if (ktype == 0) then ;SINE
kout oscil3 1, kcps, iSineTable
elseif (ktype == 1) then ;TRIANGLE
aout vco2 1, kcps, 12
kout downsamp aout
elseif (ktype == 2) then ;SQUARE (BI-POLAR)
aout vco2 1, kcps, 10
kdwn downsamp aout
kout port kdwn, 0.005 ;declick
elseif (ktype == 3) then ;SQUARE (UNI-POLAR)
aout vco2 1, kcps, 10
kout downsamp aout
kout = (kout + 1) / 2
elseif (ktype == 4) then ;SAW TOOTH (UP)
aout vco2 1, kcps, 0
kdwn2 downsamp aout
kout port kdwn2, 0.0001 ;declick
elseif (ktype == 5) then ;SAW TOOTH (DOWN)
aout vco2 1, kcps, 0
kdwn3 downsamp aout
kdwn3 *= -1
kout port kdwn3, 0.0001 ;declick
elseif (ktype == 6) then ;RANDOM
kout jspline 1, kcps*1, kcps*2
elseif (ktype == 7) then ;straight line
kout = kline
endif
xout kout