McGillcrest.eps

%!PS-Adobe-3.0 EPSF-3.0
%%Title: McGill University Crest
%%Creator: P. Kabal
%%CreationDate: 1991/12/07
%%Pages: 1
%%BoundingBox: 72 72 115 126

% $Id: McGillcrest.eps,v 1.4 2004/08/31 19:59:08 kabal_res Exp $

% Hooks to change the foreground and background colours
% Foreground rgb color (dark red)
/McGillCrestFg where {pop} {/McGillCrestFg {1 0 0 setrgbcolor} def} ifelse
% Background rgb color (white) behind the martlets
/McGillCrestBg where {pop} {/McGillCrestBg {1 setgray} def} ifelse

/pl {transform
0.25 sub round 0.25 add exch 0.25 sub round 0.25 add exch
itransform} def
/c {pl curveto} def
/v {currentpoint 6 2 roll pl curveto} def
/y {pl 2 copy curveto} def
/l {pl lineto} def
/m {pl moveto} def
/ff {McGillCrestFg fill} def
/fb {McGillCrestBg fill} def
/st {McGillCrestFg stroke} def
/gs {gsave currentpoint translate newpath 0 0 pl moveto} def
/sc {gs dup scale} def
/gr {grestore} def

/crestoutline {
0.04276 sc
116 86 225 179 311 304 c % 1000 x 1263
414 453 476 605 492 778 c
506 914 499 1049 495 1184 c
333 1231 168 1260 0 1263 c
-168 1260 -333 1231 -495 1184 c
-499 1049 -506 914 -492 778 c
-476 605 -414 453 -311 304 c
-225 179 -116 86 0 0 c
ff gr} def

/crestbottom {
0.04276 sc
0 921 m
-157 762 l
-321 927 l
-476 772 l
-468 681 -443 594 -410 509 c
-366 398 -301 301 -221 211 c
-155 138 -89 75 -4 22 c
-3 21 -2 21 0 21 c
2 21 3 21 4 22 c
89 75 155 138 221 211 c
301 301 366 398 410 509 c
443 594 468 681 476 772 c
321 927 l
157 762 l
fb gr} def

/martlet {
0.01356 sc
900 174 m   % 1000 x 741
886 144 1005 93 1000 22 c
797 141 611 120 v
427 99 506 113 453 113 c
436 59 544 38 v
460 -41 357 27 v
259 -25 220 22 v
227 29 300 69 260 72 c
220 76 141 91 176 104 c
215 119 221 157 274 110 c
293 94 318 144 y
-108 213 29 494 44 526 c
39 523 26 550 v
7 587 44 572 38 588 c
27 616 7 611 0 643 c
78 736 156 741 v
235 746 308 726 303 624 c
298 521 279 516 328 501 c
404 479 665 580 738 614 c
778 619 650 472 v
763 482 797 506 v
714 365 592 321 v
469 277 562 311 601 306 c
648 300 826 245 993 289 c
917 211 900 174 v
156 675 m
117 675 14 0 360 arc
ff gr} def

/crown {
0.01112 sc
41 481 m   % 1000 x 700
75 584 88 643 24 699 c
7 715 5 654 0 506 c
41 481 m
84 608 162 574 170 573 c
191 569 211 531 182 517 c
168 511 149 519 135 514 c
107 503 107 472 112 444 c
122 381 186 381 231 360 c
258 347 311 367 320 399 c
339 466 288 463 294 503 c
298 532 336 535 360 525 c
392 512 396 481 397 444 c
400 505 440 555 500 559 c
463 436 402 342 361 229 c
212 271 -228 269 -361 229 c
-402 342 -463 436 -500 559 c
-440 555 -400 505 -397 444 c
-396 481 -392 512 -360 525 c
-336 535 -298 532 -294 503 c
-288 463 -339 466 -320 399 c
-311 367 -258 347 -231 360 c
-186 381 -122 381 -112 444 c
-107 472 -107 503 -135 514 c
-149 519 -168 511 -182 517 c
-211 531 -191 569 -170 573 c
-162 574 -84 608 -41 481 c
-75 584 -88 643 -24 699 c
-7 715 -5 654 0 506 c
-214 206 m
-278 195 -305 181 y
-266 104 l
-245 116 -194 127 v
-214 206 l
-29 220 m
-81 220 -124 217 -160 213 c
-161 133 -147 135 v
-121 138 -90 141 -54 142 c
-38 143 -30 222 y
3 222 m
11 143 27 142 v
63 141 94 138 120 135 c
134 133 134 213 y
98 217 54 220 2 220 c
167 127 m
219 116 239 104 y
278 181 l
252 195 188 206 v
167 127 l
4 94 m
-100 94 -185 73 -185 47 c
-185 21 -100 0 4 0 c
109 0 193 21 193 47 c
193 73 109 94 4 94 c
224 276 m
225 285 213 341 180 339 c
147 338 129 298 y
226 291 224 276 v
-129 298 m
-147 338 -180 339 v
-213 341 -225 285 -224 276 c
-226 291 -129 298 y
43 325 m
43 346 22 363 -4 363 c
-29 363 -50 346 -50 325 c
43 325 l
fb gr} def

/book {
0.01207 sc
15 setlinewidth
500 0 m   % 1000 x 833
-500 0 l
-500 709 l
-418 794 l
-308 783 -324 772 -159 816 c
5 860 0 794 y
-5 860 159 816 v
324 772 308 783 418 794 c
500 709 l
500 0 l
gsave fb grestore st
-418 794 m
-418 53 l
-281 25 -121 80 v
-83 93 0 64 y
83 93 121 80 y
281 25 418 53 v
418 794 l
-418 52 m
-500 0 l
500 0 m
418 52 l
-41 0 m
0 64 l
41 0 l
st
0 794 m
0 64 l
st gr} def

/L-I {
gs
0 95 l
20 97 l
20 2 l
ff gr} def
/L-N {
gs
0 95 l
18 97 l
59 34 l
59 100 l
77 102 l
77 7 l
59 5 l
18 68 l
18 2 l
ff gr} def
/L-O {
gs
45 100 m
58 101 91 98 91 54 c
91 9 58 1 45 0 c
33 -1 0 1 0 46 c
0 90 33 99 45 100 c
45 17 m
56 18 71 26 71 52 c
71 79 56 84 45 83 c
35 82 20 74 20 48 c
20 21 35 16 45 17 c
ff gr} def
/L-D {
gs
0 95 l
42 98 l
74 101 80 74 80 57 c
80 36 72 6 41 4 c
0 0 l
19 18 m
39 20 l
55 21 60 38 60 53 c
60 81 47 82 38 82 c
19 80 l
19 18 l
ff gr} def
/L-M {
gs
0 95 l
29 97 l
46 24 l
63 100 l
92 103 l
92 8 l
73 6 l
73 85 l
55 5 l
36 3 l
18 81 l
18 2 l
ff gr} def
/R-C {
gs
65 62 m
63 68 60 80 44 82 c
34 84 20 80 20 53 c
20 36 27 20 44 17 c
55 15 62 20 65 31 c
84 28 l
80 8 67 -4 43 0 c
18 4 0 25 0 57 c
0 90 19 104 44 100 c
72 95 83 73 84 59 c
ff gr} def
/R-O {
gs
45 100 m
58 98 91 86 91 42 c
91 -3 58 -2 45 0 c
33 2 0 13 0 58 c
0 102 33 102 45 100 c
45 17 m
56 15 71 19 71 45 c
71 72 56 81 45 83 c
35 85 20 81 20 54 c
20 28 35 19 45 17 c
ff gr} def
/R-N {
gs
59 98 m
77 95 l
77 0 l
57 3 l
18 78 l
18 10 l
0 13 l
0 108 l
21 105 l
59 32 l
ff gr} def
/R-F {
gs
20 0 m
0 3 l
0 98 l
67 86 l
67 70 l
20 78 l
20 57 l
61 49 l
61 33 l
20 40 l
ff gr} def
/R-I {
gs
20 0 m
0 3 l
0 98 l
20 95 l
ff gr} def
/R-D {
gs
0 102 m
42 95 l
74 89 80 61 80 43 c
80 22 72 -5 41 0 c
0 7 l
0 102 l
19 20 m
39 17 l
55 14 60 29 60 45 c
60 73 47 77 38 79 c
19 82 l
ff gr} def

/letters{
0.01207 sc
-270 584 m L-I
-231 587 m L-N
-355 379 m L-D
-264 388 m L-O
-158 396 m L-M
-322 183 m L-I
-282 187 m L-N
-192 200 m L-O
65 606 m R-C
161 589 m R-O
266 567 m R-N
153 398 m R-F
237 385 m R-I
117 204 m R-D
208 185 m R-O
gr} def

gsave
72 72 translate % 1 inch (72 bp) offsets
1 dup scale     % crest is 0.75 inches (unit scaling)

% Draw the crest
21.39 0 m crestoutline
21.39 0 m crestbottom

6.47 20.17 m martlet
14.76 8.41 m martlet
22.20  20.17 m martlet

7.00 41.52 m crown
36.37 41.52 m crown

21.39 42.31 m book

21.39 42.31 m letters
grestore

showpage
%%EOF