examples/rhythms.R

library(devtools)
unloadNamespace('devtools')
devtools::load_all()

freq <- P.n(7, a = 0)
drums <- sequence(freq, c(1, 2 - 1/8, 3, 4, 4.5),
                  c(0.75, 1, 0.75, 0.5, 0.5),
                  beats = 4, tempo = 90)
play(rep(drums, 4))
tlevine/krounq documentation built on May 31, 2019, 3:51 p.m.