Subversion Repositories bdplot

Rev

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

Rev 25 Rev 28
Line 6... Line 6...
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){
 - 
 
12 
      bdp(height=paperpars$height)
 11 
    ## should switch be used?
13 
    } else if(mfrow[1]<4){
 12 
    if(any(mfrow<1)){
14 
#### en graf fylder 1/3, 4 graf fylder det hele
 13 
      stop("Both elements in bdp()$mfrow must be positive. Exiting...")
- 
 
 14 
    }
- 
 
 15 
 
15 
      r <- (3/4)^(1/3)
 16 
    if(mfrow[1]<=4){
16 
      bdp(height=mfrow[1]*1/3*paperpars$height.full*r^(mfrow[1]-1))
 17 
      bdp(height=mfrow[1]*paperpars$height)
17 
    } else {
 18 
    } else {
18 
      bdp(height=paperpars$height.full)
 19 
      bdp(height=paperpars$height.full)
19 
    }
 20 
    }
20
21
21 
### then the width
 22 
### then the width
22 
    bdp(width=paperpars$width)
 23 
      bdp(width=paperpars$width)
23 
    bdp(size.unit=paperpars$size.unit)
 24 
      bdp(size.unit=paperpars$size.unit)
- 
 
 25
- 
 
 26
24 
  }
 27 
  }
- 
 
 28 
 
- 
 
 29 
## ### first, the height
- 
 
 30 
##     if(mfrow[1]==1){
- 
 
 31 
##       bdp(height=paperpars$height)
- 
 
 32 
##     } else if(mfrow[1]<4){
- 
 
 33 
## #### en graf fylder 1/3, 4 graf fylder det hele
- 
 
 34 
##       r <- (3/4)^(1/3)
- 
 
 35 
##       bdp(height=mfrow[1]*1/3*paperpars$height.full*r^(mfrow[1]-1))
- 
 
 36 
##     } else {
- 
 
 37 
##       bdp(height=paperpars$height.full)
- 
 
 38 
##     }