Subversion Repositories bdplot

bdlegend <- function(legend,cex=bdp()$cex.legend,x=bdp()$pos.legend,bg=bdp()$bg.legend,col=bdp()$col,...){
  prm <- .bdgetpars()
  ## dette er noget rod med baade x og pos, hvis man giver begge dele fucker det op.
  legend(x=x,
         cex=cex,
         legend=legend,
         bg=bg,
         col=col,
         ...)
  
}