SpectralPad v1.2
Original Author: Atte Andr�© Jensen (atte.dk), 2008
Updates by Steven Yi, 2017-09-24
Spectral pad, with sounds similar to Roland D-50 and other
late 80's, early 90's hardware synths.
Changelog:
1.2
* fixed missing/additional commas, adjusted code to work with Automatable widgets
1.1
* Added Brightness control
1.0
* Initial release
git_spectral_pad_saw ftgen 0, 0, 1024, 7, 0, 512, 1, 0, -1, 512, 0
git_spectral_pad_sqr ftgen 0, 0, 8192, 7, 1, 4096, 1, 0, -1, 4096, -1
git_spectral_pad_1 ftgen 0, 0, 1024, 10, 0.24, .36, 0, 0, 0, 0, .36, 0, 0, 0, 0, .23, 0, 0, 0, .39, 0, .3, .82, .94, .17, 0, 0, 0, .17, 0, 0, 1, .98, .04, .4, 0, 0, 0, .16, 0, .16, 0, 0, .25, 0, 0, 0, 0, .16, .19, 0, 0, .2, .25, .15, .6, .52, .32
git_spectral_pad_2 ftgen 0, 0, 1024, 10, .66, .21, .1, .05, 1, .01, .01, .005, 0, 0, .003, .004, .004, .012, .408, .01, .004, 0, 0, 0, .002, .003, 0, 0, 0, 0, 0, 0, 0, 0, 0, .005, .01, .07, .003, 0, .002
git_spectral_pad_3 ftgen 0, 0, 1024, 10, .24, .36, 0, 0, 0, 0, .36, 0, 0, 0, 0, .23, 0, 0, 0, .39, 0, .3, .82, .94, .17
git_spectral_pad_4 ftgen 0, 0, 1024, 10, .66, .21, .1, .05, 1, .01, .01, .005
ilength = p3; seconds
kfreq = p4; <20: pitch, >=20: hz
ivol = p5; 0-1
; maybe convert kfreq
kfreq = (kfreq >= 20) ? kfreq : cpspch(kfreq)
; copy from BSB
kvol = <volume>
; eq
;ilofco = 1700
;ihifco = 5000
;ilogain = 0.9
;imidgain = 0.3
;ihigain = 1.6
ilofco = i(<freqLoMid>)
ihifco = i(<freqMidHi>)
ilogain = i(<gainLo>)
imidgain = i(<gainMid>)
ihigain = i(<gainHi>)
; settings
kdetune1 = <detune>
kdetune2 = kdetune1 * 1.2
; midi in
kamp = 7000 * ivol * kvol
; amp envelope
kenvspc expsegr .001, i(<attackSpc>), 1, i(<decaySpc>), i(<sustainSpc>), i(<releaseSpc>), .001
kenvpad expsegr .001, i(<attackPad>), 1, i(<decayPad>), i(<sustainPad>), i(<releasePad>), .001
; oscilators
apad1 oscil kamp, kfreq * 2, git_spectral_pad_<padWf>
apad2 oscil kamp, kfreq * (1 + kdetune1), git_spectral_pad_<padWf>
apad3 oscil kamp, kfreq * (1 - kdetune2), git_spectral_pad_<padWf>
aspectrum1 oscil kamp, kfreq, git_spectral_pad_<spcWf>
aspectrum2 oscil kamp, kfreq * (1 - kdetune1), git_spectral_pad_<spcWf>
aspectrum3 oscil kamp, kfreq * (1 + kdetune2), git_spectral_pad_<spcWf>
; stereo mixes
apadl = (apad1 + apad2) / 2
apadr = (apad1 + apad3) / 2
aspectruml = (aspectrum1 + aspectrum2) / 2
aspectrumr = (aspectrum1 + aspectrum3) / 2
; lowpass filter for the saw
kcutoff2 = kfreq * <brightness>
kres2 = 0.1
afiltl lowresx apadl, kcutoff2, kres2
afiltr lowresx apadr, kcutoff2, kres2
; mix pad and spectrum
aoutl = afiltl * kenvpad * (1-<blend>)+ aspectruml * kenvspc / 2 * <blend>
aoutr = afiltr * kenvpad * (1-<blend>)+ aspectrumr * kenvspc / 2 * <blend>
aeql = aoutl
aeqr = aoutr
#define EQ(SIGNAL'LO_FREQ'HI_FREQ'LO_GAIN'MID_GAIN'HI_GAIN) #
alosig butterlp $SIGNAL, $LO_FREQ
atmpsig butterhp $SIGNAL, $LO_FREQ-$LO_FREQ/4
amidsig butterlp atmpsig, $HI_FREQ+$HI_FREQ/4
ahisig butterhp $SIGNAL, $HI_FREQ
$SIGNAL = $LO_GAIN * alosig + $MID_GAIN * amidsig + $HI_GAIN * ahisig
#
$EQ(aeql'ilofco'ihifco'ilogain'imidgain'ihigain)
$EQ(aeqr'ilofco'ihifco'ilogain'imidgain'ihigain)
#undef EQ
; balance
;aoutl balance aeql, aoutl
;aoutr balance aeqr, aoutr
aoutl = aeql
aoutr = aeqr
; output
blueMixerOut aoutl, aoutr
10
10
NONE
false
0
0
Group
0x00000033
0x000000ff
0xffffffff
true
20
20
decaySpc
174
196
true
0.001
2.0
0.8773664
60
true
true
brightness
422
72
true
0.0
2.0
0.5
60
true
true
400
256
System Regular
12.0
423
148
System Regular
12.0
186
272
System Regular
12.0
38
173
System Regular
12.0
releasePad
296
72
true
0.001
2.0
1.7438434
60
true
true
gainLo
27
322
true
0.0
4.0
1.428222
60
true
true
attackSpc
111
196
true
0.001
0.3
0.001
60
true
true
307
272
System Regular
12.0
29
272
System Regular
12.0
freqMidHi
219
322
true
20.0
17000.0
6248.3057
60
true
true
190
10
System Bold
24.0
433
398
System Regular
12.0
attackPad
107
72
true
0.001
0.3
0.12608309
60
true
true
10
323
System Regular
12.0
10
185
System Regular
12.0
229
398
System Regular
12.0
182
148
System Regular
12.0
37
304
System Regular
12.0
124
272
System Regular
12.0
sustainSpc
237
196
true
0.001
1.0
0.17320178
60
true
true
483
255
System Regular
12.0
236
412
System Regular
12.0
detune
362
322
true
0.0
0.02
0.0015249138
60
true
true
371
398
System Regular
12.0
11
97
System Regular
12.0
303
148
System Regular
12.0
spcWf
43
248
false
3
12
true
1
1
2
2
3
3
4
4
blend
423
210
true
0.0
1.0
0.3931393
60
true
true
gainHi
283
322
true
0.0
4.0
1.5806645
60
true
true
247
35
System Regular
12.0
120
148
System Regular
12.0
padWf
29
124
false
0
12
true
Saw
saw
Sqr
sqr
24
148
System Regular
12.0
101
398
System Regular
12.0
releaseSpc
300
196
true
0.001
2.0
0.36276394
60
true
true
36
398
System Regular
12.0
160
398
System Regular
12.0
sustainPad
233
72
true
0.001
1.0
0.6005704
60
true
true
243
148
System Regular
12.0
108
412
System Regular
12.0
292
398
System Regular
12.0
gainMid
155
322
true
0.0
4.0
0.17039566
60
true
true
volume
425
322
true
0.0
1.0
0.54
60
false
true
freqLoMid
91
322
true
20.0
17000.0
1087.6089
60
true
true
decayPad
170
72
true
0.001
2.0
1.8744968
60
true
true
438
286
System Regular
12.0
247
272
System Regular
12.0
ver2:0.2492586672
ver2:0.0070775179
ver2:0.1681984961
ver2:0.5
ver2:0.5521302223
ver2:1.4545273781
ver2:0.0066329287
ver2:14501.2705078125
ver2:2752.2280273438
ver2:2.6144959927
ver2:0.012193583
ver2:0.9483311176
1
ver2:1.6958142519
ver2:1.9780025482
3
ver2:0.498277843
ver2:0.5442327857
ver2:1
ver2:0.2615252733
ver2:0.1215452924
ver2:0.2410392761
ver2:0.5
ver2:1.4740996361
ver2:1.436760664
ver2:0.0047297985
ver2:3558.5502929688
ver2:3417.0180664062
ver2:0.8891388178
ver2:0.0587781556
ver2:2.0966773033
0
ver2:0.3310554922
ver2:1.8555129766
1
ver2:0.3675149679
ver2:0.1101307422
ver2:1
ver2:0.1227668524
ver2:0.1412691176
ver2:0.6918566823
ver2:0.5
ver2:0.001
ver2:0.001
ver2:0.0120159741
ver2:2522.4506835938
ver2:5492.6801757812
ver2:1.9112510681
ver2:0.9220727086
ver2:0.8736921549
0
ver2:0.8412476182
ver2:1.0792020559
1
ver2:1
ver2:1
ver2:1
ver2:0.1765810102
ver2:0.1584345549
ver2:0.6501584649
ver2:0.5
ver2:0.250333637
ver2:1.9019680023
ver2:0.0142339328
ver2:5020.7465820312
ver2:7075.2138671875
ver2:2.269061327
ver2:1.5119948387
ver2:2.4707438946
1
ver2:1.3915202618
ver2:0.2347985655
3
ver2:0.8743759394
ver2:0.149422437
ver2:1
ver2:0.1423844248
ver2:0.1231794059
ver2:0.1997557431
ver2:0.5
ver2:1.9927618504
ver2:1.5838935375
ver2:0.0033943397
ver2:576.1527099609
ver2:1997.9997558594
ver2:0.3569130599
ver2:0.0763468817
ver2:2.9026618004
1
ver2:0.5633436441
ver2:0.6815918088
3
ver2:0.4106183648
ver2:0.7574575543
ver2:1
ver2:0.0978621319
ver2:0.1890349239
ver2:0.462438345
ver2:0.5
ver2:1.3513571024
ver2:0.8517924547
ver2:0.0154457735
ver2:2528.5310058594
ver2:4181.478515625
ver2:1.8690451384
ver2:0.1472474784
ver2:0.0231250785
0
ver2:0.4904735684
ver2:1.2515777349
1
ver2:0.3359346986
ver2:0.9737879038
ver2:1
ver2:0.2359033972
ver2:0.1989978701
ver2:0.8830736279
ver2:0.5
ver2:0.8221815825
ver2:0.9877409935
ver2:0.0032671127
ver2:1227.3134765625
ver2:5510.2465820312
ver2:2.3140969276
ver2:1.1745253801
ver2:0.2412252277
0
ver2:1.2564418316
ver2:0.4328607321
2
ver2:0.3063561618
ver2:0.8328995109
ver2:1
ver2:0.1224435791
ver2:0.1328157485
ver2:0.4640375674
ver2:0.5
ver2:0.8729248047
ver2:0.2428611815
ver2:0.0022544388
ver2:12868.3662109375
ver2:6985.38671875
ver2:3.0436778069
ver2:0.1987816542
ver2:2.3541719913
0
ver2:0.9776592851
ver2:1.5948246717
0
ver2:0.8707816005
ver2:0.8603733778
ver2:1
ver2:0.2403831631
ver2:0.1991691291
ver2:0.5694003701
ver2:0.5
ver2:0.8200924993
ver2:0.1993427575
ver2:0.0141661698
ver2:4944.9482421875
ver2:6413.3994140625
ver2:2.1906199455
ver2:2.3532788754
ver2:0.2209874988
1
ver2:0.892411828
ver2:1.7339332104
3
ver2:0.1124053374
ver2:0.882542789
ver2:1
ver2:0.1810942143
ver2:0.1239175126
ver2:0.7256177068
ver2:0.5
ver2:0.3314838707
ver2:0.3688659072
ver2:0.0113884909
ver2:2955.685546875
ver2:6526.859375
ver2:2.4731426239
ver2:1.3393682241
ver2:0.5193392038
0
ver2:0.8986006379
ver2:0.9945198298
2
ver2:0.7967709899
ver2:0.8891324997
ver2:1
ver2:0.1260830909
ver2:0.001
ver2:0.3931393027
ver2:0.5
ver2:1.8744968176
ver2:0.8773664236
ver2:0.0015249138
ver2:1087.6088867188
ver2:6248.3056640625
ver2:1.5806645155
ver2:1.428221941
ver2:0.1703956574
1
ver2:1.7438434362
ver2:0.3627639413
0
ver2:0.6005703807
ver2:0.1732017845
ver2:1
ver2:0.2589250505
ver2:0.001
ver2:0.6578880548
ver2:0.5
ver2:0.5039284229
ver2:0.7532858849
ver2:0.0112695526
ver2:1735.4104003906
ver2:8864.470703125
ver2:2.482155323
ver2:0.8752441406
ver2:0.7284654975
1
ver2:0.6165491939
ver2:1.0386685133
2
ver2:0.8695241809
ver2:0.2755943537
ver2:1
ver2:0.1953117549
ver2:0.2769226432
ver2:0.4279421568
ver2:0.5
ver2:1.3402428627
ver2:1.1991941929
ver2:0.0129868062
ver2:662.6954956055
ver2:8681.3408203125
ver2:3.0913197994
ver2:1.1546947956
ver2:0.8856197596
0
ver2:1.2332873344
ver2:1.4934247732
2
ver2:0.8507086039
ver2:0.6513689756
ver2:1
ver2:0.1774207503
ver2:0.1354975551
ver2:0.4081041813
ver2:0.5
ver2:1.2294048071
ver2:0.1744403243
ver2:0.0088401549
ver2:9061.2578125
ver2:12812.005859375
ver2:3.9600632191
ver2:3.234181881
ver2:1.2371844053
0
ver2:1.5141352415
ver2:1.2249274254
0
ver2:0.2103620023
ver2:0.3868261576
ver2:1