a <- notate("t8x", "Start here")
notes <- "a, b, c d e f g# a r ac'e' a c' e' c' r*3 ac'e'~ ac'e'"
info <- paste(a, "t8x t8-. 16 4.. 16- 16 2^ 2 4. 8( 4)( 4) 8*4 1 1")
info <- as_noteinfo(info)
x <- as_music(notes, info)
n_measures(info) # fraction indicates incomplete final measure
n_measures(x)
n_beats(x)
n_beats(x, 1)
n_beats(x, "t16")
bpm(x)
bpm(x, "t8")
seconds(x)
seconds(info, "4 = 120")
seconds(info, "2 = 60")
seconds(x, "4 = 100")
steps_per_measure(x)
seconds_per_measure(x)
seconds_per_step(x)
steps_start_time(x)
Run the code above in your browser using DataLab