Palamino v0.63
Palamino v0.62 : This instrument is a work in progress. Note that the Hi-Hat and Chrumpet patch has been reproduced as static ftables. All pfields from p6 and up are optional. Use a value of -1 in the score to access default (GUI) settings.
- Dec. 16, 2009 : turned off automation on widgets to fix Csound API incompatibility
inst strt dur amp fq bfn cmfn vdel vrel vdepth vrate pan cfn efn mfn rfn
gi_Pal_Amp ftgen 0, 0, 513, 7, <Liner_Amp>
gi_Pal_MI ftgen 0, 0, 513, -7, <Liner_MI>
gi_Pal_R ftgen 0, 0, 513, -7, <Liner_R>
gi_Pal_Pitch ftgen 0, 0, 513, -7, <Liner_Pitch>
gi_Pal_CM ftgen 0, 0, 513, -7, <Liner_CM>
; Sound generation functions
f1 0 8192 10 1 ; sine
f2 0 8192 9 1 1 90 ; cosine
f3 0 513 7 1 513 -1 ; Saw
f4 0 513 7 1 257 -1 256 ; Square
f5 0 513 7 -1 257 1 256 -1 ; Triangle
f6 0 8192 10 .24 .64 .88 .76 .06 .5 .24 .08 ; Bassoon-like
f7 0 513 9 1 1 0 1.4471 1 0 1.617 1 0 1.9265 1 0 2.5028 1 0 2.6637 1 0 ; TR808 Hi-Hat
f20 0 513 5 .001 1 .8 10 .2 490 .25 12 .001 ; open hi-hat amp AND CM (works great for CM!)
f21 0 513 -7 32 150 27.376 363 26.038 ; hi-hat MI
f22 0 513 -5 1.8333333 513 1.81111111 ; open hi-hat CM down
f23 0 513 7 0 2 .75 94 .289 31 .129 46 .065 340 0 ; HH Amp
f24 0 513 5 .001 85 1 85 .75 256 .7 87 .001 ; Trumpet Amp
f25 0 513 -5 .001 85 5 85 3.75 256 3.5 87 .001 ; Trumpet MI
f26 0 513 -7 1.8333333 513 1.8333333 ; flat 1.8333333 (11/6) for HH CM ratio
f50 0 1024 -12 40 ;BESSEL FUNCTION-DEFINED FROM 0 TO 40
idur = p3
iamp = p4
ifrq = p5
; pitchbend
ibfn = p6
if (ibfn != -1) igoto endif_ibfn
ibfn = gi_Pal_Pitch ; pitchbend function
endif_ibfn:
kfrq oscili ifrq, 1/idur, ibfn ; pitchbend oscillator
; CM ratio
icmfn = p7
if (icmfn != -1) igoto endif_icmfn
icmfn = gi_Pal_CM ; CM function
endif_icmfn:
kmodfrq oscili 1, 1/idur, icmfn ; CM oscillator
kmodfrq = kmodfrq * kfrq
; vibrato
ivdel scoreDefault p8, <VibTime_0>, -1 ; vibrato delay (0-1)
ivdel = ivdel*idur
ivrel scoreDefault p9, <VibTime_1>, -1 ; vibrato release time (0-1)
ivrel = ivrel*idur
ivsus = idur - (ivdel + ivrel) ; calculate remaining duration to get sustain time
ivdepth scoreDefault p10, <VibRat_0>, -1 ; vibrato depth
ivrate scoreDefault p11, <VibRat_1>, -1 ; vibrato rate
ivrate = ivrate/idur
kvib1 linseg 0, ivdel, ivdepth, ivsus, ivdepth, ivrel, 0 ; vibrato positioning within idur
kvib2 oscil kvib1, ivrate, 1 ; vibrato oscillator
ipan scoreDefault p12, <Pan>, -1 ; basic panning
icfn scoreDefault p13, <CarrierFN>, -1 ; carrier function
; Amplitude envelope
iefn = p14
if (iefn != -1) igoto endif_iefn
iefn = gi_Pal_Amp
endif_iefn:
aenv oscili iamp, 1/idur, iefn
; MI function
imfn = p15
if (imfn != -1) igoto endif_imfn
imfn = gi_Pal_MI
endif_imfn:
aindex oscili 64, 1/idur, imfn ; MODULATION INDEX function : Note scaling factor
adev = aindex*kmodfrq ; Modulation frequency
; R function
irfn = p16
if (irfn != -1) igoto endif_irfn
irfn = gi_Pal_R
endif_irfn:
ar oscili 1, 1/idur, irfn ; ok, I am not sure why this seems to work, but it does.
amp1 = (aindex*(ar+(1/ar)))/2
afmod oscil amp1, kmodfrq, 1 ; FM MODULATOR (SINE) - currently hardcoded for fundamental sinewave.
atab = (aindex*(ar-(1/ar)))/2 ; INDEX TO TABLE
alook tablei atab, 50 ; TABLE LOOKUP TO GEN12 - currently set to f50
aamod oscil atab, adev, 2 ; AM MODULATOR (COSINE)
aamod = (exp(alook+aamod))*aenv
acar oscili aamod, afmod+kfrq+kvib2, icfn ; AFM (CARRIER)
acar = acar/exp(aindex*.5*abs(ar-(1/ar))) ; Amplitude normalization
asig balance acar, aenv ; apply envelope
blueMixerOut asig*ipan, asig*(1-ipan)
Title
67
2
Liner
27
52
275
275
513.0
true
Comma
false
false
LinerLabel
104
241
VibTime
398
208
false
0.0
1.0
0.01
100
5
true
0
0
true
0.0
1.0
0.01
0.7
100
true
0
0
true
0.0
1.0
0.01
0.47
100
true
VibDelayLabel
327
213
VibRelLabel
326
248
VibRat
398
278
false
0.0
128.0
1.0
100
5
true
0
0
true
0.0
128.0
1.0
54.0
100
true
0
0
true
0.0
128.0
1.0
9.0
100
true
VibDepthLabel
327
281
VibRateLabel
328
317
PanLabel
326
118
CarrierFN
398
29
Sine
1
Cosine
2
Saw
3
Square
4
Triangle
5
Basoon-like
6
TR808 Hi-Hat
7
0
true
CarrierFNLabel
327
33
Pan
353
93
false
0.0
1.0
0.5
60
true
0
version=2@_@R:0.0:1.0:1.0:1.0@_@Amp:0.0:0.0:0.01:0.75:0.125:0.8:0.25:1.0:0.5:0.15:1.0:0.0@_@MI:0.0:25.0:0.125:0.0:1.0:0.0@_@Pitch:0.0:1.0:1.0:0.5@_@CM:0.0:0.6875:1.0:0.34375
ver2:0.5
0.0:0.0
0.0:0.0
6
version=2@_@R:0.0:1.0:1.0:1.0@_@Amp:0.0:0.0:0.0050:0.75:0.18631178:0.2889734:0.24714829:0.12927759:0.33840305:0.06463879:0.53992397:0.041825116:1.0:0.0@_@MI:0.0:32.0:0.29277566:27.376427:1.0:26.038023@_@Pitch:0.0:1.0:1.0:1.0@_@CM:0.0:1.8333334:1.0:1.8333334
ver2:0.5
0.0:0.0
0.0:0.0
0
version=2@_@R:0.0:1.0:1.0:1.0@_@Amp:0.0:0.0:0.01:0.8:0.125:0.85:0.25:1.0:0.3125:0.9:0.40625:0.45:0.5171103:0.23954374:1.0:0.0@_@MI:0.0:2.0:0.1666666:1.0:0.333333:0.5:0.5:0.25:0.6666667:0.125:0.8333333:0.0625:1.0:0.0@_@Pitch:0.0:1.0:0.5:0.5:1.0:0.5@_@CM:0.0:1.4:0.5:0.7:1.0:0.7
ver2:0.5
0.0:0.0
0.0:0.0
0
version=2@_@R:0.0:1.0:1.0:1.0@_@Amp:0.0:0.0:0.01:0.8:0.125:0.85:0.25:1.0:0.3125:0.9:0.40625:0.45:0.5171103:0.23954374:1.0:0.0@_@MI:0.0:2.0:0.1666666:1.0:0.333333:0.5:0.5:0.25:0.6666667:0.125:0.8333333:0.0625:1.0:0.0@_@Pitch:0.0:1.0:0.5:2.0:1.0:2.0@_@CM:0.0:1.4:0.5:4.2:1.0:4.2
ver2:0.5
0.0:0.0
0.0:0.0
6
version=2@_@R:0.0:1.0:1.0:1.0@_@Amp:0.0:0.0:0.01:0.75:0.041825093:1.0:0.19771864:0.354:0.3231939:0.179:0.529:0.084:1.0:0.0@_@MI:0.0:32.0:0.14828898:7.4220524:0.29657796:3.4068432:0.47528517:1.8250942:1.0:0.0@_@Pitch:0.0:1.0:1.0:1.0@_@CM:0.0:1.8333334:1.0:1.8333334
ver2:0.099999994
0.0:0.0
0.0:0.0
0
version=2@_@R:0.0:1.0:1.0:1.0@_@Amp:0.0:0.0:0.038022812:0.6577947:0.05323194:0.82509506:0.09505703:0.9391635:0.23193917:1.0:0.4068441:0.973384:0.5779468:0.904943:0.72243345:0.79087454:0.82129276:0.5893536:1.0:0.0@_@MI:0.0:3.0:1.0:3.0@_@Pitch:0.0:1.0:1.0:1.0@_@CM:0.0:2.0:1.0:2.0
ver2:0.5
0.0:0.0
0.0:0.0
0
version=2@_@R:0.0:1.0:1.0:1.0@_@Amp:0.0:0.0:0.1:0.4:0.2:1.0:0.6:0.8:0.7:0.5:0.8:0.3:1.0:0.0@_@MI:0.0:0.0:0.2:1.5:1.0:0.0@_@Pitch:0.0:1.0:1.0:1.0@_@CM:0.0:0.2:1.0:0.2
ver2:0.5
0.0:0.0
0.0:0.0
0
version=2@_@R:0.0:1.0:1.0:1.0@_@Amp:0.0:0.0:0.0030:1.0:0.25:0.25:0.375:0.125:0.5:0.06125:0.625:0.030625:0.75:0.0153125:0.875:0.00765625:1.0:0.0@_@MI:0.0:6.0:0.25:2.65:0.375:1.925:0.5:1.55525:0.625:1.377625:0.75:1.2888125:0.875:1.2444062:1.0:1.2@_@Pitch:0.0:1.0:1.0:1.0@_@CM:0.0:1.215:1.0:1.215
ver2:0.5
0.0:0.0
0.0:0.0
0
version=2@_@R:0.0:1.0:1.0:1.0@_@Amp:0.0:0.0:0.1666666:1.0:0.333333:0.75:0.8333333:0.7:1.0:0.0@_@MI:0.0:2.0:0.1666666:8.0:0.333333:6.5:0.833333:5.6:1.0:2.0@_@Pitch:0.0:1.0:1.0:1.0@_@CM:0.0:1.0007:1.0:1.0007
ver2:0.5
0.0:0.0
0.0:0.0
0
version=2@_@R:0.0:1.0:1.0:1.0@_@Amp:0.0:0.0:0.1:0.4:0.2:1.0:0.6:0.8:0.7:0.5:0.8:0.3:1.0:0.0@_@MI:0.0:2.0:0.2:4.0:1.0:2.0@_@Pitch:0.0:1.0:1.0:1.0@_@CM:0.0:0.6666667:1.0:0.6666667
ver2:0.5
0.0:0.0
0.0:0.0
0
version=2@_@R:0.0:1.0:1.0:1.0@_@Amp:0.0:0.0:0.01:0.8:0.125:0.85:0.25:1.0:0.3125:0.9:0.40625:0.45:0.5171103:0.23954374:1.0:0.0@_@MI:0.0:2.0:0.1666666:1.0:0.333333:0.5:0.5:0.25:0.6666667:0.125:0.8333333:0.0625:1.0:0.0@_@Pitch:0.0:1.0:1.0:1.0@_@CM:0.0:1.4:1.0:1.4
ver2:0.5
0.0:0.0
0.0:0.0
0
version=2@_@R:0.0:1.0:1.0:1.0@_@Amp:0.0:0.0:0.01:0.75:0.125:0.8:0.25:1.0:0.5:0.15:1.0:0.0@_@MI:0.0:25.0:0.125:0.0:1.0:0.0@_@Pitch:0.0:1.0:1.0:1.0@_@CM:0.0:0.6875:1.0:0.6875
ver2:0.5
0.0:0.0
0.0:0.0
0
version=2@_@R:0.0:1.0:1.0:1.0@_@Amp:0.0:0.0:0.1:0.4:0.2:1.0:0.6:0.8:0.7:0.5:0.8:0.3:1.0:0.0@_@MI:0.0:0.0:0.2:2.0:1.0:0.0@_@Pitch:0.0:1.0:1.0:1.0@_@CM:0.0:0.33333334:1.0:0.33333334
ver2:0.5
0.0:0.0
0.0:0.0
0
version=2@_@R:0.0:1.0:1.0:1.0@_@Amp:0.0:0.0:0.1666666:1.0:0.333333:0.75:0.8333333:0.7:1.0:0.0@_@MI:0.0:0.0:0.16666667:5.0:0.33333334:4.0:0.8333333:3.5:1.0:0.0@_@Pitch:0.0:1.0:1.0:1.0@_@CM:0.0:1.0:1.0:1.0
ver2:0.5
0.0:0.0
0.0:0.0
0
version=2@_@R:0.0:1.0:1.0:1.0@_@Amp:0.0:0.0:0.01:0.75:0.125:0.8:0.25:1.0:0.5:0.15:1.0:0.0@_@MI:0.0:0.0:1.0:0.0@_@Pitch:0.0:1.0:1.0:1.0@_@CM:0.0:1.0:1.0:1.0
ver2:0.099999994
0.0:0.0
0.0:0.0
scoreDefault
i
iio
iPfield,iGui,iDefault xin
if (iPfield == iDefault) then
iRes = iGui
else
iRes = iPfield
endif
xout iRes
skoreDefault
k
kkk
kPfield,kGui,kDefault xin
if (kPfield == kDefault) then
kRes = kGui
else
kRes = kPfield
endif
xout kRes