60f
%!PS-Adobe-2.0 EPSF-1.2
%%BoundingBox: -14 -15 355 215
%%Creator: PStJTT -- bugfixes 91.01.14 by paul koning
%%Title: QRP ARC Int'l logo
%%CreationDate: 90.09.24
%%EndComments
%
% The QRP ARC International logo
%
% The code below defines a PostScript function "qrp-logo" which, when
% invoked, paints the logo at the current x/y.
%       paul koning,     91.12.03 - fixed glitch (postscript interpreter
%                                   bug, actually) on letter "R"
%

/qrp-logo
{ gsave currentpoint translate
  0 setlinejoin
% First the 'Q/5'
  newpath
  30 setlinewidth 75 75 75 190 165 arc stroke
  3 99 moveto
  3 200 lineto
  350 200 lineto
  stroke                % stem and horizontal stroke of '5'
  130 20 moveto
  150 0 lineto
  stroke                % slash on 'Q'
  gsave 155 75 moveto 355 75 lineto
  355 165 lineto 155 165 lineto clip    % to keep the 'R' diagonal clean
  newpath
  185 75 moveto
  185 150 lineto
  225 130 20 90 270 arcn
  185 110 lineto        % 'P' part of 'R'
  210 110 moveto
  235 65 lineto
  stroke                % diagonal of 'R'
%
% 'P'
%
  280 75 moveto
  280 150 lineto
  320 150 lineto
  320 130 20 90 270 arcn
  280 110 lineto
  stroke
  grestore              % cancel clip region
%
% The "Arrow"
%
  3 setlinewidth
  45 30 moveto
  70 50 lineto
  70 100 lineto
  63 100 lineto
  75 120 lineto
  87 100 lineto
  80 100 lineto
  80 50 lineto
  105 30 lineto
  stroke

  grestore } def

% display the logo
0 0 moveto qrp-logo
showpage
.

0