R/compositePlayBar.R

In mslegrand/svgR: svgR is an R DSL to generate svg markup

#---------------------------------------------------------------
# playBar code begins here



playButton.click<-function(){
  paste0(nextPlayId(FALSE),".click")
}


playButton <- function( xy=c(20,80), br=10){
  playButtonId<-nextPlayId()
  pt=xy-br*c(2,2)
  g(id=playButtonId,
    circle(cxy=pt, r=br+2, stroke="grey", fill='grey'),
    circle(cxy=pt, r=br, stroke="grey", fill='#404040'),
    polygon(points=list( pt+c(br,0),pt+c(-br*.3,br*.4),
                         pt+c(-br*.3,-br*.4)),
            fill="lime")
  )
}


#' @name playBar
#' @title playBar Compound
#' @param    wh  numeric vector for the width-heigth of the
#' drawing area sans the toggle bar
#' @param UseGraphPaper  add GraphPaper to background (default=FALSE)
#' @usage playBar(wh, UseGraphPaper)
#' @details recommend placing immediately after the svgR call
#' @description Internal compound used to control an animation.  
#' @keywords display helper
NULL

playBar <- function(wh, UseGraphPaper=FALSE){
  tmp<-list(
    rect(xy=c(0,wh[2]),  wh=c(wh[1],40),
         fill= linearGradient(
           xy1=c(0,0), xy2=c(0,1),
           colors=c("lightblue","white","lightblue")
         )
    ),
    playButton(xy=wh+c(0,40)),
    rect(xy=c(0,0),wh=wh, fill='none', stroke='blue', stroke.width=3)
  )
  if(UseGraphPaper){
    tmp<-c(graphPaper(wh=wh-c(0,40)),tmp)
  }
  tmp<-c( tmp,list(wh=wh+c(0,40) ) )
}