Rev 55 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
bdaxis <- function(side,...){
switch(side,
{mgp <- bdp()$mgp.xaxis },
{mgp <- bdp()$mgp.yaxis },
{mgp <- bdp()$mgp.taxis },
{mgp <- bdp()$mgp.raxis }
)
axis(side, mgp=mgp, lwd=bdp()$lwd,...)
}