Subversion Repositories bdplot

## a function to add points or lines to a plot. det kan skrives meget
## paenere, om en streng indeholder en karakter.

## grep("l",type)

bdxyadd <- function(x,y=NULL,type=bdp()$type,lwd=bdp()$lwd,pch=bdp()$pch,col=bdp()$col,cex=bdp()$cex,...){

  prm <- .bdgetpars()
  
  if(any(type=="p",type=="l",type=="s")){
    if(!is.null(y)){
      points(x,y,cex=prm$cex.plot,pch=prm$pch,type=type,col=col,...)
    } else {
      points(x,cex=prm$cex.plot,pch=prm$pch,col=col,type=type,...)
    }
  } else if (type=="lp"|type=="pl"){
    if(!is.null(y)){
      points(x,y,cex=prm$cex.plot,pch=prm$pch,col=col,...)
      lines(x,y,lwd=lwd,col=col,...)
    } else {
      points(x,cex=prm$cex.plot,pch=prm$pch,col=col,...)
      lines(x,lwd=lwd,col=col,...)
    }
  }
}


bdpoints <- function(x,y=NULL,type="points",lwd=bdp()$lwd,pch=bdp()$pch,col=bdp()$col,cex=bdp()$cex,...){

  bdxyadd(x,y=NULL,type=type,lwd=lwd,pch=pch,col=col,cex=cex,...)
}


bdlines <- function(x,y=NULL,type="lines",lwd=bdp()$lwd,pch=bdp()$pch,col=bdp()$col,cex=bdp()$cex,...){

  bdxyadd(x,y=NULL,type=type,lwd=lwd,pch=pch,col=col,cex=cex,...)
}

bdabline <- function(a = NULL, b = NULL, h = NULL, v = NULL, reg = NULL, 
    coef = NULL, untf = FALSE, lwd=bdp()$lwd,lty=bdp()$lty,...){
  abline(a = NULL, b = NULL, h = NULL, v = NULL, reg = NULL, 
    coef = NULL, untf = FALSE, lwd=lwd,lty=lty,...)
}