# diode # paul batchelor # febuary 2017 _seq "0 3 -7 -2" gen_vals _seq2 "0 1 3 7 8 10 12" gen_vals _clk var _dry var _ping var _bpm 135 varset 0 _bpm get 4 clock _clk set _clk get 0 _seq tseq 40 + _clk get 0.3 maygate 12 * + _clk get 0.1 maygate 0.01 0.005 branch port mtof 0.7 saw 30 inv 1 sine 300 2000 biscale 0.75 0.96 (0.1 1 1 randh) randi diode dup 40 0 saturator bal _clk get 0.005 10 inv 1 sine 0.01 0.1 biscale 0.1 tenvx * -4 ampdb * # Square leads _clk get 4 0 tdiv 0.2 maytrig _clk get dup 3 0 tdiv switch 1 _seq2 tseq 62 + dup mtof 0.015 (0.005 0.5 2 jitter) + port 0.2 0.1 square swap 12.1 - mtof 0.005 port 0.4 0.2 square + 35 inv 1 sine 500 1000 biscale butlp _clk get 16 0 tdiv 0.8 maygate 0.1 port * 1000 buthp + # ping _clk get 0.02 maytrig 0.001 0.005 0.01 tenvx 74 mtof 0.1 1 _clk get 0 7 trand floor 1 fm * dup _ping set + _dry set _dry get 500 buthp dup 0.91 8000 revsc drop -19 ampdb * _dry get 1000 buthp _ping get + 0.7 _bpm get bpm2dur 0.75 * delay 1000 butlp + _dry get +