/* This file was created automatically by mkpsprolog. DO NOT EDIT */

static unsigned char *ps_prolog[] = {
  "% $Id: psprolog.ps,v 1.2 1997/08/14 22:36:18 mb Exp mb $",
  "/$VTXDict 100 dict def",
  "$VTXDict begin",
  "",
  "/PaperA4 { 595 842 } def",
  "/PaperA3 { 842 1190 } def",
  "/PaperLetter { 612 792 } def",
  "/PagerLegal { 612 1008 } def",
  "",
  "/Margin 4 def",
  "/Border 1 def",
  "/XYRatio 0.8125 def",
  "/TextXFac 1.38 def",
  "/TextYFac 1.00 def",
  "/TextXOfsFac 0.07 def",
  "/TextYOfsFac 0.25 def",
  "/SymXFac 0.80 def",
  "/SymYFac 0.70 def",
  "/SymXOfsFac 0.10 def",
  "/SymYOfsFac 0.25 def",
  "/RedWeight 0.30 def",
  "/GreenWeight 0.59 def",
  "/BlueWeight 0.11 def",
  "",
  "% Initialize variables used in procedures as suggested in Red Book, H.2.7",
  "/XPaperSize 0 def",
  "/YPaperSize 0 def",
  "/VTXMatrix 0 def",
  "/XPages 0 def",
  "/YPages 0 def",
  "/XChars 0 def",
  "/YChars 0 def",
  "/XInc 0 def",
  "/YIncSingle 0 def",
  "/YIncDouble 0 def",
  "/YInc 0 def",
  "/XOfs 0 def",
  "/YOfs 0 def",
  "/TextXSize 0 def",
  "/TextYSize 0 def",
  "/TextXOfs 0 def",
  "/TextYOfs 0 def",
  "/SymXSize 0 def",
  "/SymYSize 0 def",
  "/SymXOfs 0 def",
  "/SymYOfs 0 def",
  "/TextFontSingle 0 def",
  "/TextFontDouble 0 def",
  "/SymFontSingle 0 def",
  "/SymFontDouble 0 def",
  "/TextFont 0 def",
  "/SymFont 0 def",
  "/FGColor 0 def",
  "/BGColor 0 def",
  "/UseColor 0 def",
  "/InvertPage 0 def",
  "/textfont 0 def",
  "/symfont 0 def",
  "/blkg_y 0 def",
  "/blkg_x 0 def",
  "/dt_char 0 def",
  "",
  "% Also make sure that our procedures aren't already defined. This isn't",
  "% mentioned in the Red Book, but it's a good idea nevertheless.",
  "/CalcDim 0 def",
  "/CopyFont 0 def",
  "/MakeVTXFonts 0 def",
  "/DefineVTXFonts 0 def",
  "/SetOrigin 0 def",
  "/rbox 0 def",
  "/DrawBlkGraph 0 def",
  "/G 0 def",
  "/DrawText 0 def",
  "/T 0 def",
  "/S 0 def",
  "/SetColor 0 def",
  "/FG 0 def",
  "/BG 0 def",
  "/DH 0 def",
  "/SH 0 def",
  "/NL 0 def",
  "",
  "% Calculate page- and character-dimensions",
  "% Defines: VTXMatrix, XPaperSize, YPaperSize, XPages, YPages, XChars, YChars,",
  "%          XInc, YIncSingle, YIncDouble, XOfs, YOfs, TextXSize, TextYSize,",
  "%          TextXOfs, TextYOfs, SymXSize, SymYSize, SymXOfs, SymYOfs",
  "% x-pages, y-pages, x-papersize y-papersize islandscape CalcDim -",
  "/CalcDim {",
  "  % Store args; if landscape, swap paper-sizes & rotate coords",
  "  {",
  "    /XPaperSize exch def /YPaperSize exch def",
  "    90 rotate 0 YPaperSize neg translate",
  "  } {",
  "    /YPaperSize exch def /XPaperSize exch def",
  "  } ifelse",
  "  /VTXMatrix matrix currentmatrix def",
  "  /YPages exch def /XPages exch def",
  "  % Calculate chars per page in x-/y-direction",
  "  /XChars Margin 2 mul 41 Border 2 mul add XPages mul add def",
  "  /YChars Margin 2 mul 26 Border 2 mul add YPages mul add def",
  "  % Calculate current XYRatio",
  "  XPaperSize XChars div YPaperSize YChars div div",
  "  % Compare with defined XYRatio, define XInc, YIncSingle, YIncDouble",
  "  XYRatio gt {",
  "    % X-size is greater -> use y-size of page",
  "    /YIncSingle YPaperSize YChars div def",
  "    /XInc YIncSingle XYRatio mul def",
  "  } {",
  "    % Y-size is greater -> use x-size of page",
  "    /XInc XPaperSize XChars div def",
  "    /YIncSingle XInc XYRatio div def",
  "  } ifelse",
  "  /YIncDouble YIncSingle 2 mul def",
  "  /XOfs XPaperSize XChars Margin 2 mul sub XInc mul sub 2 div def",
  "  /YOfs YPaperSize YChars Margin 2 mul sub YIncSingle mul sub 2 div def",
  "  /TextXSize XInc TextXFac mul def",
  "  /TextYSize YIncSingle TextYFac mul def",
  "  /TextXOfs XInc TextXOfsFac mul def",
  "  /TextYOfs YIncSingle TextYOfsFac mul def",
  "  /SymXSize XInc SymXFac mul def",
  "  /SymYSize YIncSingle SymYFac mul def",
  "  /SymXOfs XInc SymXOfsFac mul def",
  "  /SymYOfs YIncSingle SymYOfsFac mul def",
  "} bind def",
  "",
  "",
  "% Copy oldfont to newfont except for entries /FID and /Encoding",
  "% newfont oldfont CopyFont",
  "/CopyFont {",
  "  findfont dup maxlength dict currentdict exch begin exch",
  "    {",
  "      1 index /FID eq ",
  "      2 index /Encoding eq or {		% Don't copy /FID and /Encoding",
  "        pop pop",
  "      } {",
  "        currentdict 3 1 roll put	% Copy entry to new font",
  "      } ifelse",
  "    } forall",
  "    exch currentdict put",
  "  end",
  "} bind def",
  "",
  "% Create Fonts Videotext-Text and Videotext-Symbol",
  "% - MakeVTXFonts -",
  "/MakeVTXFonts {",
  "  /textfont /Courier CopyFont",
  "  textfont begin",
  "    /Encoding 256 array def",
  "    0 1 255 {",
  "      Encoding exch /.notdef put",
  "    } for",
  "    Encoding 32",
  "    [ /space /exclam /quotedbl /sterling /dollar /percent /ampersand",
  "      /quoteright /parenleft /parenright /asterisk /plus /comma /minus",
  "      /period /slash /zero /one /two /three /four /five /six /seven /eight",
  "      /nine /colon /semicolon /less /equal /greater /question /at /A /B /C /D",
  "      /E /F /G /H /I /J /K /L /M /N /O /P /Q /R /S /T /U /V /W /X /Y /Z",
  "      /.notdef /question /.notdef /.notdef /numbersign /emdash /a /b /c /d /e",
  "      /f /g /h /i /j /k /l /m /n /o /p /q /r /s /t /u /v /w /x /y /z /question",
  "      /bar /question /.notdef /numbersign ]",
  "    putinterval",
  "    Encoding 192",
  "    [ /eacute /idieresis /agrave /edieresis /ecircumflex /ugrave /icircumflex",
  "      /egrave /acircumflex /ocircumflex /ucircumflex /ccedilla /currency",
  "      /Eacute /Adieresis /Odieresis /Aring /Udieresis /underscore /adieresis",
  "      /odieresis /aring /udieresis /section /circumflex /ring /germandbls",
  "      /exclamdown /questiondown /ntilde /aacute /iacute /ograve /igrave",
  "      /oacute /uacute ]",
  "    putinterval",
  "    Encoding 254 /question put",
  "  end",
  "  /Videotext-Text textfont definefont pop",
  "",
  "  /symfont /Symbol CopyFont",
  "  symfont begin",
  "    /Encoding 256 array def",
  "    0 1 255 {",
  "      Encoding exch /.notdef put",
  "    } for",
  "    Encoding 91",
  "    [ /arrowleft /.notdef /arrowright /arrowup ]",
  "    putinterval",
  "    Encoding 126 /divide put",
  "  end",
  "  /Videotext-Symbol symfont definefont pop",
  "} bind def",
  "",
  "% Scale and define videotext-fonts",
  "% - DefineVTXFonts -",
  "/DefineVTXFonts {",
  "  /TextFontSingle /Videotext-Text findfont",
  "    [ TextXSize 0 0 TextYSize TextXOfs TextYOfs ] makefont def",
  "  /TextFontDouble /Videotext-Text findfont",
  "    [ TextXSize 0 0 TextYSize 2 mul TextXOfs TextYOfs 2 mul ] makefont def",
  "  /SymFontSingle /Videotext-Symbol findfont",
  "    [ SymXSize 0 0 SymYSize SymXOfs SymYOfs ] makefont def",
  "  /SymFontDouble /Videotext-Symbol findfont",
  "    [ SymXSize 0 0 SymYSize 2 mul SymXOfs SymYOfs 2 mul ] makefont def",
  "} bind def",
  "",
  "% Set origin for page x, y; reset font & colors",
  "% x y SetOrigin -",
  "/SetOrigin {",
  "  % Reset CTM to VTXMatrix (CTM gets reset after every showpage)",
  "  VTXMatrix setmatrix",
  "  % Calculate y-offset",
  "  26 Border 2 mul add mul Border add YIncSingle mul YPaperSize exch sub",
  "  YIncSingle sub YOfs sub",
  "  % Calculate x-offset",
  "  exch 41 Border 2 mul add mul Border add XInc mul XOfs add",
  "  exch moveto				% Set currentpoint",
  "  SH					% Reset font & colors",
  "  0 BG",
  "  7 FG",
  "} bind def",
  "",
  "% Draw a filled box at currentpoint",
  "% width height rbox -",
  "/rbox {",
  "  gsave",
  "    dup 0 exch rlineto",
  "    exch 0 rlineto",
  "    neg 0 exch rlineto",
  "    closepath",
  "    fill",
  "  grestore",
  "} bind def",
  "",
  "% Draw block-graphic character",
  "% int DrawBlkGraph -",
  "/DrawBlkGraph {",
  "  currentpoint /blkg_y exch def /blkg_x exch def",
  "  5 -1 0 {",
  "    dup 1 and 1 exch sub XInc 2 div mul blkg_x add	% calc. x-coord.",
  "    exch 2 idiv YInc mul 3 div blkg_y add moveto	% calc. y-coord. & moveto",
  "				% Set color according to bit 0",
  "    dup 1 and 1 eq { FGColor } { BGColor } ifelse SetColor",
  "    XInc 2 div YInc 3 div rbox	% Draw box for single bit",
  "    -1 bitshift",
  "  } for",
  "  1 and 1 eq {				% Draw separator lines if",
  "    BGColor SetColor				% bit 6 was set",
  "    blkg_x blkg_y moveto",
  "    XInc YInc 10 div rbox",
  "    blkg_x blkg_y YInc 3 div add moveto",
  "    XInc YInc 10 div rbox",
  "    blkg_x blkg_y YInc 2 mul 3 div add moveto",
  "    XInc YInc 10 div rbox",
  "    blkg_x XInc 2 div add blkg_y moveto",
  "    XInc 10 div neg YInc rbox",
  "    blkg_x XInc add blkg_y moveto",
  "    XInc 10 div neg YInc rbox",
  "  } if",
  "  blkg_x XInc add blkg_y moveto",
  "} bind def",
  "",
  "% Draw string of block-graphics characters",
  "% string G -",
  "/G {",
  "  { DrawBlkGraph } forall",
  "} bind def",
  "",
  "% Draw text-string (and bg) with current font",
  "% string DrawText -",
  "/DrawText {",
  "  /dt_char 1 string def",
  "  dup length XInc mul YInc",
  "  BGColor SetColor rbox",
  "  FGColor SetColor",
  "  {",
  "    dt_char exch 0 exch put",
  "    currentpoint",
  "    dt_char show",
  "    moveto XInc 0 rmoveto",
  "  } forall",
  "} bind def",
  "",
  "% Draw text-string (and bg) with Text-font",
  "% string T -",
  "/T {",
  "  TextFont setfont",
  "  DrawText",
  "} bind def",
  "",
  "% Draw text-string (and bg) with Symbol-font",
  "% string S -",
  "/S {",
  "  SymFont setfont",
  "  DrawText",
  "} bind def",
  "",
  "% Convert Videotext-color to RGB-color/grayscale & make it current color",
  "% int SetColor -",
  "/SetColor {",
  "  3 {",
  "    dup 1 and exch -1 bitshift",
  "  } repeat",
  "  pop",
  "  UseColor {",
  "    setrgbcolor",
  "  } {",
  "    BlueWeight mul exch",
  "    GreenWeight mul add exch",
  "    RedWeight mul add",
  "    InvertPage {",
  "      1 exch sub",
  "    } if",
  "    setgray",
  "  } ifelse",
  "} bind def",
  "",
  "% Set foreground-color",
  "% int FG -",
  "/FG {",
  "  /FGColor exch def",
  "} bind def",
  "",
  "% Set background-color",
  "% int BG -",
  "/BG {",
  "  /BGColor exch def",
  "} bind def",
  "",
  "% Set double-height-attribute",
  "% - DH -",
  "/DH {",
  "  /YInc YIncDouble def",
  "  /TextFont TextFontDouble def",
  "  /SymFont SymFontDouble def",
  "} bind def",
  "",
  "% Set single-height-attribute",
  "% - SH -",
  "/SH {",
  "  /YInc YIncSingle def",
  "  /TextFont TextFontSingle def",
  "  /SymFont SymFontSingle def",
  "} bind def",
  "",
  "% Go to beginning of new line; reset colors",
  "% - NL -",
  "/NL {",
  "  SH",
  "  currentpoint YInc sub exch",
  "  XInc 41 mul sub exch moveto",
  "  0 BG",
  "  7 FG",
  "} bind def",
  "",
  "end",
  NULL
};