x <- "a,4;5*5 b,4- c4 cgc'e'~4 cgc'e'1 e'4;2 c';3 g;4 c;5 ce'1;51"
x <- as_music(x)
y <- "a,,4;3*5 b,,4- c,4 c,g,c~4 c,g,c1 c4;1 g,;2 c,;3 g,;2 c,c1;31"
y <- as_music(y)
if (FALSE) {
if(tabr_options()$lilypond != ""){ # requires LilyPond installation
plot_music(x)
plot_music(x, "treble_8", tab = TRUE)
plot_music_tc(x)
plot_music_bc(x)
plot_music_tab(x)
plot_music_guitar(x)
plot_music_bass(y)
}
}
Run the code above in your browser using DataLab