Subversion Repositories bdplot

Rev

Rev 11 | Rev 15 | 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,
11 pdel 51 
    height=3.2,
8 pdel 52 
    height.full=NA,
53 
    size.unit="in"
54 
    )
55 
 
14 pdel 56 
 
57 
  bdpars$beamer=list(
58 
    width=3.65,
59 
    height=2.3,
60 
    height.full=NA,
61 
    size.unit="in"
62 
    )
63 
 
5 pdel 64 
  bdpars
65 
 
66 
}
67 
 
68 
### should this be done, if half==TRUE?
69 
### prm$mar.lab <-  mar.lab.half
70 
 
71 
 
72 
#### leftovers from the design from PB Plotting. Can probably be used for the a4 template.
73 
##   else if(prm$paper == "a4"){
74 
##       if  (all(mfrow==c(1,1)) & columns==1 & prm$paper == "a4"){
75 
##         prm$width <- 6
76 
##         prm$height <- 2.2
77 
##       }
78 
##       else {
79 
## #################################################
80 
##         if( all(mfrow==c(2,1)) & columns==1)
81 
##           {
82 
##             prm$width <- 6
83 
##             prm$height <- 3.5
84 
##           }
85 
## #################################################
86 
##         if( all(mfrow==c(3,1)) & columns==1)
87 
##           {
88 
##             prm$width <- 6
89 
##             prm$height <- 4.5
90 
##           }
91 
## #################################################
92 
##         if( all(mfrow==c(4,1)) & columns==1)
93 
##           {
94 
##             prm$width <- 6
95 
##             prm$height <- 5.5
96 
##         }
97 
## #################################################
98 
##       if( all(mfrow==c(1,2)) & columns==1)
99 
##         {
100 
##           prm$width <- 6
101 
##           prm$height <- 2.5
102 
##         }
103 
##       }
104 
## #################################################
105 
##     }
106 
##     prm$mfrow <- mfrow
107 
 
108 
 
109 
##     prm
110 
##   }