; A Csound Halloween Part 1 ; 1. Wind ; 2. Wolf Howl ; 3. Thunder ; 4. Pipe Organ ; 5. Creaking Door ; 6. Church Bell ; 7. Moaning ; 8. Bubbling Cauldron ; 9. Big Metal Door Slam ;10. Electric Zap (Mandelbrot Set) ;11. Ghosties 1 ;12. Ghosties 2 ;13. Electronic Noises * ;14. Scurrying Rats * ;15. Fluttering Bats * ;16. Ghosts * ;17. Chains * ;18. Thumping * ;19. Screams * ;* Not Implemented Yet ;* Suggested Music (Not Implemented) ;Bach's Tocatta and Fugue in Dm (Intro) ;Mugorski's Night on Bald Mountain * ;Dance Macabre * ;The Cat Came Back * sr=44100 kr=22050 ksmps=2 nchnls=2 zakinit 30, 30 ; These are for Lyon's reverb gifeed init .5 gilp1 init 1/10 gilp2 init 1/23 gilp3 init 1/41 giroll init 3000 ; Wind instr 1 idur = p3 iamptab = p4 ifq1tab = p5 ifq2tab = p6 ipantab = p7 kamp oscil 1, 1/idur, iamptab kfq1 oscil 1, 1/idur, ifq1tab kfq2 oscil 1, 1/idur, ifq2tab kpan oscil 1, 1/idur, ipantab anoise rand kamp ares1 reson anoise, kfq1, kfq1/20 ares2 reson anoise, kfq2, kfq2/2 abal1 balance ares1, anoise abal2 balance ares2, anoise outs (abal1+abal2)*kpan, (abal1+abal2)*(1-kpan) endin ; Wolf Howl instr 2 idur = p3 iamp = p4 ifqtab = p5 ifrmtab= p6 ipan = p7 ifco = p8 ; k2 linseg .5, idur*.1, 0, idur*.9, 0 ; octaviation coefficient k2 init 0 kfqci oscil 1, 1/idur, ifqtab kfqc2 linseg 0, .1, .8, .1, 1, idur-.1, 1 kamp linseg 0, .01, iamp, .05, iamp*2, .1, iamp, idur-.17, iamp*.1, .01, 0 krnamp linseg .05, .05, 3.5, .15, .05, .5, 0, .01, 0 krnd randh krnamp*kfqci/4, 5000 kfqc = kfqci*kfqc2+(krnd+krnamp*kfqci/8) kfq1 oscil 1, 1/idur, ifrmtab kfa1 oscil 1, 1/idur, ifrmtab+1 kfq2 oscil 1, 1/idur, ifrmtab+2 kfa2 oscil 1, 1/idur, ifrmtab+3 kfq3 oscil 1, 1/idur, ifrmtab+4 kfa3 oscil 1, 1/idur, ifrmtab+5 kfq4 oscil 1, 1/idur, ifrmtab+6 kfa4 oscil 1, 1/idur, ifrmtab+7 kfq5 oscil 1, 1/idur, ifrmtab+8 kfa5 oscil 1, 1/idur, ifrmtab+9 kfqc3 = kfqc*.7 ; xamp xfund xform koct kband kris kdur kdec iolaps ifna ifnb idur a1 fof kfa1, kfqc3, kfq1, k2, 400, .003, .017, .005, 20, 1, 19, idur, 0, 1 a2 fof kfa2, kfqc, kfq2, k2, 200, .003, .017, .005, 20, 1, 19, idur, 0, 1 a3 fof kfa3, kfqc, kfq3, k2, 200, .003, .017, .005, 20, 1, 19, idur, 0, 1 a4 fof kfa4, kfqc, kfq4, k2, 200, .003, .017, .005, 20, 1, 19, idur, 0, 1 a5 fof kfa5, kfqc, kfq5, k2, 200, .003, .017, .005, 20, 1, 19, idur, 0, 1 a6 = (a1/3 + a2 + a3 + a4 + a5) * kamp a7 tone a6, ifco outs a7*ipan, a7*(1-ipan) endin ; Thunder instr 3 idur = p3 iamp = p4 ifqc = p5 ifco = p6 iatk = p7 ipanl = p8 ipanr = 1-p8 aop4 init 0 kamp linseg 0, .001, iamp, idur-.002, iamp, .001, 0 kamp1 linseg 0, .01*iatk, 1, .2*idur-.01*iatk, .8, .8*idur, 0 kamp2 linseg 0, .01*iatk, 1, .2*idur-.01*iatk, .8, .8*idur, 0 kamp3 linseg 0, .01*iatk, 1, .2*idur-.01*iatk, .8, .8*idur, 0 kamp4 linseg 0, .01*iatk, 1, .2*idur-.01*iatk, .8, .8*idur, 0 kfqc randh ifqc, 200 aop4 oscil 10*kamp4, 3*(1+.8*aop4)*kfqc, 1 aop3 oscil 20*kamp3, .5*(1+aop4)*kfqc, 1 aop2 oscil 16*kamp2, 5.19*kfqc, 1 aop1 oscil 2*kamp1, .5*(1+aop2+aop3)*kfqc, 1 afilt tone aop1, ifco aout balance afilt, aop1 outs aout*kamp*ipanl, aout*kamp*ipanr ; gain1 = gain1+aout*kamp*ipanl ; gain2 = gain2+aout*kamp*ipanr endin ; Pipe Organ instr 4 idur = p3 iamp = p4 ifqc = cpspch(p5) ipanl = p6 ipanr = 1-p6 ioutch1 = p7 ioutch2 = p8 iatk = 10 iop1f = ifqc iop2f = 2.01*ifqc iop3f = 3.99*ifqc iop4f = 8*ifqc iop5f = .5*ifqc iop7f = 16*ifqc kdclick linseg 0, .001, iamp, idur-.002, iamp, .001, 0 kamp1 linseg 0, .01, 1, idur-.02, 1, .01, 0 kamp2 linseg 0, .05, 1, .1, .7, idur-.16, .7, .01, 0 kamp3 linseg 0, .03, .8, .05, 0, .01, 0 kamp4 linseg 0, .1, .3, .1, .05, idur-.3, .1, .1, 0 aop8 oscil kamp4, iop5f, 1 ap1 = aop8+1 aop1 oscil kamp1, ap1*iop1f, 1 aop2 oscil kamp2, ap1*iop2f, 1 aop3 oscil kamp2, iop3f, 1 aop4 oscil kamp2, iop4f, 1 aop5 oscil kamp3, iop5f*5, 1 ;aop6 oscil kamp2, iop5f+aop5*ifqc, 1 aop7 oscil kamp2, iop7f, 1 aout = aop1 + aop2 + aop3 + aop4 + aop5 + aop7 outs aout*kdclick*ipanl, aout*kdclick*ipanr zawm aout*kdclick*ipanl, ioutch1 zawm aout*kdclick*ipanr, ioutch2 endin ; Creaking Door instr 5 idur = p3 iamp = p4 ifqc = p5 ifqtab = p6 iwave = p7 ipantab = p8 iamptab = p9 ;ioutch1 = p10 ;ioutch2 = p11 ifq1 = 2000 koct linseg 2, idur*.1, 0, idur*.4, 0, idur*.5, 2 ; octaviation coefficient kfqci oscil ifqc, 1/idur, ifqtab kpan oscil 1, 1/idur, ipantab kamp oscil 1, 1/idur, iamptab kdclick linseg 0, .01, iamp, idur-.02, iamp, .01, 0 ; xamp xfund xform koct kband kris kdur kdec iolaps ifna ifnb idur a1 fof 1, kfqci, ifq1, koct, 400, .003, .017, .005, 20, iwave, 19, idur, 0, 1 ; zawm a1*kdclick*kpan*kamp, ioutch1 ; zawm a1*kdclick*(1-kpan)*kamp, ioutch2 outs a1*kpan*kdclick*kamp, a1*(1-kpan)*kdclick*kamp endin ; Church Bell instr 6 idur = p3 iamp = p4 ifqc = cpspch(p5) ipanl = p6 ipanr = 1-p6 ioutch1 = p7 ioutch2 = p8 aop4 init 0 kamp linseg 0, .001, iamp, idur-.002, iamp, .001, 0 kamp1 linseg 0, .01, 1, .3, .6, idur-.51, .4, .2, 0 kamp2 linseg 0, .01, 1, .4, .3, .4, .1, idur-.81, 0 kamp3 linseg 0, .01, 1, .1, .6, .4, .4, .4, .1, idur-.91, 0 klfo oscil 1, .5, 1, .5 kfqc=ifqc + klfo ;aop3 oscil 9*kamp3, 3.14*kfqc, 1 aop3 oscil 2*kamp3, 3.14*kfqc, 1 aop2 oscil .2*kamp2, .78*kfqc, 1 aop1 oscil kamp1, (1+aop2+aop3)*kfqc, 1 aout = aop1 outs aout*kamp*ipanl, aout*kamp*ipanr zawm aout*kamp*ipanl, ioutch1 zawm aout*kamp*ipanr, ioutch2 endin ; Moaning instr 7 idur = p3 iamp = p4 ifqc = p5 ifqtab = p6 iwave = p7 ipantab = p8 iamptab = p9 ifq1 = 400 ifq2 = 770 ifq3 = 1090 ifq4 = 1440 ;koct linseg 2, idur*.1, 0, idur*.4, 0, idur*.5, 2 ; octaviation coefficient koct = 0 kfqci oscil ifqc, 1/idur, ifqtab kpan oscil 1, 1/idur, ipantab kamp oscil 1, 1/idur, iamptab kdclick linseg 0, .01, iamp, idur-.02, iamp, .01, 0 ; xamp xfund xform koct kband kris kdur kdec iolaps ifna ifnb idur a1 fof 1, kfqci, ifq1, koct, 10, .025, .15, .005, 800, iwave, 19, idur, 0, 1 a2 fof .9, kfqci, ifq2, koct, 200, .025, .17, .005, 10, iwave, 19, idur, 0, 1 a3 fof .7, kfqci, ifq3, koct, 200, .025, .17, .005, 10, iwave, 19, idur, 0, 1 a4 fof .8, kfqci, ifq4, koct, 200, .025, .17, .005, 10, iwave, 19, idur, 0, 1 aout = a1+a2+a3+a4 outs aout*kpan*kdclick*kamp, aout*(1-kpan)*kdclick*kamp endin ;Bubbling Cauldron from CubeWater , variation on Kim Cascone's Water by Eloy Anzola instr 8 igain = p4 ifreq = p5 ;must be values < or close to 1, controls pitch krt = p6 ;this is the frq of the randh output & clk osc ipantab = p7 ksh randh 5000, krt a2 oscil 2, 100, 1 ;sine osc (f1) controlled by S&H ksh = ksh * ifreq ;* .5 a4 reson a2,ksh,50 ;filter with s&h controling the Fco a3 oscil a4,1/p3,13 ;a3 is the output f13 ADSR a3 = a3 * igain kpan oscil 1,.14, ipantab aoutl = a3 * (1-kpan) aoutr = a3 * kpan outs aoutl,aoutr endin ; Reverb & Delay by Eloy Anzola ; BigDoor by Hans Mikelson instr 9 igain = p4 irvt = p5 ifrq = p6 ifeedb = p7 ilenght = p8 ishfqc = p9 ifco = p10 iatk = p11 ipan = p12 kampenv linseg 0, iatk, 10000, .05, 0, .01, 0 kfco linseg 8000, p3, 200 kdclick linseg 0, .001, 1, p3-.002, 1, .001, 0 ainsigl randh kampenv,ishfqc ainfl tone ainsigl,ifco ainsigr randh kampenv,ishfqc ainfr tone ainsigr,ifco a1l alpass ainfl, ifeedb, ilenght * 1.5 ; Different time settings for left and right a2l reverb2 ainfl, irvt, ifrq abkl = (a1l * .7 + a2l * .5 ) * igain a1r alpass ainfr, ifeedb, ilenght a2r reverb2 ainfr, irvt * 1.2, ifrq abkr = (a1r * .7 + a2r * .5 ) * igain afltl butterhp abkl, 10 asigl butterlp afltl, kfco afltr butterhp abkr, 10 asigr butterlp afltr, kfco outs asigl*kdclick*ipan, asigr*kdclick*(1-ipan) endin ; Electric Zap based on the Mandelbrot Set instr 10 idur = p3 iamp = p4 ifqc = cpspch(p5) kxtrace init p6 kytrace init p7 kxstep init p8 kystep init p9*ifqc/55 ilpmax init p10 ipan init p11 kclk init 1 aout2 init 0 kcntold init 0 kdy init 1 kfco linseg 200, idur*.3, 5000, idur*.2, 300, idur*.2, 1000, idur*.3, 10000 kclkold = kclk kclk oscil 1, ifqc, 9 kdclick linseg 0, .002, iamp, idur-.002, iamp, .002, 0 kcount = 0 kx = 0 ky = 0 mandloop: ; Iteration for calculating the Mandelbrot Set. kxx = kx*kx-ky*ky+kxtrace kyy = 2*kx*ky+kytrace kx = kxx ky = kyy kcount = kcount + 1 if ((kx*kx+ky*ky<4) && (kcount