x <- "a,4;5*5 b,- c cgc'e'~ 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,,- c, c,g,c~ c,g,c1 c4;1 g,;2 c,;3 g,;2 c,c1;31"
y <- as_music(y)
z <- as_music("a,4 b, r c~ c2 d", lyrics = as_lyrics("A2 B2 . C3 . D3"))
if (FALSE) {
if(tabr_options()$lilypond != ""){ # requires LilyPond installation
outfile <- file.path(tempdir(), "out.pdf")
render_music(x, outfile)
outfile <- file.path(tempdir(), "out.png")
render_music(x, outfile, "treble_8", tab = TRUE)
render_music_tc(x, outfile)
render_music_bc(x, outfile)
render_music_tab(x, outfile)
render_music_guitar(x, outfile)
render_music_bass(y, outfile)
# lyrics example
render_music_guitar(z, outfile)
}
}
Run the code above in your browser using DataLab