Subversion Repositories bdplot

Rev

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

Rev 8 Rev 15
Line 11... Line 11...
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){
14 
#### en graf fylder 1/3, 4 graf fylder det hele
 14 
#### en graf fylder 1/3, 4 graf fylder det hele
15 
      r <- (3/4)^(1/3)
 15 
      r <- (3/4)^(1/3)
16 
      bdp(height=mfrow[1]*1/3*paperpars$height.paper*r^(mfrow[1]-1))
 16 
      bdp(height=mfrow[1]*1/3*paperpars$height.full*r^(mfrow[1]-1))
17 
    } else {
 17 
    } else {
18 
      bdp(height=paperpars$height.paper)
 18 
      bdp(height=paperpars$height.full)
19 
    }
 19 
    }
20
20
21 
### then the width
 21 
### then the width
22 
    bdp(width=paperpars$width)
 22 
    bdp(width=paperpars$width)
23 
    bdp(size.unit=paperpars$size.unit)
 23 
    bdp(size.unit=paperpars$size.unit)