R/scale-pitch-continuous.R

In statisfactions/playitbyr: Representing and exploring data through sound

##' Continuous pitch scales
##'
##' These shortcut functions (with the notation
##' \code{scale_}\kbd{[sound parameter]}\code{_}\kbd{[scaling
##' function]}) are intended to be added onto a \code{sonify} object
##' to specify how \kbd{[data parameter]} from the data (a column of
##' the data) is to be mapped to sonic parameters (here,
##' \code{"pitch"}, where middle C is represented as 8 and each octave
##' as 1).
##'
##' \code{_continuous} scales are a linear scaling, whereas
##' \code{_exp} is an exponential scale.
##'
##' @return A \code{sonscaling} object, to be used in \code{sonify} or
##' added onto a \code{sonify} object.
##'
##' @inheritParams scale_time_continuous
##' @param \dots Other parameters (currently ignored)
##' @seealso \code{\link{shape_scatter}}, which has more information
##' about this parameter
##' @rdname scale_pitch_continuous
##' @export
scale_pitch_continuous <- function(soundlimits, limits = NULL, by = NULL, ...) {
sonscaling(pitch = list(limits, soundlimits, function(x, limits, soundlimits) linear_scale(x, limits = limits, soundlimits, by = by)))
}

##' @rdname scale_pitch_continuous
##' @export
scale_pitch_exp <- function(soundlimits, limits = NULL, by = NULL, ...) {
sonscaling(pitch = list(limits, soundlimits, function(x, limits, soundlimits) exp_scale(x, limits = limits, soundlimits, by = by)))
}


##'