Fossil
Fossil v0- This synth is a simple single oscillator foscili-based monophonic FM synth, that is controlled entirely via automation. - Brian Wong, October 2009
;[once](
gi_sine_<INSTR_ID> ftgen 0, 0, 65536, 10, 1
;)
kamp = <Volknob>
kcps = <FQknob>
kcar = <CFknob>
kmod = <MFknob>
kndx = <MIknob>
a1 foscili kamp, kcps, kcar, kmod, kndx, gi_sine_<INSTR_ID>
a1 = a1 *5000
aLeft, aRight pan_gm2 a1, <Panknob>
blueMixerOut aLeft, aRight
Volknob
11
68
true
0.0
1.0
0.516117
60
true
20
145
CFknob
144
68
true
1.0
100.0
9.201743
60
true
165
147
FQknob
77
68
true
20.0
20000.0
7412.0303
60
true
78
145
MFknob
208
68
true
0.0
100.0
22.37157
60
true
231
147
MIknob
274
68
true
0.0
100.0
49.596752
60
true
298
146
Panknob
339
68
true
0.0
1.0
0.5538186
60
true
360
148
146
12
pan_gm2
aa
ak
ain, kspace xin
klast init -2
kleft init 0
kright init 0
;from MIDI GM-2 Default Pan Curve (RP-036)
;Left Channel Gain [dB] = 20*log (cos (Pi/2* max(0,CC#10 ? 1)/126)
;Right Channel Gain [dB] = 20*log (sin (Pi /2* max(0,CC#10 ? 1)/126)
if (kspace != klast) then
kpercent = (kspace + 1) / 2
kleft = ampdb(20 * log(cos($M_PI_2 * kpercent)))
kright = (kpercent == 0) ? 0 : ampdb(20 * log(sin($M_PI_2 * kpercent)))
endif
aleft = ain * kleft
aright = ain * kright
xout aleft, aright