Subversion Repositories bdplot

.bdcalcsizes <- function(paper=bdp()$paper,mfrow=bdp()$mfrow)
  {
    prm <- bdp()
    paperpars <- prm[[paper]]
### columns, half, quadratic er levn fra et gammelt hack. skal erstattes med skabeloner.
    columns <- 1
    half <- FALSE
    quadratic <- FALSE

### first, the height
    if(mfrow[1]==1){
      bdp(height=paperpars$height)
    } else if(mfrow[1]<4){
#### en graf fylder 1/3, 4 graf fylder det hele
      r <- (3/4)^(1/3)
      bdp(height=mfrow[1]*1/3*paperpars$height.paper*r^(mfrow[1]-1))
    } else {
      bdp(height=paperpars$height.paper)
    }
    
### then the width
    bdp(width=paperpars$width)
    bdp(size.unit=paperpars$size.unit)
  }