R/getKey.R

In shill1729/synthesizer: Synthesize sounds, melodies, chords, and stochastic compositions

#' Convenient function for getting keys
#'
#' @param what what key to return major or minor
#'
#' @return vector
#' @export getKey
getKey <- function(what = "major")
{
  if(what == "major")
  {
    return(c(0, 2, 4, 5, 7, 9, 11, 12, 14, 16, 17, 19, 21, 23, 24))
  } else if(what == "minor")
  {
    return(c(0, 2, 3, 5, 7, 8, 9, 10, 11, 12, 14, 15, 17, 19, 20, 21, 22, 23, 24))
  }
}