(Back when) the wheels could turn

# when the wheels could turn
# paul batchelor
# march 2017

_sine 8192 gen_sine
_seq "69 76 74 73" gen_vals

_pitch var
_amt var
_send var
_prop var
_dry var

69 _pitch set

20 50 1 randh inv 1 0.25 _sine osc
dup 0 5 biscale _amt set
0 1 biscale _send set

0 _seq tget mtof metro
0 _seq tget _amt get - mtof
0 _seq tget _amt get + mtof
trand 0.3 0 _sine osc
0 1 1 randi *

1 _seq tget mtof metro
1 _seq tget _amt get - mtof
1 _seq tget _amt get + mtof
trand 0.3 0.25 _sine osc
0 1 0.5 randi * +

2 _seq tget mtof metro
2 _seq tget _amt get - mtof
2 _seq tget _amt get + mtof
trand 0.3 0.1 _sine osc
0 1 0.9 randi * +

3 _seq tget mtof metro
3 _seq tget _amt get - mtof
3 _seq tget _amt get + mtof
trand 0.3 0.1 _sine osc
0 1 0.2 randi * +

dup _send get * 0.8 0.1 delay 0.1 * 1000 butlp +

dup

-0.001 -0.2 1 randh dup -1 * limit 3.0 0.02 comb 1000 0.8 streson

2.0 * swap _send get cf
-3 ampdb *

160
"2(++)4(++-+)4(-++-)2(??)|+{2(?+)|+}+?|2[3(+2(+?)+)]++|-+-4(++++)"
prop _prop set

_prop get 0.001 0.002
_prop get 0.004 0.2 trand
tenvx *

dup

_prop get 0.2 maygate 0.003 port *
0.8 160 bpm2dur 0.75 * delay
10 _send get 1000 4000 scale bitcrush
-10 ampdb *

+

0 160 4 clock
0.4 maytrig
0.02 tgate 0.001 port 0.2 noise *
_prop get 200 1000 trand 0.9 streson
_prop get 200 1000 trand 0.9 streson
_prop get 200 1000 trand 0.9 streson dcblk -8 ampdb *

dup _prop get 1 _send get - 0.1 0.8 scale maygate 0.1 port * jcrev 2 *

swap dup _prop get 4 0 tdiv _send get 0.1 0.5 scale maygate 0.001 port *
_send get 0.1 0.9 scale
160 bpm2dur 0.125 * delay +

+

+
_dry set


_dry get
_dry get 0 _seq tget mtof 0.9 streson
_dry get 1 _seq tget mtof 0.9 streson +
_dry get 2 _seq tget mtof 0.99 streson +
_dry get 3 _seq tget mtof 0.99 streson + dcblk
bal

dup dup 0.97 10000 revsc drop 500 buthp 0.05 * dcblk +

_dry get

20 80 1 randi inv 1 0.75 _sine osc 0 1 biscale cf

0.003 0.01 -20 peaklim