; ; "SuperTerrain" ; Wave Terrain Synthesis Experiment ; version 1.1.0 ; ; Bruce H. McCosar ; ; $Id: superterrain.csd 15 2008-04-23 02:03:51Z mccosar $ ; -d -W -o test.wav ; ------------------------------------------------------------ HEADER sr = 44100 kr = 4410 ksmps = 10 nchnls = 2 ; ------------------------------------------------------- INSTRUMENTS instr Spinner ; iamp = ampdbfs(p4) icps = cpspch(p5) ipan = p6 ifrx = 1/p7 ifry = 1/p8 ; kcx lfo 0.5, ifrx, 0 kcy lfo 0.5, ifry, 0 krx line 0.1, p3, 0.5 kry line 0.9, p3, 0.1 ; a1 wterrain iamp, icps, 0.5+kcx, 0.5+kcy, krx, kry, 1, 2 a1 dcblock a1 ; kcf expon 8000, p3, icps/2 asig moogladder a1, kcf, 0.64 asig balance asig, a1 ; kenv linen 1, p3/5, p3, p3/5 aL, aR pan2 asig*kenv, ipan outs aL, aR endin instr 101 ifall = p6 ; aL0, aR0 subinstr "Spinner", p4-p6, p5, 0.7, 1.5+rnd(8), 1.5+rnd(8) aL1, aR1 subinstr "Spinner", p4, p5+1, 0.3, 1.5+rnd(8), 1.5+rnd(8) aL2, aR2 subinstr "Spinner", p4-p6*2, p5+2, 0.8, 1.5+rnd(8), 1.5+rnd(8) aL3, aR3 subinstr "Spinner", p4-p6*3, p5+3, 0.2, 1.5+rnd(8), 1.5+rnd(8) aL4, aR4 subinstr "Spinner", p4-p6*4, p5+4, 0.6, 1.5+rnd(8), 1.5+rnd(8) aL5, aR5 subinstr "Spinner", p4-p6*5, p5+5, 0.4, 1.5+rnd(8), 1.5+rnd(8) aL6, aR6 subinstr "Spinner", p4-p6*6, p5+6, 0.5, 1.5+rnd(8), 1.5+rnd(8) ; aL = aL0 + aL1 + aL2 + aL3 + aL4 + aL5 + aL6 aR = aR0 + aR1 + aR2 + aR3 + aR4 + aR5 + aR6 outs aL, aR endin ; ---------------------------------------------------------- F-TABLES ; # time size gen str1 f 1 0 8192 10 1 0.5 0.33 0.25 0.2 0.16 0.14 0.13 f 2 0 8192 10 1 0 -0.33 0 0.2 0 -0.14 0 ; ------------------------------------------------------------- SCORE ; p1 p2 p3 p4 p5 p6 ; inst start dur dBfs pch falloff (dB) i 101 0.1 25.1 -4 4.00 2.20 i 101 12.1 32.1 -6 4.10 2.60 i 101 28.1 35.1 -8 4.07 2.45 i 101 31.1 40.1 -10 4.00 1.70