1input paramsa;
2
3font_identifier:="gooegb"; font_size 10pt#;
4beginchar("+",gow#,goh#,0); "Empty vertex, center of board";
5 x1=x2=x3=0pt;
6 x4=x5=x6=.5w;
7 x7=x8=x9=w;
8 y1=y4=y7=h;
9 y2=y5=y8=.5h;
10 y3=y6=y9=0;
11 pickup pensquare scaled smallpen;
12 draw z4..z6;
13 draw z2..z8;
14 endchar;
15beginchar("[",gow#,goh#,0); "Empty vertex, left edge of board";
16 x1=x2=x3=0pt;
17 x4=x5=x6=.5w;
18 x7=x8=x9=w;
19 y1=y4=y7=h;
20 y2=y5=y8=.5h;
21 y3=y6=y9=0;
22 pickup pensquare scaled smallpen;
23 draw z5..z8;
24 pickup pensquare scaled widepen;
25 draw z4..z6;
26 endchar;
27beginchar("]",gow#,goh#,0); "Empty vertex, right edge of board";
28 x1=x2=x3=0pt;
29 x4=x5=x6=.5w;
30 x7=x8=x9=w;
31 y1=y4=y7=h;
32 y2=y5=y8=.5h;
33 y3=y6=y9=0;
34 pickup pensquare scaled smallpen;
35 draw z2..z5;
36 pickup pensquare scaled widepen;
37 draw z4..z6;
38 endchar;
39beginchar("(",gow#,goh#,0); "Empty vertex, top edge of board";
40 x1=x2=x3=0pt;
41 x4=x5=x6=.5w;
42 x7=x8=x9=w;
43 y1=y4=y7=h;
44 y2=y5=y8=.5h;
45 y3=y6=y9=0;
46 pickup pensquare scaled smallpen;
47 draw z5..z6;
48 pickup pensquare scaled widepen;
49 draw z2..z8;
50 endchar;
51beginchar(")",gow#,goh#,0); "Empty vertex, bottom edge of board";
52 x1=x2=x3=0pt;
53 x4=x5=x6=.5w;
54 x7=x8=x9=w;
55 y1=y4=y7=h;
56 y2=y5=y8=.5h;
57 y3=y6=y9=0;
58 pickup pensquare scaled smallpen;
59 draw z4..z5;
60 pickup pensquare scaled widepen;
61 draw z2..z8;
62 endchar;
63beginchar("<",gow#,goh#,0); "Empty vertex, upper left corner";
64 x1=x2=x3=0pt;
65 x4=x5=x6=.5w;
66 x7=x8=x9=w;
67 y1=y4=y7=h;
68 y2=y5=y8=.5h;
69 y3=y6=y9=0;
70 pickup pensquare scaled widepen;
71 draw z5..z6;
72 draw z5..z8;
73 endchar;
74beginchar(">",gow#,goh#,0); "Empty vertex, upper right corner";
75 x1=x2=x3=0pt;
76 x4=x5=x6=.5w;
77 x7=x8=x9=w;
78 y1=y4=y7=h;
79 y2=y5=y8=.5h;
80 y3=y6=y9=0;
81 pickup pensquare scaled widepen;
82 draw z2..z5;
83 draw z6..z5;
84 endchar;
85beginchar(",",gow#,goh#,0); "Empty vertex, lower left corner";
86 x1=x2=x3=0pt;
87 x4=x5=x6=.5w;
88 x7=x8=x9=w;
89 y1=y4=y7=h;
90 y2=y5=y8=.5h;
91 y3=y6=y9=0;
92 pickup pensquare scaled widepen;
93 draw z4..z5;
94 draw z8..z5;
95 endchar;
96beginchar(".",gow#,goh#,0); "Empty vertex, lower right corner";
97 x1=x2=x3=0pt;
98 x4=x5=x6=.5w;
99 x7=x8=x9=w;
100 y1=y4=y7=h;
101 y2=y5=y8=.5h;
102 y3=y6=y9=0;
103 pickup pensquare scaled widepen;
104 draw z4..z5;
105 draw z2..z5;
106 endchar;
107beginchar("*",gow#,goh#,0); "Hoshi";
108 x1=x2=x3=0pt;
109 x4=x5=x6=.5w;
110 x7=x8=x9=w;
111 y1=y4=y7=h;
112 y2=y5=y8=.5h;
113 y3=y6=y9=0;
114 pickup pensquare scaled smallpen;
115 draw z4..z6;
116 draw z2..z8;
117 pickup pencircle scaled hoshi;
118 drawdot z5;
119 endchar;
120beginchar("@",gow#,goh#,0); "Black Stone";
121 x1=x2=x3=0pt;
122 x4=x5=x6=.5w;
123 x7=x8=x9=w;
124 y1=y4=y7=h;
125 y2=y5=y8=.5h;
126 y3=y6=y9=0;
127 z10=setback[z4,z5];
128 z11=setback[z2,z5];
129 z12=setback[z6,z5];
130 z13=setback[z8,z5];
131 pickup pencircle scaled whitepen;
132 fill z10..z11..z12..z13..cycle;
133 picture blackstone; blackstone:=currentpicture;
134 endchar;
135beginchar("!",gow#,goh#,0); "White Stone";
136 x1=x2=x3=0pt;
137 x4=x5=x6=.5w;
138 x7=x8=x9=w;
139 y1=y4=y7=h;
140 y2=y5=y8=.5h;
141 y3=y6=y9=0;
142 z10=setback[z4,z5];
143 z11=setback[z2,z5];
144 z12=setback[z6,z5];
145 z13=setback[z8,z5];
146 pickup pencircle scaled whitepen;
147 draw z10..z11..z12..z13..cycle;
148 picture whitestone; whitestone:=currentpicture;
149 endchar;
150beginchar(":",gow#,goh#,0); "Black Stone, triangled";
151 x1=x2=x3=0pt;
152 x4=x5=x6=.5w;
153 x7=x8=x9=w;
154 y1=y4=y7=h;
155 y2=y5=y8=.5h;
156 y3=y6=y9=0;
157 x14=.066987w;
158 x15=.933012w;
159 y14=y15=.25h;
160 edgecorrection=.07;
161 z10=setback[z4,z5];
162 z11=setback[z2,z5];
163 z12=setback[z6,z5];
164 z13=setback[z8,z5];
165 z16=setback[z14,z5];
166 z17=setback[z15,z5];
167 z18=edgecorrection[z4,z5];
168 z19=edgecorrection[z16,z5];
169 z20=edgecorrection[z17,z5];
170 fill z10..z11..z12..z13..cycle;
171 pickup pencircle scaled 1.75whitepen;
172 undraw z18--z19--z20--cycle;
173 endchar;
174beginchar(";",gow#,goh#,0); "White Stone, triangled";
175 x1=x2=x3=0pt;
176 x4=x5=x6=.5w;
177 x7=x8=x9=w;
178 y1=y4=y7=h;
179 y2=y5=y8=.5h;
180 y3=y6=y9=0;
181 x14=.066987w;
182 x15=.933012w;
183 y14=y15=.25h;
184 z10=setback[z4,z5];
185 z11=setback[z2,z5];
186 z12=setback[z6,z5];
187 z13=setback[z8,z5];
188 z16=setback[z14,z5];
189 z17=setback[z15,z5];
190 pickup pencircle scaled whitepen;
191 draw z10..z11..z12..z13..cycle;
192 draw z10--z16--z17--cycle;
193 endchar;
194end;