%!
72 72 scale		% set units to inches
4.25 5.5 translate	% translate to center of a US standard sheet of paper
0 setlinewidth		% makes lines as thin as possible
0 setgray		% black

% convert polar coordinates to rectangular coordinates
% angle magnitude *torectang* x y
/torectang {
    /magnitude exch def
    /angle exch def
    /x magnitude angle sin mul def
    /y magnitude angle cos mul def
    x y
} def

% draw a cross at the specificed polar coordinates
% angle magnitude *cross*
/cross {
    torectang
    moveto
    0 .2 rlineto	% top half of vertical line
    0 -.4 rlineto	% bottom half of vertical line
    .2 .2 rmoveto	% return to right end of horizontal line
    -.4 0 rlineto	% draw horiz line
    stroke
} def

% Draw numcrosses crosses at a radius of magnitude
% numcrosses magnitude *docrosses*
/docrosses {
    /magnitude exch def
    /num exch def
    /stepangle 360 num div def
    0 stepangle 360 {
	/angle exch def
	angle magnitude cross
    } for
} def

% draw the whole flange, with ID, OD, and crosses
% numcrosses id od crossd *flange*
/flange {
	/crossd exch def
	/od exch def
	/id exch def
	/numcrosses exch def
	numcrosses crossd  2 div docrosses
	% do the ID
	0	% x
	0	% y
	id 2 div	% radius
	0	% start angle
	360	% end angle
	arc
	stroke
	% do the OD
	0	% x
	0	% y
	od 2 div	% radius
	0	% start angle
	360	% end angle
	arc
	stroke
} def

%
% Uncomment one of these at a time, and print
%
% top of injection tube
% 8 2.5 4.5 3.625 flange
% main flange
% 12 6 8.25 7.375 flange
% lid
% 8 4.5 6.5 5.25 flange

showpage