;========== ;inner light ;barry threw ;2003 ;========== sr = 44100 kr = 44100 ksmps = 1 nchnls = 2 ;instr modified from csound book instr 210 ;addition of panning and reverberation instr 1 kenv linen p4,.02,p3,.02 kxtrans line p5,p3,p6 kxamp line p7,p3,p8 kxamp = kxamp*.5 kxfreq line p9,p3,p10 kxndx oscil3 kxamp,kxfreq,p11 kxndx = frac(kxndx+1000.5+kxtrans) kytrans line p12,p3,p13 kyamp line p14,p3,p15 kyamp = kyamp*.5 kyfreq line p16,p3,p17 kyndx oscil3 kyamp,kyfreq,p18 kyndx = frac(kyndx+1000.5+kytrans) ax table3 kxndx,p19,1,0,0 ay table3 kyndx,p20,1,0,0 kenv2 expseg 0.001, .10 * p3, 1, .8 * p3, 1, .1 * p3, 0.001 az = (ax*ay)*kenv*kenv2 a1 butterlp az, 4000 asig butterlp a1, 4000 adel delayr 1.0 adel1 deltap3 .095310 adel2 deltap3 .182321 adel3 deltap3 .262364 adel4 deltap3 .336472 adel5 deltap3 .405465 adel6 deltap3 .470003 adel7 deltap3 .530628 adel8 deltap3 .587786 adel9 deltap3 .641853 adel10 deltap3 .693147 delayw asig * .30 asig1 alpass adel1, 1, 0.10 asig2 alpass adel2, 1.1, 0.10 asig3 alpass adel3, 1.2, 0.10 asig4 alpass adel4, 1.3, 0.10 asig5 alpass adel5, 1.5, 0.10 asig6 alpass adel6, 1, 0.10 asig7 alpass adel7, 1.1, 0.10 asig8 alpass adel8, 1.2, 0.10 asig9 alpass adel9, 1.3, 0.10 asig10 alpass adel10, 1.5, 0.10 aoutl = asig1 + asig3 + asig5 + asig7 + asig9 aoutr = asig2 + asig4 + asig6 + asig8 + asig10 aoutl nreverb aoutl, 1, .6 aoutr nreverb aoutr, 1, .6 kpan linseg 0, p3, 1 knpan = 1-kpan outs (kpan * asig * .69) + (aoutl * 0.29), (knpan * asig * .69) + (aoutr * 0.29) endin f 01 0 65537 7 -1 65536 1 ;PHASOR FROM -1 TO +1 f 02 0 65536 10 1 .43 0 .25 .33 .11 0 .75 f 03 0 65536 10 0 0 1 ;p4 = amp ;p5-6 = xtrans: init-final ;p7-8 = xoscil amp: init-final ;p9-10 = xoscil freq: init-final ;p11 = x index fn ;p12-13 = ytrans: init-final ;p14-15 = yoscil amp: init-final ;p16-17 = yoscilfreq: init-final ;p18 = y index fn ;p19 = x plane fn table ;p20 = y plane fn table ;1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 i1 0 240 10000 -.5 .5 .1 10 60 110 1 -.3 3 3 1 110 10 1 2 3 Version: 2 Render: File Ask: Yes Functions: ioObject Options: -b64 -W -o/Users/barry/Desktop/InnerLight.wav -s -m7 -Z -R -Lstdin ioView nobackground {65535, 65535, 65535} ioListing {10, 10} {400, 500} ioGraph {456, 11} {300, 500}