; ; bass_repluck ; version 1.0 ; ; Bruce H. McCosar ; ; $Id: bass_repluck.csd 54 2008-05-01 22:00:55Z mccosar $ ; -d -W -o bass_repluck.wav ; ------------------------------------------------------------ HEADER sr = 44100 kr = 4410 ksmps = 10 nchnls = 1 ; ------------------------------------------------------- INSTRUMENTS instr 100 iamp = ampdbfs(p4) icps = cpspch(p5) ; repluck iplk, kamp, icps, kpick, krefl, axcite axcite oscil 1, 1, 1, 1 abridge repluck 0.7, iamp, icps, 0.7, 0.8, axcite aneck repluck 0.7, iamp, icps, 0.9, 0.8, axcite asig = (abridge + aneck*1.6)/2 kenv linen 1, 0.01, p3, 0.01 out asig*kenv*1.3 endin ; ---------------------------------------------------------- F-TABLES ; # time size gen str1 f 1 0 8192 10 1 ; ------------------------------------------------------------- SCORE ; p1 p2 p3 p4 p5 p6 p7 p8 p9 ; inst start dur dBfs pch i 100 0 10 0 5.04