; ; bass_wgpluck ; version 1.0 ; ; Bruce H. McCosar ; ; $Id: bass_wgpluck.csd 57 2008-05-01 22:36:45Z mccosar $ ; -d -W -o bass_wgpluck.wav ; ------------------------------------------------------------ HEADER sr = 44100 kr = 4410 ksmps = 10 nchnls = 1 ; ------------------------------------------------------- INSTRUMENTS instr 100 iamp = ampdbfs(p4) icps = cpspch(p5) ; wgpluck icps, iamp, kpick, iplk, idamp, ifilt, axcite axcite oscil 1, 1, 1, 1 abridge wgpluck icps, iamp, 0.7, 0.7, 10, 2000, axcite aneck wgpluck icps, iamp, 0.9, 0.7, 10, 2000, axcite asig = (aneck + abridge*1.6)/2 kenv linen 1, 0.01, p3, 0.01 out asig*kenv 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