Subversion Repositories bdplot

Rev

Rev 5 | Rev 11 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5 pdel 1 
#################################################
2 
  ## this should start by determining paper size \showthe\textwidth is
3 
  ##  useful in latex to determine what width to use.
8 pdel 4 
## 360/72.270
5 pdel 5 
 
6 
#### All measures MUST be given in inches!!
7 
## A complete template consists of:
8 
## width: width of a figure (same as paperwidth?)
9 
## height: height of figure
10 
## height.paper: full paper height.
11 
## size.unit:
12 
 
13 
.bdpapertemplates <- function(){
14 
  bdpars <- list()
15 
 
16 
  bdpars$a4.word <- list(
17 
### According to word 2003, the default width for word is 21cm - 2*3.17cm = 14.66cm
18 
                         width = 14.66/2.54,
19 
                         height.paper = (29.7-2.54*2)/2.54,
20 
                         height = (29.7-2.54*2)/3/2.54,
21 
                         size.unit="in"
22 
                         )
23 
 
24 
### b5 is set up for the IMM phd thesis template
25 
  bdpars$b5=list(
26 
    width=4.782,
27 
    height=2.7,
28 
    height.full=NA,
29 
    size.unit="in"
30 
    )
8 pdel 31 
 
32 
#### these derivates from b5 will also be relevant for a4 etc. They could be calculated automatically if ie bdp()$half==TRUE.
5 pdel 33 
 
8 pdel 34 
  ## 2.354 works like a charm as it is with two subfigures next
35 
  ## to each other
5 pdel 36 
  bdpars$b5.half = list(
37 
    width = 2.354,
38 
    ## When the plots are narrower, it looks weird if they are not
39 
    ## "less high" too.
40 
    height = 2.15)
41 
 
42 
 
43 
 
44 
  bdpars$b5.quadratic = list(
45 
    width = bdpars$b5$width,
8 pdel 46 
    height = bdpars$b5$width)
5 pdel 47 
 
8 pdel 48 
  ## \showthe\textwidth gives 360.0 pt.
49 
  bdpars$a4=list(
50 
    width=4.98,
51 
    height=3.5,
52 
    height.full=NA,
53 
    size.unit="in"
54 
    )
55 
 
5 pdel 56 
  bdpars
57 
 
58 
}
59 
 
60 
### should this be done, if half==TRUE?
61 
### prm$mar.lab <-  mar.lab.half
62 
 
63 
 
64 
#### leftovers from the design from PB Plotting. Can probably be used for the a4 template.
65 
##   else if(prm$paper == "a4"){
66 
##       if  (all(mfrow==c(1,1)) & columns==1 & prm$paper == "a4"){
67 
##         prm$width <- 6
68 
##         prm$height <- 2.2
69 
##       }
70 
##       else {
71 
## #################################################
72 
##         if( all(mfrow==c(2,1)) & columns==1)
73 
##           {
74 
##             prm$width <- 6
75 
##             prm$height <- 3.5
76 
##           }
77 
## #################################################
78 
##         if( all(mfrow==c(3,1)) & columns==1)
79 
##           {
80 
##             prm$width <- 6
81 
##             prm$height <- 4.5
82 
##           }
83 
## #################################################
84 
##         if( all(mfrow==c(4,1)) & columns==1)
85 
##           {
86 
##             prm$width <- 6
87 
##             prm$height <- 5.5
88 
##         }
89 
## #################################################
90 
##       if( all(mfrow==c(1,2)) & columns==1)
91 
##         {
92 
##           prm$width <- 6
93 
##           prm$height <- 2.5
94 
##         }
95 
##       }
96 
## #################################################
97 
##     }
98 
##     prm$mfrow <- mfrow
99 
 
100 
 
101 
##     prm
102 
##   }