Life In 19x19

Code: Select all

%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 579 617
%%EndComments

% Go board by David Fifield <david@bamsoftware.com>. This program is not
% copyrighted; there is no restriction on its use, modification and
% redistribution for any purpose, commercial or non-commercial.

% The default bounding box is for boardsize = 19, h_dist = 2.2 cm,
% v_dist = 2.37 cm and edge = 1.4 cm. For different values of these variables,
% calculate the size of the bounding box like this:
%    0 0 boardsize 1 sub h_dist mul edge 2 mul add
%        boardsize 1 sub v_dist mul edge 2 mul add
% Here are precomputed bounding boxes for boardsize = 13
%%BoundingBox: 0 0 828 886
% and boardsize = 9.
%%BoundingBox: 0 0 579 617
% and boardsize = 19
%%BoundingBox: 0 0 1202 1289

/cm {2.54 div 72 mul} bind def

/boardsize 5 def
/h_dist 2.2 cm def
/v_dist 2.37 cm def
/edge 1.4 cm def
/linewidth .1 cm def
/starpointradius .2 cm def

edge edge translate
linewidth setlinewidth

% Draw the edges of the board.
newpath
0 0 moveto
h_dist boardsize 1 sub mul 0 rlineto
0 v_dist boardsize 1 sub mul rlineto
h_dist boardsize 1 sub mul neg 0 rlineto
closepath
stroke

% Draw the other lines.
newpath
1 1 boardsize 2 sub {
   dup
   h_dist mul 0 moveto
   0 v_dist boardsize 1 sub mul rlineto
   0 exch v_dist mul moveto
   h_dist boardsize 1 sub mul 0 rlineto
} for
stroke

% Draw the star points.
newpath
mark
/corner boardsize 13 lt { 2 } { 3 } ifelse def
boardsize 2 mod 0 ne {
   boardsize 5 ge {
      boardsize 2 idiv dup
   } if
   boardsize 19 ge {
      dup dup
      corner dup
      3 -1 roll
      dup dup
      boardsize corner sub 1 sub dup
      3 -1 roll
   } if
} if
boardsize 9 ge {
   corner dup dup
   boardsize corner sub 1 sub dup dup
   3 index exch dup
} if
{
   dup mark eq { pop exit } if
   exch h_dist mul exch v_dist mul starpointradius 0 360 arc fill
} loop

%%EOF