; Matthew Hines Csound Project 'Cave Dwellers' / 'подземелье' ; With credit to: Steve Cook's 'Chant' instrument, Csound Catalog and also Risset. ; This was the first piece of music I wrote in Csound. I'm a student in Dr. Boulanger's Csound class, so this piece is now few months old and is really only an exploration of Csound syntax, various opcodes, etc. I intended to use what I knew at that point, which was not much, to create a mysterious soundscape. This I did, and I would love to get feedback on different things you think I should try, and suggestions on how to improve. I will post future compositions here also, as I'm learning a lot from the mailing list and my peers. ; Thank you for your time! ; mhines@berklee.net sr=44100 kr=4410 ksmps=10 nchnls=2 garvb init 0 instr 1 idur = p3 iamp = p4 ifqc = cpspch(p5) igrtab = p6 iwintab = p7 kfrng expseg .2, p3/6*5, 20, p3/6, 23 idens = p9 ifade = p10 igdur = .2 kamp linseg 0, ifade, 1, idur-2*ifade, 1, ifade, 0 kbaboverb = .7 asig1 grain p4, ifqc, idens, 100, ifqc*kfrng, igdur, igrtab, iwintab, 5 asig2 grain p4, ifqc, idens, 100, ifqc*kfrng, igdur, igrtab, iwintab, 5 kfco expon 4000, p3, 30000 kres init .1 aoutl, rezzy asig1, kfco, kres kfco expon 4000, p3, 30000 kres init .1 aoutr, rezzy asig2, kfco, kres aoutf balance aoutl, asig1 aoutb balance aoutr, asig2 outs aoutf*kamp, aoutb*kamp garvb = garvb + ((aoutl+aoutr)*kbaboverb) endin instr verb ix = p4 iy = p5 iz = p6 ixsize = p7 iysize = p8 izsize = p9 ifno = 7 al,ar babo garvb*1, ix, iy, iz, ixsize, iysize, izsize outs al,ar garvb = 0 endin instr 3 idur = p3 ia = p6 ib = p7 ic = p8 id = p9 ie = p10 ipan = p11 ifq = p4 ioff1 = p5 ioff2 = 2*p5 ioff3 = 3*p5 ioff4 = 4*p5 kbaboverb = .9 ae linseg p6, idur/5, p7, idur/5, p8, idur/5, p9, idur/5, p10 a1 oscili ae, ifq, 1 a2 oscili ae, ifq+ioff1, 1 a3 oscili ae, ifq+ioff2, 1 a4 oscili ae, ifq+ioff3, 1 a5 oscili ae, ifq+ioff4, 1 a6 oscili ae, ifq-ioff1, 1 a7 oscili ae, ifq-ioff2, 1 a8 oscili ae, ifq-ioff3, 1 a9 oscili ae, ifq-ioff4, 1 asig = a1+a2+a3+a4+a5+a6+a7+a8+a9 outs asig*ipan, asig*(1-ipan) garvb = garvb + ((a1+a2+a3+a4+a5+a6+a7+a8+a9)*kbaboverb) endin f1 0 2048 10 .3 0 0 0 .1 .1 .1 .1 .1 .1 f2 0 1024 11 5 f4 0 2048 7 0 512 1 512 0 f5 0 2048 10 1 .3 .1 0 .2 .02 0 .1 .04 f7 0 2048 2 .99 .1 0,0,0 .3 .5 .8 t 0 60 0 i1 0 60 200 5.1 4 5 .2 500 2 iverb 0 80 10 6 4 3 14.39 11.86 i3 0 60 65 .02 0 25 600 1600 150 0 i3 0 . 90 .05 0 . . . . 0 i3 30 30 110 .025 25 250 . 350 . 0 i3 40 20 55 .01 . . . . . 0 e 70 Version: 3 Render: Real Ask: Yes Functions: ioObject Listing: Window WindowBounds: 1038 63 200 552 CurrentView: io IOViewEdit: On Options: -b128 -A -s -m167 -R ioView background {32125, 41634, 41120} ioSlider {8, 7} {20, 98} 0.000000 1.000000 0.244898 amp ioSlider {34, 6} {239, 22} 100.000000 1000.000000 156.485356 freq ioGraph {8, 112} {265, 116} table 0.000000 1.000000 ioListing {8, 234} {266, 158} ioText {34, 37} {41, 24} label 0.000000 0.00100 "" left "Lucida Grande" 8 {0, 0, 0} {65280, 65280, 65280} background noborder Amp: ioText {74, 37} {70, 24} display 0.000000 0.00100 "amp" left "Lucida Grande" 8 {0, 0, 0} {65280, 65280, 65280} background noborder 0.2653 ioText {35, 67} {41, 24} label 0.000000 0.00100 "" left "Lucida Grande" 8 {0, 0, 0} {65280, 65280, 65280} background noborder Freq: ioText {75, 67} {69, 24} display 0.000000 0.00100 "freq" left "Lucida Grande" 8 {0, 0, 0} {65280, 65280, 65280} background noborder 156.4854 ioText {152, 34} {119, 69} label 0.000000 0.00100 "" left "Lucida Grande" 8 {0, 0, 0} {65280, 65280, 65280} nobackground border ioText {169, 72} {78, 24} display 0.000000 0.00100 "freqsweep" center "DejaVu Sans" 8 {0, 0, 0} {14080, 31232, 29696} background border 999.6769 ioButton {160, 37} {100, 30} event 1.000000 "Button 1" "Sweep" "/" i1 0 10