Subversion Repositories bdplot

.bdcalcsizes <- function(paper=bdp()$paper,mfrow=c(1,1),scaleheight=1)

  {

    ## scaleheight is kind of a hack. We need to be able to the height

    ## without using mfrow. This is for sharing the x axis between

    ## plots.

    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

    ## should switch be used?

    if(any(mfrow<1)){

      stop("Both elements in bdp()$mfrow must be positive. Exiting...")

    }

    if(mfrow[1]*scaleheight<=4){

      height.touse <- min(mfrow[1]*scaleheight*paperpars$height,paperpars$height.full)

      print(height.touse)

      bdp(height=height.touse)

    } else {

      bdp(height=paperpars$height.full)

    }

### then the width

      bdp(width=paperpars$width)

      bdp(size.unit=paperpars$size.unit)

  }

## ### 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.full*r^(mfrow[1]-1))

##     } else {

##       bdp(height=paperpars$height.full)

##     }