🚀 go-pugleaf

Here is a hex paper generator which allows you to set the
size of the hexes and the (rectangular) bounding margins on the paper.
Enjoy.

It is short, so I thought I'd just post directly:

%!   PostScript Hex Paper Maker
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                     %
%  H   H EEEEE X   X     PPPPP SSSSS  %
%  H   H E      X X      P   P S      %
%  HHHHH EEE     X       PPPPP SSSSS  %
%  H   H E      X X      P         S  %
%  H   H EEEEE X   X  %  P     SSSSS  %
%                                     %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                     %
% BY CALVIN CLARK (1990)              %
%                                     %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

/inch {72 mul} def
/SQRT3 1.73205 def

%%%% Things for you to set %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

/TM 0.5 inch def        % MARGINS IN WHICH TO FIT THE HEX PATTERNS 
/BM 0.5 inch def
/RM 0.5 inch def
/LM 0.5 inch def 

/PGWIDTH  8.5 inch def  % PAGE SIZE 
/PGHEIGHT 11 inch def

/SIDELEN 0.3 inch def		  % LENGTH OF SIDE OF A HEXAGON
/THICKNESS {SIDELEN 0.01 mul} def % THICKNESS OF LINES 
			
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% Calculate number of columns:

/NCOLS {PGWIDTH RM sub LM sub SIDELEN 1.5 mul div cvi} def 

% Calculate number of rows:

/NROWS {PGHEIGHT TM sub LM sub SIDELEN SQRT3 mul div cvi} def 

/N {NCOLS 1 sub 2 div cvi} def  % 2N+1 =  # columns produced (always odd) 

/SQUIGLINE1 {
	newpath
	0 0 moveto
	60 rotate
	1 0 rlineto
	N {
		2 {-60 rotate 1 0 rlineto} repeat
		2 { 60 rotate 1 0 rlineto} repeat
	} repeat
	2 {-60 rotate 1 0 rlineto} repeat
	60 rotate
	stroke
} def

/SQUIGLINE2 {
	newpath
	0 0 moveto
	-60 rotate
	1 0 rlineto
	N {
		2 { 60 rotate 1 0 rlineto} repeat
		2 {-60 rotate 1 0 rlineto} repeat
	} repeat
	2 {60 rotate 1 0 rlineto} repeat
	-60 rotate
	stroke
} def

/drawlines {
	NROWS {
		SQUIGLINE1
		SQUIGLINE2
		0 SQRT3 neg translate
	} repeat
} def

LM PGHEIGHT TM sub SIDELEN SQRT3 mul 2 div sub translate
SIDELEN SIDELEN scale
THICKNESS SIDELEN div setlinewidth

drawlines

showpage



The Hammer

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% INTERNET E-MAIL:                   %  Calvin Clark                    %
% PLAY: ckclark@athena.mit.edu       %  279 Harvard Street, Apt. #31    %
% WORK: clark@radmed.mgh.harvard.edu %  Cambridge, MA 02139             %
%                                    %  (617) 864-3857                  %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%