// DO NOT CHANGE THIS FILE. THIS FILE IS GENERATED FROM pstoedit.pro 
// You can get pstoedit.pro from the author of pstoedit
// pstoedit.pro contains a lot more comments and explanations than pstoedit.ph
const char * PS_prologue[] = 
{
//Title: pstoedit.pro, Version 2.40, March 1996
// This file contains some redefinitions of PostScript(TM) operators
// useful for the conversion of PostScript into a vector format via Ghostscript
//
// Copyright (C) 1993,1994,1995,1996 Wolfgang Glunz, Wolfgang.Glunz@zfe.siemens.de
//
//    This program is free software; you can redistribute it and/or modify
//    it under the terms of the GNU General Public License as published by
//    the Free Software Foundation; either version 2 of the License, or
//    (at your option) any later version.
//
//    This program is distributed in the hope that it will be useful,
//    but WITHOUT ANY WARRANTY; without even the implied warranty of
//    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
//    GNU General Public License for more details.
//
//    You should have received a copy of the GNU General Public License
//    along with this program; if not, write to the Free Software
//    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
//
// All lines starting with // are copied to pstoedit.ph
 " /pstoeditcopyright (Copyright \\(C\\) 1993,1994,1995,1996 Wolfgang Glunz) def ",
 " currentdict /textastext known not { /textastext true def} if ",
 " currentdict /flatnesstouse known not { /flatnesstouse 1.0 def} if ",
 " currentdict /escapetext known not { /escapetext false def} if ",
 " currentdict /usepdfmark known not { /usepdfmark false def} if ",
 " currentdict /outputfilename known not { /outputfilename (%stdout) def} if ",
 " currentdict /inputfilename  known not { /inputfilename  (%stdin) def} if ",
 " currentdict /doflatten      known not { /doflatten      true  def} if ",
 " /outstream outputfilename (w) file def ",
 " /errstream (%stderr) (w) file def ",
 " /print { errstream exch writestring } def ",
 " /-print  { outstream exch writestring } def ",
 " /-fill   /fill load def ",
 " /-eofill /eofill load def ",
 " /-stroke /stroke load def ",
 " /-show   /show load def ",
 " /-showpage /showpage load def ",
 " /s100 100 string def ",
 " /s1000 1000 string def ",
 " /onechar 1 string def ",
 " /pathnumber 0 def ",
 " usepdfmark { ",
 " systemdict begin ",
 " /pdfmark {  ",
 " ([ ) -print  ",
 " ] { showpdfmarkelement ( ) -print } forall % close array and dump all entries ",
 " (pdfmark\\n) -print  ",
 " } def ",
 " end ",
 " /showpdfmarkelement { ",
 " dup type pdftype begin exec end ",
 " } def ",
 " /pdftype 20 dict def ",
 " pdftype begin ",
 " /arraytype { ([ ) -print { showpdfmarkelement ( ) -print } forall ( ]) -print } def  ",
 " /booleantype { s1000 cvs -print } def ",
 " /conditiontype { pop } def ",
 " /devicetype { pop } def ",
 " /dicttype { pop } def ",
 " /filetype { pop } def ",
 " /fonttype { pop } def ",
 " /gstatetype { pop } def ",
 " /integertype { s1000 cvs -print } def ",
 " /locktype { pop } def ",
 " /marktype { pop } def ",
 " /nametype { ( /) -print s1000 cvs -print } def ",
 " /nulltype { pop } def ",
 " /operatortype { pop } def ",
 " /packedarraytype { pop } def ",
 " /realtype { s1000 cvs -print } def ",
 " /savetype { pop } def ",
 " /stringtype { (\\() -print -print (\\)) -print } def ",
 " end ",
 " /pdfmark systemdict /pdfmark get def % overwrite pdfmark in userdict ",
 " /currentdistillerparams 1 dict def ",
 " currentdistillerparams begin ",
 " /CoreDistVersion 2000 def ",
 " end ",
 " } if ",
 " /debugprint { ",
 " (\\% PRINT ) -print  ",
 " -print ",
 " ( MSG\\n) -print ",
 " } def ",
 " /debugprint { ",
 " (\\n) -print % for normal mode ",
 " } def ",
 " /printTOS { ",
 " ( ) -print s100 cvs -print  ",
 " } def ",
 " /prpoints { ",
 " -1 1 { pop        % the loop control variable ",
 " transform  % transform to device coordinates ",
 " exch ",
 " printTOS   % the x value ",
 " deviceheight exch sub % fix flipped y coordinate ",
 " printTOS   % the y value ",
 " } for ",
 " } def ",
 " /getcurrentscale {  ",
 " 100 0 transform % x1' y1' ",
 " /y1 exch def ",
 " /x1 exch def ",
 " 0 0 transform % x2' y2' ",
 " /y2 exch def ",
 " /x2 exch def ",
 " x1 x2 sub dup mul  ",
 " y1 y2 sub dup mul  ",
 " add sqrt ",
 " 100 div abs ",
 " } def ",
 " /printstate { ",
 " gsave ",
 " currentlinecap ",
 " printTOS ",
 " ( setlinecap \\n) -print  ",
 " currentlinewidth ",
 " getcurrentscale mul ",
 " printTOS ",
 " ( setlinewidth \\n) -print ",
 " currentrgbcolor ",
 " 3 1 roll exch ",
 " printTOS ",
 " printTOS ",
 " printTOS ",
 " ( setrgbcolor \\n) -print ",
 " grestore ",
 " } def ",
 " /print-path { ",
 " { ",
 " { 1 prpoints ( moveto\\n)    -print } ",
 " { 1 prpoints ( lineto\\n)    -print } ",
 " { 3 prpoints ( curveto\\n)   -print } ",
 " {            ( closepath\\n) -print } ",
 " pathforall ",
 " } stopped { ",
 " } if ",
 " } def ",
 " /dumppath { ",
 " /dumpstring exch def ",
 " /dumpop exch def ",
 " (\\n) -print ",
 " (\\%) -print ",
 " /pathnumber pathnumber 1 add def ",
 " pathnumber printTOS ",
 " ( pathnumber \\n) -print ",
 " printstate ",
 " -print ",
 " gsave ",
 " { ",
 " doflatten  ",
 " { ",
 " flatnesstouse setflat ",
 " flattenpath % replaces curves by lines ",
 " } if ",
 " } stopped { ",
 " grestore ",
 " gsave ",
 " } if ",
 " (newpath \\n) -print ",
 " print-path ",
 " dumpstring -print ( \\n) -print ",
 " grestore ",
 " dumpop ",
 " } def ",
 " /eofill	{ ",
 " (\\% eofilledpath\\n) {-eofill} (eofill) dumppath ",
 " } def ",
 " /fill  	{ ",
 " (\\% filledpath\\n) {-fill} (fill) dumppath ",
 " } def ",
 " /stroke	{ ",
 " (\\% strokedpath\\n) {-stroke} (stroke) dumppath ",
 " } def ",
 " /show { ",
 " printstate ",
 " /currentstring exch def ",
 " gsave ",
 " textastext 			% text shall be shown as text and ",
 " currentfont /FontType get 1 eq 	% current font is type 1 ",
 " and ",
 " { ",
 " currentfont begin ",
 " /FontName where { ",
 " pop FontName dup  ",
 " s100 cvs % FontName is a name or is already a string ",
 " exch ",
 " Fontmap exch known { ",
 " } { ",
 " (% nonstandard font\\n) -print ",
 " } ifelse ",
 " } { ",
 " (Courier) ",
 " } ifelse  ",
 " (/) -print ",
 " -print ",
 " end ",
 " ( findfont ) -print ",
 " currentfont begin ",
 " FontMatrix 0 get % get the x-scale of the font matrix ",
 " 0 ",
 " dtransform ",
 " dup mul exch dup mul add sqrt ",
 " 1000 mul % standard fonts have factor of .001 (let's hope) ",
 " s100 cvs -print ",
 " end ",
 " ( scalefont setfont\\n) -print ",
 " currentfont begin ",
 " /FontInfo where { ",
 " pop  ",
 " FontInfo begin ",
 " FontInfo /FamilyName known { FamilyName } { (unknown) } ifelse ",
 " (\\% ) -print -print  ( FamilyName \\n) -print ",
 " FontInfo /FullName   known { FullName   } { (unknown) } ifelse    ",
 " (\\% ) -print -print  ( FullName \\n) -print ",
 " FontInfo /Weight     known { Weight     } { (unknown) } ifelse ",
 " (\\% ) -print -print  ( Weight \\n) -print ",
 " end ",
 " } if ",
 " end ",
 " /pstoeditangle 1 0 dtransform exch atan -1 mul 360 add def ",
 " currentpoint /pstoedity exch def /pstoeditx exch def ",
 " pstoeditx pstoedity 1 prpoints ( moveto\\n)    -print ",
 " pstoeditangle 360.0 ne { ",
 " pstoeditx pstoedity 1 prpoints ( translate\\n) -print ",
 " ( ) -print ",
 " pstoeditangle s100 cvs -print ( rotate\\n) -print ",
 " }  ",
 " { ",
 " ( ) -print ",
 " 0             s100 cvs -print ( rotate\\n) -print ",
 " } ",
 " ifelse ",
 " (\\() -print ",
 " escapetext ",
 " { ",
 " currentstring { ",
 " dup (\\() 0 get eq { (\\\\) -print } if ",
 " dup (\\)) 0 get eq { (\\\\) -print } if ",
 " dup (\\\\) 0 get eq { (\\\\) -print } if ",
 " onechar exch 0 exch put onechar -print  ",
 " } forall ",
 " } ",
 " { ",
 " currentstring -print  ",
 " } ",
 " ifelse ",
 " (\\) show\\n) -print ",
 " pstoeditangle 360.0 ne { ",
 " ( ) -print ",
 " pstoeditangle neg s100 cvs -print ( rotate\\n) -print ",
 " pstoeditx pstoedity 1 prpoints ",
 " ( ntranslate\\n) -print ",
 " } if ",
 " } ",
 " { ",
 " currentpoint ",
 " /currenty exch def ",
 " /currentx exch def ",
 " stroke % dump current path and start new path ",
 " currentx currenty moveto ",
 " currentstring ",
 " true charpath  ",
 " eofill  ",
 " } ",
 " ifelse ",
 " grestore ",
 " currentstring ",
 " -show ",
 " } def ",
 " /widthshow  {exch pop exch pop exch pop show} def ",
 " /awidthshow {exch pop exch pop exch pop exch pop exch pop show} def ",
 " /kshow      {exch pop show} def ",
 " /ashow      {exch pop exch pop show} def ",
 " /showpage { ",
 " (showpage \\n) -print ",
 " -showpage ",
 " } def ",
 " 0 0 transform  ",
 " /deviceheight exch def ",
 " /devicewidth exch def  % not used so far ",
 " (\\%!\\n) -print ",
 " (\\% generated by pstoedit\\n) -print ",
 " (/ntranslate { neg exch neg exch translate } def\\n) -print ",
 " inputfilename run ",
 " (\\% normal end reached by pstoedit.pro\\n) -print ",
0
};