pintos-os.org Git - pspp/blob - config/ps-prologue

   1 !!!
   2 !!! This prologue is hereby placed in the public domain.
   3 !!!
   4 !!! PSPP does not place any restrictions on the distribution terms
   5 !!! of its output.  You are encouraged to allow your PSPP outputs to
   6 !!! be freely distributed.
   7 !!!
   8 %!PS-Adobe-3.0 EPSF-3.0                           !eps
   9 %!PS-Adobe-3.0                                    !ps
  10 %%Pages: (atend)
  11 %%DocumentNeededResources: (atend)
  12 %%DocumentSuppliedResources: procset PSPP-Prologue 1.0 0
  13 !!! %%Bounding-Box: ${bounding-box}
  14 %%Copyright: This prologue is public domain.
  15 %%Creator: ${creator}
  16 %%CreationDate: ${date}
  17 %%DocumentData: ${data}
  18 %%DocumentMedia: Plain ${paper-width} ${paper-length} 75 white ()
  19 %%Orientation: ${orientation}
  20 %%For: ${user}@${host}
  21 %%Title: ${title}
  22 %FscoSourceFile: ${source-file}
  23 %%EndComments
  24 %%BeginDefaults
  25 %%PageResources:
  26 %%+ ${prop-font}
  27 %%+ ${fixed-font}
  28 %%EndDefaults
  29 %%BeginProlog
  30 %%BeginResource: procset PSPP-Prologue 1.0 0
  31 /L{moveto lineto stroke}bind def
  32 /TL{TW setlinewidth 0 setlinecap
  33  moveto lineto stroke
  34  LW setlinewidth 2 setlinecap}def
  35 /D{moveto lineto moveto lineto stroke}bind def
  36 /S{moveto show}bind def
  37 /T{currentpoint exch pop moveto show}bind def
  38 /ED{exch def}bind def
  39 !!! SF arguments:
  40 !!!     identifier      dictionary entry to save font in
  41 !!!     font encoding   font encoding vector
  42 !!!     fontsize        thousandths of a point
  43 !!!     font name       string
  44 !!! Usage example: 12000/F0 E0 (Times-Roman) SF
  45 /SF{
  46  findfont exch scalefont
  47  dup maxlength 1 index/FontName known not{1 add}if dict begin
  48  {
  49   1 index/FID ne{def}{pop pop}ifelse
  50  }forall
  51  /Encoding ED
  52  dup/FontName ED
  53  currentdict end 1 index exch definefont dup setfont
  54  [exch/setfont cvx] cvx bind def
  55 }bind def
  56 /F{setfont}bind def
  57 /EP{
  58  pg restore
  59  showpage
  60 }bind def
  61 /GB{
  62  /y2 ED/x2 ED/y1 ED/x1 ED
  63  x1 y1 moveto x2 y1 lineto x2 y2 lineto x1 y2 lineto closepath
  64  gsave 0.9 setgray fill grestore stroke
  65 }bind def
  66 %%EndResource
  67 %%EndProlog
  68 %%BeginSetup
  69 %%IncludeResource: ${prop-font}
  70 %%IncludeResource: ${fixed-font}
  71 !encodings
  72 %%EndSetup
  73 !!! Local Variables:
  74 !!! fill-prefix: "!!! "
  75 !!! End: