cca
%!PS-Adobe-2.0 EPSF-1.2
%%BoundingBox: -2 -2 188 188
%%Creator: Paul Koning
%%Title: ARRL diamond logo
%%CreationDate: 89.12.20
%%EndComments
%
% The ARRL Special Service Club logo
%
% The code below defines a PostScript function "ssc-logo" which, when
% invoked, paints the ARRL SSC logo at the current x/y.  The resulting
% image is 186 points square, which is 2.58 inches.
%
%       paul koning, 89.12.20 - created, starting from the "diamond" logo
%                    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)
%                    91.12.03 - fixed bounding box
%

/ssc-logo
{ gsave currentpoint translate newpath
  4 setlinewidth 93 93 93 0 360 arc             % enclosing circle
  gsave stroke grestore clip newpath            % use circle as clip region
  135.8 0 moveto 186 0 lineto 186 186 lineto
  135.8 186 lineto closepath fill                       % black region of circle
  1.5 setlinewidth
  0 124.5 moveto 120 124.5 lineto 140 170.125 lineto stroke
  0 103.5 moveto 115.62 103.5 lineto 140 159.125 lineto stroke
  0 82.5 moveto 115.62 82.5 lineto 140 26.875 lineto stroke
  0 61.5 moveto 120 61.5 lineto 140 15.875 lineto stroke
  /Helvetica findfont 20 scalefont setfont
  22 106.5 moveto (SPECIAL) show
  22 85.5 moveto (SERVICE) show
  40 64.5 moveto (CLUB) show
  115.84 47 translate 0.63 0.63 scale           % scale for the diamond
  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
  gsave 1 setgray fill grestore                 % erase inside of diamond
  stroke                                        % border for diamond
  0 setlinejoin
  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 ssc-logo showpage
.

0