-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathsmiles.ps
71 lines (60 loc) · 1.19 KB
/
smiles.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
67
68
69
70
71
/inch {72 mul} def
/smile1
{
gsave
1.00 1.00 0 setrgbcolor
1 inch 1 inch 1 inch 0 360 arc closepath fill
0 0 0 setrgbcolor
.5 inch 1.3 inch .2 inch 0 360 arc closepath fill
1.5 inch 1.3 inch .2 inch 0 360 arc closepath fill
1 setlinecap
5 setlinewidth
1 inch 1 inch .5 inch 200 340 arc stroke
grestore
}def
/smile2
{
0 setgray
0.6 setlinewidth
1 inch 1 inch 1 inch 0 360 arc closepath stroke
1 inch 1 inch .5 inch 210 330 arc closepath
gsave
1 0 0 setrgbcolor fill
grestore
stroke
.5 inch 1.3 inch 0.2 inch 0 360 arc closepath
gsave
0.92 0.08 0.08 setrgbcolor fill
grestore
stroke
1.5 inch 1.3 inch 0.2 inch 0 360 arc closepath
gsave
0.92 0.08 0.08 setrgbcolor fill
grestore
stroke
}def
/smile3
{
newpath
1 inch 1 inch moveto
0 2 inch rlineto
2 inch 0 rlineto
0 -2 inch rlineto
-2 inch 0 rlineto
closepath
gsave
0.5 1 0.5 setrgbcolor
fill
grestore
1 0 0 setrgbcolor
4 setlinewidth
stroke
0 0 0 setrgbcolor
1.5 inch 2.3 inch .1 inch 0 360 arc closepath fill
2.5 inch 2.3 inch .1 inch 0 360 arc closepath fill
2 inch 1.8 inch .2 inch 200 340 arc stroke
}def
smile3
3 inch 3 inch translate smile1
2.8 inch 1 inch translate smile2
showpage