Subversion Repositories bdplot

Rev

Rev 15 | Rev 28 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 15 Rev 25
Line 1... Line 1...
1 
.bdcalcsizes <- function(paper=bdp()$paper,mfrow=c(1,1))
 1 
.bdcalcsizes <- function(paper=bdp()$paper,mfrow=c(1,1))
2 
  {
 2 
  {
3 
    prm <- bdp()
 3 
    prm <- bdp()
4 
    paperpars <- prm[[paper]]
 4 
    paperpars <- prm[[paper]]
5 
### columns, half, quadratic er levn fra et gammelt hack. skal erstattes med skabeloner.
 5 
### columns, half, quadratic er levn fra et gammelt hack. skal erstattes med skabeloner.
6 
    columns <- 1
 6 
###    columns <- 1
7 
    half <- FALSE
 7 
###    half <- FALSE
8 
    quadratic <- FALSE
 8 
###    quadratic <- FALSE
9 
 
 9 
 
10 
### first, the height
 10 
### first, the height
11 
    if(mfrow[1]==1){
 11 
    if(mfrow[1]==1){
12 
      bdp(height=paperpars$height)
 12 
      bdp(height=paperpars$height)
13 
    } else if(mfrow[1]<4){
 13 
    } else if(mfrow[1]<4){