Subversion Repositories bdplot

Rev

Rev 8 | Rev 12 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8 Rev 9
Line 20... Line 20...
20 
                   ...)
 20 
                   ...)
21 
{
 21 
{
22 
  prm <- bdp()
 22 
  prm <- bdp()
23 
 
 23 
 
24 
 
 24 
 
- 
 
 25 
  par(cex.main=prm$cex.main, cex.lab=prm$cex.lab, cex.axis=prm$cex.axis)
- 
 
 26 
  par(tcl=prm$tcl)
- 
 
 27 
  par(lwd=prm$lwd)
- 
 
 28 
  par(bty=prm$bty)
- 
 
 29 
 
- 
 
 30
25 
  ##Set margins
 31 
  ##Set margins
26 
  mar <- prm$mar.nolab
 32 
  mar <- prm$mar.nolab
27 
  if( !is.na(prm$xlab) ){ mar[1] <- prm$mar.lab[1] }
 33 
  if( !is.na(prm$xlab) ){ mar[1] <- prm$mar.lab[1] }
28 
  if( !is.na(prm$ylab) ){ mar[2] <- prm$mar.lab[2] }
 34 
  if( !is.na(prm$ylab) ){ mar[2] <- prm$mar.lab[2] }
29 
  if( any(!is.na(prm$toplab),!is.null(main)) ) { mar[3] <- prm$mar.lab[3] }
 35 
  if( any(!is.na(prm$toplab),!is.null(main)) ) { mar[3] <- prm$mar.lab[3] }