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.plot,...){

  prm <- .bdgetpars()
  

## is this condition even necessary?
    if(!is.null(y)){
      points(x,y,cex=cex,pch=pch,type=type,col=col,...)
    } else {
      points(x,cex=cex,pch=pch,col=col,type=type,...)
    }

}


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

  bdxyadd(x,y=y,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.plot,...){

  bdxyadd(x,y=y,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 = a, b = b, h = h, v = v, reg = reg, 
    coef = coef, untf = untf, lwd=lwd,lty=lty,...)

}