BdTR v2.0
BdTR with extra features
---------------------------------
Author: Mark Van Peteghem
Based on the instrument BdTR by Atte Andr? Jensen (atte.dk), 2007
This instrument adds extra features to the instrument BdTR.
It has one extra p-field, p4, that is the amplitude. If it is 0 or less it is
in decibels below 0dbfs, otherwise it is multiplied with 0dbfs (so should be 1 or less).
Instead of custom waveforms, it lets you choose between a sine and a triangle.
For the sine you can choose the amplitude of the second harmonic,
for the triangle you can choose the pulse width.
Furthermore you can choose how the sine or triangle should be distorted,
allowing a big variety of waveforms.
The envelope type can be exponential or linear. With a linear envelope
the perceived duration is closer to the one specified.
An optional lowpass filter lets you adjust the tonality.
The RM knob lets you optionally generate a second similar signal with
a higher frequency, that is multiplied with the original signal.
The volume adjust knob lets you adjust the volume so that when p4 is 1
it will actually be 0dbfs. Changing the condition 1==0 to 1==1 prints out
what value should be there to achieve this (set p4 to 0 or 1 to do this).
git_instr_bd_tr_sine_<INSTR_NAME> ftgen 0, 0, 2^18, 10, 1, <harm2>
git_instr_bd_tr_tri_<INSTR_NAME> ftgen 0, 0, 2^18, 7, 1, 2^18*<harm2>, -1, 2^18*(1-<harm2>), 1
git_instr_bd_tr_dist_<INSTR_NAME> = 0
; setup
iamp = ((p4 > 0) ? 0dbfs*p4 : ampdbfs(p4))*ampdb(<vol_adjust>)
ibeginfreq = i(<freq>)<freq_mod>
ilength = (<force_length>==1) ? i(<length>) : p3
ipeak = i(<peak>)
iendfreq = i(<endfreq>)<endfreq_mod>
if git_instr_bd_tr_dist_<INSTR_NAME>==0 then
ibasic_wave = (<wave>==1) ? git_instr_bd_tr_sine_<INSTR_NAME> : git_instr_bd_tr_tri_<INSTR_NAME>
git_instr_bd_tr_dist_<INSTR_NAME> mvpDistortWaveTable ibasic_wave, <distort_type>, <distort_amount>
endif
; envelopes
if (<force_length>==1) then
kkeepalive linsegr 1, ilength, 0
endif
if (<env_type>==1) then
aampenv expseg 0dbfs/10000, .00001, iamp, ilength, 0dbfs/10000
else
aampenv linseg 0, .001, iamp, ilength, 0
endif
kpitenv linseg ibeginfreq + (150 * ipeak), .1, ibeginfreq, ilength - .1, iendfreq
; oscillator
asig oscili 1, kpitenv, git_instr_bd_tr_dist_<INSTR_NAME>
if (<use_rm>==1) then
asig1 oscili 1, kpitenv*<rm>, git_instr_bd_tr_dist_<INSTR_NAME>
asig = asig*asig1
endif
if (<use_lowpass>==1) then
asig tone asig, <lowpass><lowpass_mod>
endif
asig = asig*aampenv
kleft, kright panner <pan><pan_mod>
if (1==0) then
amaxabs init 0.01
maxabsaccum amaxabs, asig*kleft
kmaxabs downsamp amaxabs
printk 0.1, dbamp(0dbfs/kmaxabs)+<vol_adjust>
endif
; output
blueMixerOut asig*kleft, asig*kright
freq
13
28
true
30.0
150.0
54.3325
60
true
length
11
159
true
0.1
3.0
0.50634813
60
true
endfreq
76
28
true
15.0
30.0
18.193335
60
true
peak
76
159
true
0.0
2.0
1.3035392
60
true
17
123
81
123
92
239
env_type
207
179
false
Exponential
1
Linear
2
1
true
213
209
pan
406
35
true
-1.0
1.0
0.0
60
false
425
9
pan_mod
406
114
60
168
310
distort_amount
177
357
false
-1.0
1.0
0.12592717
50
true
harm2
83
314
false
0.0
1.0
0.0
60
true
75
395
wave
18
344
false
Sine
1
Tri
2
0
true
19
318
use_lowpass
170
5
false
true
lowpass
177
26
true
20.0
1000.0
342.34885
60
true
186
128
distort_type
167
331
false
None
0
Atan
1
Tan
2
Sine
3
Exp
4
Clip
5
Bitcrusher
6
Square
7
Cube
8
Split
9
1
true
use_rm
267
5
false
true
rm
257
26
true
1.0
3.0
2.585504
60
true
freq_mod
13
105
60
endfreq_mod
76
105
60
lowpass_mod
177
105
60
75
269
509
11
vol_adjust
553
43
false
-40.0
40.0
1.478
60
false
force_length
10
235
false
false
ver2:-0.6252148151
id:57052357
ver2:20.6735267639
id:57061207
false
ver2:53.6376495361
ver2:0.7196116447
ver2:0.7388448119
ver2:192.4677276611
ver2:0
ver2:0.2363001257
ver2:1.5227098465
true
true
ver2:5.0289998055
id:164563848
ver2:0.1259271652
id:57052351
ver2:18.1933345795
id:57061208
false
ver2:54.3325004578
ver2:0
ver2:0.5063481331
ver2:342.3488464355
ver2:0
ver2:1.3035391569
ver2:2.585504055
false
false
ver2:1.4780000448
id:164563847
ver2:0.2766644359
id:57052351
ver2:27.17395401
id:57061208
false
ver2:55.1254882812
ver2:0.3750116825
ver2:0.412240088
ver2:342.3488464355
ver2:0
ver2:1.0306100845
ver2:2.585504055
false
false
ver2:0.175999999
id:164563847
ver2:0.0912065431
id:57052353
ver2:23.0538444519
id:57061208
false
ver2:63.0022468567
ver2:0
ver2:0.5063481331
ver2:342.3488464355
ver2:0
ver2:1.3035391569
ver2:2.585504055
false
false
ver2:3.0160000324
id:164563847
ver2:0.7176938057
id:57052357
ver2:29.4790458679
id:57061208
false
ver2:36.2219848633
ver2:0.477984637
ver2:2.6539857388
ver2:342.3488464355
ver2:0
ver2:1.284586668
ver2:2.585504055
false
false
ver2:3.0410001278
id:164563847
ver2:-0.6493704319
id:57052351
ver2:24.5871009827
id:57061208
false
ver2:47.3340110779
ver2:0.6267105341
ver2:0.7479155064
ver2:919.6234741211
ver2:0
ver2:0.5684040785
ver2:2.5820109844
false
true
ver2:-3.885999918
id:164563848
ver2:-0.5894620419
id:939249687
ver2:22.7835884094
id:57061208
false
ver2:68.0176773071
ver2:0.2333058268
ver2:1.5159635544
ver2:485.7294311523
ver2:0
ver2:0.6714079976
ver2:2.8761096001
true
true
ver2:6.4219999313
id:164563847
ver2:-0.3834044933
id:515458343
ver2:18.0897521973
id:57061208
false
ver2:39.2298812866
ver2:0.875502646
ver2:2.6223366261
ver2:670.4453125
ver2:0
ver2:0.4107368886
ver2:2.1568918228
true
true
ver2:3.635999918
id:164563848
ver2:-0.1785412431
id:57052355
ver2:25.9269065857
id:57061208
false
ver2:37.0679931641
ver2:0.1430599391
ver2:1.1220712662
ver2:941.7880249023
ver2:0
ver2:1.4255489111
ver2:1.2673867941
true
false
ver2:3.0260000229
id:164563848
ver2:-0.1371490359
id:515458343
ver2:28.4937725067
id:57061207
false
ver2:74.4334487915
ver2:0.454893142
ver2:2.1066315174
ver2:28.8155956268
ver2:0
ver2:0.7790950537
ver2:1.5230787992
false
false
ver2:3.010299921
id:164563848
ver2:-0.4977911115
id:57052351
ver2:24.6950702667
id:57061208
false
ver2:58.4208145142
ver2:0.5929200053
ver2:1.1322647333
ver2:521.0684204102
ver2:0
ver2:0.4420146942
ver2:2.7309513092
true
false
ver2:-0.1916999966
id:164563848
ver2:0.9470483065
id:57052356
ver2:20.1415348053
id:57061208
false
ver2:48.5509414673
ver2:0.4453733265
ver2:1.6833306551
ver2:342.3488464355
ver2:0
ver2:0.6742666364
ver2:2.585504055
false
false
ver2:2.0899999142
id:164563847
ver2:0.0896504074
id:57052350
ver2:21.3101634979
id:57061208
false
ver2:124.9092254639
ver2:0.0647382066
ver2:1.2367634773
ver2:342.3488464355
ver2:0
ver2:0.1351186186
ver2:2.585504055
false
false
ver2:3.0199999809
id:164563847
ver2:0.0888722092
id:57052351
ver2:15.310795784
id:57061207
false
ver2:148.0972137451
ver2:0.6672525406
ver2:1.9570432901
ver2:342.3488464355
ver2:0
ver2:0.800781548
ver2:2.585504055
false
false
ver2:2.6150000095
id:164563847
ver2:0.0626816899
id:57052351
ver2:26.5367622375
id:57061208
false
ver2:124.6173248291
ver2:0.5951505303
ver2:1.1681722403
ver2:342.3488464355
ver2:0
ver2:0.3601504862
ver2:2.585504055
false
false
ver2:4.0029997826
id:164563847
ver2:0.2604991794
id:57052354
ver2:30
id:57061207
false
ver2:65.7996673584
ver2:0.2113413811
ver2:0.195916146
ver2:342.3488464355
ver2:0
ver2:0.9697287679
ver2:2.585504055
false
false
ver2:3.1666998863
id:164563847
ver2:0.1652227789
id:57052353
ver2:19.8510627747
id:57061207
false
ver2:42.5050582886
ver2:0.9209305644
ver2:2.9161839485
ver2:342.3488464355
ver2:0
ver2:1.2275414467
ver2:2.585504055
false
false
ver2:3.0450000763
id:164563847
ver2:0.2198611349
id:57052352
ver2:28.9661254883
id:57061208
false
ver2:131.2923736572
ver2:0.0511922389
ver2:1.8294245005
ver2:342.3488464355
ver2:0
ver2:0.5871319175
ver2:2.585504055
false
false
ver2:3.010999918
id:164563847
ver2:-0.3130351901
id:57052350
ver2:15.1407709122
id:57061207
false
ver2:65.0795593262
ver2:0.3423420489
ver2:2.9835765362
ver2:56.8140640259
ver2:0
ver2:0.9230923057
ver2:2.1003704071
false
true
ver2:4.2470002174
id:164563847
ver2:-0.1097285151
id:515458343
ver2:18.8708381653
id:57061208
false
ver2:107.1515197754
ver2:0.9716079831
ver2:1.6636090279
ver2:643.5742797852
ver2:0
ver2:0.7685052156
ver2:1.326794982
true
true
ver2:4.7821998596
id:164563847
ver2:-0.3147387505
id:939249687
ver2:27.3143692017
id:57061208
false
ver2:114.2047958374
ver2:0.8244783878
ver2:1.9909709692
ver2:107.0414276123
ver2:0
ver2:1.8767145872
ver2:2.7860462666
false
false
ver2:3.0308001041
id:164563847
ver2:0.1696592569
id:57052351
ver2:23.6711578369
id:57061207
false
ver2:132.2401428223
ver2:0.5057519078
ver2:0.4849944413
ver2:501.3915710449
ver2:0
ver2:1.6321344376
ver2:1.76283288
false
true
ver2:-1.3351000547
id:164563848
ver2:-0.1852813959
id:515458343
ver2:25.091085434
id:57061207
false
ver2:88.4483032227
ver2:0.8482347727
ver2:1.8995946646
ver2:184.9737548828
ver2:0
ver2:0.6609381437
ver2:2.3481674194
true
true
ver2:12.125
id:164563847
ver2:-0.4665375948
id:57052354
ver2:22.363986969
id:57061207
false
ver2:85.8343200684
ver2:0.4009936154
ver2:0.392375201
ver2:366.2191467285
ver2:0
ver2:1.5507526398
ver2:1.4967170954
true
true
ver2:4.904900074
id:164563847
ver2:0.2770396471
id:57052355
ver2:27.0283584595
id:57061208
false
ver2:144.3595428467
ver2:0.0627107993
ver2:2.8920402527
ver2:369.5451660156
ver2:0
ver2:1.515728116
ver2:1.7863512039
true
false
ver2:3.8089001179
id:164563848
ver2:-0.0700000003
id:57052355
ver2:28.8508834839
id:57061208
false
ver2:103.4886169434
ver2:0.3588579893
ver2:2.4040381908
ver2:856.2047729492
ver2:0
ver2:0.9385572672
ver2:1.6666853428
false
true
ver2:5.0289998055
id:164563847
ver2:0.837031126
id:57052356
ver2:22.6111679077
id:57061207
false
ver2:115.8874511719
ver2:0.3548842669
ver2:0.4009130597
ver2:449.3128051758
ver2:0
ver2:1.376324296
ver2:1.050352335
false
true
ver2:3.2816998959
id:164563848
ver2:-0.4967924356
id:515458343
ver2:18.2083320618
id:57061207
false
ver2:113.2500839233
ver2:0.0353348963
ver2:2.4982330799
ver2:421.6428527832
ver2:0
ver2:1.386841774
ver2:1.3852158785
false
false
ver2:3.0157198906
id:164563848
ver2:0.2899274826
id:57052353
ver2:17.6896572113
id:57061208
false
ver2:72.3717193604
ver2:0.056134697
ver2:0.7183169127
ver2:449.9707946777
ver2:0
ver2:1.6961810589
ver2:1.93846488
false
false
ver2:3.0165998936
id:164563848
ver2:0.4208731949
id:57052350
ver2:28.5933914185
id:57061208
false
ver2:113.1079940796
ver2:0
ver2:0.7671354413
ver2:342.3488464355
ver2:0
ver2:1.1549903154
ver2:2.585504055
false
false
ver2:3.0399000645
id:164563847
ver2:0.8298227191
id:57052350
ver2:22.3666954041
id:57061208
false
ver2:100.8457870483
ver2:0.72470963
ver2:0.8299044967
ver2:342.3488464355
ver2:0
ver2:1.3931177855
ver2:2.585504055
false
false
ver2:3.0415000916
id:164563847
panner
kk
k
; sin/cos taper, constant power.
kPanpos xin
kPanpos = kPanpos/2
kPanpos = kPanpos * 3.14159265359 * .5
kLeft = sqrt(2) / 2 * (cos(kPanpos) - sin(kPanpos))
kRight = sqrt(2) / 2 * (cos(kPanpos) + sin(kPanpos))
xout kLeft,kRight
mvpDistortWaveTable
i
iii
iwave, idistortion_type, idistortion_amount xin
i_table_len = ftlen(iwave)
if (idistortion_type==1) then
idistortion_amount = idistortion_amount * 20
ipos = 0
fill_loop_taninv:
ival tab_i ipos, iwave
ival = taninv(ival*idistortion_amount)
tabw_i ival, ipos, iwave
loop_lt ipos, 1, i_table_len, fill_loop_taninv
elseif (idistortion_type==2) then
idistortion_amount = idistortion_amount * 10
idistortion_factor = taninv(idistortion_amount)
ipos = 0
fill_loop_tan:
ival tab_i ipos, iwave
ival = tan(ival*idistortion_factor)/idistortion_amount
tabw_i ival, ipos, iwave
loop_lt ipos, 1, i_table_len, fill_loop_tan
elseif (idistortion_type==3) then
idistortion_amount = idistortion_amount * 20
ipos = 0
fill_loop_sin:
ival tab_i ipos, iwave
ival = sin(ival*idistortion_amount)
tabw_i ival, ipos, iwave
loop_lt ipos, 1, i_table_len, fill_loop_sin
elseif (idistortion_type==4) then
idistortion_amount = idistortion_amount * 5
imin = exp(-idistortion_amount)
imax = exp( idistortion_amount)
isubtract = (imin+imax)/2
iscale = (imax-imin)/2
ipos = 0
fill_loop_exp:
ival tab_i ipos, iwave
ival = (exp(ival*idistortion_amount)-isubtract)/iscale
tabw_i ival, ipos, iwave
loop_lt ipos, 1, i_table_len, fill_loop_exp
elseif (idistortion_type==5) then
idistortion_amount = idistortion_amount * 20
ipos = 0
fill_loop_clip:
ival tab_i ipos, iwave
ival = ival*idistortion_amount
if (ival>1) then
ival = 1
elseif (ival<-1) then
ival = -1
endif
tabw_i ival, ipos, iwave
loop_lt ipos, 1, i_table_len, fill_loop_clip
elseif (idistortion_type==6) then
idistortion_amount = 2^(16-idistortion_amount*16)
ipos = 0
fill_loop_bit_crusher:
ival tab_i ipos, iwave
ival = round(ival*idistortion_amount)/idistortion_amount
tabw_i ival, ipos, iwave
loop_lt ipos, 1, i_table_len, fill_loop_bit_crusher
elseif (idistortion_type==7) then
ipos = 0
imin = 100
imax = -100
idry = 1-abs(idistortion_amount)
fill_loop_square:
ival tab_i ipos, iwave
ival = idry*ival + idistortion_amount*ival*ival
imin = (ival<imin) ? ival : imin
imax = (ival>imax) ? ival : imax
tabw_i ival, ipos, iwave
loop_lt ipos, 1, i_table_len, fill_loop_square
iavg = (imax+imin)/2
iscale = 2/(imax-imin)
ipos = 0
fill_loop_square_normalize:
ival tab_i ipos, iwave
ival = (ival-iavg)*iscale
tabw_i ival, ipos, iwave
loop_lt ipos, 1, i_table_len, fill_loop_square_normalize
elseif (idistortion_type==8) then
ipos = 0
imin = 100
imax = -100
idry = 1-abs(idistortion_amount)
fill_loop_cube:
ival tab_i ipos, iwave
ival = idry*ival + idistortion_amount*ival*ival*ival
imin = (ival<imin) ? ival : imin
imax = (ival>imax) ? ival : imax
tabw_i ival, ipos, iwave
loop_lt ipos, 1, i_table_len, fill_loop_cube
iavg = (imax+imin)/2
iscale = 2/(imax-imin)
ipos = 0
fill_loop_cube_normalize:
ival tab_i ipos, iwave
ival = (ival-iavg)*iscale
tabw_i ival, ipos, iwave
loop_lt ipos, 1, i_table_len, fill_loop_cube_normalize
elseif (idistortion_type==9) then
; if idistortion_amount >= 0, move positive samples up and negative samples down
; opposite if idistortion_amount < 0
; scale so that 1 and -1 are not changed, so signals between -1 and 1 stay in that range
ia = 1-idistortion_amount
ipos = 0
fill_loop_split:
ival tab_i ipos, iwave
ival = (ival>=0) ? 1-ia*(1-ival) : -1-ia*(-1-ival)
tabw_i ival, ipos, iwave
loop_lt ipos, 1, i_table_len, fill_loop_split
endif
xout iwave