tidal l-systems

lsys.hs

-- calum's code

let lsys n r s = p ("{" ++ lindenmayer n r s ++ "}%8")

let inverse 0 = 1
let inverse 1 = 0

let pat = lsys 2 "1:1 1 ~,0:0,~:~ ~ 1 0 ~" "1 1 1 0 ~"

d1 $ gain pat $ s "bd"

d2 $ gain (inverse <$> pat) $ s "sn"