Subversion Repositories bdplot

Rev

Rev 69 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 69 Rev 70
Line 8... Line 8...
8 
  }
 8 
  }
9
9
10 
  layout(1:(nplots+2), heights=c(lcm(0.1), heights, lcm(1)))
 10 
  layout(1:(nplots+2), heights=c(lcm(0.1), heights, lcm(1)))
11 
  ##  bdp(mar.lab=c(0,5,0.1,1),xaxt="n",las=1,mgp=c(3.5, 1, 0))
 11 
  ##  bdp(mar.lab=c(0,5,0.1,1),xaxt="n",las=1,mgp=c(3.5, 1, 0))
12 
 
 12 
 
13 
  ## Labels seem to be scaled. Need adjustment. This looks ok at least sometimes.
 13 
  ## Labels seem to be scaled. Need adjustment so that it is reset
- 
 
 14 
  ## after bdsharex.end. This looks ok at least sometimes.
- 
 
 15 
  if(is.null(bdp()$saved.cex.lab)){
- 
 
 16
- 
 
 17 
    bdp(saved.cex.lab=bdp()$cex.lab)
- 
 
 18 
    bdp(saved.cex.axis=bdp()$cex.axis)
- 
 
 19 
    bdp(saved.cex.legend=bdp()$cex.legend)
- 
 
 20
14 
  bdp(cex.lab=bdp()$cex.lab*1.3)
 21 
    bdp(cex.lab=bdp()$cex.lab*1.3)
15 
  bdp(cex.axis=bdp()$cex.axis*1.3)
 22 
    bdp(cex.axis=bdp()$cex.axis*1.3)
16 
  bdp(cex.legend = bdp()$cex.legend*1.3)
 23 
    bdp(cex.legend = bdp()$cex.legend*1.3)
- 
 
 24 
  }
- 
 
 25 
  else {
- 
 
 26 
    bdp(cex.lab=bdp()$saved.cex.lab*1.3)
- 
 
 27 
    bdp(cex.axis=bdp()$saved.cex.axis*1.3)
- 
 
 28 
    bdp(cex.legend = bdp()$saved.cex.legend*1.3)
- 
 
 29 
  }
17 
 
 30
18
31
19 
  bdp(mar.nolab=c(0,bdp()$mar.nolab[2],0,bdp()$mar.nolab[4]))
 32 
  bdp(mar.nolab=c(0,bdp()$mar.nolab[2],0,bdp()$mar.nolab[4]))
20 
  bdp(mar.lab=c(0,bdp()$mar.lab[2],0,bdp()$mar.lab[4]))
 33 
  bdp(mar.lab=c(0,bdp()$mar.lab[2],0,bdp()$mar.lab[4]))
21
34
Line 33... Line 46...
33 
  bdp(grid.v=NA)
 46 
  bdp(grid.v=NA)
34 
  bdp(grid.h=NA)
 47 
  bdp(grid.h=NA)
35 
  bdp(grid=FALSE)
 48 
  bdp(grid=FALSE)
36 
  bdplot(1,1,type="n",xaxt="n",yaxt="n",bty="n",ylab="",rlab="")
 49 
  bdplot(1,1,type="n",xaxt="n",yaxt="n",bty="n",ylab="",rlab="")
37 
  bdp(grid.h=oldbdp$grid.h,grid.v=oldbdp$grid.v)
 50 
  bdp(grid.h=oldbdp$grid.h,grid.v=oldbdp$grid.v)
- 
 
 51 
 
- 
 
 52 
  bdp(cex.lab=bdp()$saved.cex.lab)
- 
 
 53 
  bdp(cex.axis=bdp()$saved.cex.axis)
- 
 
 54 
  bdp(cex.legend=bdp()$saved.cex.legend)
38 
}
 55 
}