1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17\startMPclip { ellipse }
18 clip currentpicture to unitcircle
19 xscaled \width yscaled \height ;
20\stopMPclip
21
22\startMPclip { negellipse }
23 clip currentpicture to ( unitcircle peepholed unitsquare )
24 xscaled \width yscaled \height ;
25\stopMPclip
26
27\startMPclip { urellipse }
28 clip currentpicture to urcircle scaled 2
29 xscaled \width yscaled \height ;
30\stopMPclip
31
32\startMPclip { ulellipse }
33 clip currentpicture to ulcircle scaled 2 shifted ( 1 , 0 )
34 xscaled \width yscaled \height ;
35\stopMPclip
36
37\startMPclip { llellipse }
38 clip currentpicture to llcircle scaled 2 shifted ( 1 , 1 )
39 xscaled \width yscaled \height ;
40\stopMPclip
41
42\startMPclip { lrellipse }
43 clip currentpicture to lrcircle scaled 2 shifted ( 0 , 1 )
44 xscaled \width yscaled \height ;
45\stopMPclip
46
47\startMPclip { tellipse }
48 clip currentpicture to tcircle shifted ( . 5 , 0 ) yscaled 2
49 xscaled \width yscaled \height ;
50\stopMPclip
51
52\startMPclip { bellipse }
53 clip currentpicture to bcircle shifted ( . 5 , . 5 ) yscaled 2
54 xscaled \width yscaled \height ;
55\stopMPclip
56
57\startMPclip { lellipse }
58 clip currentpicture to lcircle shifted ( . 5 , . 5 ) xscaled 2
59 xscaled \width yscaled \height ;
60\stopMPclip
61
62\startMPclip { rellipse }
63 clip currentpicture to rcircle shifted ( 0 , . 5 ) xscaled 2
64 xscaled \width yscaled \height ;
65\stopMPclip
66
67\startMPclip { diamond }
68 clip currentpicture to unitdiamond
69 xscaled \width yscaled \height ;
70\stopMPclip
71
72\startMPclip { negdiamond }
73 clip currentpicture to ( unitdiamond peepholed unitsquare )
74 xscaled \width yscaled \height ;
75\stopMPclip
76
77\startMPclip { urtriangle }
78 clip currentpicture to urtriangle scaled 2
79 xscaled \width yscaled \height ;
80\stopMPclip
81
82\startMPclip { ultriangle }
83 clip currentpicture to ultriangle scaled 2 shifted ( 1 , 0 )
84 xscaled \width yscaled \height ;
85\stopMPclip
86
87\startMPclip { lltriangle }
88 clip currentpicture to lltriangle scaled 2 shifted ( 1 , 1 )
89 xscaled \width yscaled \height ;
90\stopMPclip
91
92\startMPclip { lrtriangle }
93 clip currentpicture to lrtriangle scaled 2 shifted ( 0 , 1 )
94 xscaled \width yscaled \height ;
95\stopMPclip
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\endinput
165 |
