-
Notifications
You must be signed in to change notification settings - Fork 0
/
businesscard.ps
66 lines (60 loc) · 1.26 KB
/
businesscard.ps
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
%Sarah Regan PPL Spring 2018
%
/inch {72 mul} def
%----Procedures----
/cardsize
{
newpath
1 inch 9 inch moveto
3.5 inch 0 inch rlineto
0 inch 2 inch rlineto
-3.5 inch 0 inch rlineto
closepath
1.0 1.0 0.33 setrgbcolor fill
}def
/border
{
newpath
1.2 inch 9.15 inch moveto
3.1 inch 0 inch rlineto
0 inch 1.7 inch rlineto
-3.1 inch 0 inch rlineto
closepath
2 setlinewidth
0 0 0 setrgbcolor stroke
}def
/bubble
{
newpath
0 inch 0 inch moveto
%bubble bit
0.67 1.00 1.00 setrgbcolor fill
1 inch 1 inch .3 inch 0 360 arc closepath fill
0.33 1.00 1.00 setrgbcolor fill
%reflect
1 inch 1 inch 0.2 inch 0 120 arc closepath
gsave
0.83 1.0 1.0 setrgbcolor fill
grestore
stroke
}def
%---MAIN----
cardsize
border
0 0 moveto
2.8 inch 9.4 inch translate 1 1 scale bubble
.3 inch 0 inch translate .5 .5 scale bubble
1 inch 0 inch translate .5 .5 scale bubble
0 setgray
/Helvetica-Bold findfont 100 scalefont setfont
-9 inch 3.5 inch moveto
(Sarah Regan) show
/Helvetica findfont 50 scalefont setfont
-9 inch 2.5 inch moveto
(email here) show
-9 inch 1.5 inch moveto
(phone here) show
/Helvetica-Oblique findfont 50 scalefont setfont
-9 inch .3 inch moveto
("Now THAT's a business card!) show
showpage