2018-07-03. algorithmic rhythm, pitch, tuning.

2018-07-03

\[
\i[
    4 = bps
    \ length attacks [attacks 1s length attacks - 0s $ muss] = randRhythm
    6 rand2 78 + = root
    7 0 12 nrandz sort 0 cons 12 add = scale
    scale pr cr
    bps 0 impulse = t
    i 0 ==  i 6 > | = lite
    [0 0 0 7 12] picks root 48 - + nnhz = bassFreqs
    lite \[ .1 ] \[[1 1 1 1 .7 .5 .3] pick] if = density      density pr cr
    lite \[ #[.2 0 ] cyc .3 coinz *] \[#[1 0 .2 0 .4 0 .2 0] cyc] if = bassBeats
    bassBeats t iseq 1m 1.4 decay2 bassFreqs t seq 0 sinosc 1.5 * * distort .7 *        ;; bass drum
    bps 4 / .5 .12 lfpulse 10k * .1 lag 1 dust2 2 0 sinosc 4h 4k *+ .2 resonz 5c * lite .5 1 if * + ;; shaker
    \[
        -24 4 irand = lo
        9 16 irand lo + = hi
        \[[[[13 9 7 5] pick [4 2 1 0] pick randRhythm  4 3 nirand2s cyc +\ lo hi irand + lo hi fold scale degkey root + nnhz 16 N Z] [2 4 6 8] pick X] cyc .5 coins 1 cons keepWhile] inf X $/ $/ flop @ $/ = [beats freqs]
        beats density coins * = cbeats
        freqs t seq 1m lag = freq
        cbeats t iseq 2m .3 decay2  .5 white * freq 1.3 ringz .31 lfnoise3 .1 * + distort .5 lfnoise3 3m * 3m flangep  .05 .2 xrand urand sinosc 1k 4k biexp .1 rlpf .7 * rpan2
    ] 8X +/ 4c * + 
] 47 1 48/47 2 oltx 3c 3 apverb6 376 8 fadeout
] ! play