Skip to contents

Slice, sort, rotate, shift and arpeggiate notes

Source: R/notes.R
note_slice.Rd

Helper functions for indexing and moving notes within noteworthy strings.

Usage

note_slice(notes, ...)

note_sort(notes, decreasing = FALSE)

note_rotate(notes, n = 0)

note_shift(notes, n = 0)

note_arpeggiate(notes, n = 0, step = 12)

Arguments

notes

character, a noteworthy string, space-delimited or vector of individual entries.

...

For note_slice(), an integer or logical vector.

decreasing

logical, short in decreasing order.

n

integer, number of rotations or extensions of note sequence. See details.

step

integer, number of semitone steps from the first (or last) note in notes at which to begin repeating the shifted notes sequence as an arpeggio. See examples.

Value

character

Details

note_slice() subsets the timesteps of a noteworthy string by integer index or logical vector of length equal to the number of timesteps.

note_sort() sorts the timesteps of a noteworthy string by pitch. When a tie exists by root note, the next note in chords are compared, if they exist. For example, a, sorts lower than a,ce.

note_rotate() simply rotates anything space-delimited or vectorized in place. It allows chords. Octave numbering is ignored if present.

For note_shift() the entire sequence is shifted up or down in pitch, as if inverting a broken chord. If notes contains chords, they are broken into successive notes. Then all notes are ordered by pitch. Finally shifting occurs.

Instead of a moving window, note_arpeggiate() grows its sequence from the original set of timesteps by repeating the entire sequence n times (n must be positive). Each repeated sequence contributing to the arpeggio is offset by step semitones from the original. step can be negative. It defaults to 12, increasing all notes by one octave.

Examples

x <- "bd'f#' a c'e'g' b ba c'g' gd'g'd''"
note_sort(x)
#> <Noteworthy string>
#>   Format: space-delimited time
#>   Values: <gd'g'd''> a <ba> b <bd'f#'> <c'e'g'> <c'g'>
note_sort(x, decreasing = TRUE)
#> <Noteworthy string>
#>   Format: space-delimited time
#>   Values: <c'g'> <c'e'g'> <bd'f#'> b <ba> a <gd'g'd''>

x <- "e_2 a_, c#f#a#"
note_slice(x, 2:3)
#> <Noteworthy string>
#>   Format: space-delimited time
#>   Values: a_, <d_g_b_>
note_slice(x, c(FALSE, TRUE, TRUE))
#> <Noteworthy string>
#>   Format: space-delimited time
#>   Values: a_, <d_g_b_>

note_rotate(x, 1)
#> <Noteworthy string>
#>   Format: space-delimited time
#>   Values: a_, <d_g_b_> e_,

note_shift("c e g", 1)
#> <Noteworthy string>
#>   Format: space-delimited time
#>   Values: e g c'
note_shift("c e g", -4)
#> <Noteworthy string>
#>   Format: space-delimited time
#>   Values: g,, c, e,

note_arpeggiate("c e g ceg", 3)
#> <Noteworthy string>
#>   Format: space-delimited time
#>   Values: c e g <ceg> c' e' g' <c'e'g'> c'' e'' g'' <c''e''g''> c''' e''' g''' <c'''e'''g'''>
note_arpeggiate("c e g", 3, step = -12)
#> <Noteworthy string>
#>   Format: space-delimited time
#>   Values: c e g c, e, g, c,, e,, g,, c,,, e,,, g,,,
note_arpeggiate("g e c", 3, step = -12)
#> <Noteworthy string>
#>   Format: space-delimited time
#>   Values: g e c g, e, c, g,, e,, c,, g,,, e,,, c,,,
note_arpeggiate("c e_ g_ a", 3, step = 3)
#> <Noteworthy string>
#>   Format: space-delimited time
#>   Values: c e_ g_ a e_ g_ a c' g_ a c' e_' a c' e_' g_'
note_arpeggiate("c a g_ e_", 3, step = -3)
#> <Noteworthy string>
#>   Format: space-delimited time
#>   Values: c a g_ e_ a, g_ e_ c g_, e_ c a, e_, c a, g_,