Pentadd v1.02
Pentadd v1.02 - by Brian Wong, 2008
Pentadd is a 5-oscillator additive synth with dynamic panning. It uses the 5 pfields shown below, and most of the controls are in the BSB lineobject widget. Each oscillator has a separate amplitude envelope and frequency curve that can be edited from the lineobject widget. The pan control is also implemented in the lineobject. All lines are converted to exponential curves except for the panning. The simple design of the instrument should allow easy expansion to add more oscillators or ftables to suit the needs of the moment.
I welcome any discussion or suggestions on the blue list.
;inst strt dur amp freq
;----------------------------------------------------------------------------------------------------
p1 p2 p3 p4 p5
v1.01 - added invdur variable to optimize code, changed startup preset to "1st Five Harmonics".
v1.02 - changed colours in labels
gi_sine_<INSTR_ID> ftgen 0, 0, 65536, 10, 1
gi_saw_<INSTR_ID> ftgen 0, 0, 65536, 7, 1, 65536, -1
gi_square_<INSTR_ID> ftgen 0, 0, 65536, 7, 1, 32768, -1, 32768
gi_tri_<INSTR_ID> ftgen 0, 0, 65536, 7, -1, 32768, 1, 32768, -1
gi_pulse_<INSTR_ID> ftgen 0, 0, 65536, 7, 1, 16384, 1, 0, -1, 49152, -1
gi_amp1_<INSTR_ID> ftgen 0, 0, 1024, 5, <liner_Amp1>
gi_fq1_<INSTR_ID> ftgen 0, 0, 1024, 5, <liner_Freq1>
gi_amp2_<INSTR_ID> ftgen 0, 0, 1024, 5, <liner_Amp2>
gi_fq2_<INSTR_ID> ftgen 0, 0, 1024, 5, <liner_Freq2>
gi_amp3_<INSTR_ID> ftgen 0, 0, 1024, 5, <liner_Amp3>
gi_fq3_<INSTR_ID> ftgen 0, 0, 1024, 5, <liner_Freq3>
gi_amp4_<INSTR_ID> ftgen 0, 0, 1024, 5, <liner_Amp4>
gi_fq4_<INSTR_ID> ftgen 0, 0, 1024, 5, <liner_Freq4>
gi_amp5_<INSTR_ID> ftgen 0, 0, 1024, 5, <liner_Amp5>
gi_fq5_<INSTR_ID> ftgen 0, 0, 1024, 5, <liner_Freq5>
gi_pan_<INSTR_ID> ftgen 0, 0, 1024, 7, <liner_Panning>
invdur = 1/p3
kamp1 oscili p4, invdur, gi_amp1_<INSTR_ID>
kfq1 oscili p5, invdur, gi_fq1_<INSTR_ID>
a1 poscil kamp1, kfq1, <drop1>
kamp2 oscili p4, invdur, gi_amp2_<INSTR_ID>
kfq2 oscili p5, invdur, gi_fq2_<INSTR_ID>
a2 poscil kamp2, kfq2, <drop2>
kamp3 oscili p4, invdur, gi_amp3_<INSTR_ID>
kfq3 oscili p5, invdur, gi_fq3_<INSTR_ID>
a3 poscil kamp3, kfq3, <drop3>
kamp4 oscili p4, invdur, gi_amp4_<INSTR_ID>
kfq4 oscili p5, invdur, gi_fq4_<INSTR_ID>
a4 poscil kamp4, kfq4, <drop4>
kamp5 oscili p4, invdur, gi_amp5_<INSTR_ID>
kfq5 oscili p5, invdur, gi_fq5_<INSTR_ID>
a5 poscil kamp5, kfq5, <drop5>
aout = (a1+a2+a3+a4+a5)*.2
kpan oscili 1, invdur, gi_pan_<INSTR_ID> ; dynamic panning
aLeft, aRight pan_equal_power aout, kpan
blueMixerOut aLeft, aRight
liner
22
67
400
320
1024.0
true
Comma
false
false
drop1
443
91
Sine
gi_sine_<INSTR_ID>
Saw
gi_saw_<INSTR_ID>
Square
gi_square_<INSTR_ID>
Triangle
gi_tri_<INSTR_ID>
Pulse
gi_pulse_<INSTR_ID>
0
true
536
94
535
153
drop2
444
150
Sine
gi_sine_<INSTR_ID>
Saw
gi_saw_<INSTR_ID>
Square
gi_square_<INSTR_ID>
Triangle
gi_tri_<INSTR_ID>
Pulse
gi_pulse_<INSTR_ID>
0
true
drop3
444
213
Sine
gi_sine_<INSTR_ID>
Saw
gi_saw_<INSTR_ID>
Square
gi_square_<INSTR_ID>
Triangle
gi_tri_<INSTR_ID>
Pulse
gi_pulse_<INSTR_ID>
0
true
535
216
drop4
444
277
Sine
gi_sine_<INSTR_ID>
Saw
gi_saw_<INSTR_ID>
Square
gi_square_<INSTR_ID>
Triangle
gi_tri_<INSTR_ID>
Pulse
gi_pulse_<INSTR_ID>
0
true
536
280
drop5
444
339
Sine
gi_sine_<INSTR_ID>
Saw
gi_saw_<INSTR_ID>
Square
gi_square_<INSTR_ID>
Triangle
gi_tri_<INSTR_ID>
Pulse
gi_pulse_<INSTR_ID>
0
true
535
341
166
11
3
3
3
3
3
version=2@_@Amp1:0.0:0.01:0.5:1.0:1.0:0.01@_@Freq1:0.0:1.0:0.25:1.0:0.75:2.0:1.0:2.0@_@Amp2:0.0:0.01:0.5:1.0:1.0:0.01@_@Freq2:0.0:1.259921:0.25:1.259921:0.75:2.519842:1.0:2.519842@_@Amp3:0.0:0.01:0.5:1.0:1.0:0.01@_@Freq3:0.0:1.498307:0.25:1.498307:0.75:2.996614:1.0:2.996614@_@Amp4:0.0:0.01:0.5:1.0:1.0:0.01@_@Freq4:0.0:2.0:0.25:2.0:0.75:4.0:1.0:4.0@_@Amp5:0.0:0.01:0.5:1.0:1.0:0.01@_@Freq5:0.0:2.996614:0.25:2.996614:0.75:5.993228:1.0:5.993228@_@Panning:0.0:0.0:1.0:0.0
0
0
0
0
0
version=2@_@Amp1:0.0:0.01:0.5:1.0:1.0:0.01@_@Freq1:0.0:1.0:1.0:1.0@_@Amp2:0.0:0.01:0.5:0.5:1.0:0.01@_@Freq2:0.0:2.0:1.0:2.0@_@Amp3:0.0:0.01:0.5:0.25:1.0:0.01@_@Freq3:0.0:3.0:1.0:3.0@_@Amp4:0.0:0.01:0.5:0.125:1.0:0.01@_@Freq4:0.0:4.0:1.0:4.0@_@Amp5:0.0:0.01:0.5:0.0625:1.0:0.01@_@Freq5:0.0:5.0:1.0:5.0@_@Panning:0.0:0.0:1.0:0.0
0
0
0
0
0
version=2@_@Amp1:0.0:0.01:0.012886598:1.0:1.0:0.01@_@Freq1:0.0:1.0:1.0:1.0@_@Amp2:0.0:0.01:0.010309278:1.0:0.91494846:0.01:1.0:0.01@_@Freq2:0.0:1.1541667:1.0:1.1541667@_@Amp3:0.0:0.01:0.005154639:1.0:0.8556701:0.01:1.0:0.01@_@Freq3:0.0:1.6041666:1.0:1.6041666@_@Amp4:0.0:0.01:0.010309278:1.0:0.6082474:0.01:1.0:0.01@_@Freq4:0.0:2.8541667:1.0:2.8541667@_@Amp5:0.0:0.01:0.0077319588:0.9935714:0.7654639:0.01:1.0:0.01@_@Freq5:0.0:1.4166666:1.0:1.4166666@_@Panning:0.0:0.0:1.0:0.0
1
1
0
0
3
version=2@_@Amp1:0.0:0.01:0.18041237:0.4214286:0.52577317:0.70750004:0.6340206:1.0:0.7912371:0.37321427:1.0:0.01@_@Freq1:0.0:0.0625:1.0:0.125@_@Amp2:0.0:0.013214257:0.185567:0.775:0.3814433:0.81035715:0.51804125:0.37964284:1.0:0.01@_@Freq2:0.0:1.0:1.0:0.5@_@Amp3:0.0:0.022857148:0.0154639175:0.6946429:0.2242268:1.0:0.36597937:0.67214286:0.6546392:0.44071427:1.0:0.01@_@Freq3:0.0:0.5:1.0:0.75@_@Amp4:0.0:0.016428573:0.8582474:1.0:1.0:0.01@_@Freq4:0.0:3.0:1.0:0.8@_@Amp5:0.0:0.016428573:0.14175257:1.0:0.31958762:0.6464286:0.7963917:0.595:1.0:0.01@_@Freq5:0.0:1.01:1.0:0.99@_@Panning:0.0:-0.99350655:1.0:0.96103895
2
2
2
2
2
version=2@_@Amp1:0.0:0.01:0.5:1.0:1.0:0.01@_@Freq1:0.0:1.0:1.0:1.0@_@Amp2:0.0:0.01:0.53092784:0.9646429:1.0:0.01@_@Freq2:0.0:1.01:1.0:1.01@_@Amp3:0.0:0.01:0.42783505:0.9325:1.0:0.01@_@Freq3:0.0:0.99:1.0:0.99@_@Amp4:0.0:0.01:0.6005155:0.955:1.0:0.01@_@Freq4:0.0:1.02:1.0:1.02@_@Amp5:0.0:0.01:0.38402063:0.9678571:1.0:0.01@_@Freq5:0.0:0.98:1.0:0.98@_@Panning:0.0:0.0:1.0:0.0
0
0
0
0
0
version=2@_@Amp1:0.0:0.01:0.5:1.0:1.0:0.01@_@Freq1:0.0:1.0:1.0:1.0@_@Amp2:0.0:0.01:0.5:1.0:1.0:0.01@_@Freq2:0.0:1.0:1.0:1.0@_@Amp3:0.0:0.01:0.5:1.0:1.0:0.01@_@Freq3:0.0:1.0:1.0:1.0@_@Amp4:0.0:0.01:0.5:1.0:1.0:0.01@_@Freq4:0.0:1.0:1.0:1.0@_@Amp5:0.0:0.01:0.5:1.0:1.0:0.01@_@Freq5:0.0:1.0:1.0:1.0@_@Panning:0.0:0.0:1.0:0.0
pan_equal_power
aa
ak
ain, kpan xin
kangl = $M_PI_2 * (kpan + 0.5)
xout ain * sin(kangl), ain * cos(kangl)
pan_equal_power - Equal Power Panning
SYNTAX
a1, a2 pan_equal_power asig, kpan
CREDITS
Author: Michael Gogins, converted by Steven Yi, Rewritten by Istvan Varga for Speed