/* This is my first Csound track, written for Dr Boulanger's Csound course in Berklee. Its a modification of my original 1 minute composition for class. Its simpler than the original, but it works better musically. marteroel@gmail.com */ sr = 44100 kr = 4410 ksmps = 10 nchnls = 2 garvb init 0 gacmb init 0 instr 1 ;BUZZs idur = p3 iamp = p4 ifreq = p5 ifun = p6 iatk = p7 irel = p8 ibuzzi = p9 ibuzzo = p10 irvbsnd = .25 kbuzz expon ibuzzi, p3, ibuzzo kenv linen p4, p7, p3, p8 a1 buzz kenv, ifreq+.09,kbuzz, ifun a2 buzz kenv, ifreq-.1, kbuzz, ifun a3 buzz kenv, ifreq, kbuzz, ifun acomb comb a1+a2+a3, 5, .01 asig = a2+a3+a1+acomb out a2+a3+a1+acomb, asig/4 garvb = garvb+(asig*irvbsnd) endin instr 2; Propeller Noise idur = p3 iamp = p4 iatk = p5 irel = p6 kenv linen p4, p5, p3, p6 a1 rand kenv a2 oscil 1, 10, 1 a3 oscil 1*a2, 13, 1 out a1*a3, a1*a3 endin instr 3; Propeller Noise 2 idur = p3 iamp = p4 iatk = p5 irel = p6 ;icf = p7 ;ibw = p8 irvbsnd = 0 kenv linen p4, p5, p3, p6 a1 rand kenv a2 oscil 1, 10, 1 a3 oscil 1*a2, 13, 1 asig = a1*a3 garvb = asig ;garvb = garvb+(asig*irvbsnd) ;afilt reson a1, icf, ibw out asig, asig endin instr 4 ;zap noise idur = p3 iamp = p4 iatk = p5 irel = p6 kenv linen p4, p5, p3, p6 a1 rand kenv afilter reson a1, 8000, 400 out afilter, afilter endin instr 5 ;bass notes idur = p3 iamp = p4 iatk = p6 irel = p7 kenv linen p4, p6, p3, p7 a1 oscil kenv, p5, 1 a2 oscil kenv, p5+ 0.1, 1 out a1+a2, a1+a2 endin instr 6;Harmonies irvbsnd = p11 icmbsnd = p12 k1 linen p4, p7, p3, p8 k2 expon p9, p3, p10 a1 buzz k1/2, p5, k2+1, p6; p4 amp, p5 freq, p6 n harmonics,p7 waveshape a2 buzz k1/2, p5-.1, k2+1, p6; p4 amp, p5 freq, p6 n harmonics,p7 waveshape a3 buzz k1/2, p5+.1, k2+1, p6; p4 amp, p5 freq, p6 n harmonics,p7 waveshape asig = (a1+a2+a3)/2 out asig, asig garvb = garvb+(asig*irvbsnd) gacmb = gacmb+(asig*icmbsnd) endin instr 7 idur = p3 iamp = p4 ifrq = p5 iatk = p6 irel = p7 icut1 = p8 icut2 = p9 kenv linen iamp, iatk, idur, irel kcut expon icut1, idur, icut2 anoise rand ifrq afilt4 tone anoise, kcut afilt3 tone afilt4, kcut afilt2 tone afilt3, kcut afilt1 tone afilt2, kcut asig = afilt1*kenv out afilt1*kenv, afilt1*kenv garvb = garvb + (asig*.1) ;dispfft afilt1, idur, 4096 endin instr 198 ; COMB idur = p3 itime = p4 iloop = p5 kenv linen 1, .01, idur, .01 acomb comb gacmb, itime, iloop, 0 outs acomb*kenv, acomb*kenv gacmb = 0 endin instr 199 ; REVERB idur = p3 irvbtim = 7 ;p4 ihiatn = 100 ;p5 arvb reverb garvb, irvbtim outs arvb, arvb garvb = 0 endin f 1 0 4096 10 1 f 2 0 4096 10 1 t 0 60 i 199 0 85 i 198 0 85 20 .25 ; p4 amp, p5 freq, fn atk rel nharm1, nharm2 i 6 0 8 4000 110 2 3 2 10 12 .8 .4 i . . . 4000 103.4 . 5 . 5 7 .8 .6 i . . . 4000 277.18 . 4 . 5 7 .8 .6 i . . . 4000 330 . 2.5 . 3 8 .8 .8 i . . . 4000 440 . 3.1 . 8 3 . .5 i . 9 8 5000 97.99 . 1 1 1 5 1 .5 i . . . 4000 146.83 . 2 1 8 1 1 . i . . . 4000 184.99 . 2 1 3 1 1 . i . . . 6000 493.88 . 2 1 3 1 1 . i . 17 8 5000 65.4 1 3 1 1 6 i . . . 6000 164.8 1 4 3 7 5 i . . . 6000 195.99 1 2.8 2 5 2 i . . . 6000 523.25 1 2.3 1 1 4 i . 25 8 6000 77,78 1 3 2 10 1 i . . . 6000 195.99 1 2 2 7 2 i . . . 5000 311.12 1 2 2 3 4 i . . . 5000 466.16 1 4 2 5 5 i . . 2 5000 293.66 3 5 i . 33 8 4000 110 1 1 1 10 4 i . . . 4000 277.18 1 1 1 5 3 i . . . 5000 330 1 1 1 3 7 i . . . 6000 440 1 3 .5 8 1 i . 41 8 6000 97.99 1 .3 1 1 2 i . . . 4000 146.83 1 .5 2 8 3 i . . . 4000 184.99 1 .7 1 3 4 i . . . 5000 493.88 1 1 2 3 5 i . 49 8 6000 65.4 1 1 3 1 6 i . . . 6000 164.8 1 3 3 7 5 i . . . 6000 195.99 1 2 2 5 4 i . . . 4000 523.25 1 1 1 1 3 i . 57 8 5000 77,78 1 .2 1 10 2 i . . . 5000 195.99 1 .2 1 7 6 i . . . 5000 311.12 1 .2 1 3 4 i . . . 4000 466.16 1 .2 .5 5 4 i . . 2 4000 293.66 1 .2 .5 3 2 ;ins start dur amp ifrq atk rel cut1 cut2 i 7 25 1 1 20000 .01 .01 7000 40 i 7 25.5 .5 . . . . > i 7 26 . . . . . . i 7 26.5 . . . . . . i 7 27 1 1 20000 .01 .01 . . i 7 27.5 .5 . . . . . i 7 28 . . . . . . i 7 28.5 . . . . . 20 i 7 29 1 1 20000 .01 .01 8000 40 i 7 29.5 .5 . . . . > i 7 30 . . . . . . i 7 30.5 . . . . . . i 7 31 1 1 20000 .01 .01 . . i 7 31.5 .5 . . . . . i 7 32 . . . . . . i 7 32.5 . . . . . 20 i 7 33 1 1 20000 .01 .01 9000 40 i 7 33.5 .5 . . . . > i 7 34 . . . . . . i 7 34.5 . . . . . . i 7 35 1 1 20000 .01 .01 . . i 7 35.5 .5 > . . . . i 7 36 . . . . . . i 7 36.5 . .1 . . . 20 i 7 37 1 1 20000 .01 .01 7000 40 i 7 37.5 .5 . . . . > i 7 38 . . . . . . i 7 38.5 . . . . . . i 7 39 1 1 20000 .01 .01 . . i 7 39.5 .5 . . . . . i 7 40 . . . . . . i 7 40.5 . . . . . 20 i 7 41 1 1 20000 .01 .01 8000 40 i 7 41.5 .5 . . . . > i 7 42 . . . . . . i 7 42.5 . . . . . . i 7 43 1 1 20000 .01 .01 . . i 7 43.5 .5 . . . . . i 7 44 . . . . . . i 7 44.5 . . . . . 20 i 7 45 1 1 20000 .01 .01 9000 40 i 7 45.5 .5 . . . . > i 7 46 . . . . . . i 7 46.5 . . . . . . i 7 47 1 1 20000 .01 .01 . . i 7 47.5 .5 . . . . . i 7 48 . . . . . . i 7 48.5 . . . . . 20 i 7 49 1 1 20000 .01 .01 . . i 7 49.5 .5 . . . . . i 7 50 . . . . . . i 7 50.5 . . . . . 20 i 7 51 1 1 20000 .01 .01 8000 40 i 7 51.5 .5 . . . . > i 7 52 . . . . . . i 7 52.5 . . . . . . i 7 53 1 1 20000 .01 .01 . . i 7 53.5 .5 . . . . . i 7 54 . . . . . . i 7 54.5 . . . . . 20 i 7 55 1 > 20000 .01 .01 9000 40 i 7 55.5 .5 . . . . > i 7 56 . . . . . . i 7 56.5 . . . . . . i 7 57 1 . 20000 .01 .01 . . i 7 57.5 .5 . . . . . i 7 58 . . . . . . i 7 58.5 . .001 . . . 20 Version: 3 Render: Real Ask: Yes Functions: ioObject Listing: Window WindowBounds: 1103 46 200 656 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.367347 amp ioSlider {34, 6} {239, 22} 100.000000 1000.000000 100.000000 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.4184 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 427.6151 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