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

/veron-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
  2 setlinewidth 
  4.5 73 moveto 32 10 lineto 59.5 73 lineto
  32 136 lineto closepath fill			% diamond body
  1 setgray
  gsave 8 73 moveto 32 18 lineto 56 73 lineto 32 128 lineto
  closepath clip newpath			% clip inside the diamond
  24 19 moveto 40 19 lineto
  24 22.5 moveto 40 22.5 lineto
  24 26 moveto 40 26 lineto
  24 29.5 moveto 40 29.5 lineto			% ground symbol
  32 29.5 moveto 32 38 lineto
  25 37 25 48 33 48 curveto 39 48 39 42 33 42 curveto
  25 42 25 58 33 58 curveto 39 58 39 52 33 52 curveto
  25 52 25 68 33 68 curveto 39 68 39 62 33 62 curveto
  25 62 25 73 32 73 curveto			% coil
  32 76 lineto stroke
  19 74 moveto 23 74.5 lineto 23 57 lineto
  18 61 lineto 25 34 lineto 10 70 lineto
  20 64 lineto closepath fill
  45 74 moveto 41 74.5 lineto 41 57 lineto
  46 61 lineto 39 34 lineto 54 70 lineto
  44 64 lineto closepath fill			% lightning bolts
  32 0 94 45 135 arc 32 146 lineto clip newpath  % for antenna
  3 setlinewidth
  12 73 moveto 32 125 lineto 52 73 lineto
  32 73 moveto 32 125 lineto stroke
  grestore					% end clip-in-diamond
  32 0 78 45 135 arc 32 0 90 135 45 arcn clip newpath	% for "veron" banner
  14 89 moveto 16.5 76 lineto 19 89.5 lineto stroke	% letter V
  gsave 0 0 moveto 27 0 lineto 27 100 lineto 0 100 lineto clip newpath
  27.5 78.5 moveto 23 78.1 lineto 23 88.4 lineto 27.5 88.8 lineto
  23 83.3 moveto 27.5 83.7 lineto stroke		% letter E
  grestore
  30 78 moveto 30 89 lineto 33 89 lineto 35 89 35 84 33 84 curveto
  30 84 lineto 33 84 moveto 35 72 lineto stroke		% letter R
  38 78.5 moveto 42 78.1 lineto 42 88.4 lineto 38 88.8 lineto
  closepath stroke					% letter O
  46 76 moveto 46 88 lineto 50 76 lineto
  50 88.5 lineto stroke					% letter N
  grestore
} def

% display the diamond
0 0 moveto veron-diamond showpage

.

0