Subversion Repositories bdplot

Rev

Rev 44 | Rev 51 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 44 Rev 47
Line 30... Line 30...
30
30
31 
 
 31 
 
32
32
33 
  prm <- bdp()
 33 
  prm <- bdp()
34 
 
 34 
 
35 
 
 - 
 
- 
 
 35 
## It's a mess to set cex.lab here. Or it should not be set in
- 
 
 36 
##  functions calls. If set both ways, it's scaled twice, meaning that
- 
 
 37 
##  we don't know how to make it fit with mtext for eg rlab.
36 
  par(cex.main=prm$cex.main, cex.lab=prm$cex.lab, cex.axis=prm$cex.axis)
 38 
  par(cex.main=prm$cex.main, cex.lab=prm$cex.lab,
- 
 
 39 
  cex.axis=prm$cex.axis)
- 
 
 40 
##   par(cex.main=prm$cex.main, cex.axis=prm$cex.axis)
37 
  par(tcl=prm$tcl)
 41 
  par(tcl=prm$tcl)
38 
  par(lwd=prm$lwd)
 42 
  par(lwd=prm$lwd)
39 
  par(bty=prm$bty)
 43 
  par(bty=prm$bty)
40 
 
 44 
 
41 
 
 45 
 
Line 61... Line 65...
61 
  ## if( !is.na(prm$rightlab) ){ mar[4] <- prm$mar.lab[4] }
 65 
  ## if( !is.na(prm$rightlab) ){ mar[4] <- prm$mar.lab[4] }
62 
  par(mar=mar)
 66 
  par(mar=mar)
63 
 
 67 
 
64 
  par(mgp=prm$mgp.global)
 68 
  par(mgp=prm$mgp.global)
65
69
66 
### xaxt and yaxt can be set to "axis" which is the special case where the axis is drawn with the axius
 70 
### xaxt and yaxt can be set to "axis" which is the special case where the axis is drawn with the axis
67 
  if(class(xaxt)=="function") {
 71 
  if(class(xaxt)=="function") {
68 
 
 72 
 
69 
    if(prm$debug)
 73 
    if(prm$debug)
70 
      print(class(x))
 74 
      print(class(x))
71 
 
 75