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;