Subversion Repositories bdplot

Rev

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

Rev 14 Rev 15
Line 5... Line 5...
5 
 
 5 
 
6 
#### All measures MUST be given in inches!!
 6 
#### All measures MUST be given in inches!!
7 
## A complete template consists of:
 7 
## A complete template consists of:
8 
## width: width of a figure (same as paperwidth?)
 8 
## width: width of a figure (same as paperwidth?)
9 
## height: height of figure
 9 
## height: height of figure
10 
## height.paper: full paper height.
 10 
## height.full: full paper height.
11 
## size.unit:
11 
## size.unit:
12 
 
 12 
 
13 
.bdpapertemplates <- function(){
 13 
.bdpapertemplates <- function(){
14 
  bdpars <- list()
 14 
  bdpars <- list()
15 
 
 15 
 
16 
  bdpars$a4.word <- list(
 16 
  bdpars$a4.word <- list(
17 
### According to word 2003, the default width for word is 21cm - 2*3.17cm = 14.66cm
 17 
### According to word 2003, the default width for word is 21cm - 2*3.17cm = 14.66cm
18 
                         width = 14.66/2.54,
 18 
                         width = 14.66/2.54,
19 
                         height.paper = (29.7-2.54*2)/2.54,
 19 
                         height.full = (29.7-2.54*2)/2.54,
20 
                         height = (29.7-2.54*2)/3/2.54,
 20 
                         height = (29.7-2.54*2)/3/2.54,
21 
                         size.unit="in"
 21 
                         size.unit="in"
22 
                         )
 22 
                         )
23
23
24 
### b5 is set up for the IMM phd thesis template
 24 
### b5 is set up for the IMM phd thesis template
Line 63... Line 63...
63
63
64 
  bdpars
 64 
  bdpars
65
65
66 
}
 66 
}
67
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 
##   }
 -