-
Notifications
You must be signed in to change notification settings - Fork 0
/
beamer_colors.R
249 lines (231 loc) · 11.9 KB
/
beamer_colors.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
#
# Color palette matching the latex Beamer class
# http://latex-beamer.sourceforge.net/
#
# (c) 2007-2009 Jean-Olivier Irisson <irisson@normalesup.org>.
# GNU General Public License http://www.gnu.org/copyleft/gpl.html
#
#------------------------------------------------------------
beamer = list()
# Default colors
rgb( 24, 28, 87,maxColorValue=255) -> beamer$defaultOuter1
rgb( 37, 43,130,maxColorValue=255) -> beamer$defaultOuter2
rgb( 49, 57,174,maxColorValue=255) -> beamer$defaultOuter3
rgb(233,233,242,maxColorValue=255) -> beamer$defaultBlock
rgb(141,145,208,maxColorValue=255) -> beamer$defaultAddedBlue
rgb( 49, 57,174,maxColorValue=255) -> beamer$defaultBlockHeader
rgb(245,231,231,maxColorValue=255) -> beamer$defaultAlertBlock
rgb(205,130,130,maxColorValue=255) -> beamer$defaultAddedRed
rgb(165, 29, 30,maxColorValue=255) -> beamer$defaultAlertBlockHeader
rgb(232,238,230,maxColorValue=255) -> beamer$defaultExampleBlock
rgb(138,166,120,maxColorValue=255) -> beamer$defaultAddedGreen
rgb( 43, 93, 10,maxColorValue=255) -> beamer$defaultExampleBlockHeader
rgb(228,228,228,maxColorValue=255) -> beamer$defaultCoveredText
rgb(224,225,243,maxColorValue=255) -> beamer$defaultCoveredBullet
rgb(255,255,255,maxColorValue=255) -> beamer$defaultBackground
rgb( 0, 0, 0,maxColorValue=255) -> beamer$defaultText
beamer$default = c(beamer$defaultOuter1,
beamer$defaultOuter2,
beamer$defaultBlockHeader,
beamer$defaultAddedBlue,
beamer$defaultCoveredBullet,
beamer$defaultAlertBlockHeader,
beamer$defaultAddedRed,
beamer$defaultAlertBlock,
beamer$defaultExampleBlockHeader,
beamer$defaultAddedGreen,
beamer$defaultExampleBlock)
# Default light colors (seashore, rose)
rgb(194,195,230,maxColorValue=255) -> beamer$lightOuter1
rgb(204,205,234,maxColorValue=255) -> beamer$lightOuter2
rgb(214,215,239,maxColorValue=255) -> beamer$lightOuter3
rgb(235,235,246,maxColorValue=255) -> beamer$lightBlock
rgb(214,215,239,maxColorValue=255) -> beamer$lightBlockHeader
rgb(102,106,194,maxColorValue=255) -> beamer$lightBlockHeaderText
rgb(249,231,231,maxColorValue=255) -> beamer$lightAlertBlock
rgb(244,206,206,maxColorValue=255) -> beamer$lightAlertBlockHeader
rgb(221, 42, 43,maxColorValue=255) -> beamer$lightAlertBlockHeaderText
rgb(233,241,230,maxColorValue=255) -> beamer$lightExampleBlock
rgb(210,229,204,maxColorValue=255) -> beamer$lightExampleBlockHeader
rgb( 62,130, 19,maxColorValue=255) -> beamer$lightExampleBlockHeaderText
rgb(228,228,228,maxColorValue=255) -> beamer$lightCoveredText
rgb(224,225,243,maxColorValue=255) -> beamer$lightCoveredBullet
rgb(255,255,255,maxColorValue=255) -> beamer$lightBackground
rgb( 0, 0, 0,maxColorValue=255) -> beamer$lightText
beamer$light = c(beamer$lightBlockHeaderText,
beamer$lightOuter1,
beamer$lightOuter3,
beamer$lightBlock,
beamer$lightAlertBlockHeaderText,
beamer$lightAlertBlockHeader,
beamer$lightAlertBlock,
beamer$lightExampleBlockHeaderText,
beamer$lightExampleBlockHeader,
beamer$lightExampleBlock)
# Beetle theme
rgb( 61, 73,112,maxColorValue=255) -> beamer$beetleOuter1
rgb( 64, 77,119,maxColorValue=255) -> beamer$beetleOuter2
rgb( 67, 81,125,maxColorValue=255) -> beamer$beetleOuter3
rgb( 85,103,158,maxColorValue=255) -> beamer$beetleAddedBlue1
rgb(115,130,179,maxColorValue=255) -> beamer$beetleAddedBlue2
rgb(180,185,203,maxColorValue=255) -> beamer$beetleAddedBlue3
rgb(205,130,130,maxColorValue=255) -> beamer$beetleAddedRed
rgb(188, 33, 34,maxColorValue=255) -> beamer$beetleAlertBlockHeaderText
rgb(138,166,120,maxColorValue=255) -> beamer$beetleAddedGreen
rgb( 58,124, 14,maxColorValue=255) -> beamer$beetleExampleBlockHeaderText
rgb(255,255,255,maxColorValue=255) -> beamer$beetleHeaderText
rgb(204,204,204,maxColorValue=255) -> beamer$beetleAddedGrey1
rgb(168,168,168,maxColorValue=255) -> beamer$beetleCoveredBullet
rgb(153,153,153,maxColorValue=255) -> beamer$beetleBackground
rgb(130,130,130,maxColorValue=255) -> beamer$beetleCoveredText
rgb( 77, 77, 77,maxColorValue=255) -> beamer$beetleAddedGrey2
rgb( 0, 0, 0,maxColorValue=255) -> beamer$beetleText
beamer$beetle = c(beamer$beetleOuter1,
beamer$beetleAddedBlue1,
beamer$beetleAddedBlue2,
beamer$beetleAddedBlue3,
beamer$beetleAlertBlockHeaderText,
beamer$beetleAddedRed,
beamer$beetleExampleBlockHeaderText,
beamer$beetleAddedGreen,
beamer$beetleAddedGrey2,
beamer$beetleCoveredText,
beamer$beetleBackground,
beamer$beetleCoveredBullet,
beamer$beetleAddedGrey1)
# Albatross theme
rgb( 0, 8, 55,maxColorValue=255) -> beamer$albatrossOuter1
rgb( 0, 10, 75,maxColorValue=255) -> beamer$albatrossOuter2
rgb( 0, 13, 93,maxColorValue=255) -> beamer$albatrossOuter3
rgb( 0, 17,124,maxColorValue=255) -> beamer$albatrossBackground
rgb( 0, 15,112,maxColorValue=255) -> beamer$albatrossBlock
rgb( 0, 13, 93,maxColorValue=255) -> beamer$albatrossBlockHeader
rgb(108,112,184,maxColorValue=255) -> beamer$albatrossHeaderText
rgb(190,193,252,maxColorValue=255) -> beamer$albatrossBullet
rgb( 27, 36,143,maxColorValue=255) -> beamer$albatrossCoveredBullet
rgb( 62, 60, 95,maxColorValue=255) -> beamer$albatrossCoveredText
rgb(223,143,135,maxColorValue=255) -> beamer$albatrossAddedRed
rgb(202, 68, 54,maxColorValue=255) -> beamer$albatrossAlertBlockHeaderText
rgb(157,222,103,maxColorValue=255) -> beamer$albatrossAddedGreen
rgb(105,182, 40,maxColorValue=255) -> beamer$albatrossExampleBlockHeaderText
rgb(234,227,133,maxColorValue=255) -> beamer$albatrossText
rgb(218,207, 47,maxColorValue=255) -> beamer$albatrossAddedYellow
rgb(255,255,255,maxColorValue=255) -> beamer$albatrossAddedWhite
# Fly theme
rgb( 0, 0, 0,maxColorValue=255) -> beamer$flyText
rgb( 64, 64, 64,maxColorValue=255) -> beamer$flyAddedGrey
rgb(128,128,128,maxColorValue=255) -> beamer$flyOuter
rgb(153,153,153,maxColorValue=255) -> beamer$flyBackground
rgb(204,204,204,maxColorValue=255) -> beamer$flyAddedGrey
rgb(255,255,255,maxColorValue=255) -> beamer$flyHeaderText
rgb(168,168,168,maxColorValue=255) -> beamer$flyCoveredBullet
rgb(130,130,130,maxColorValue=255) -> beamer$flyCoveredText
rgb(221,144,144,maxColorValue=255) -> beamer$flyAddedRed
rgb(188, 33, 34,maxColorValue=255) -> beamer$flyAlertBlockHeaderText
rgb(156,189,134,maxColorValue=255) -> beamer$flyAddedGreen
rgb( 58,124, 14,maxColorValue=255) -> beamer$flyExampleBlockHeaderText
rgb(152,156,215,maxColorValue=255) -> beamer$flyAddedBlue
rgb( 49, 57,174,maxColorValue=255) -> beamer$flyAddedDefaultBlue
# Seagull theme
rgb(179,179,179,maxColorValue=255) -> beamer$seagullOuter1
rgb(191,191,191,maxColorValue=255) -> beamer$seagullOuter2
rgb(204,204,204,maxColorValue=255) -> beamer$seagullOuter3
rgb(230,230,230,maxColorValue=255) -> beamer$seagullBlock
rgb(217,217,217,maxColorValue=255) -> beamer$seagullAddedGrey
rgb(204,204,204,maxColorValue=255) -> beamer$seagullBlockHeader
rgb(220,220,220,maxColorValue=255) -> beamer$seagullCoveredText
rgb(247,247,247,maxColorValue=255) -> beamer$seagullCoveredBullet
rgb(255,255,255,maxColorValue=255) -> beamer$seagullBackground
rgb( 0, 0, 0,maxColorValue=255) -> beamer$seagullText
# Beaver theme
rgb(141, 25, 25,maxColorValue=255) -> beamer$beaverOuterFrame
rgb(173, 95, 95,maxColorValue=255) -> beamer$beaverAddedRed
rgb(204,166,166,maxColorValue=255) -> beamer$beaverAddedRed
rgb(217,217,217,maxColorValue=255) -> beamer$beaverOuter1
rgb(236,236,236,maxColorValue=255) -> beamer$beaverOuter2
rgb(242,242,242,maxColorValue=255) -> beamer$beaverOuter3
rgb(143,147,205,maxColorValue=255) -> beamer$beaverAddedBlue
rgb( 49, 57,174,maxColorValue=255) -> beamer$beaverBlockHeaderText
rgb(147,180,125,maxColorValue=255) -> beamer$beaverAddedGreen
rgb( 58,124, 14,maxColorValue=255) -> beamer$beaverExampleBlockHeaderText
rgb(200,138,138,maxColorValue=255) -> beamer$beaverAddedRed
rgb(164, 40, 40,maxColorValue=255) -> beamer$beaverAlertBlockHeaderText
rgb(228,228,228,maxColorValue=255) -> beamer$beaverCoveredText
rgb(224,225,243,maxColorValue=255) -> beamer$beaverCoveredBullet
rgb(255,255,255,maxColorValue=255) -> beamer$beaverBackground
rgb( 0, 0, 0,maxColorValue=255) -> beamer$beaverText
# Crane theme
rgb(240,193, 57,maxColorValue=255) -> beamer$craneOuter1
rgb(243,200, 74,maxColorValue=255) -> beamer$craneOuter2
rgb(244,206, 94,maxColorValue=255) -> beamer$craneOuter3
rgb(251,237,196,maxColorValue=255) -> beamer$craneBlock
rgb(245,212,121,maxColorValue=255) -> beamer$craneAddedOrange
rgb(239,187, 46,maxColorValue=255) -> beamer$craneBlockHeader
rgb(245,231,231,maxColorValue=255) -> beamer$craneAlertBlock
rgb(205,130,130,maxColorValue=255) -> beamer$craneAddedRed
rgb(165, 29, 30,maxColorValue=255) -> beamer$craneAlertBlockHeader
rgb(232,238,230,maxColorValue=255) -> beamer$craneExampleBlock
rgb(138,166,120,maxColorValue=255) -> beamer$craneAddedGreen
rgb( 43, 93, 10,maxColorValue=255) -> beamer$craneExampleBlockHeader
rgb(228,228,228,maxColorValue=255) -> beamer$craneCoveredText
rgb(224,225,243,maxColorValue=255) -> beamer$craneCoveredBullet
rgb( 0, 12, 74,maxColorValue=255) -> beamer$craneBullet
rgb(255,255,255,maxColorValue=255) -> beamer$craneBackground
rgb( 0, 0, 0,maxColorValue=255) -> beamer$craneText
# Wolverine theme
rgb(236,161, 79,maxColorValue=255) -> beamer$wolverineOuter1
rgb(242,188, 46,maxColorValue=255) -> beamer$wolverineOuter2
rgb(248,219, 48,maxColorValue=255) -> beamer$wolverineOuter3
rgb(250,227, 48,maxColorValue=255) -> beamer$wolverineOuter4
rgb(253,241,152,maxColorValue=255) -> beamer$wolverineAddedYellow
rgb(140,147,211,maxColorValue=255) -> beamer$wolverineAddedBlue
rgb( 25, 39,166,maxColorValue=255) -> beamer$wolverineHeaderText
rgb(163,197,146,maxColorValue=255) -> beamer$wolverineAddedGreen
rgb( 72,139, 36,maxColorValue=255) -> beamer$wolverineExampleBlockTitle
rgb(228,228,228,maxColorValue=255) -> beamer$wolverineCoveredText
rgb(224,225,243,maxColorValue=255) -> beamer$wolverineCoveredBullet
rgb(255,255,255,maxColorValue=255) -> beamer$wolverineBackground
rgb( 0, 0, 0,maxColorValue=255) -> beamer$wolverineText
# Aliases
beamer$darkBlue = beamer$defaultOuter1
beamer$blue = beamer$defaultBlockHeader
beamer$lightBlue = beamer$lightOuter1
beamer$darkRed = beamer$defaultAlertBlockHeader
beamer$red = beamer$lightAlertBlockHeaderText
beamer$lightRed = beamer$lightAlertBlockHeader
beamer$darkGreen = beamer$defaultExampleBlockHeader
beamer$green = beamer$lightExampleBlockHeaderText
beamer$lightGreen = beamer$lightExampleBlockHeader
beamer$darkGrey = beamer$beetleAddedGrey2
beamer$grey = beamer$beetleCoveredText
beamer$lightGrey = beamer$beetleAddedGrey1
# Functions generating color ramps
#------------------------------------------------------------
beamer.blues <- function(n, alpha = 1)
# Generate n shades of blue
{
suppressPackageStartupMessages(require("graphics"))
suppressPackageStartupMessages(require("ggplot2"))
return(alpha(colorRampPalette(c(beamer$darkBlue, beamer$lightBlue))(n), alpha=alpha))
}
beamer.greens <- function(n, alpha = 1)
# Generate n shades of green
{
suppressPackageStartupMessages(require("graphics"))
suppressPackageStartupMessages(require("ggplot2"))
return(alpha(colorRampPalette(c(beamer$darkGreen, beamer$lightGreen))(n), alpha=alpha))
}
beamer.reds <- function(n, alpha = 1)
# Generates n shades of red
{
suppressPackageStartupMessages(require("graphics"))
suppressPackageStartupMessages(require("ggplot2"))
return(alpha(colorRampPalette(c(beamer$darkRed, beamer$lightRed))(n), alpha=alpha))
}
beamer.greys <- function(n, alpha = 1)
# Generates n shades of grey
{
suppressPackageStartupMessages(require("graphics"))
suppressPackageStartupMessages(require("ggplot2"))
return(alpha(colorRampPalette(c(beamer$darkGrey, beamer$lightGrey))(n), alpha=alpha))
}