1<CsoundSynthesizer> 2 3; Id: H00_a.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 -oH00_a.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 expseg .001 , .005, 1 , p3-.01 ,1, .005,.001 29 30aout = a1 * aenv 31 32 out aout 33 endin 34;============================================= 35 36;============================================= 37; FILTERED NOISE (N) 38;============================================= 39 instr 2 40iamp = ampdb(89+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 expseg .001 , .005, .8 , p3-.01 ,.8 ,.005,.001 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*400 , if2 , 2 75afilt butterbp afilt*380 , ifreq , ibw*.05 76 77 78aenv linseg 1 , p3-.01, 1 , .01 , 0 79 80aout = afilt * aenv 81 82 out aout*(sr/192000) 83 endin 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; 180. MATERIAL H 103; 181. total length: 171 cm, 5 sections 104; 105; sequence a 106; 107; length sequence 108; 29.2 cm (3) 109; 65.6 cm (5) 110; 43.8 cm (4) 111; 13 cm (1) 112; 19.5 cm (2) 113;================================================== 114 115;==================================181.11 116; 29.2 cm 10/9 117;---------------------------------------- 118; p4 p5 119; iamp ifreq timbre 120; [dB] [Hz] 121i3 0 3 -2.5 1467 ; I 122i3 + 2.7 -2.5 1436 ; I 123i3 + 4.6 -1.5 1345 ; I 124i3 + 3.7 -2.5 1532 ; I 125i2 14 3.4 -4 1499 ; R 126i3 17.4 5.1 -1.5 1375 ; I 127i3 + 4.2 -2.8 1566 ; I 128i3 + 2.5 -2 1405 ; I 129s 130t0 4572 131;==================================181.12 132; 65.6 cm 8/7 133;---------------------------------------- 134; x 135i2 0 5.6 -9 1037 ; R 136i2 + 4.9 -10 972 ; R 137i3 10.5 9.6 -8 1345 ; I 138i3 + 7.3 -9 1532 ; I 139i2 27.4 6.4 -10 1499 ; R 140i2 + 10.9 -10 1375 ; R 141i2 + 8.4 -10 1566 ; R 142i3 53.1 12.5 -8.5 1499 ; I 143 144; y 145i2 0 5.6 -10 2691 ; R 146i2 + 4.9 -10 2263 ; R 147i3 10.5 9.6 -10.5 1903 ; I 148i3 + 7.3 -9 1600 ; I 149i2 27.4 6.4 -10 1467 ; R 150i2 + 10.9 -10 1745 ; R 151i2 + 8.4 -10 2075 ; R 152i3 53.1 12.5 -12.5 2468 ; I 153s 154t0 4572 155;==================================181.13 156; 43.8 cm 9/8 157;---------------------------------------- 158i2 0 7.1 -4 1131 ; R 159i2 + 6.3 -4 1288 ; R 160i2 + 4.4 -4 1467 ; R 161i2 + 3.5 -4 1671 ; R 162i2 + 8 -6 1903 ; R 163i2 + 5 -4 2167 ; R 164i2 + 3.9 -4 2467 ; R 165i2 + 5.6 -4 2810 ; R 166s 167t0 4572 168;==================================181.14 169; 13 cm 12/11 170;---------------------------------------- 171; x 172i1 0 1.7 -6 1745 ; S 173i2 1.7 1.5 -10 1708 ; R 174i2 + 1.2 -10 1600 ; R 175i2 + 2 -10 1822 ; R 176i1 6.4 1.8 -6 1783 ; S 177i1 + 1.3 -6 1635 ; S 178i2 9.5 2.1 -10 1862 ; R 179i2 + 1.4 -10 1671 ; R 180; y 181i1 0 1.7 -6 1566 ; S 182i2 1.7 1.5 -10 1499 ; R 183i2 + 1.2 -10 1436 ; R 184i2 + 2 -10 1375 ; R 185i1 6.4 1.8 -6 1345 ; S 186i1 + 1.3 -6 1405 ; S 187i2 9.5 2.1 -10 1467 ; R 188i2 + 1.4 -10 1532 ; R 189s 190t0 4572 191;==================================181.15 192; 19.4 cm 11/10 193;---------------------------------------- 194; x 195i1 0 2.3 -8 800 ; S 196i1 + 2 -8 951 ; S 197i1 + 3.3 -8 1131 ; S 198i2 7.6 2.7 -10 1345 ; R 199i1 10.3 2.5 -8 1600 ; S 200i1 + 1.7 -8 1903 ; S 201i1 + 3 -8 2263 ; S 202i1 + 1.9 -8 2691 ; S 203; y 204i1 0 2.3 -8 3200 ; S 205i1 + 2 -8 2691 ; S 206i1 + 3.3 -8 2263 ; S 207i2 7.6 2.7 -9 1903 ; R 208i1 10.3 2.5 -8 1600 ; S 209i1 + 1.7 -8 1345 ; S 210i1 + 3 -8 1131 ; S 211i1 + 1.9 -8 951 ; S 212 213; total length: 171 cm 214e 215</CsScore> 216</CsoundSynthesizer>