1<CsoundSynthesizer> 2 3; Id: G01.CSD mg (2006, rev.2009) 4; author: marco gasperini (marcogsp at yahoo dot it) 5 6; G.M. Koenig 7; ESSAY (1957) 8 9<CsOptions> 10-W -f -oG01.wav 11</CsOptions> 12 13<CsInstruments> 14 15sr = 192000 16kr = 192000 17ksmps = 1 18nchnls = 1 19 20 21;============================================= 22; SINUS TONES (S) 23;============================================= 24 instr 1 25iamp = ampdb(90+p4) 26ifreq = p5 27 28a1 oscili iamp , ifreq , 1 29aenv expseg .001 , .005, 1 , p3-.01 ,1, .005,.001 30 31aout = a1 * aenv 32 33 out aout 34 endin 35;============================================= 36 37;============================================= 38; FILTERED NOISE (N) 39;============================================= 40 instr 2 41iamp = ampdb(90+p4) 42ifreq = p5 43ibw = ifreq * .05 ; filtered noise's bandwidth 5% of central frequency 44 45a1 rnd31 iamp , 1 46k1 rms a1 47 48afilt butterbp a1 , ifreq , ibw 49afilt butterbp afilt , ifreq , ibw 50 51aenv expseg .001 , .005, .8 , p3-.01 ,.8 ,.005,.001 52 53aout gain afilt , k1 54aout = aout * aenv 55 56 out aout 57 endin 58;============================================= 59 60;============================================= 61; FILTERED IMPULSES (I) 62;============================================= 63 instr 3 64iamp = ampdb(86+p4) 65ifreq = p5 66ibw = ifreq * .01 ; filtered pulse's bandwidth 1% of central frequency 67 68if1 = ifreq-(ibw/3) 69if2 = ifreq+((2*ibw)/3) 70 71 72a1 mpulse iamp , 0 73 74afilt atonex a1 , if1 , 2 75afilt tonex afilt*800 , if2 , 2 76afilt butterbp afilt*340 , ifreq , ibw*.05 77 78 79aenv linseg 1 , p3-.01, 1 , .01 , 0 80 81aout = afilt * aenv 82 83 out aout*(sr/192000) 84 endin 85;============================================= 86</CsInstruments> 87<CsScore> 88;functions-------------------------------------------------- 89f1 0 8192 10 1 ; sinusoid 90;/functions-------------------------------------------------- 91 92t0 4572 ; 76.2 cm/sec. tape speed (durations in cm) 93 94;test-------------------------------------------------- 95;mute------------------------------------------------- 96q 1 0 1 97q 2 0 1 98q 3 0 1 99;/mute------------------------------------------------- 100;/test------------------------------------------------- 101 102;================================================== 103; 170. MATERIAL G 104; 171. total length: 1298.5 cm, 10 sections 105; 106; length sequence 107; 38.7 cm (4) 108; 440.5 cm (10) 109; 58 cm (5) 110; 11.4 cm (1) 111; 17.2 cm (2) 112; 130.5 cm (7) 113; 87 cm (6) 114; 25.8 cm (3) 115; 293.6 cm (9) 116; 195.8 cm (8) 117;================================================== 118 119;==================================171.1 120; 38.7 cm 9/8 121;--------------------------------------- 122; p4 p5 123; iamp ifreq 124; [dB] [Hz] 125i1 0 5.6 0 3200 ; S 126i1 + 4.9 0 2691 ; S 127i1 + 3.5 0 2263 ; S 128i1 + 7 -.5 3064 ; S 129i1 + 6.3 -.2 2577 ; S 130i1 + 3.9 0 1903 ; S 131i1 + 3.1 0 2167 ; S 132i1 + 4.4 0 1600 ; S 133s 134t0 4572 135;==================================171.2 136; 440.5 cm 3/2 137;--------------------------------------- 138i1 0 152.8 -6 2934 ; S 139i1 + 101.9 -6 1822 ; S 140i1 + 30.2 -5 2467 ; S 141i1 + 13.4 0 1345 ; S 142i1 + 8.9 0 1532 ; S 143i1 + 45.3 -1 2075 ; S 144i1 + 20.1 -.7 1745 ; S 145i3 372.6 67.9 -2 1131 ; I 146s 147t0 4572 148;==================================171.3 149; 58 cm 8/7 150;--------------------------------------- 151i1 0 9.6 -.3 1288 ; S 152i1 + 8.4 -1 2810 ; S 153i1 + 5.7 0 1467 ; S 154i1 + 4.3 0 2363 ; S 155i1 + 11.1 -.5 1083 ; S 156i1 + 6.5 0 1987 ; S 157i1 + 5 0 951 ; S 158i1 + 7.4 -.7 1233 ; S 159s 160t0 4572 161;==================================171.4 162; 11.4 cm 12/11 163;--------------------------------------- 164i1 0 1.3 0 1671 ; S 165i3 1.3 1.2 .5 911 ; I 166i3 + 1.9 -.5 1037 ; I 167i3 + 1.6 -3 1405 ; I 168i1 6 1.5 0 800 ; S 169i1 + 1 0 1181 ; S 170i1 + 1.8 0 872 ; S 171i1 + 1.1 0 766 ; S 172s 173t0 4572 174;==================================171.5 175; 17.2 cm 11/10 176;--------------------------------------- 177i1 0 1.7 0 993 ; S 178i1 + 1.5 0 734 ; S 179i1 + 2.4 0 835 ; S 180i3 5.6 2 3 673 ; I 181i3 + 1.8 3.5 644 ; I 182i3 + 2.7 3 702 ; I 183i3 + 2.2 4 617 ; I 184i3 + 2.9 4 591 ; I 185s 186t0 4572 187;==================================171.6 188; 130.5 cm 6/5 189;--------------------------------------- 190i1 0 7.9 0 566 ; S 191i1 + 28.3 0 542 ; S 192i1 + 16.4 0 519 ; S 193i1 + 11.4 0 497 ; S 194i1 + 9.5 0 418 ; S 195i3 73.5 19.7 7 436 ; I 196i3 + 13.7 6 456 ; I 197i3 + 23.6 8.5 351 ; I 198s 199t0 4572 200;==================================171.7 201; 87 cm 7/6 202;--------------------------------------- 203i3 0 11.1 6 476 ; I 204i3 + 9.5 8 367 ; I 205i3 + 6 10 295 ; I 206i3 + 15 8 383 ; I 207i1 41.6 12.9 0 248 ; S 208i1 + 6.9 0 308 ; S 209i1 + 17.5 0 400 ; S 210i3 78.9 8.1 13 209 ; I 211s 212t0 4572 213;==================================171.8 214; 25.8 cm 10/9 215;--------------------------------------- 216i3 0 2.7 9.5 322 ; I 217i3 + 2.4 11 259 ; I 218i3 + 4.1 14.5 176 ; I 219i3 + 3.3 16 148 ; I 220i3 + 3 9 336 ; I 221i3 + 4.5 12.5 218 ; I 222i3 + 3.7 11 271 ; I 223i3 + 2.1 17.5 124 ; I 224s 225t0 4572 226;==================================171.9 227; 293.6 cm 4/3 228;--------------------------------------- 229i1 0 45.9 0 183 ; S 230i3 45.9 34.4 19 104 ; I 231i3 + 14.5 10.5 283 ; I 232i3 + 81.5 12.5 228 ; I 233i3 + 61.2 15.5 154 ; I 234i3 + 19.4 13.5 192 ; I 235i3 + 10.9 17 130 ; I 236i3 + 25.8 12 238 ; I 237s 238t0 4572 239;==================================171.10 240; 195.8 cm 5/4 241;--------------------------------------- 242i3 0 47.1 18.5 109 ; I 243i3 + 37.6 15.5 161 ; I 244i3 + 19.3 13.5 200 ; I 245i3 + 12.3 17 135 ; I 246i3 + 9.9 15 168 ; I 247i3 + 24.1 18.5 114 ; I 248i3 + 15.4 16.5 141 ; I 249i3 + 30.1 18 119 ; I 250 251; total length: 1298.5 cm 252e 253</CsScore> 254</CsoundSynthesizer>