547
%!PS-Adobe-2.0 EPSF-1.2
%%BoundingBox: 0 0 64 146
%%Creator: Paul Koning
%%Title: RSGB diamond logo
%%CreationDate: 89.01.10
%%EndComments
%
% The RSGB "diamond" logo
%
% The code below defines a PostScript function "diamond" which, when
% invoked, paints the RSGB 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.10 (derived from VERON.PS)
%		     89.09.20 - converted to EPSF file
%

/rsgb-diamond
{ gsave currentpoint translate
  0 setlinejoin 2 setlinewidth newpath
  1 73 moveto 32 2.5 lineto 63 73 lineto 32 143.5 lineto
  closepath stroke				% border for diamond
  gsave 8 73 moveto 32 18 lineto 56 73 lineto 32 128 lineto
  closepath clip newpath			% clip inside the diamond
  20 22.5 moveto 44 22.5 lineto
  20 27.5 moveto 44 27.5 lineto
  20 32.5 moveto 44 32.5 lineto
  20 37.5 moveto 44 37.5 lineto			% ground symbol
  32 37.5 moveto 32 65 lineto
  0 65 moveto 64 65 lineto
  0 81 moveto 64 81 lineto			% capacitor
  32 81 moveto 32 125 lineto
  17 133 moveto 32 103 lineto 47 133 lineto	% antenna
  stroke
  grestore					% end clip-in-diamond
  /AvantGarde-Demi findfont 14 scalefont setfont
  10 68 moveto {2.7 0 rmoveto} (RSGB) kshow
  grestore
} def

% display the diamond
0 0 moveto rsgb-diamond showpage

.

0