R/scorePreprocessor.scatter.R

In statisfactions/playitbyr: Representing and exploring data through sound

##' Score preprocessing for shape 'scatter'
##'
##' This function does some needed preprocessing for shape scatter to
##' get the method ready to render. In this case, it takes the 'time'
##' and 'tempo' mappings and translates them into start times. It also
##' scales duration accordingly.
##' 
##' @keywords internal
##' @method scorePreprocessor scatter
##' @inheritParams scorePreprocessor
##' @return A sonlayer score with the transformations described in the 'Description' field
scorePreprocessor.scatter <- function(sonlayerscore, opts, ...) {
  ## We need to transform the "tempo" or "time" data into actual start
  ## times and tranform the durations accordingly

  n <- nrow(sonlayerscore)
  
  if("tempo" %in% names(sonlayerscore)) {
    ## If tempo is provided, convert tempo data into start times, sort
    ## score, and scale durations in relation to beat
    beatlength <- 60/sonlayerscore$tempo
    sonlayerscore$tempo <- NULL
    sonlayerscore$start <- c(0, cumsum(beatlength[-n]))
    total <- sonlayerscore$start[n]+ beatlength[n] #used to calculate dur
  } else if("time" %in% names(sonlayerscore)) {
    ## Otherwise, just rename 'time' to 'start' and sort by that.
    sonlayerscore$start <- sonlayerscore$time
    sonlayerscore$time <- NULL
    sonlayerscore <- sonlayerscore[order(sonlayerscore$start),]
    total <- sonlayerscore$start[n] + mean(sonlayerscore$start[-1] - sonlayerscore$start[-n]) #used to calculate dur
  }

  ## Scale durations by total time divided by number of notes
  if(!is.null(opts$relative))
    if(opts$relative)
      sonlayerscore$dur <- (sonlayerscore$dur) * (total/n)

  ## away in the next version when we integrate closer with ggplot2
  if(!is.null(opts$jitter))
  sonsplit <- split(sonlayerscore, 10^(-5)*(sonlayerscore$start) + sonlayerscore$pitch)
  sonlayerscore <- do.call(rbind, lapply(sonsplit, function(x) {
    if(nrow(x) > 1)
      x$start <- abs(x$start + rnorm(nrow(x), mean = 0, sd = opts$jitter))
    return(x)
  }))

  attr(sonlayerscore, "length") <- max(sonlayerscore$start + sonlayerscore$dur) # length in seconds

  return(sonlayerscore)
}