data-raw/data.R

In leonawicz/tabr: Music Notation Syntax, Manipulation, Analysis and Transcription in R

.predefined_tunings <- c(
  standard = "e,a,dgbe'", seven = "b,,e,a,dgbe'",
  dropD = "d,a,dgbe'", dropC = "c,g,cfad'",
  openG = "d,g,dgbd'", openD = "d,a,df#ad'",
  DADGAD = "d,a,dgad'", lute = "e,a,df#be'",
  asus4 = "e,a,deae'",
  bass = "e,,a,,d,g,", bassdropD = "d,,a,,d,g,",
  bass5 = "b,,,e,,a,,d,g,", bass6 = "b,,,e,,a,,d,g,c",
  mandolin = "gd'a'e''",
  banOG = "g'dgbd'", banC = "g'cgbd'",
  banModal = "g'dgc'd'", banOD = "a'df#ad'",
  banODm = "a'df#ad'",
  ban4OG = "g'dgbd'", ban4C = "g'cgbd'",
  ban4Modal = "g'dgc'd'", ban4OD = "a'df#ad'",
  ban4ODm = "a'df#ad'",
  uke = "g'c'e'a'", ukeD = "a'd'f#'b'",
  ukeTenor = "gc'e'a'", ukeBaritone = "dgbe'",
  violin = "gd'a'e''", viola = "cgd'a'",
  cello = "c,g,da", doublebass = "e,,a,,d,g,"
)

tunings <- data.frame(id = names(.predefined_tunings), value = .predefined_tunings,
                      row.names = NULL, stringsAsFactors = FALSE)

.syntax_desc <- c("note/pitch", "sharp", "flat", "drop or raise one octave",
                  "octave number", "tied notes", "note duration", "dotted note",
                  "slide", "bend", "muted/dead note", "slur/hammer/pull off",
                  "rest", "silent rest", "expansion operator")
.syntax_id <- c("a b ... g", "#", "_", ", or '", "0 1 ...", "~", "2^n", ".",
                "-", "^", "x", "()", "r", "s", "*")
.syntax_example <- c("a", "a#", "a_", "a, a a'", "a2 a3 a4", "a~ a",
                     "1 2 4 8 16", "2. 2..", "2-", "2^", "2x", "2( 2)", "r",
                     "s", "ceg*8, 1*4")
tabrSyntax <- data.frame(description = .syntax_desc, syntax = .syntax_id, example = .syntax_example)

mainIntervals <- data.frame(
  semitones = 0:25,
  mmp = c("perfect unison", "minor second", "major second", "minor third", "major third", "perfect fourth",
          "tritone", "perfect fifth", "minor sixth", "major sixth", "minor seventh", "major seventh",
          "perfect octave", "minor ninth", "major ninth", "minor tenth", "major tenth", "perfect eleventh",
          NA, "perfect twelfth", "minor thirteenth", "major thirteenth", "minor fourteenth", "major fourteenth",
          "perfect fifteenth", NA),
  mmp_abb = c("P1", "m2", "M2", "m3", "M3", "P4", "TT", "P5", "m6", "M6", "m7", "M7", "P8",
              "m9", "M9", "m10", "M10", "P11", NA, "P12", "m13", "M13", "m14", "M14", "P15", NA),
  ad = c(
    paste(c("diminished", "augmented"), c("second", "unison", "third", "second", "fourth", "third")),
    "diminished fifth/augmented fourth",
    paste(c("diminished", "augmented"), c("sixth", "fifth", "seventh", "sixth", "octave")),
    "diminished ninth/augmented seventh",
    paste(c("augmented", "diminished"), c("octave", "tenth", "ninth", "eleventh", "tenth")),
    "diminished twelfth/augmented eleventh",
    paste(c("diminished", "augmented"), c("thirteenth", "twelfth", "fourteenth", "thirteenth", "fifteenth",
                                          "fourteenth")),
    "augmented fifteenth"),
  ad_abb = c(
    paste0(c("d", "A"), c(2, 1, 3, 2, 4, 3)), "d5/A4",
    paste0(c("d", "A"), c(6, 5, 7, 6, 8)), "d9/A7",
    paste0(c("A", "d"), c(8, 10, 9, 11, 10)), "d12/A11",
    paste0(c("d", "A"), c(13, 12, 14, 13, 15, 14)), "A15"),
  stringsAsFactors = FALSE
)

articulations <- list(
  standard = c("accent", "espressivo", "marcato", "portato", "staccatissimo",
               "staccato", "tenuto"),
  ornament = c("prall", "prallup", "pralldown", "upprall", "downprall",
               "prallprall", "lineprall", "prallmordent", "mordent",
               "upmordent", "downmordent", "trill", "turn", "reverseturn"),
  fermata = c("shortfermata", "fermata", "longfermata", "verylongfermata"),
  instrument = c("upbow", "downbow", "flageolet", "open", "halfopen", "lheel",
                 "rheel", "ltoe", "rtoe", "snappizzicato", "stopped"),
  repeats = c("segno", "coda", "varcoda"),
  ancient = c("accentus", "circulus", "ictus", "semicirculus",
              "signumcongruentiae")
)

articulations <- data.frame(
  type = rep(c("standard", "ornament", "fermata", "instrument", "repeat",
               "ancient"), times = sapply(articulations, length)),
  value = unlist(articulations),
  abb = NA_character_,
  stringsAsFactors = FALSE,
  row.names = NULL
)

articulations$abb[c(1, 3:7, 36)] <- c("->", "-^", "-_", "-!", "-.", "--", "-+")

usethis::use_data(tunings, tabrSyntax, mainIntervals, articulations)

library(tabr)
.all_pitches_tick <- sapply(0:131, function(x) transpose("c,,,,", x, "tick", "flat"))
.all_pitches_integer <- .octave_to_int(.all_pitches_tick)
.all_pitches_tick_sharp <- .flat_to_sharp(.all_pitches_tick)
.all_pitches_integer_sharp <- .flat_to_sharp(.all_pitches_integer)

usethis::use_data(.all_pitches_tick, .all_pitches_integer,
                  .all_pitches_tick_sharp, .all_pitches_integer_sharp,
                  internal = TRUE, overwrite = TRUE)

# Add example midi track to package
notes <- "g, a, b, c d e f# gbd' fac' g b d' g'~ g'"
info <- "t8( t8)( t8)^ t16- t16] t16x 8 2 4. 8 4 4 1 1"
s <- p(notes, info)  track()  trackbind()  score()
tab(s, "inst/example2.pdf", tempo = "4 = 120", midi = TRUE)
unlink("inst/example2.pdf", recursive = TRUE, force = TRUE)