1;Csound_Scelsi 2;Alfonso Peduto 2012 3 4<CsoundSynthesizer> 5 6<CsOptions> 7-d -g 8</CsOptions> 9 10<CsInstruments> 11sr = 44100 12ksmps = 32 13nchnls = 2 140dbfs = 1 15 16iwave ftgen 1, 0, 4096, 10, 1, .5, .33, .25, .0, .1, .1, .1 17 18gasendL init 0 19gasendR init 0 20 21turnon "reverber" 22turnon "generate1" 23turnon "generate2" 24turnon "generate3" 25turnon "generate4" 26 27 28seed 0 29 30;3-notes, medium-low velocity, low to medium frequencies 31instr generate1 32 33ininstr = 3 34indx = 0 35 36loop: 37ivel random 30, 50 38ifreq random 48, 80 39idur random 30, 40 40 41event_i "i", "strings", 0+rnd(6), idur, ifreq, ivel 42event_i "i", "strings", 60+rnd(10), idur, ifreq, ivel 43loop_lt indx, 1, ininstr, loop 44 45endin 46 47 48;6-note cluster background, low velocity, low frequencies 49instr generate2 50 51ininstr = 6 52indx = 0 53 54loop: 55ivel random 0, 30 56ifreq random 30, 60 57idur random 60, 100 58 59event_i "i", "strings", 20+rnd(12), idur, ifreq, ivel 60event_i "i", "strings", 90+rnd(12), idur, ifreq, ivel 61event_i "i", "strings", 225+rnd(12), idur, ifreq, ivel 62loop_lt indx, 1, ininstr, loop 63 64endin 65 66 67;sharp attacks, high velocity, short durations 68instr generate3 69 70ininstr = 15 71indx = 0 72 73loop: 74ivel random 90, 110 75ifreq random 48, 80 76idur random 0.07, 0.6 77 78event_i "i", "strings", 120+rnd(50), idur, ifreq, ivel 79loop_lt indx, 1, ininstr, loop 80 81endin 82 83 84;7-notes cluster background, high frequency, low velocity 85instr generate4 86 87ininstr = 7 88indx = 0 89 90loop: 91ivel random 0, 35 92ifreq random 60, 90 93idur random 40, 80 94 95event_i "i", "strings", 180+rnd(8), idur, ifreq, ivel 96loop_lt indx, 1, ininstr, loop 97 98endin 99 100 101 102instr strings 103;Main 104kdtn jspline 0.05, 0.4, 0.8 105inote = cpsmidinn(p4) 106kcps transeg inote, p3*0.3, 2, inote -rnd(8) , p3*0.3 , 2 , inote +rnd(9), p3*0.4, 2, inote-rnd(2) 107iamp = (p5/127)/4 108kctrl linseg 0, p3*0.80, iamp, p3*0.20, 0 109amain oscil kctrl, kcps*semitone(kdtn), 1 110aflat oscil kctrl, kcps - .25, 1 111asharp oscil kctrl, kcps + .25, 1 112asig = amain + asharp + aflat 113 114;LPF 115asig butterlp asig, (p5)*10 116 117;Panning 118kpan rspline 0,1,0.01,2 119a1, a2 pan2 asig, kpan 120 outs a1, a2 121 122gasendL = gasendL+a1 123gasendR = gasendR+a2 124endin 125 126 127 instr reverber 128aL, aR reverbsc gasendL,gasendR,0.85,10000 129 outs aL, aR 130 clear gasendL, gasendR 131 endin 132 133</CsInstruments> 134 135<CsScore> 136f 0 4000 137</CsScore> 138</CsoundSynthesizer> 139<bsbPanel> 140 <label>Widgets</label> 141 <objectName/> 142 <x>100</x> 143 <y>100</y> 144 <width>320</width> 145 <height>240</height> 146 <visible>true</visible> 147 <uuid/> 148 <bgcolor mode="nobackground"> 149 <r>255</r> 150 <g>255</g> 151 <b>255</b> 152 </bgcolor> 153</bsbPanel> 154<bsbPresets> 155</bsbPresets> 156