|
Packit |
575503 |
%!PS-Adobe-3.0
|
|
Packit |
575503 |
% SSC Reference card typesetter outline / cut marks
|
|
Packit |
575503 |
%
|
|
Packit |
575503 |
% Copyright (C) 1996, Specialized System Consultants Inc. (SSC)
|
|
Packit |
575503 |
%
|
|
Packit |
575503 |
% This file is free software; you can redistribute it and/or modify
|
|
Packit |
575503 |
% it under the terms of the GNU General Public License as published by
|
|
Packit |
575503 |
% the Free Software Foundation; either version 2 of the License, or
|
|
Packit |
575503 |
% (at your option) any later version.
|
|
Packit |
575503 |
%
|
|
Packit |
575503 |
% This file is distributed in the hope that it will be useful,
|
|
Packit |
575503 |
% but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
Packit |
575503 |
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
Packit |
575503 |
% GNU General Public License for more details.
|
|
Packit |
575503 |
%
|
|
Packit |
575503 |
% You should have received a copy of the GNU General Public License
|
|
Packit |
575503 |
% along with this program; if not, write to the Free Software
|
|
Packit |
575503 |
% Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
|
|
Packit |
575503 |
%
|
|
Packit |
575503 |
%! page cut marks and stuff for Pocket References - 10-26-88 - ph
|
|
Packit |
575503 |
%! modified to move the cut marks onto the page
|
|
Packit |
575503 |
%! center a string
|
|
Packit |
575503 |
/inch {72 mul} def
|
|
Packit |
575503 |
/cshow % stk: string
|
|
Packit |
575503 |
% center string in space (space us variable)
|
|
Packit |
575503 |
{
|
|
Packit |
575503 |
dup stringwidth pop % get length of string
|
|
Packit |
575503 |
space exch sub 2 div % compute initial space needed
|
|
Packit |
575503 |
0 rmoveto % move over
|
|
Packit |
575503 |
show
|
|
Packit |
575503 |
} def
|
|
Packit |
575503 |
|
|
Packit |
575503 |
/flashme
|
|
Packit |
575503 |
{ /space 612 def
|
|
Packit |
575503 |
0 0 0 setrgbcolor % always print this stuff
|
|
Packit |
575503 |
|
|
Packit |
575503 |
/Helvetica findfont 12 scalefont setfont
|
|
Packit |
575503 |
gsave
|
|
Packit |
575503 |
% for groff (I hope)
|
|
Packit |
575503 |
-6 -6 translate
|
|
Packit |
575503 |
0.2 setlinewidth
|
|
Packit |
575503 |
|
|
Packit |
575503 |
0.25 inch 10.5 inch moveto
|
|
Packit |
575503 |
0.5 inch 10.5 inch lineto
|
|
Packit |
575503 |
.75 inch 10.75 inch moveto
|
|
Packit |
575503 |
.75 inch 11 inch lineto
|
|
Packit |
575503 |
stroke
|
|
Packit |
575503 |
|
|
Packit |
575503 |
0.25 inch 2 inch moveto
|
|
Packit |
575503 |
0.5 inch 2 inch lineto
|
|
Packit |
575503 |
.75 inch 1.75 inch moveto
|
|
Packit |
575503 |
.75 inch 1.50 inch lineto
|
|
Packit |
575503 |
stroke
|
|
Packit |
575503 |
4.25 inch 11 inch moveto
|
|
Packit |
575503 |
4.25 inch 10.75 inch lineto
|
|
Packit |
575503 |
stroke
|
|
Packit |
575503 |
|
|
Packit |
575503 |
4.25 inch 1.75 inch moveto
|
|
Packit |
575503 |
4.25 inch 1.5 inch lineto
|
|
Packit |
575503 |
stroke
|
|
Packit |
575503 |
|
|
Packit |
575503 |
7.75 inch 1.5 inch moveto
|
|
Packit |
575503 |
7.75 inch 1.75 inch lineto
|
|
Packit |
575503 |
8 inch 2 inch moveto
|
|
Packit |
575503 |
8.25 inch 2 inch lineto
|
|
Packit |
575503 |
stroke
|
|
Packit |
575503 |
|
|
Packit |
575503 |
7.75 inch 11 inch moveto
|
|
Packit |
575503 |
7.75 inch 10.75 inch lineto
|
|
Packit |
575503 |
8 inch 10.5 inch moveto
|
|
Packit |
575503 |
8.25 inch 10.5 inch lineto
|
|
Packit |
575503 |
stroke
|
|
Packit |
575503 |
grestore
|
|
Packit |
575503 |
} def
|
|
Packit |
575503 |
|
|
Packit |
575503 |
% actually do something
|
|
Packit |
575503 |
|