| 5 |
pdel |
1 |
#################################################
|
|
|
2 |
## this should start by determining paper size \showthe\textwidth is
|
|
|
3 |
## useful in latex to determine what width to use.
|
|
|
4 |
|
|
|
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 |
)
|
|
|
31 |
|
|
|
32 |
|
|
|
33 |
|
|
|
34 |
|
|
|
35 |
#### these derivates from b5 will also be relevant for a4 etc. They could be calculated automatically if ie bdp()$half==TRUE.
|
|
|
36 |
|
|
|
37 |
## 2.354 works like a charm as it is with two subfigures next
|
|
|
38 |
## to each other
|
|
|
39 |
bdpars$b5.half = list(
|
|
|
40 |
width = 2.354,
|
|
|
41 |
## When the plots are narrower, it looks weird if they are not
|
|
|
42 |
## "less high" too.
|
|
|
43 |
height = 2.15)
|
|
|
44 |
|
|
|
45 |
|
|
|
46 |
|
|
|
47 |
bdpars$b5.quadratic = list(
|
|
|
48 |
width = bdpars$b5$width,
|
|
|
49 |
height = bdpars$b5$width)
|
|
|
50 |
|
|
|
51 |
bdpars
|
|
|
52 |
|
|
|
53 |
}
|
|
|
54 |
|
|
|
55 |
### should this be done, if half==TRUE?
|
|
|
56 |
### prm$mar.lab <- mar.lab.half
|
|
|
57 |
|
|
|
58 |
|
|
|
59 |
#### leftovers from the design from PB Plotting. Can probably be used for the a4 template.
|
|
|
60 |
## else if(prm$paper == "a4"){
|
|
|
61 |
## if (all(mfrow==c(1,1)) & columns==1 & prm$paper == "a4"){
|
|
|
62 |
## prm$width <- 6
|
|
|
63 |
## prm$height <- 2.2
|
|
|
64 |
## }
|
|
|
65 |
## else {
|
|
|
66 |
## #################################################
|
|
|
67 |
## if( all(mfrow==c(2,1)) & columns==1)
|
|
|
68 |
## {
|
|
|
69 |
## prm$width <- 6
|
|
|
70 |
## prm$height <- 3.5
|
|
|
71 |
## }
|
|
|
72 |
## #################################################
|
|
|
73 |
## if( all(mfrow==c(3,1)) & columns==1)
|
|
|
74 |
## {
|
|
|
75 |
## prm$width <- 6
|
|
|
76 |
## prm$height <- 4.5
|
|
|
77 |
## }
|
|
|
78 |
## #################################################
|
|
|
79 |
## if( all(mfrow==c(4,1)) & columns==1)
|
|
|
80 |
## {
|
|
|
81 |
## prm$width <- 6
|
|
|
82 |
## prm$height <- 5.5
|
|
|
83 |
## }
|
|
|
84 |
## #################################################
|
|
|
85 |
## if( all(mfrow==c(1,2)) & columns==1)
|
|
|
86 |
## {
|
|
|
87 |
## prm$width <- 6
|
|
|
88 |
## prm$height <- 2.5
|
|
|
89 |
## }
|
|
|
90 |
## }
|
|
|
91 |
## #################################################
|
|
|
92 |
## }
|
|
|
93 |
## prm$mfrow <- mfrow
|
|
|
94 |
|
|
|
95 |
|
|
|
96 |
## prm
|
|
|
97 |
## }
|