; ; pvpipes.csd ; version 1.0 ; ; Bruce H. McCosar ; ; $Id: pvpipes.csd 43 2008-04-27 20:03:25Z mccosar $ ; -d -W -o testpv.wav ; ------------------------------------------------------------ HEADER sr = 44100 kr = 4410 ksmps = 10 nchnls = 2 ; ------------------------------------------------------- INSTRUMENTS instr 101 iamp = ampdbfs(p4) / 32768 ; fraction of max volume icps = cpspch(p5) icorL = p6*iamp icorR = p7*iamp ipeak = p8 ; point of max volume ; ibasefr = 239 ; sample base freq = 239 Hz ifmod = icps / ibasefr ; kt line 0, p3, 2.688 aL pvoc kt, ifmod, "32878L.pv" aR pvoc kt, ifmod, "32878R.pv" k1 linen 1, 0.01, p3, 0.01 k2 expseg 0.05, p3*ipeak, 1, p3, 0.01 outs aL*k1*k2*icorL, aR*k1*k2*icorR endin ; ------------------------------------------------------------- SCORE ; p1 p2 p3 p4 p5 p6 p7 p8 p9 ; inst start dur dBfs pch corrL corrR peak i 101 0 20 -1 6.00 1.8 1.5 0.3 i 101 3 23 -5 8.00 1.8 1.2 0.5