Program to generate a comparison of business card sizes

buscard.ps

%!PS-Adobe-3.0 EPSF-3.0 
%%BoundingBox: 0 0 288 216

/pt_per_in 72 def
/mm_per_in 25.4 def
pt_per_in mm_per_in div dup scale

/in { mm_per_in mul } def

% All spatial units below are in millimeters unless otherwise stated.

0.1 setlinewidth
/Helvetica 3 selectfont

/drawcard {
	3 dict begin
		/sizename exch def
		/height exch def
		/width exch def
		0 0 width height rectstroke
		gsave
			width height translate

			0 dup moveto
			sizename true charpath pathbbox
			% llx lly urx ury
			4 -1 roll
			% lly urx ury llx
			3 -1 roll
			% lly ury llx urx
			sub
			% lly ury -w
			2.5 sub
			3 1 roll
			% -w lly ury
			sub
			% -w -h
			2.5 sub

			moveto
			sizename show
		grestore
	end
} def

74 52 (A8) drawcard
85.6 53.98 (ID-1) drawcard
3.5 in 2 in (US) drawcard
84 55 (Moo) drawcard