<CsoundSynthesizer> <CsLicense> Message From Another Planet (v2) (Spring 1999, Fall 2017) Composed By Jacob Joaquin Modified by Michael Gogins To search for extraterrestrial intelligence from your home computer visit https://setiathome.berkeley.edu/ </CsLicense> <CsOptions> -d -f -m195 -odac </CsOptions> <CsInstruments> sr = 48000 ksmps = 128 nchnls = 2 alwayson "controls" alwayson "reverb" gasendL init 0 gasendR init 0 gk2_spread init 1.0125 gk2_bass_gain init 0.005 chnset i(gk2_spread), "gk2_spread" chnset i(gk2_bass_gain), "gk2_bass_gain" instr controls gk2_spread chnget "gk2_spread" gk2_bass_gain chnget "gk2_bass_gain" gk_reverb_delay chnget "gk_reverb_delay" gk_reverb_hipass chnget "gk_reverb_hipass" gk_master_level chnget "gk_master_level" endin instr Spreader kpch = cpspch(p5) imult = ((p6+1) / p6) * .5 iseed = (rnd(100)+100)/200 k2 expseg .0625, 15, .0625, 113, 3.75, 113, .03125, 15, .0625 k3 linseg 1, 240, 1, 16, 0 k1 phasor p7 * k2 k1 tablei 256 * k1 , 100, 0, 0, 1 krand randi 30000, p7 * 5, iseed krand = (krand + 30000) / 60000 kcps = kpch * p6 * gk2_spread kamp = p4 * imult * k1 * k3 * pow(kcps, -gk2_bass_gain) a1 poscil kamp, kcps, 1 aoutleft = a1 * sqrt(krand) aoutright = a1 * (sqrt(1-krand)) gasendL = gasendL + aoutleft gasendR = gasendR + aoutright prints "Spreader: gk2_spread: %12.4f kcps: %12.4f kamp: %12.4f\n", 1, gk2_spread, kcps, kamp endin gk_reverb_delay init .89 gk_reverb_hipass init 12000 gk_master_level init -6 chnset i(gk_reverb_delay), "gk_reverb_delay" chnset i(gk_reverb_hipass), "gk_reverb_hipass" chnset i(gk_master_level), "gk_master_level" instr reverb aL, aR reverbsc gasendL,gasendR,gk_reverb_delay,gk_reverb_hipass kgain = ampdb(gk_master_level) outs aL * kgain, aR * kgain clear gasendL, gasendR endin </CsInstruments> <CsScore> ; p1 p2 p3 p4 p5 p6 p7 f 1 0 65536 10 1 f 100 0 256 -7 0 16 1 240 0 t 0 60 i 2 0 256 3000 6.00 1 1.24 i 2 0 . . . 1.0666 1.23 i 2 0 . . . 1.125 1.22 i 2 0 . . . 1.14285 1.21 i 2 0 . . . 1.23076 1.20 i 2 0 . . . 1.28571 1.19 i 2 0 . . . 1.333 1.18 i 2 0 . . . 1.4545 1.17 i 2 0 . . . 1.5 1.16 i 2 0 . . . 1.6 1.15 i 2 0 . . . 1.777 1.14 i 2 0 . . . 1.8 1.13 i 2 0 . . . 2 1.12 i 2 0 . . . 2.25 1.10 i 2 0 . . . 2.28571 1.09 i 2 0 . . . 2.666 1.08 i 2 0 . . . 3 1.07 i 2 0 . . . 3.2 1.06 i 2 0 . . . 4 1.05 i 2 0 . . . 4.5 1.04 i 2 0 . . . 5.333 1.03 i 2 0 . . . 8 1.02 i 2 0 . 1000 . 9 1.01 i 2 0 . 500 . 16 1.00 </CsScore> </CsoundSynthesizer>