-
Notifications
You must be signed in to change notification settings - Fork 12
/
Queens_University.R
149 lines (123 loc) · 5.3 KB
/
Queens_University.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
## Queens_University | 2023 08 23
## Colours of Queen's University, Canada
## -------------------------------------
# Information: ------
# cur_pals: "queensu_1", "queensu_2" (2)
# inst: "Queen's University"
# inst_alt: "Queen's University"
# country: Canada
# URL: "https://www.queensu.ca/"
# Colour source:
# URL: <https://www.queensu.ca/brand-central/visual-identity/colours>
# Last check: 2023-06-28
# Colour palette(s):
# - queensu_1: Primary colours ------
#' Primary colours of Queen's University, Canada
#'
#' \code{queensu_1} provides the three primary colours
#' of \href{https://www.queensu.ca/}{Queen's University}, Canada.
#'
#' Queen’s University is widely recognized for its unique Tricolour palette of blue, gold, and red.
#' These three colours are the essence of the Queen’s brand and are designated as the primary colours.
#'
#' Tricolour must be incorporated into all applications in a mindful way
#' that allows the message and imagery to be the focus.
#'
#' The three primary colours are
#' \code{"queens_blue"} (defined as PMS 295, CMYK 100/63/0/67, RGB 0/36/82, HEX #002452),
#' \code{"queens_gold"} (defined as PMS 124, CMYK 0/29/100/1, RGB 250/189/15, HEX #fabd0f), and
#' \code{"queens_red"} (defined as PMS 187, CMYK 0/100/74/26, RGB 185/14/49, HEX #b90e31).
#'
#' \code{queensu_1} uses the HEX colour definition.
#' PMS and CMYK colours differ from RGB and HEX definition.
#'
#' @return
#' A named vector of colours (HEX/HTML codes of type character).
#'
#' @author
#' \strong{unicol}, 2023-06-28.
#'
#' @source
#' Colour definitions are based on the
#' \href{https://www.queensu.ca/brand-central/visual-identity/colours}{Visual Identity}.
#'
#' @examples
#' queensu_1
#' unikn::seecol(queensu_1, main = "Primary colours of Queen's University") # view colour palette
#'
#' @family Canadian university color palettes
#'
#' @seealso
#' \code{\link{queensu_2}} for the secondary colours of Queen's University;
#' \code{\link{seecol}} for viewing and comparing colour palettes;
#' \code{\link{usecol}} for using colour palettes;
#' \code{\link{simcol}} for finding similar colours;
#' \code{\link{newpal}} for defining new colour palettes;
#' \code{\link{grepal}} for finding named colours.
#'
#' @export
queensu_1 <- unikn::newpal(col = c("#002452", "#fabd0f", "#b90e31"),
names = c("queens_blue", "queens_gold", "queens_red"),
as_df = FALSE)
# # Check:
# unikn::seecol(queensu_1, main = "Primary colours of Queen's University", col_bg = "lightgrey")
# - queensu_2: Secondary colours ------
#' Secondary colours of Queen's University, Canada
#'
#' \code{queensu_2} provides the secondary colours
#' of \href{https://www.queensu.ca/}{Queen's University}, Canada.
#'
#' A secondary palette of neutral colours may be used with the primary palette to provide balance.
#'
#' The three primary colours are
#' \code{"white"} (defined as CMYK 0/0/0/0, RGB 255/255/255, HEX #ffffff),
#' \code{"lightest_grey"} (defined as CMYK 0/0/0/5, RGB 241/242/242, HEX #f1f2f2),
#' \code{"light_grey"} (defined as CMYK 0/0/0/10, RGB 230/231/232, HEX #e6e7e8),
#' \code{"grey"} (defined as CMYK 0/0/0/20, RGB 209/211/212, HEX #d1d3d4),
#' \code{"medium_grey"} (defined as CMYK 0/0/0/40, RGB 167/169/172, HEX #a7a9ac),
#' \code{"dark_grey"} (defined as CMYK 0/0/0/60, RGB 128/130/133, HEX #808285),
#' \code{"darkest_grey"} (defined as CMYK 0/0/0/80, RGB 88/89/91, HEX #58595b),
#' \code{"black"} (defined as CMYK 0/0/0/100, RGB 33/33/33, HEX #212121),
#' \code{"light_limestone"} (defined as PMS 401, CMYK 28/25/28/3, RGB 180/174/168, HEX #b3aea8),
#' \code{"limestone"} (defined as PMS 403 CMYK 39/36/40/14, RGB 144/137/130, HEX #908982), and
#' \code{"dark_limestone"} (defined as PMS 405, CMYK 49/47/51/32, RGB 106/98/92, HEX #6a625c).
#'
#' \code{queensu_2} uses the HEX colour definition.
#' PMS and CMYK colours differ from RGB and HEX definition.
#'
#' @return
#' A named vector of colours (HEX/HTML codes of type character).
#'
#' @author
#' \strong{unicol}, 2023-06-28.
#'
#' @source
#' Colour definitions are based on the
#' \href{https://www.queensu.ca/brand-central/visual-identity/colours}{Visual Identity}.
#'
#' @examples
#' queensu_2
#' unikn::seecol(queensu_2,
#' main = "Secondary colours of Queen's University") # view colour palette
#'
#' @family Canadian university color palettes
#'
#' @seealso
#' \code{\link{queensu_1}} for the primary colours of Queen's University;
#' \code{\link{seecol}} for viewing and comparing colour palettes;
#' \code{\link{usecol}} for using colour palettes;
#' \code{\link{simcol}} for finding similar colours;
#' \code{\link{newpal}} for defining new colour palettes;
#' \code{\link{grepal}} for finding named colours.
#'
#' @export
queensu_2 <- unikn::newpal(col = c("#ffffff", "#f1f2f2", "#e6e7e8", "#d1d3d4", "#a7a9ac", "#808285",
"#58595b", "#212121", "#b3aea8", "#908982", "#6a625c"),
names = c("white", "lightest_grey", "light_grey", "grey", "medium_grey", "dark_grey",
"darkest_grey", "black", "light_limestone", "limestone", "dark_limestone"),
as_df = FALSE)
# # Check:
# unikn::seecol(queensu_2, main = "secondary colours of Queen's University", col_bg = "lightgrey")
## ToDo: --------
# - etc.
## eof. ----------