EastCross v0.3
; Eastcross : Adapted from the Crossfade instrument in the EAST (Early Analogue Synthesis Techniques) tutorial by Jacob Joaquin. By Brian Wong, 2007.
- Dec. 15, 2009 - v0.3 - Automation turned off for BSB knobs.
For p-fields 6, 7 and 8 use a value of -1 to use GUI settings, or enter any other value from 0 to 1 into the score.
inst strt dur amp frq rise dec pan
;[once](
gi_eastcross_sine ftgen 0, 0, 65536, 10, 1
gi_eastcross_1 ftgen 0, 0, 65536, 10, 1, 0, 1, 0, 1, 0, 1, 0
gi_eastcross_2 ftgen 0, 0, 65536, 10, 0, 1, 0, 1, 0, 1, 0, 1
;)
idur = p3
iamp = p5
ifreq = p4
irise scoreDefault p6,<Rise>, -1 ; rise time (0-1)
irise = irise*idur
idec scoreDefault p7,<Decay>, -1 ; dec time (0-1)
idec = idec*idur
ipan scoreDefault p8,<Pan>, -1 ; pan variable (0-1)
kenv expseg 1, idur * .25, 6, idur * .5, 6, idur * .25, 1
kosc1 oscil .5, kenv, gi_eastcross_sine, -1
kosc2 = kosc1 * -1
kosc1 = kosc1 + .5
kosc2 = kosc2 + .5
k1 linen iamp, irise, idur, idec
aosc1 oscil k1, ifreq, gi_eastcross_1, -1
aosc2 oscil k1, ifreq, gi_eastcross_2, -1
amix = aosc1 * kosc1 + aosc2 * kosc2
blueMixerOut amix*ipan, amix*(1-ipan)
Rise
278
2
false
0.0
1.0
0.031156667
60
true
RiseLabel
294
77
Decay
365
2
false
0.0
1.0
0.34184134
60
true
DecayLabel
376
78
Pan
450
2
false
0.0
1.0
0.5024682
60
true
PanLabel
468
78
EastCross
44
21
ver2:0.5085129142
ver2:0.5024682283
ver2:0.5003339052
scoreDefault
i
iio
iPfield,iGui,iDefault xin
if (iPfield == iDefault) then
iRes = iGui
else
iRes = iPfield
endif
xout iRes