return (t&(t>>6)+(t<<((t>>11)^((t>>13)+3))|((t>>14%64)+(t>>14)))&(-t>>5)); /* Track Crafty by Paul Hayes */

time=

Commands
Pentatonic tuning ratios
A(t) = 1
C(t) = 32/27
D(t) = 4/3
E(t) = 3/2
G(t) = 16/9

Functions
setFreq(f), sets sample frequency 8000<f<48000
floor(v)
abs(v)
zigzag(time,frequency)
odd(t)
even(t)
beats(time,notePattern[,length=8])
More info
Inspired by the work of @viznut. For great examples watch these vids

by @paul_hayes github