Subversion Repositories bdplot

Rev

Rev 8 | Go to most recent revision | Details | Last modification | View Log | RSS feed

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