Bones

# Bones
# By Paul Batchelor
# September 2016

# uniform wooden bar ratios, obtained from
# http://www.csounds.com/manual/html/MiscModalFreq.html
_rat "1 2.5752 4.4644 6.984" gen_vals

_tk var
_frq var

1 10 1 randh metro
(0.1 0.8 (1 10 3 randh) randi)
maytrig dup 0.65 maygate * tick + _tk set


_tk get 500 1500 trand _frq set

_tk get (_frq get 0 _rat tget *) 10 40 3 randi mode
(_frq get 1 _rat tget *) 20 mode

_tk get (_frq get 2 _rat tget *) 22 mode
(_frq get 3 _rat tget *) 15 mode +

dup 0.1 0.8 3 randi
0.001 0.2 (0.1 4 1 randi) randi
1.0 vdelay

dup 0.4 0.9 0.5 randi
0.2 1 sine 0.01 0.3 biscale
1.0 64 smoothdelay 0 1 0.2 randi *

+ +

dup jcrev -6 ampdb * +

-1 1 limit