Subversion Repositories bdplot

Rev

Rev 15 | Rev 28 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5 pdel 1 
.bdcalcsizes <- function(paper=bdp()$paper,mfrow=c(1,1))
2 
  {
3 
    prm <- bdp()
4 
    paperpars <- prm[[paper]]
5 
### columns, half, quadratic er levn fra et gammelt hack. skal erstattes med skabeloner.
25 pdel 6 
###    columns <- 1
7 
###    half <- FALSE
8 
###    quadratic <- FALSE
5 pdel 9 
 
10 
### first, the height
11 
    if(mfrow[1]==1){
12 
      bdp(height=paperpars$height)
13 
    } else if(mfrow[1]<4){
14 
#### en graf fylder 1/3, 4 graf fylder det hele
15 
      r <- (3/4)^(1/3)
15 pdel 16 
      bdp(height=mfrow[1]*1/3*paperpars$height.full*r^(mfrow[1]-1))
5 pdel 17 
    } else {
15 pdel 18 
      bdp(height=paperpars$height.full)
5 pdel 19 
    }
20 
 
21 
### then the width
22 
    bdp(width=paperpars$width)
23 
    bdp(size.unit=paperpars$size.unit)
24 
  }