contrib/awk/doc/setter.outline

   1 %!PS-Adobe-3.0
   2 % SSC Reference card typesetter outline / cut marks
   3 %
   4 % Copyright (C) 1996, Specialized System Consultants Inc. (SSC)
   5 %
   6 % This file is free software; you can redistribute it and/or modify
   7 % it under the terms of the GNU General Public License as published by
   8 % the Free Software Foundation; either version 2 of the License, or
   9 % (at your option) any later version.
  10 %
  11 % This file is distributed in the hope that it will be useful,
  12 % but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 % GNU General Public License for more details.
  15 %
  16 % You should have received a copy of the GNU General Public License
  17 % along with this program; if not, write to the Free Software
  18 % Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA
  19 %
  20 %! page cut marks and stuff for Pocket References - 10-26-88 - ph
  21 %! modified to move the cut marks onto the page
  22 %! center a string
  23 /inch {72 mul} def
  24 /cshow  % stk: string
  25         % center string in space (space us variable)
  26         {
  27         dup stringwidth pop     % get length of string
  28         space exch sub 2 div    % compute initial space needed
  29         0 rmoveto               % move over
  30         show
  31         } def
  32
  33 /flashme
  34 {       /space 612 def
  35         0 0 0 setrgbcolor       % always print this stuff
  36
  37         /Helvetica findfont 12 scalefont setfont
  38         gsave
  39 % for groff (I hope)
  40         -6 -6 translate
  41         0.2 setlinewidth
  42
  43         0.25 inch 10.5 inch moveto
  44         0.5 inch 10.5 inch lineto
  45         .75 inch 10.75 inch moveto
  46         .75 inch 11 inch lineto
  47         stroke
  48
  49         0.25 inch 2 inch moveto
  50         0.5 inch 2 inch lineto
  51         .75 inch 1.75 inch moveto
  52         .75 inch 1.50 inch lineto
  53         stroke
  54         4.25 inch 11 inch moveto
  55         4.25 inch 10.75 inch lineto
  56         stroke
  57
  58         4.25 inch 1.75 inch moveto
  59         4.25 inch 1.5 inch lineto
  60         stroke
  61
  62         7.75 inch 1.5 inch moveto
  63         7.75 inch 1.75 inch lineto
  64         8 inch 2 inch moveto
  65         8.25 inch 2 inch lineto
  66         stroke
  67
  68         7.75 inch 11 inch moveto
  69         7.75 inch 10.75 inch lineto
  70         8 inch 10.5 inch moveto
  71         8.25 inch 10.5 inch lineto
  72         stroke
  73         grestore
  74         } def
  75
  76 % actually do something
  77