R/4-musicxml-fermata.R

In flujoo/gm: Create Music with Ease

#' @keywords internal
#' @export
to_MusicXML.Fermata <- function(x, ...) {
  MusicXML(
    "fermata",
    fermatas[["musicxml"]][which(fermatas == x[["shape"]], TRUE)[1]],
    list(type = if (x[["above"]]) "upright" else "inverted")
  )
}


#' @keywords internal
#' @export
insert.Fermata <- function(x, to, ...) {
  insert_notation(x, to, "last")
}