06/30/07
+
PM |
QUOTE |
PERMALINK |
REPORT
phundamental
here's the .csd file:
;
; ""
; by author
;
;
;
; Generated by blue 0.115.0 (http://csounds.com/stevenyi/blue/index.html)
;
<CsoundSynthesizer>
<CsInstruments>
sr=44100
ksmps=1
nchnls=2
ga_bluemix_1_0 init 0
ga_bluemix_1_1 init 0
ga_bluemix_2_0 init 0
ga_bluemix_2_1 init 0
ga_bluemix_3_0 init 0
ga_bluemix_3_1 init 0
ga_bluesub_Master_0 init 0
ga_bluesub_Master_1 init 0
giguranura1 ftgen 0, 0, 524288, 1, "/home/vytas/samples/Vocals And Cuts/morricone1.wav", 0, 4, 0
opcode blueEffect0,aa,aa
ain1,ain2 xin
isin ftgentmp 0, 0, 65537, 10, 1
ilevl = 0.3 ; Output level
idelay = 0.01 ; Delay in ms
idpth = 0.002 ; Depth in ms
imax = 0.25 ; Maximum LFO rate
imin = 0.5 ; Minimum LFO rate
iwave = isin ; LFO waveform
iwet = 0.5
ain = ain1 + ain2 * .5
ain = ain * ilevl
i01 = rnd(imax)
i02 = rnd(imax)
i03 = rnd(imax)
i04 = rnd(imax)
i05 = rnd(imax)
i06 = rnd(imax)
i07 = rnd(imax)
i08 = rnd(imax)
i09 = rnd(imax)
i10 = rnd(imax)
i11 = rnd(imax)
i12 = rnd(imax)
alfo01 oscil idpth, i01 + imin, iwave
alfo02 oscil idpth, i02 + imin, iwave, .08
alfo03 oscil idpth, i03 + imin, iwave, .17
alfo04 oscil idpth, i04 + imin, iwave, .25
alfo05 oscil idpth, i05 + imin, iwave, .33
alfo06 oscil idpth, i06 + imin, iwave, .42
alfo07 oscil idpth, i07 + imin, iwave, .50
alfo08 oscil idpth, i08 + imin, iwave, .58
alfo09 oscil idpth, i09 + imin, iwave, .67
alfo10 oscil idpth, i10 + imin, iwave, .75
alfo11 oscil idpth, i11 + imin, iwave, .83
alfo12 oscil idpth, i12 + imin, iwave, .92
atemp delayr idelay + idpth +.1
a01 deltapi idelay + alfo01
a02 deltapi idelay + alfo02
a03 deltapi idelay + alfo03
a04 deltapi idelay + alfo04
a05 deltapi idelay + alfo05
a06 deltapi idelay + alfo06
a07 deltapi idelay + alfo07
a08 deltapi idelay + alfo08
a09 deltapi idelay + alfo09
a10 deltapi idelay + alfo10
a11 deltapi idelay + alfo11
a12 deltapi idelay + alfo12
delayw ain
achorusl sum a01, a02, a03, a04, a05, a06
achorusr sum a07, a08, a09, a10, a11, a12
aout1 = ain1 * (1-iwet) + achorusl * iwet
aout2 = ain2 * (1-iwet) + achorusr * iwet
xout aout1,aout2
endop
opcode blueEffect1,aa,aa
ain1,ain2 xin
ibpm = 129
inll = 0.8000000119
inlr = 0.6000000238
ifb = 0.5
idell = ( 1/(ibpm/60) * inll )
idelr = ( 1/(ibpm/60) * inlr )
aleft delayr idell
aright delayr idelr
ado1 = aleft + ain1
ado2 = aright + ain2
ado1 lowres ado1, 44.5, 0.3599999845
ado2 lowres ado2, 44.5, 0.3599999845
delayw ado1 * ifb
delayw ado2 * ifb
aout1 = aleft
aout2 = aright
aout1 = ain1 + aout1
aout2 = ain2 + aout2
xout aout1,aout2
endop
opcode blueEffect2,aa,aa
ain1,ain2 xin
aout1, aout2 reverbsc ain1, ain2, 0.5480000377, 9344
aout1 = (ain1 * 0.481000036) + (aout1 * (1 - 0.481000036))
aout2 = (ain2 * 0.481000036) + (aout2 * (1 - 0.481000036))
xout aout1,aout2
endop
opcode blueEffect3,aa,aa
ain1,ain2 xin
ipre = 4.0999999046
ipost = 0.5640000105
ishape1 = 0.8060000539
ishape2 = 0.8060000539
aout1 distort1 ain1, ipre, ipost, ishape1, ishape2
aout2 distort1 ain2, ipre, ipost, ishape1, ishape2
xout aout1,aout2
endop
opcode blueEffect4,aa,aa
ain1,ain2 xin
ibpm = 129
inll = 1.5
inlr = 1.2000000477
ifb = 0.8499999642
idell = ( 1/(ibpm/60) * inll )
idelr = ( 1/(ibpm/60) * inlr )
aleft delayr idell
aright delayr idelr
ado1 = aleft + ain1
ado2 = aright + ain2
ado1 lowres ado1, 44.5, 0.2999999821
ado2 lowres ado2, 44.5, 0.2999999821
delayw ado1 * ifb
delayw ado2 * ifb
aout1 = aleft
aout2 = aright
aout1 = ain1 + aout1
aout2 = ain2 + aout2
xout aout1,aout2
endop
opcode blueEffect5,aa,aa
ain1,ain2 xin
krms1 rms ain1
arms1 upsamp krms1
ithresh = -14
aout1 init 0
aout2 init 0
if 1 == 0 then
aout1 compress ain1, ain1, ithresh, 48, 60, 1.5, 0.0100000007, 0.0800000057, .05
else
aout1 compress ain1, arms1, ithresh, 48, 60, 1.5, 0.0100000007, 0.0800000057, .05
endif
krms2 rms ain2
arms2 upsamp krms2
if 1 == 0 then
aout2 compress ain2, ain2, ithresh, 48, 60, 1.5, 0.0100000007, 0.0800000057, .05
else
aout2 compress ain2, arms2, ithresh, 48, 60, 1.5, 0.0100000007, 0.0800000057, .05
endif
aout1 = aout1 * 1
aout2 = aout2 * 1
;aout1 compress ain1, ain2,
xout aout1,aout2
endop
instr 1 ;Ethereal
icps1 = cpspch(p4)
icps2 = cpspch(p5)
iamp = ampdb(p6)
islide = (p7 / 100) * p3
;AMP envelope
kamp linseg 0, 2.7227252, 1, 0.85473585, 0.830175, p3-2.7227252-0.85473585-3.747671, 0.830175, 3.747671, 0
kpchlin expseg icps1, islide, icps2, 0.01, icps2
if (0 == 0) then
aexc vco2 1, kpchlin
endif
if (0 == 1) then
aexc unirand 1
endif
amix = 0
if (1 == 1) then
ares1 reson aexc, kpchlin * (1 + 0), 30.027718 * 0.6540000439
amix sum amix, ares1
endif
if (1 == 1) then
ares2 reson aexc, kpchlin * (2 + 0), 30.027718 * 0.4850000143
amix sum amix, ares2
endif
if (1 == 1) then
ares3 reson aexc, kpchlin * (3 + 0), 30.027718 * 0.3890000284
amix sum amix, ares3
endif
if (1 == 1) then
ares4 reson aexc, kpchlin * (4 + 0), 30.027718 * 0.3380000293
amix sum amix, ares4
endif
if (1 == 1) then
ares5 reson aexc, kpchlin * (6 + 0), 30.027718 * 0.3380000293
amix sum amix, ares5
endif
if (1 == 1) then
ares6 reson aexc, kpchlin * (9 + 0), 30.027718 * 0.3090000153
amix sum amix, ares6
endif
amix balance amix, aexc
amix = amix * iamp * kamp
ga_bluemix_1_0 = ga_bluemix_1_0 + amix
ga_bluemix_1_1 = ga_bluemix_1_1 + amix
endin
instr 2 ;V20Guranura
iamp = ampdb(55)
iratio = 0.21692649
imode = 1
ipshift = 1
iskip = 1.5
iskipos = 0
ilength = 4
igap = 0
igapos = 0
igsize = 0.25
igsizeos= 20
iatt = 23
idec = 25.2000007629
ipitch1 = 2
ipitch2 = 1.3600000143
ipitch3 = 1.6699999571
ipitch4 = 1.0699999332
kaenv linseg 0, 4.022912, 1, 1.813149, 1.0, p3-4.022912-1.813149-2.030449, 1.0, 2.030449, 0
aout granule iamp*kaenv, 64, iratio, imode, 0, giguranura1, ipshift, iskip,
iskipos, ilength, igap, igapos, igsize, igsizeos, iatt, idec, 0.5, ipitch1, ipitch2, ipitch3, ipitch4
ga_bluemix_2_0 = ga_bluemix_2_0 + aout
ga_bluemix_2_1 = ga_bluemix_2_1 + aout
endin
instr 3 ;June60s
icps = cpspch(p4)
iamp = ampdb(p5)
klfo lfo 1, 0.2599999905, 1
kenv linseg 0, 0.0099999998, 1, 2, 0.1299999952, p3-0.0099999998-2-0.1299999952, 0.1299999952, 2, 0
ksmooth adsr 0.01, 0, 1, 1
klfo delayk klfo, 0.1599999964
;filter envelope scaled to amount
if 0==0 then
;if inversion not checked then normal envelope
kfenv = kenv*1 + (1 - 1)
else
;otherwise inverted
kfenv = (kenv*(-1) + 1)*1 + (1 - 1)
endif
;amp envelope
kaenv = kenv*0.5 + (1 - 0.5)
;filter lfo scaled to amount
kflfo = (klfo*.5+.5)*4185*0.1299999952
;pwm lfo with scaling
if 0==0 then
kpwmlfo = (klfo*0.5 + 0.5)*0.5299999714 + (1 - 0.5299999714)
else
kpwmlfo = (kenv*2)*0.5299999714 + (1 - 0.5299999714)
endif
;dco lfo with scaling
kplfo = (klfo*0.5 + 0.5)*0 + (1 - 0)
;SOUND GENERATOR SECTION
;pulse
apulse vco2 iamp, icps*kplfo, 2, .5*kpwmlfo
;saw
asaw vco2 iamp, icps*kplfo+0.1499999911, 0
;sub oscillator
asub vco2 iamp, icps/2*kplfo, 10
;noise
anoise unirand iamp
;MIXER SECTION
;a mixture of all 4 sound generators
amix = apulse*1 + asaw*1 + asub*1 + anoise*0
;FILTER SECTION
ahp buthp amix, 0
alp moogladder ahp, (4185*kfenv)+kflfo, 0.7599999905
if 1==0 then
alp = (alp * kaenv) * ksmooth
else
alp = alp * ksmooth
endif
ga_bluemix_3_0 = ga_bluemix_3_0 + alp
ga_bluemix_3_1 = ga_bluemix_3_1 + alp
endin
instr 4 ;Blue Mixer Instrument
ga_bluemix_1_0, ga_bluemix_1_1 blueEffect0 ga_bluemix_1_0, ga_bluemix_1_1
ga_bluemix_1_0, ga_bluemix_1_1 blueEffect1 ga_bluemix_1_0, ga_bluemix_1_1
ga_bluemix_1_0, ga_bluemix_1_1 blueEffect2 ga_bluemix_1_0, ga_bluemix_1_1
ga_bluesub_Master_0 sum ga_bluesub_Master_0, ga_bluemix_1_0
ga_bluesub_Master_1 sum ga_bluesub_Master_1, ga_bluemix_1_1
ga_bluemix_2_0, ga_bluemix_2_1 blueEffect3 ga_bluemix_2_0, ga_bluemix_2_1
ga_bluemix_2_0, ga_bluemix_2_1 blueEffect4 ga_bluemix_2_0, ga_bluemix_2_1
ga_bluemix_2_0, ga_bluemix_2_1 blueEffect5 ga_bluemix_2_0, ga_bluemix_2_1
ga_bluesub_Master_0 sum ga_bluesub_Master_0, ga_bluemix_2_0
ga_bluesub_Master_1 sum ga_bluesub_Master_1, ga_bluemix_2_1
ga_bluemix_3_0, ga_bluemix_3_1 blueEffect0 ga_bluemix_3_0, ga_bluemix_3_1
ga_bluesub_Master_0 sum ga_bluesub_Master_0, ga_bluemix_3_0
ga_bluesub_Master_1 sum ga_bluesub_Master_1, ga_bluemix_3_1
ga_bluesub_Master_0 = ga_bluesub_Master_0 * 2.0067811012
ga_bluesub_Master_1 = ga_bluesub_Master_1 * 2.0067811012
outc ga_bluesub_Master_0, ga_bluesub_Master_1
ga_bluemix_1_0 = 0
ga_bluemix_1_1 = 0
ga_bluemix_2_0 = 0
ga_bluemix_2_1 = 0
ga_bluemix_3_0 = 0
ga_bluemix_3_1 = 0
ga_bluesub_Master_0 = 0
ga_bluesub_Master_1 = 0
endin
</CsInstruments>
<CsScore>
t 0 120
i1 0.0 36 8.05 6.05 70 25
i1 0.0 36 8.09 6.09 70 25
i1 0.0 36 9.05 7.05 70 25
i1 0.0 36 9.07 7.07 70 25
i1 0.0 36 10.05 8.05 70 25
i1 0.0 36 10.02 8.02 70 25
i1 80.0 20 7.05 7.05 70 25
i1 80.0 20 7.09 7.09 70 25
i1 80.0 20 8.05 8.05 70 25
i1 80.0 20 8.07 8.07 70 25
i1 80.0 20 9.05 9.05 70 25
i1 80.0 20 9.02 9.02 70 25
i1 112.0 20 7.05 7.05 50 25
i1 112.0 20 7.09 7.09 50 25
i1 112.0 20 8.05 8.05 50 25
i1 112.0 20 8.07 8.07 50 25
i1 112.0 20 9.05 9.05 50 25
i1 112.0 20 9.02 9.02 50 25
i1 32.0 16 7.01 7.01 70 25
i1 96.0 20 7.01 7.01 60 25
i1 96.0 20 7.04 7.04 60 25
i1 96.0 20 8.01 8.01 60 25
i1 96.0 20 8.04 8.04 60 25
i1 96.0 20 9.01 9.01 60 25
i1 96.0 20 9.07 9.07 60 25
i1 48.0 32 7.07 7.05 60 25
i1 48.0 32 7.09 7.07 60 25
i1 48.0 32 8.01 7.09 60 25
i1 48.0 32 8.07 8.07 60 25
i2 32.0 25
i3 112.0 20 6.05 70
i4 0 132
e
</CsScore>
</CsoundSynthesizer>
