1<CsoundSynthesizer> 2 3; Id: B00_b.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 -oB00_b.wav 11</CsOptions> 12 13<CsInstruments> 14 15sr = 192000 16kr = 192000 17ksmps = 1 18nchnls = 1 19 20;============================================= 21; SINUS TONES (S) 22;============================================= 23 instr 1 24iamp = ampdb(90+p4) 25ifreq = p5 26 27a1 oscili iamp , ifreq , 1 28aenv linen 1 , .01 , p3 , .005 29 30aout = a1 * aenv 31 32 out aout 33 endin 34;============================================= 35 36;============================================= 37; FILTERED NOISE (N) 38;============================================= 39 instr 2 40iamp = ampdb(87+p4) 41ifreq = p5 42ibw = ifreq * .05 ; filtered noise's bandwidth 5% of central frequency 43 44a1 rnd31 iamp , 1 45k1 rms a1 46 47afilt butterbp a1 , ifreq , ibw 48afilt butterbp afilt , ifreq , ibw 49 50aenv linen .8, .01 , p3 , .005 51 52aout gain afilt , k1 53aout = aout * aenv 54 55 out aout 56 endin 57;============================================= 58 59;============================================= 60; FILTERED IMPULSES (I) 61;============================================= 62 instr 3 63iamp = ampdb(90+p4) 64ifreq = p5 65ibw = ifreq * .01 ; filtered pulse's bandwidth 1% of central frequency 66 67if1 = ifreq-(ibw/3) 68if2 = ifreq+((2*ibw)/3) 69 70 71a1 mpulse iamp , 0 72 73afilt atonex a1 , if1 , 2 74afilt tonex afilt*90 , if2 , 2 75afilt butterbp afilt*500, ifreq , ibw *.05 76 77aenv linseg 1 , p3-.005, 1 , .005 , 0 78 79aout = afilt * aenv 80 81 out aout*(sr/192000) 82 endin 83;============================================= 84 85</CsInstruments> 86<CsScore> 87;functions-------------------------------------------------- 88f1 0 8192 10 1 ; sinusoid 89;/functions-------------------------------------------------- 90 91t0 4572 ; 76.2 cm/sec. tape speed (durations in cm) 92 93;test-------------------------------------------------- 94;mute------------------------------------------------- 95q 1 0 1 96q 2 0 1 97q 3 0 1 98;/mute------------------------------------------------- 99;/test------------------------------------------------- 100 101;================================================== 102; 120. MATERIAL B 103; 121. total length: 256.5 cm, 6 sections 104; 105; sequence b1 106; 107; length sequence 108; 62.5 cm (5) 109; 18.5 cm (2) 110; 12.3 cm (1) 111; 112; sequence b2 113; 114; length sequence 115; 41.7 cm (4) 116; 93.7 cm (6) 117; 27.8 cm (3) 118 119;================================================== 120 121;************************************************** b1 122;==================================121.21 123; 62.5 cm ratio 8/7 124;---------------------------------------- 125; p4 p5 126; iamp ifreq timbre 127; [dB] [Hz] 128i2 0 10.4 -5 6400 ; R 129i2 + 7 -5 4032 ; R 130i2 + 9.1 -5 5702 ; R 131i2 + 5.3 -5 2540 ; R 132i2 + 6.1 -5 3592 ; R 133i2 + 8 -5 1600 ; R 134i1 45.9 11.9 -3 5080 ; S 135i2 57.8 4.7 -5 2263 ; R 136s 137t0 4572 138;==================================121.22 139; 18.5 cm ratio 11/10 140;---------------------------------------- 141i2 0 1.9 -4 1008 ; R 142i2 + 3.2 -4 3200 ; R 143i1 5.1 1.8 -2 1426 ; S 144i1 + 2.6 -2 4526 ; S 145i2 9.5 2.9 -4 635 ; R 146i2 + 1.6 -4 2016 ; R 147i1 14 2.1 0 898 ; S 148i1 + 2.4 0 2851 ; S 149s 150t0 4572 151;==================================121.23 152; 12.3 cm ratio 12/11 153;---------------------------------------- 154i1 0 1.4 0 1270 ; S 155i2 1.4 1.1 -3 566 ; R 156i1 2.5 1.3 0 1796 ; S 157i1 + 1.9 0 800 ; S 158i1 + 2.1 0 1131 ; S 159i1 + 1.2 0 504 ; S 160i1 + 1.6 0 713 ; S 161i1 + 1.6 0 449 ; S 162s 163;************************************************** b2 164;==================================121.24 165; 41.7 cm ratio 9/8 166;---------------------------------------- 167t0 4572 168i2 0 6 -3 400 ; R 169i2 + 4.2 -3 635 ; R 170i2 + 5.3 -3 449 ; R 171i1 15.5 3.3 -3 1008 ; S 172i2 18.8 3.8 -3 713 ; R 173i2 + 4.7 -3 1600 ; R 174i1 27.3 6.8 -3 504 ; S 175i1 + 7.6 -3 1131 ; S 176s 177t0 4572 178;==================================121.25 179; 93.7 cm ratio 7/6 180;---------------------------------------- 181i2 0 6.4 -3 2540 ; R 182i1 6.4 13.9 -3 800 ; S 183i1 + 18.9 -3 1796 ; S 184i1 + 10.2 -3 566 ; S 185i1 + 11.9 -3 4032 ; S 186i1 + 16.2 -3 1270 ; S 187i1 + 7.5 -3 2851 ; S 188i3 85 8.7 11.5 898 ; I 189s 190t0 4572 191;==================================121.26 192; 27.8 cm ratio 10/9 193;---------------------------------------- 194i1 0 2.6 -3 2016 ; S 195i1 + 4.4 -3 4526 ; S 196i3 7 2.3 7.5 1426 ; I 197i3 + 3.6 1 3200 ; I 198i1 12.9 3.9 -3 2263 ; S 199i3 16.8 4.9 -2.5 5080 ; I 200i3 + 2.9 0 3592 ; I 201i3 + 3.2 -3 5702 ; I 202 203; total length: 256.5 cm 204e 205 206</CsScore> 207</CsoundSynthesizer>