912
%!PS-Adobe-2.0 EPSF-1.2
%%BoundingBox: -1 3 65 143
%%Creator: Paul Koning
%%Title: ARRL diamond logo
%%CreationDate: 89.01.09
%%EndComments
%
% The ARRL "diamond" logo
%
% The code below defines a PostScript function "diamond" which, when
% invoked, paints the ARRL diamond at the current x/y.  The resulting
% image is 146 points high, in other words a hair over 2 inches.
%
%	paul koning, 89.01.09
%                    89.01.10 - fixed a few angles
%		     89.09.20 - converted to EPSF file
%		     91.01.15 - fixed bug (stuff left on stack by arcto)
%

/arrl-diamond
{ gsave currentpoint translate
  2 setlinewidth 1 setlinejoin 			% workaround for "spike" bug
  newpath 0 73 moveto
  32 0 64 73 3 arcto pop pop newpath moveto
  32 0 64 73 3 arcto pop pop pop pop
  64 73 32 146 3 arcto pop pop pop pop
  32 146 0 73 3 arcto pop pop pop pop
  0 73 32 0 3 arcto  pop pop pop pop
  closepath stroke				% border for diamond
  0 setlinejoin
  4.5 73 moveto 32 10 lineto 59.5 73 lineto
  32 136 lineto closepath fill			% diamond body
  1 setgray
  gsave 0 111 moveto 64 111 lineto 64 130 lineto 0 130 lineto clip newpath
  1 setlinejoin
  23 104 moveto 32 125 lineto 41 104 lineto
  28 115 moveto 36 115 lineto stroke 		% letter A
  grestore
  29 38 moveto 29 26 lineto 36 26 lineto stroke	% letter L
  gsave 0 67 moveto 64 67 lineto 64 90 lineto 0 90 lineto clip newpath
  14 67 moveto 14 82 lineto 18.5 82 lineto 18.5 78.5 3.5 90 -90 arcn
  14 75 lineto 18 75 moveto 24 59 lineto stroke	% left letter R
  44 67 moveto 44 82 lineto 48.5 82 lineto 48.5 78.5 3.5 90 -90 arcn
  44 75 lineto 48 75 moveto 54 59 lineto stroke	% right letter R
  grestore
  1.5 setlinewidth
  31 41 moveto 33 41 lineto
  29.375 43.75 moveto 34.625 43.75 lineto
  27.75 46.5 moveto 36.25 46.5 lineto
  26.125 49.25 moveto 37.875 49.25 lineto
  24.5 52 moveto 39.5 52 lineto			% ground symbol
  32 52 moveto 32 60 lineto
  25 60 25 68 33 68 curveto 39 68 39 64 33 64 curveto
  25 64 25 76 33 76 curveto 39 76 39 72 33 72 curveto
  25 72 25 84 33 84 curveto 39 84 39 80 33 80 curveto
  25 80 25 88 32 88 curveto			% coil
  32 106 lineto 32 96 moveto 25 106 lineto
  39 106 lineto closepath stroke		% antenna
  grestore
} def

% display the diamond
0 0 moveto arrl-diamond showpage

.

0