-+rtmidi=alsa -Mhw:2,1 -+rtaudio=jack -d -m0 -g -f -odac:system:playback_ -iadc:system:capture_ --expression-opt temp.orc temp.sco
sr = 44100
ksmps = 64.0
nchnls = 2
zakinit 4, 7
massign 0, 0
gkchLayer1 init 0
gkchLayer1 chnexport "chLayer1",2 ;
gkchLayer2 init 0
gkchLayer2 chnexport "chLayer2",2 ;
gkchLayer3 init 0
gkchLayer3 chnexport "chLayer3",2 ;
gkchLayer4 init 0
gkchLayer4 chnexport "chLayer4",2 ;
gkchLayer5 init 0
gkchLayer5 chnexport "chLayer5",2 ;
gkchLayer6 init 0
gkchLayer6 chnexport "chLayer6",2 ;
gkchLayer7 init 0
gkchLayer7 chnexport "chLayer7",2 ;
gkchrms300 chnexport "CHRMS300",2 ; RMS
gkch300_1 chnexport "CH300_1",2
gkch300_2 chnexport "CH300_2",2
gkch300_3 chnexport "CH300_3",2
gkch300_4 chnexport "CH300_4",2
gkch300_5 chnexport "CH300_5",2
gkch300_6 chnexport "CH300_6",2
gkch300_7 chnexport "CH300_7",2
gkch300_8 chnexport "CH300_8",2
gkchvol300 chnexport "CHVOL300",2 ; VOL Eno
gkchrms301 chnexport "CHRMS301",2 ; RMS
gkch301_1 chnexport "CH301_1",2
gkch301_2 chnexport "CH301_2",2
gkch301_3 chnexport "CH301_3",2
gkch301_4 chnexport "CH301_4",2
gkch301_5 chnexport "CH301_5",2
gkch301_6 chnexport "CH301_6",2
gkch301_7 chnexport "CH301_7",2
gkch301_8 chnexport "CH301_8",2
gkchvol301 chnexport "CHVOL301",2 ; VOL Eno
gkchrms302 chnexport "CHRMS302",2 ; RMS
gkch302_1 chnexport "CH302_1",2
gkch302_2 chnexport "CH302_2",2
gkch302_3 chnexport "CH302_3",2
gkch302_4 chnexport "CH302_4",2
gkch302_5 chnexport "CH302_5",2
gkch302_6 chnexport "CH302_6",2
gkch302_7 chnexport "CH302_7",2
gkch302_8 chnexport "CH302_8",2
gkchvol302 chnexport "CHVOL302",2 ; VOL Eno
gkchrms303 chnexport "CHRMS303",2 ; RMS
gkch303_1 chnexport "CH303_1",2
gkch303_2 chnexport "CH303_2",2
gkch303_3 chnexport "CH303_3",2
gkch303_4 chnexport "CH303_4",2
gkch303_5 chnexport "CH303_5",2
gkch303_6 chnexport "CH303_6",2
gkch303_7 chnexport "CH303_7",2
gkch303_8 chnexport "CH303_8",2
gkchvol303 chnexport "CHVOL303",2 ; VOL Eno
gkchrms304 chnexport "CHRMS304",2 ; RMS
gkch304_1 chnexport "CH304_1",2
gkch304_2 chnexport "CH304_2",2
gkch304_3 chnexport "CH304_3",2
gkch304_4 chnexport "CH304_4",2
gkch304_5 chnexport "CH304_5",2
gkch304_6 chnexport "CH304_6",2
gkch304_7 chnexport "CH304_7",2
gkch304_8 chnexport "CH304_8",2
gkchvol304 chnexport "CHVOL304",2 ; VOL Eno
gkchrms305 chnexport "CHRMS305",2 ; RMS
gkch305_1 chnexport "CH305_1",2
gkch305_2 chnexport "CH305_2",2
gkch305_3 chnexport "CH305_3",2
gkch305_4 chnexport "CH305_4",2
gkch305_5 chnexport "CH305_5",2
gkch305_6 chnexport "CH305_6",2
gkch305_7 chnexport "CH305_7",2
gkch305_8 chnexport "CH305_8",2
gkchvol305 chnexport "CHVOL305",2 ; VOL Eno
gkchrms306 chnexport "CHRMS306",2 ; RMS
gkch306_1 chnexport "CH306_1",2
gkch306_2 chnexport "CH306_2",2
gkch306_3 chnexport "CH306_3",2
gkch306_4 chnexport "CH306_4",2
gkch306_5 chnexport "CH306_5",2
gkch306_6 chnexport "CH306_6",2
gkch306_7 chnexport "CH306_7",2
gkch306_8 chnexport "CH306_8",2
gkchvol306 chnexport "CHVOL306",2 ; VOL Eno
gkMasterClock init 0.1
opcode hpkcEnv, k, iki
iamp, klength, ifn xin
ktrigger metro klength
reset:
if (ktrigger < 1) goto contin
reinit reset
contin:
kenv poscil3 iamp, klength, ifn
rireturn
xout kenv
endop
opcode hpkcEnvSeq, aa, kii
klength, ifn1, ifn2 xin
ktrigger metro klength
reset:
if (ktrigger < 1) goto contin
reinit reset
contin:
aenv1 poscil3 1, klength, ifn1
aenv2 poscil3 1, klength, ifn2
rireturn
xout aenv1, aenv2
endop
opcode hpkcPluck, a, kkii
klength, kpitch, icps, imode xin
ktrigger metro klength
reset:
if (ktrigger < 1) goto contin
reinit reset
contin:
apluck pluck 1, kpitch, icps, 0, imode
rireturn
xout apluck
endop
opcode hpkcSeq4, kk, kkkkkkkkk
kfreq, kval1, kamp1, kval2, kamp2, kval3, kamp3, kval4, kamp4 xin
kstep lfo 1, kfreq, 3
klaststep init 0
kclock init 0
if (kclock == 1) then
kval = kval1
kamp = kamp1
elseif (kclock == 2) then
kval = kval2
kamp = kamp2
elseif (kclock == 3) then
kval = kval3
kamp = kamp3
elseif (kclock == 4) then
kval = kval4
kamp = kamp4
endif
if (klaststep == 0 && kstep == 1) then
kclock = kclock + 1
endif
if (kclock == 5) then
kclock = 1
endif
klaststep = kstep
kpo = cpspch(kval)
xout kpo, kamp
endop
opcode hpkcSeq12, kk, kkkkkkkkkkkkkkkkkkkkkkkkkk
kfreq, kendstep, kval1, kamp1, kval2, kamp2, kval3, kamp3, kval4, kamp4, kval5, kamp5, kval6, kamp6, kval7, kamp7, kval8, kamp8, kval9, kamp9, kval10, kamp10, kval11, kamp11, kval12, kamp12 xin
kstep lfo 1, kfreq, 3
klaststep init 0
kclock init 0
if (kclock == 1) then
kval = kval1
kamp = kamp1
elseif (kclock == 2) then
kval = kval2
kamp = kamp2
elseif (kclock == 3) then
kval = kval3
kamp = kamp3
elseif (kclock == 4) then
kval = kval4
kamp = kamp4
elseif (kclock == 5) then
kval = kval5
kamp = kamp5
elseif (kclock == 6) then
kval = kval6
kamp = kamp6
elseif (kclock == 7) then
kval = kval7
kamp = kamp7
elseif (kclock == 8) then
kval = kval8
kamp = kamp8
elseif (kclock == 9) then
kval = kval9
kamp = kamp9
elseif (kclock == 10) then
kval = kval10
kamp = kamp10
elseif (kclock == 11) then
kval = kval11
kamp = kamp11
elseif (kclock == 12) then
kval = kval12
kamp = kamp12
endif
if (klaststep == 0 && kstep == 1) then
kclock = kclock + 1
endif
if (kclock > kendstep) then
kclock = 1
endif
klaststep = kstep
kpo = cpspch(kval)
xout kpo, kamp
endop
opcode hpkWildGrain, a, akkkkiiii
setksmps 1
asig, kfreq,kpitch,kgrsize,kprate,ifun1,ifun2,ienv,iolaps xin
kwp init 0
awp = kwp
ilen = ftlen(ifun1)
kcrx table kwp, ifun2
asig = asig*kcrx+asig*(kcrx-1)
tablew asig, awp, ifun1
ar syncgrain 1, kfreq, kpitch, kgrsize, kprate, ifun1, ienv, iolaps
amix = ar
kwp = kwp + 1
if kwp > ilen then
kwp = 0
endif
xout amix
endop
opcode hpkcVosim, a, kkkkk
klength, kamp, kpitch, kForm, kPulseFactor xin
ktrigger metro klength
reset:
if (ktrigger < 1) goto contin
reinit reset
contin:
; Try for constant ratio burst/silence, and narrowest formant bandwidth
kPulseCount = (kForm / kpitch) ;init p10
; Attempt to smooth steps between format bandwidths,
; increasing decay before we are forced to a lower pulse count
kDecay = kPulseCount/(kForm % kpitch)
if (kDecay * kPulseCount) > kamp then
kDecay = kamp / kPulseCount
endif
kDecay = 0.3 * kDecay
avosim vosim kamp, kpitch, kForm, kDecay, kPulseCount, kPulseFactor, 30
rireturn
xout avosim
endop
instr 1
endin
instr 2
index tableng p4
index = index - 1 ; start from last point
loop:
ival table index, p4
ival = ival * ival
tableiw ival, index, p4
index = index - 1
if index < 0 igoto endloop
igoto loop
endloop:
gkMasterClock = 0.1
endin
instr 300
gkchLayer1 linseg 0.0,10.0,1.0,10.0,1.0,10.0,0.0,10.0,1.0,10.0,1.0,10.0,0.0,10.0,0.0,10.0,1.0,10.0,0.0,80.0,0.0,10.0,1.0,10.0,0.0,20.0,0.0,10.0,0.0,10.0,0.0,70.0,0
gkch300_1 loopseg 1.0,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch300_2 loopseg 0.2,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch300_3 loopseg 0.1,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch300_4 loopseg 0.05,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch300_5 loopseg 0.0333,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch300_6 loopseg 0.025,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch300_7 loopseg 0.02,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch300_8 loopseg 0.0167,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
if gkchLayer1 == 0 goto noplay
kvar2 = gkch300_8 * 0.09999999999999998+0.9
kvar6 = gkch300_8 * 0.02+0.02
kvar7 = gkch300_7 * 0.5+1.0
kvar3 = gkch300_6 * 1.0+5.0
kvar4 = gkch300_7 * 2.0+6.5
kvar5 = gkch300_8 * 1.5+8.5
kvar8 = gkch300_6 * 18.0+3.0
kvar9 = gkch300_4 * 13.0+6.0
kvar11 = gkch300_7 * 20.0+4.0
kvar12 = gkch300_8 * 0.20000000000000007+0.7
kvar17 = gkch300_6 * 13.0+11.0
kvar18 = gkch300_7 * 0.19999999999999996+0.5
kvar23 = gkch300_7 * 6.0+18.0
kvar24 = gkch300_6 * 0.2+0.2
kvar29 = gkch300_8 * 22.0+2.0
kvar30 = gkch300_5 * 0.15000000000000002+0.05
ifenv_1 ftgen 0, 0, 8192, 7, 0, 819, 1, 3686, 0.5, 3687, 0
ifenvf_1 ftgen 0, 0, 8192, 7, 0, 819, 1, 3686, 0.5, 3687, 0
kfseq randomi kvar6, kvar7 * kvar6, .31
aenv, aenvf hpkcEnvSeq kfseq, ifenv_1, ifenvf_1
kenv downsamp aenv
kenvf downsamp aenvf
kbasea = int(kvar3)
kbaseb = int(kvar4)
kbasec = int(kvar5)
kgate metro kfseq
krand weibull kvar8 , 1
krand limit krand, 0, kvar8
kpr samphold krand, kgate
kpri = int(kpr) * 0.01
kbasea = kbasea + kpri
kbaseb = kbaseb + kpri
kbasec = kbasec + kpri
kvar1a = kbasea + int(kvar11) * 0.01
kvar1b = kbaseb + int(18.0) * 0.01
kvar1c = kbasec + int(16.0) * 0.01
kvar2a = kbasea + int(kvar17) * 0.01
kvar2b = kbaseb + int(11.0) * 0.01
kvar2c = kbasec + int(14.0) * 0.01
kvar3a = kbasea + int(kvar23) * 0.01
kvar3b = kbaseb + int(20.0) * 0.01
kvar3c = kbasec + int(20.0) * 0.01
kvar4a = kbasea + int(kvar29) * 0.01
kvar4b = kbaseb + int(15.0) * 0.01
kvar4c = kbasec + int(11.0) * 0.01
kpitchA, kampA hpkcSeq4 kfseq, kvar1a, kvar12, kvar2a, kvar18, kvar3a, kvar24, kvar4a, kvar30
kpitchB, kampB hpkcSeq4 kfseq, kvar1b, 0.8, kvar2b, 0.8, kvar3b, 0.8, kvar4b, 0.8
kpitchC, kampC hpkcSeq4 kfseq, kvar1c, 0.85, kvar2c, 0.85, kvar3c, 0.8, kvar4c, 0.8
krand weibull kvar9 , 1
krand limit krand, 0, kvar9
kprAmp samphold krand, kgate
kampA = kampA + kprAmp
kampA limit kampA, 0, 1
kampB = kampB + kprAmp
kampB limit kampB, 0, 1
kampC = kampC + kprAmp
kampC limit kampC, 0, 1
asigel = 0
asiger = 0
asigelsum = 0
asigersum = 0
kvar42 = gkch300_4 * 0.17016932136984764+0.1500888646110532
kvar43 = gkch300_5 * 1.0009354714602932
kvar44 = gkch300_6 * 2.908281755028543+0.1
kvar41 hpkcEnv 1, kvar44, 18
kvar41 = kvar41 * kvar43 + kvar42
kvar39 = gkch300_7 * 0.2001870942920574
kvar40 = gkch300_8 * 0.22250991063772307+1.0
kfj jitter kvar39, 3, kvar40
kvar36 = gkch300_8 * 0.8185144357889584+0.09679570861322413
kvar37 = gkch300_7
kvar38 = gkch300_6 * 2.908281755028543+0.1
kvar35 hpkcEnv 1, kvar38, 16
kvar35 = kvar35 * kvar37 + kvar36
kpan limit kvar35, 0, 1
ilwave tableng 31
aphasor phasor kpitchA + kfj + kvar41
ascaled = aphasor * ilwave
a1 table ascaled, 1
aphasor phasor kpitchB + kfj + kvar41
ascaled = aphasor * ilwave
a2 table ascaled, 1
aphasor phasor kpitchC + kfj + kvar41
ascaled = aphasor * ilwave
a3 table ascaled, 1
aom = aenv * (a1*kampA+a2*kampB+a3*kampC) * .33333333333
aom = aom * 0.8600357411185592
asigel, asiger pan2 aom, kpan, 1
asigelg = asigel
asigerg = asiger
asigelin = asigel
asigerin = asiger
kvar47 = gkch300_5 * 0.9+0.1
kvar48 = gkch300_6
kvar49 = gkch300_7 * 3.653283043985727+0.1
kvar46 hpkcEnv 1, kvar49, 19
kvar46 = kvar46 * kvar48 + kvar47
fsigl pvsanal asigel, 2048, 512.0, 2048, 0
ftpsl pvsblur fsigl, kvar46, 1.1
asigel pvsynth ftpsl
asiger = asigel
asigel = asigel * 1.0 + asigelin * ( 1 - 1.0 )
asiger = asiger * 1.0 + asigerin * ( 1 - 1.0 )
asigel ntrpol asigelg, asigel, kvar2
asiger ntrpol asigerg, asiger, kvar2
kampout = gkchLayer1 * 0.8584475339456945
asigMixL = asigel * kampout
asigMixR = asiger * kampout
kampreverb = gkchLayer1 * 0.826135982515537
asigMixLReverb = asigel * kampreverb
asigMixRReverb = asiger * kampreverb
zawm asigMixLReverb, 1
zawm asigMixRReverb, 2
zawm asigMixL, 3
zawm asigMixR, 4
krms rms (asigMixL + asigMixLReverb + asigMixR + asigMixRReverb) * 20000.0
krms portk krms, 0.5
gkchrms300 = krms / 5000.0
noplay:
endin
instr 301
gkchLayer2 linseg 0.0,10.0,0.0,10.0,0.0,10.0,1.0,10.0,0.0,10.0,0.0,10.0,1.0,10.0,0.0,10.0,0.0,10.0,1.0,10.0,0.0,10.0,0.0,60.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,1.0,10.0,0.0,70.0,0
gkch301_1 loopseg 1.0,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch301_2 loopseg 0.2,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch301_3 loopseg 0.1,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch301_4 loopseg 0.05,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch301_5 loopseg 0.0333,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch301_6 loopseg 0.025,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch301_7 loopseg 0.02,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch301_8 loopseg 0.0167,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
if gkchLayer2 == 0 goto noplay
kvar50 = gkch301_8 * 0.09490001488000821+0.9050999851199918
kvar54 = gkch301_8 * 0.020403301632244908+0.027995654866864284
kvar55 = gkch301_7 * 0.5+1.0
kvar51 = gkch301_6 * 1.055049792493044+5.449944678792152
kvar52 = gkch301_5 * 1.4549476977121811+7.049536299668703
kvar53 = gkch301_4 * 1.0530757670575177+8.946924232942482
kvar56 = gkch301_6 * 18.827533716359746+3.01738783790635
kvar57 = gkch301_4 * 13.069003881204155+6.693045179495021
kvar60 = gkch301_8 * 0.23313197027668864+0.7417374366049397
kvar66 = gkch301_7 * 0.22292181099449815+0.5052020799008541
kvar72 = gkch301_6 * 0.1973964127890213+0.26356164355567296
kvar78 = gkch301_5 * 0.18208117386573497+0.050849991843365694
ifenv_1 ftgen 0, 0, 8192, 7, 0, 819, 1, 3686, 0.5, 3687, 0
ifenvf_1 ftgen 0, 0, 8192, 7, 0, 819, 1, 3686, 0.5, 3687, 0
kfseq randomi kvar54, kvar55 * kvar54, .31
aenv, aenvf hpkcEnvSeq kfseq, ifenv_1, ifenvf_1
kenv downsamp aenv
kenvf downsamp aenvf
kbasea = int(kvar51)
kbaseb = int(kvar52)
kbasec = int(kvar53)
kgate metro kfseq
krand weibull kvar56 , 1
krand limit krand, 0, kvar56
kpr samphold krand, kgate
kpri = int(kpr) * 0.01
kbasea = kbasea + kpri
kbaseb = kbaseb + kpri
kbasec = kbasec + kpri
kvar1a = kbasea + int(7.395317037876623) * 0.01
kvar1b = kbaseb + int(21.003417097435886) * 0.01
kvar1c = kbasec + int(16.343500480401936) * 0.01
kvar2a = kbasea + int(2.8783426483590553) * 0.01
kvar2b = kbaseb + int(11.626406972361437) * 0.01
kvar2c = kbasec + int(21.26071310696537) * 0.01
kvar3a = kbasea + int(19.917056168311408) * 0.01
kvar3b = kbaseb + int(2.56386974782302) * 0.01
kvar3c = kbasec + int(12.226764327930226) * 0.01
kvar4a = kbasea + int(16.829504053957628) * 0.01
kvar4b = kbaseb + int(12.026645209407295) * 0.01
kvar4c = kbasec + int(9.482273559615756) * 0.01
kpitchA, kampA hpkcSeq4 kfseq, kvar1a, kvar60, kvar2a, kvar66, kvar3a, kvar72, kvar4a, kvar78
kpitchB, kampB hpkcSeq4 kfseq, kvar1b, 0.8834806756649507, kvar2b, 0.8370244517221277, kvar3b, 0.8465539335565528, kvar4b, 0.8215390437411865
kpitchC, kampC hpkcSeq4 kfseq, kvar1c, 0.8596569710788875, kvar2c, 0.8608481563081907, kvar3c, 0.8382156369514306, kvar4c, 0.832259710804915
krand weibull kvar57 , 1
krand limit krand, 0, kvar57
kprAmp samphold krand, kgate
kampA = kampA + kprAmp
kampA limit kampA, 0, 1
kampB = kampB + kprAmp
kampB limit kampB, 0, 1
kampC = kampC + kprAmp
kampC limit kampC, 0, 1
asigel = 0
asiger = 0
asigelsum = 0
asigersum = 0
kvar90 = gkch301_7 * 0.17016932136984764+0.1500888646110532
kvar91 = gkch301_8 * 1.0009354714602932
kvar92 = gkch301_7 * 1.9600982963557634+0.1
kvar89 hpkcEnv 1, kvar92, 19
kvar89 = kvar89 * kvar91 + kvar90
kfj jitter 0.0, 3, 10.0
kvar84 = gkch301_8 * 0.7674636393780048+0.11891772039130404
kvar85 = gkch301_7
kvar86 = gkch301_8 * 2.4003263307395533+0.1
kvar83 randomi kvar84, kvar85 + kvar84, kvar86
kpan limit kvar83, 0, 1
ilwave tableng 32
aphasor phasor kpitchA + kfj + kvar89
ascaled = aphasor * ilwave
a1 table ascaled, 1
aphasor phasor kpitchB + kfj + kvar89
ascaled = aphasor * ilwave
a2 table ascaled, 1
aphasor phasor kpitchC + kfj + kvar89
ascaled = aphasor * ilwave
a3 table ascaled, 1
aom = aenv * (a1*kampA+a2*kampB+a3*kampC) * .33333333333
aom = aom * 1.0
asigel, asiger pan2 aom, kpan, 1
asigelg = asigel
asigerg = asiger
asigelin = asigel
asigerin = asiger
kvar95 = gkch301_6 * 0.4010785356792671+0.1
kvar96 = gkch301_7 * 0.20059899464883021
kvar97 = gkch301_8 * 0.910323752825185+0.1
kvar94 hpkcEnv 1, kvar97, 20
kvar94 = kvar94 * kvar96 + kvar95
fsigl pvsanal asigel, 2048, 512.0, 2048, 0
ftpsl pvsblur fsigl, kvar94, 1.1
asigel pvsynth ftpsl
asiger = asigel
asigel = asigel * 1.0 + asigelin * ( 1 - 1.0 )
asiger = asiger * 1.0 + asigerin * ( 1 - 1.0 )
asigel ntrpol asigelg, asigel, kvar50
asiger ntrpol asigerg, asiger, kvar50
kampout = gkchLayer2 * 0.8743300030386238
asigMixL = asigel * kampout
asigMixR = asiger * kampout
kampreverb = gkchLayer2 * 0.7863349890722111
asigMixLReverb = asigel * kampreverb
asigMixRReverb = asiger * kampreverb
zawm asigMixLReverb, 1
zawm asigMixRReverb, 2
zawm asigMixL, 3
zawm asigMixR, 4
krms rms (asigMixL + asigMixLReverb + asigMixR + asigMixRReverb) * 20000.0
krms portk krms, 0.5
gkchrms301 = krms / 5000.0
noplay:
endin
instr 302
gkchLayer3 linseg 0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,1.0,10.0,1.0,10.0,1.0,10.0,1.0,10.0,1.0,10.0,0.0,30.0,0.0,10.0,0.0,10.0,0.0,70.0,0
gkch302_1 loopseg 1.0,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch302_2 loopseg 0.2,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch302_3 loopseg 0.1,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch302_4 loopseg 0.05,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch302_5 loopseg 0.0333,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch302_6 loopseg 0.025,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch302_7 loopseg 0.02,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch302_8 loopseg 0.0167,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkchrms302 = gkchLayer3
endin
instr 303
gkchLayer4 linseg 0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,1.0,10.0,1.0,10.0,0.0,10.0,1.0,10.0,1.0,10.0,0.0,30.0,0.0,10.0,1.0,10.0,1.0,10.0,0.0,60.0,0
gkch303_1 loopseg 1.0,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch303_2 loopseg 0.2,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch303_3 loopseg 0.1,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch303_4 loopseg 0.05,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch303_5 loopseg 0.0333,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch303_6 loopseg 0.025,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch303_7 loopseg 0.02,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch303_8 loopseg 0.0167,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkchrms303 = gkchLayer4
endin
instr 304
gkchLayer5 linseg 0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,1.0,10.0,1.0,10.0,1.0,10.0,1.0,10.0,1.0,10.0,0.0,30.0,0.0,10.0,1.0,10.0,1.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,20.0,0
gkch304_1 loopseg 1.0,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch304_2 loopseg 0.2,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch304_3 loopseg 0.1,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch304_4 loopseg 0.05,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch304_5 loopseg 0.0333,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch304_6 loopseg 0.025,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch304_7 loopseg 0.02,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch304_8 loopseg 0.0167,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
if gkchLayer5 == 0 goto noplay
kvar164 = gkch304_8 * 0.09830340130740522+0.9016965986925948
kvar169 = gkch304_8 * 0.5+1.0
kvar165 = gkch304_7 * 0.6721688194108912+5.671164796572951
kvar166 = gkch304_6 * 0.8933889371916903+6.113605032134551
kvar167 = gkch304_5 * 1.0039989960820908+6.836824647956394
kvar170 = gkch304_3 * 21.881106178926437+2.1188938210735646
kvar171 = gkch304_4 * 20.379477927252736+1.996371909687274
kvar174 = gkch304_8 * 0.2059048788575133+0.7417374366049397
kvar180 = gkch304_7 * 0.2569556752684671+0.512008852755648
kvar186 = gkch304_6 * 0.23653535670408565+0.28568365533375284
kvar192 = gkch304_5 * 0.2348336634903873+0.06446353755295335
ifenv_1 ftgen 0, 0, 8192, 7, 0, 819, 1, 3686, 0.5, 3687, 0
ifenvf_1 ftgen 0, 0, 8192, 7, 0, 819, 1, 3686, 0.5, 3687, 0
kfseq randomi 0.01, kvar169 * 0.01, .31
aenv, aenvf hpkcEnvSeq kfseq, ifenv_1, ifenvf_1
kenv downsamp aenv
kenvf downsamp aenvf
kbasea = int(kvar165)
kbaseb = int(kvar166)
kbasec = int(kvar167)
kgate metro kfseq
krand bexprnd kvar170
krand limit krand, - kvar170, kvar170
kpr samphold krand, kgate
kpri = int(kpr) * 0.01
kbasea = kbasea + kpri
kbaseb = kbaseb + kpri
kbasec = kbasec + kpri
kvar1a = kbasea + int(5.451302743653872) * 0.01
kvar1b = kbaseb + int(9.85392335115834) * 0.01
kvar1c = kbasec + int(12.484060337459711) * 0.01
kvar2a = kbasea + int(11.626406972361437) * 0.01
kvar2b = kbaseb + int(2.592458193326296) * 0.01
kvar2c = kbasec + int(19.631171713278654) * 0.01
kvar3a = kbasea + int(8.395912630491276) * 0.01
kvar3b = kbaseb + int(18.40186855663779) * 0.01
kvar3c = kbasec + int(22.690135382129156) * 0.01
kvar4a = kbasea + int(14.256543958662808) * 0.01
kvar4b = kbaseb + int(5.908717871706284) * 0.01
kvar4c = kbasec + int(16.772327162951072) * 0.01
kpitchA, kampA hpkcSeq4 kfseq, kvar1a, kvar174, kvar2a, kvar180, kvar3a, kvar186, kvar4a, kvar192
kpitchB, kampB hpkcSeq4 kfseq, kvar1b, 0.8274949698877023, kvar2b, 0.8656128972254034, kvar3b, 0.9299368996077737, kvar4b, 0.901348454104498
kpitchC, kampC hpkcSeq4 kfseq, kvar1c, 0.8834806756649507, kvar2c, 0.8334508960342182, kvar3c, 0.9632900860282623, kvar4c, 0.8596569710788875
krand weibull kvar171 , 1
krand limit krand, 0, kvar171
kprAmp samphold krand, kgate
kampA = kampA + kprAmp
kampA limit kampA, 0, 1
kampB = kampB + kprAmp
kampB limit kampB, 0, 1
kampC = kampC + kprAmp
kampC limit kampC, 0, 1
asigel = 0
asiger = 0
asigelsum = 0
asigersum = 0
kvar202 = gkch304_7 * 500.8083127914558+501.6189814548894
kvar203 = gkch304_8 * 1000.1940005195172
kvar204 = gkch304_7 * 4.7747809883165+1.010323752825185
kvar201 hpkcEnv 1, kvar204, 17
kvar201 = kvar201 * kvar203 + kvar202
kvar206 = gkch304_7 * 0.19892793668134984+0.15108040253501204
kvar205 = gkch304_6 * 1399.8499111353892+100.0
kvar207 = gkch304_8 * 1.0022973028683917+1.5134994501801597
kvar208 = gkch304_7 * 0.17357270779723954+9.997352203506463
kfj jitter kvar207, 3, kvar208
kvar198 = gkch304_8
kvar199 = gkch304_7 * 0.33333106531730994
kvar200 = gkch304_6 * 0.2330498537731965+0.1
kvar197 hpkcEnv 1, kvar200, 16
kvar197 = kvar197 * kvar199 + kvar198
kpan limit kvar197, 0, 1
an1 vco2 kampA, kpitchA + kfj, 0, .5
an2 vco2 kampB, kpitchB + kfj, 0, .5
an3 vco2 kampC, kpitchC + kfj, 0, .5
am = aenv * (an1+an2+an3) * .333333333333333
aom moogladder am, kvar205 + kvar201 * kenvf, kvar206
aom = aom * 1.0
asigel, asiger pan2 aom, kpan, 1
asigelsum = asigelsum + asigel * 1.0
asigersum = asigersum + asiger * 1.0
kvar216 = gkch304_6 * 0.17016932136984764+0.1500888646110532
kvar217 = gkch304_5 * 1.0009354714602932
kvar218 = gkch304_6 * 2.4003263307395533+0.1
kvar215 randomi kvar216, kvar217 + kvar216, kvar218
kvar220 = gkch304_6 * 500.7232281307712+399.1967902445973
kvar221 = gkch304_7 * 66.36603533423965+606.902063587586
kvar222 = gkch304_6 * 2.908281755028543+0.1
kvar219 randomi kvar220, kvar221 + kvar220, kvar222
kvar224 = gkch304_6 * 2.001191219309386+4.503493582639085
kvar225 = gkch304_7 * 1.0111018301774666
kvar226 = gkch304_6 * 2.908281755028543+0.1
kvar223 hpkcEnv 1, kvar226, 16
kvar223 = kvar223 * kvar225 + kvar224
kvar213 = gkch304_5 * 0.09808550147014872
kvar214 = gkch304_6 * 0.5134994501801597+1.0
kfj jitter kvar213, 3, kvar214
kvar210 = gkch304_8 * 0.8168127425752597+0.10190078825431957
kvar211 = gkch304_7
kvar212 = gkch304_8 * 3.4162371793175357+0.1
kvar209 hpkcEnv 1, kvar212, 18
kvar209 = kvar209 * kvar211 + kvar210
kpan limit kvar209, 0, 1
an1 hpkcVosim kfseq, kampA * kenv, kpitchA + kfj + kvar215, kvar219, kvar223
an2 hpkcVosim kfseq, kampB * kenv, kpitchB + kfj + kvar215, kvar219, kvar223
an3 hpkcVosim kfseq, kampC * kenv, kpitchC + kfj + kvar215, kvar219, kvar223
aom = (an1+an2+an3) * 0.3333333333
aom = aom * 1.0
asigel, asiger pan2 aom, kpan, 1
asigelsum = asigelsum + asigel * 1.0
asigersum = asigersum + asiger * 1.0
asigel = asigelsum / 2
asiger = asigersum / 2
asigelg = asigel
asigerg = asiger
asigelin = asigel
asigerin = asiger
kvar234 = gkch304_8 * 0.07055760730366978+0.01
kvar235 = gkch304_7 * 0.753033280925842+0.24853854166395623
kvar230 = gkch304_8 * 1.99+0.01
kvar231 = gkch304_7 * 2.0
kvar232 = gkch304_6 * 0.910323752825185+0.1
kvar229 hpkcEnv 1, kvar232, 18
kvar229 = kvar229 * kvar231 + kvar230
kvar228 = gkch304_6 * 0.052551685057064174
fsigl_2 pvsanal asigel, 2048, 512.0, 2048, 0
kjit jitter 1.1, 5, 19
kspmod1 oscili kvar234, kvar235 * kjit, 22, 0.2
kspmod2 oscili kvar234, kvar235 * kjit, 22, 0.3
fsptal_2 pvsarp fsigl_2, 0.01 + kvar228 + kspmod1, kvar229, 1.0
asigel pvsynth fsptal_2
fsigr_2 pvsanal asiger, 2048, 512.0, 2048, 0
fsptar_2 pvsarp fsigr_2, 0.01 + kvar228 + kspmod2, kvar229, 1.0
asiger pvsynth fsptar_2
asigel = asigel * 1.0 + asigelin * ( 1 - 1.0 )
asiger = asiger * 1.0 + asigerin * ( 1 - 1.0 )
asigel ntrpol asigelg, asigel, kvar164
asiger ntrpol asigerg, asiger, kvar164
kampout = gkchLayer5 * 0.8187413612133707
asigMixL = asigel * kampout
asigMixR = asiger * kampout
kampreverb = gkchLayer5 * 0.792968487979432
asigMixLReverb = asigel * kampreverb
asigMixRReverb = asiger * kampreverb
zawm asigMixLReverb, 1
zawm asigMixRReverb, 2
zawm asigMixL, 3
zawm asigMixR, 4
krms rms (asigMixL + asigMixLReverb + asigMixR + asigMixRReverb) * 20000.0
krms portk krms, 0.5
gkchrms304 = krms / 5000.0
noplay:
endin
instr 305
gkchLayer6 linseg 0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,1.0,10.0,1.0,10.0,0.0,30.0,0.0,10.0,0.0,10.0,0.0,10.0,1.0,10.0,1.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,30.0,0
gkch305_1 loopseg 1.0,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch305_2 loopseg 0.2,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch305_3 loopseg 0.1,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch305_4 loopseg 0.05,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch305_5 loopseg 0.0333,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch305_6 loopseg 0.025,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch305_7 loopseg 0.02,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch305_8 loopseg 0.0167,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
if gkchLayer6 == 0 goto noplay
kvar236 = gkch305_8 * 0.03193736597316521+0.9680626340268348
kvar240 = gkch305_8 * 1.9995235599599637+5.006401253134524
kvar241 = gkch305_7 * 0.5+1.0
kvar237 = gkch305_6 * 1.2932868424108275+5.398893882381198
kvar238 = gkch305_5 * 1.420913833438214+6.700689190860518
kvar239 = gkch305_4 * 1.395388435232734+8.121603024298732
kvar244 = gkch305_8 * 11.0+1.0
kvar242 = gkch305_7 * 24.0
kvar243 = gkch305_4 * 17.0+7.0
kvar246 = gkch305_5 * 0.06466434212054151+0.9170118376158808
kvar252 = gkch305_6 * 0.10380328603560596+0.854049188709038
kvar258 = gkch305_7 * 0.06636603533424001+0.9170118376158808
kvar264 = gkch305_8 * 0.10890836567670137+0.854049188709038
ifenv_1 ftgen 0, 0, 8192, 7, 0, 819, 1, 3686, 0.5, 3687, 0
ifenvf_1 ftgen 0, 0, 8192, 7, 0, 819, 1, 3686, 0.5, 3687, 0
kfseq randomi kvar240, kvar241 * kvar240, .31
aenv, aenvf hpkcEnvSeq kfseq, ifenv_1, ifenvf_1
kenv downsamp aenv
kenvf downsamp aenvf
kbasea = int(kvar237)
kbaseb = int(kvar238)
kbasec = int(kvar239)
kgate metro kfseq
krand weibull kvar242 , 1
krand limit krand, 0, kvar242
kpr samphold krand, kgate
kpri = int(kpr) * 0.01
kbasea = kbasea + kpri
kbaseb = kbaseb + kpri
kbasec = kbasec + kpri
kvar1a = kbasea + int(11.740760754374541) * 0.01
kvar1b = kbaseb + int(17.60139208254607) * 0.01
kvar1c = kbasec + int(8.510266412504379) * 0.01
kvar2a = kbasea + int(20.80329797891296) * 0.01
kvar2b = kbaseb + int(11.969468318400747) * 0.01
kvar2c = kbasec + int(4.221999587013016) * 0.01
kvar3a = kbasea + int(12.769944792492467) * 0.01
kvar3b = kbaseb + int(5.680010307680078) * 0.01
kvar3c = kbasec + int(17.229742291003486) * 0.01
kvar4a = kbasea + int(10.625811379746786) * 0.01
kvar4b = kbaseb + int(4.9938876156014596) * 0.01
kvar4c = kbasec + int(21.17494777045554) * 0.01
kstep = int(kvar244)
kpitchA, kampA hpkcSeq12 kfseq, kstep, kvar1a, kvar246, kvar1b, 0.794141783467214, kvar1c, 0.8263037846583992, kvar2a, kvar252, kvar2b, 0.786994672091395, kvar2c, 0.832259710804915, kvar3a, kvar258, kvar3b, 0.8334508960342182, kvar3c, 0.8358332664928245, kvar4a, kvar264, kvar4b, 0.832259710804915, kvar4c, 0.8382156369514306
krand weibull kvar243 , 1
krand limit krand, 0, kvar243
kprAmp samphold krand, kgate
kampA = kampA + kprAmp
kampA limit kampA, 0, 1
asigel = 0
asiger = 0
asigelsum = 0
asigersum = 0
kvar276 = gkch305_6 * 0.15+0.15
kvar277 = gkch305_5
kvar278 = gkch305_4 * 0.09759507396280095+0.1
kvar275 randomi kvar276, kvar277 + kvar276, kvar278
kfj jitter 0.0, 3, 10.0
kvar270 = gkch305_8 * 0.4628605541259805+0.48308006812277415
kvar271 = gkch305_7
kvar272 = gkch305_6 * 0.4+0.1
kvar269 hpkcEnv 1, kvar272, 16
kvar269 = kvar269 * kvar271 + kvar270
kpan limit kvar269, 0, 1
aom hpkcPluck kfseq, kpitchA + kfj + kvar275, 440.0, 1
aom = aenv * aom * kampA
aom = aom * 1.0
asigel, asiger pan2 aom, kpan, 1
asigelg = asigel
asigerg = asiger
asigelin = asigel
asigerin = asiger
kvar280 = gkch305_8 * 0.1424657558508347+0.07554440955937125
kvar281 = gkch305_7 * 0.19843444564937723+0.10607278581312146
kvar282 = gkch305_6 * 0.25949119815687766+0.1925698518654142
kvar284 = gkch305_5 * 0.5008147510922761+0.1
kread1 randomi 0.01, 3.0, kvar280
kread2 randomi 0.01, 3.0, kvar281
kread3 randomi 0.01, 3.0, kvar282
kr1 phasor 0.5
aspdfdb1l_1 init 0
aspdfdb2l_1 init 0
aspdfdb3l_1 init 0
fspd1l_1 pvsanal asigel+aspdfdb1l_1, 2048, 512.0, 2048, 1
fspd2l_1 pvsanal asigel+aspdfdb1l_1, 2048, 512.0, 2048, 1
fspd3l_1 pvsanal asigel+aspdfdb1l_1, 2048, 512.0, 2048, 1
ispdbuf1l_1, kt1 pvsbuffer fspd1l_1, 3.0
ispdbuf2l_1, kt2 pvsbuffer fspd2l_1, 3.0
ispdbuf3l_1, kt3 pvsbuffer fspd3l_1, 3.0
fspdb1l_1 pvsbufread kr1+kread1, ispdbuf1l_1, 0, 2500.0
fspdb2l_1 pvsbufread kr1+kread2, ispdbuf2l_1, 0, 2500.0
fspdb3l_1 pvsbufread kr1+kread3, ispdbuf3l_1, 0, 2500.0
a1l pvsynth fspdb1l_1
a2l pvsynth fspdb2l_1
a3l pvsynth fspdb3l_1
aspdfdb1l_1 = ( aspdfdb1l_1+ a1l ) * 0.5
aspdfdb2l_1 = ( aspdfdb2l_1+ a2l ) * 0.5
aspdfdb3l_1 = ( aspdfdb3l_1+ a3l ) * 0.5
kpan1 randomi .2, 1.0, kvar284
kpan2 randomi .2, 1.0, kvar284 + kvar284 * .03
kpan3 randomi .2, 1.0, kvar284 + kvar284 * .07
asigel = kpan1 * aspdfdb1l_1 + kpan2 * aspdfdb2l_1 + kpan3 * aspdfdb3l_1
aspdfdb1r_1 init 0
aspdfdb2r_1 init 0
aspdfdb3r_1 init 0
fspd1r_1 pvsanal asiger+aspdfdb1r_1, 2048, 512.0, 2048, 1
fspd2r_1 pvsanal asiger+aspdfdb1r_1, 2048, 512.0, 2048, 1
fspd3r_1 pvsanal asiger+aspdfdb1r_1, 2048, 512.0, 2048, 1
ispdbuf1r_1, kt1 pvsbuffer fspd1r_1, 3.0
ispdbuf2r_1, kt2 pvsbuffer fspd2r_1, 3.0
ispdbuf3r_1, kt3 pvsbuffer fspd3r_1, 3.0
fspdb1r_1 pvsbufread kr1+kread1, ispdbuf1r_1, 0, 2500.0
fspdb2r_1 pvsbufread kr1+kread2, ispdbuf2r_1, 0, 2500.0
fspdb3r_1 pvsbufread kr1+kread3, ispdbuf3r_1, 0, 2500.0
a1r pvsynth fspdb1r_1
a2r pvsynth fspdb2r_1
a3r pvsynth fspdb3r_1
aspdfdb1r_1 = ( aspdfdb1r_1+ a1r ) * 0.5
aspdfdb2r_1 = ( aspdfdb2r_1+ a2r ) * 0.5
aspdfdb3r_1 = ( aspdfdb3r_1+ a3r ) * 0.5
asiger = kpan1 * aspdfdb1r_1 + kpan2 * aspdfdb2r_1 + kpan3 * aspdfdb3r_1
asigel = asigel * 1.0 + asigelin * ( 1 - 1.0 )
asiger = asiger * 1.0 + asigerin * ( 1 - 1.0 )
asigel ntrpol asigelg, asigel, kvar236
asiger ntrpol asigerg, asiger, kvar236
kampout = gkchLayer6 * 0.8584475339456945
asigMixL = asigel * kampout
asigMixR = asiger * kampout
kampreverb = gkchLayer6 * 0.7996019868866528
asigMixLReverb = asigel * kampreverb
asigMixRReverb = asiger * kampreverb
zawm asigMixLReverb, 1
zawm asigMixRReverb, 2
zawm asigMixL, 3
zawm asigMixR, 4
krms rms (asigMixL + asigMixLReverb + asigMixR + asigMixRReverb) * 20000.0
krms portk krms, 0.5
gkchrms305 = krms / 5000.0
noplay:
endin
instr 306
gkchLayer7 linseg 0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,1.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,1.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,10.0,0.0,20.0,0
gkch306_1 loopseg 1.0,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch306_2 loopseg 0.2,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch306_3 loopseg 0.1,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch306_4 loopseg 0.05,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch306_5 loopseg 0.0333,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch306_6 loopseg 0.025,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch306_7 loopseg 0.02,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
gkch306_8 loopseg 0.0167,0 , 0.0,0.0, 0.5,1.0, 0.5,0.0
if gkchLayer7 == 0 goto noplay
kvar285 = gkch306_8 * 0.05746276417864238+0.9425372358213576
kvar289 = gkch306_4 * 0.7549221603930467+0.2524319728215547
kvar290 = gkch306_5 * 0.5+1.0
kvar286 = gkch306_6 * 1.7016932136984577+6.4964860052167035
kvar287 = gkch306_7 * 1.6421339512190105+7.849332110106978
kvar288 = gkch306_8 * 1.3017953084793215+5.475470076997628
kvar291 = gkch306_6 * 24.0
kvar292 = gkch306_8 * 4.809719859103502+19.190280140896498
kvar295 = gkch306_8 * 0.14084573164986658+0.8591542683501334
kvar301 = gkch306_7 * 0.08809324202521429+0.9119067579747857
kvar307 = gkch306_6 * 0.13914403843616807+0.8608559615638319
kvar313 = gkch306_5 * 0.07277800310192839+0.9272219968980716
ifenv_1 ftgen 0, 0, 8192, 7, 0, 819, 1, 3686, 0.5, 3687, 0
ifenvf_1 ftgen 0, 0, 8192, 7, 0, 819, 1, 3686, 0.5, 3687, 0
kfseq randomi kvar289, kvar290 * kvar289, .31
aenv, aenvf hpkcEnvSeq kfseq, ifenv_1, ifenvf_1
kenv downsamp aenv
kenvf downsamp aenvf
kbasea = int(kvar286)
kbaseb = int(kvar287)
kbasec = int(kvar288)
kgate metro kfseq
krand weibull kvar291 , 1
krand limit krand, 0, kvar291
kpr samphold krand, kgate
kpri = int(kpr) * 0.01
kbasea = kbasea + kpri
kbaseb = kbaseb + kpri
kbasec = kbasec + kpri
kvar1a = kbasea + int(11.740760754374541) * 0.01
kvar1b = kbaseb + int(17.60139208254607) * 0.01
kvar1c = kbasec + int(8.510266412504379) * 0.01
kvar2a = kbasea + int(20.80329797891296) * 0.01
kvar2b = kbaseb + int(11.969468318400747) * 0.01
kvar2c = kbasec + int(4.221999587013016) * 0.01
kvar3a = kbasea + int(12.769944792492467) * 0.01
kvar3b = kbaseb + int(5.680010307680078) * 0.01
kvar3c = kbasec + int(17.229742291003486) * 0.01
kvar4a = kbasea + int(10.625811379746786) * 0.01
kvar4b = kbaseb + int(4.9938876156014596) * 0.01
kvar4c = kbasec + int(21.17494777045554) * 0.01
kpitchA, kampA hpkcSeq4 kfseq, kvar1a, kvar295, kvar2a, kvar301, kvar3a, kvar307, kvar4a, kvar313
kpitchB, kampB hpkcSeq4 kfseq, kvar1b, 0.794141783467214, kvar2b, 0.786994672091395, kvar3b, 0.8334508960342182, kvar4b, 0.832259710804915
kpitchC, kampC hpkcSeq4 kfseq, kvar1c, 0.8263037846583992, kvar2c, 0.832259710804915, kvar3c, 0.8358332664928245, kvar4c, 0.8382156369514306
krand weibull kvar292 , 1
krand limit krand, 0, kvar292
kprAmp samphold krand, kgate
kampA = kampA + kprAmp
kampA limit kampA, 0, 1
kampB = kampB + kprAmp
kampB limit kampB, 0, 1
kampC = kampC + kprAmp
kampC limit kampC, 0, 1
asigel = 0
asiger = 0
asigelsum = 0
asigersum = 0
kvar325 = gkch306_3 * 0.17016932136984764+0.1500888646110532
kvar326 = gkch306_5 * 1.0009354714602932
kvar327 = gkch306_7 * 0.09759507396280095+0.1
kvar324 hpkcEnv 1, kvar327, 20
kvar324 = kvar324 * kvar326 + kvar325
kfj jitter 0.0, 3, 10.0
kvar319 = gkch306_4 * 0.4815791794766636+0.06786692398035031
kvar320 = gkch306_6
kvar321 = gkch306_8 * 0.47009571844139464+0.1
kvar318 hpkcEnv 1, kvar321, 17
kvar318 = kvar318 * kvar320 + kvar319
kpan limit kvar318, 0, 1
an1 hpkcPluck kfseq, kpitchA + kfj + kvar324, 440.0, 1
an2 hpkcPluck kfseq, kpitchB + kfj + kvar324, 440.0, 1
an3 hpkcPluck kfseq, kpitchC + kfj + kvar324, 440.0, 1
am sum an1*kampA, an2*kampB, an3*kampC
aom = am * aenv * 0.333333
aom = aom * 1.0
asigel, asiger pan2 aom, kpan, 1
asigelg = asigel
asigerg = asiger
asigelin = asigel
asigerin = asiger
kvar330 = gkch306_8
kvar331 = gkch306_7
kvar332 = gkch306_6 * 2.908281755028543+0.1
kvar329 hpkcEnv 1, kvar332, 16
kvar329 = kvar329 * kvar331 + kvar330
kvar334 = gkch306_6
kvar335 = gkch306_7
kvar336 = gkch306_8 * 1.849930296231196+0.1
kvar333 randomi kvar334, kvar335 + kvar334, kvar336
kamppvs limit kvar329, 0, 1
kfreqpvs limit kvar333, 0, 1
fsigl_1 pvsanal asigel, 2048, 512.0, 2048, 0
ftpsl_1 pvsmooth fsigl_1, kamppvs, kfreqpvs
asigel pvsynth ftpsl_1
fsigr_1 pvsanal asiger, 2048, 512.0, 2048, 0
ftpsr_1 pvshift fsigr_1, kamppvs, kfreqpvs
asiger pvsynth ftpsr_1
asigel = asigel * 1.0 + asigelin * ( 1 - 1.0 )
asiger = asiger * 1.0 + asigerin * ( 1 - 1.0 )
asigel ntrpol asigelg, asigel, kvar285
asiger ntrpol asigerg, asiger, kvar285
kampout = gkchLayer7 * 0.8147707439401384
asigMixL = asigel * kampout
asigMixR = asiger * kampout
kampreverb = gkchLayer7 * 0.7531674945361053
asigMixLReverb = asigel * kampreverb
asigMixRReverb = asiger * kampreverb
zawm asigMixLReverb, 1
zawm asigMixRReverb, 2
zawm asigMixL, 3
zawm asigMixR, 4
krms rms (asigMixL + asigMixLReverb + asigMixR + asigMixRReverb) * 20000.0
krms portk krms, 0.5
gkchrms306 = krms / 5000.0
noplay:
endin
instr 400
asigl zar 1
asigr zar 2
denorm asigl, asigr
ao1, ao2 reverbsc asigl, asigr, 0.9, 8000
zawm ao1, 3
zawm ao2, 4
zacl 0, 2
endin
instr 401
asigl zar 3
asigr zar 4
asigld dcblock asigl
asigrd dcblock asigr
asigl = asigld * 20000.0
asigr = asigrd * 20000.0
asiglo clip asigl, 2, 32000
asigro clip asigr, 2, 32000
outs asiglo, asigro
zacl 2, 4
endin
f1 0 4096 7 0 512.0 1.0 512.0 0.0
f2 0 4096 7 0 368.64 0.084 143.35999999999999 1.0 512.0 0.0
f3 0 4096 7 0 366.08000000000004 0.0802 145.92 1.0 184.32 0.084 327.68 0.0
f4 0 4096 7 0 158.72 0.9962 865.28 0.0
f5 0 4096 7 0 158.72 0.9962 330.24000000000007 0.1183 535.04 0.0
f6 0 4096 7 0 125.44000000000001 0.9618 386.56 1.0 427.5200000000001 0.9427 84.47999999999993 0.0
f7 0 4096 7 0 125.44000000000001 0.9618 386.56 1.0 186.88000000000002 0.2939 325.12 0.0
f8 0 4096 7 0 189.44 0.0687 322.56 1.0 309.76000000000005 0.1565 202.23999999999995 0.0
f10 0 65536 10 1
f11 0 131072 19 1 1 270 1
f12 0 4096 6 0 64 1 448 0
f13 0 4096 6 0 128 1 384 0
f14 0 8192 5 1 1024 100 7168 1
f15 0 8192 5 1 2048 100 6144 1
f16 0 8192 5 1 6144 100 2048 1
f17 0 8192 5 1 1024 100 1024 50 6144 1
f18 0 8192 5 1 2048 100 1024 50 5120 1
f19 0 8192 5 1 3072 100 1024 50 4096 1
f20 0 8192 5 1 4096 100 1024 50 3072 1
f21 0 8192 19 1 1 270 1
f22 0 16384 19 1 1 260 1
f30 0 32768 9 0.5 1 0 ; half sine wave
f31 0 0 1 "./data/waves/Pulse Bi Square 1-4th.wav" 0 0 0
f32 0 0 1 "./data/waves/X Power 1.1250.wav" 0 0 0
i2 0 240.0 30
i300 0 240.0
i301 0 240.0
i302 0 240.0
i303 0 240.0
i304 0 240.0
i305 0 240.0
i306 0 240.0
i400 0 240.0
i401 0 240.0