WebSVN – bdplot – Diff – /bdgraphics/R/1_paper_templates.R


#################################################
  ## this should start by determining paper size \showthe\textwidth is
  ##  useful in latex to determine what width to use.
## 360/72.270
 
#### All measures MUST be given in inches!!
## A complete template consists of:
## width: width of a figure (same as paperwidth?)
## height: height of figure
## height.paper: full paper height.
## size.unit: 
 
.bdpapertemplates <- function(){
  bdpars <- list()
 
  bdpars$a4.word <- list(
### According to word 2003, the default width for word is 21cm - 2*3.17cm = 14.66cm
                         width = 14.66/2.54,
                         height.paper = (29.7-2.54*2)/2.54,
                         height = (29.7-2.54*2)/3/2.54,
                         size.unit="in"
                         )
  
### b5 is set up for the IMM phd thesis template
  bdpars$b5=list(
    width=4.782,
    height=2.7,
    height.full=NA,
    size.unit="in"
    )
 
 
 
    
#### these derivates from b5 will also be relevant for a4 etc. They could be calculated automatically if ie bdp()$half==TRUE.
  
  ## 2.354 works like a charm as it is with two subfigures next
  ## to each other
  bdpars$b5.half = list(
    width = 2.354,
    ## When the plots are narrower, it looks weird if they are not
    ## "less high" too.
    height = 2.15)
  
  
  
  bdpars$b5.quadratic = list(
    width = bdpars$b5$width,
    height = bdpars$b5$width)
 
  ## \showthe\textwidth gives 360.0 pt.
  bdpars$a4=list(
    width=4.98,
    height=3.5,
    height.full=NA,
    size.unit="in"
    )
 
  bdpars
  
}
  
### should this be done, if half==TRUE?
### prm$mar.lab <-  mar.lab.half
 
 
#### leftovers from the design from PB Plotting. Can probably be used for the a4 template.
##   else if(prm$paper == "a4"){
##       if  (all(mfrow==c(1,1)) & columns==1 & prm$paper == "a4"){
##         prm$width <- 6
##         prm$height <- 2.2
##       }
##       else {
## #################################################        
##         if( all(mfrow==c(2,1)) & columns==1)
##           {
##             prm$width <- 6
##             prm$height <- 3.5
##           }
## #################################################
##         if( all(mfrow==c(3,1)) & columns==1)
##           {
##             prm$width <- 6
##             prm$height <- 4.5
##           }
## #################################################
##         if( all(mfrow==c(4,1)) & columns==1)
##           {
##             prm$width <- 6
##             prm$height <- 5.5
##         }
## #################################################
##       if( all(mfrow==c(1,2)) & columns==1)
##         {
##           prm$width <- 6
##           prm$height <- 2.5
##         }
##       }     
## #################################################
##     }
##     prm$mfrow <- mfrow
    
    
##     prm
##   }
 

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

Subversion Repositories bdplot

(root)/bdgraphics/R/1_paper_templates.R – Rev 5 → 8