home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / PRINTING / GS23A.ZIP / GHOST2.PS < prev    next >
Text File  |  1991-01-03  |  4KB  |  110 lines
  1. %    Copyright (C) 1990 Aladdin Enterprises.  All rights reserved.
  2. %    Distributed by Free Software Foundation, Inc.
  3. %
  4. % This file is part of Ghostscript.
  5. %
  6. % Ghostscript is distributed in the hope that it will be useful, but
  7. % WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
  8. % to anyone for the consequences of using it or for whether it serves any
  9. % particular purpose or works at all, unless he says so in writing.  Refer
  10. % to the Ghostscript General Public License for full details.
  11. %
  12. % Everyone is granted permission to copy, modify and redistribute
  13. % Ghostscript, but only under the conditions described in the Ghostscript
  14. % General Public License.  A copy of this license is supposed to have been
  15. % given to you along with Ghostscript so you can know your rights and
  16. % responsibilities.  It should be in a file named COPYING.  Among other
  17. % things, the copyright notice and this notice must be preserved on all
  18. % copies.
  19.  
  20. % Initialization file for Ghostscript Level 2 functions.
  21. % When this is run, systemdict is still writable.
  22.  
  23. % Define the rectangle procedures in terms of .rectappend.
  24. /rectclip
  25.     { newpath .rectappend clip newpath } bind def
  26. /rectfill
  27.     { gsave newpath .rectappend fill grestore } bind def
  28. /rectstroke
  29.     { gsave newpath .rectappend stroke grestore } bind def
  30.  
  31. % Define the user path procedures in terms of uappend.
  32. /ucache
  33.     { } def
  34. /ueofill
  35.     { gsave newpath uappend eofill grestore } bind def
  36. /ufill
  37.     { gsave newpath uappend fill grestore } bind def
  38. /upath
  39.     { [ exch {/ucache cvx} if pathbbox /setbbox cvx
  40.       {/moveto cvx} {/lineto cvx} {/curveto cvx} {/closepath cvx}
  41.       pathforall ] cvx
  42.     } bind def
  43. %****** Implement .ismatrix: push true/false if top is matrix
  44. /ustroke
  45.     { .ismatrix gsave newpath
  46.       {exch uappend concat} {uappend} ifelse
  47.       stroke grestore
  48.     } bind def
  49. /ustrokepath
  50.     { .ismatrix newpath
  51.       {exch uappend //.tempmatrix currentmatrix exch concat
  52.        strokepath setmatrix}
  53.       {uappend strokepath} ifelse
  54.     } bind def
  55. % Dummy definitions for cache control operators
  56. /ucachestatus
  57.     { mark 0 0 0 0 0 } bind def
  58. /setucacheparams
  59.     { cleartomark } bind def
  60.  
  61. % Initialize the system name table
  62. {
  63. % 0
  64.     /abs /add /aload /anchorsearch /and
  65.     /arc /arcn /arct /arcto /array
  66.     /ashow /astore /awidthshow /begin /bind
  67.     /bitshift /ceiling /charpath /clear /cleartomark
  68. % 20
  69.     /clip /clippath /closepath /concat /concatmatrix
  70.     /copy /count /counttomark /currentcmykcolor /currentdash
  71.     /currentdict /currentfile /currentfont /currentgray /currentgstate
  72.     /currenthsbcolor /currentlinecap /currentlinejoin /currentlinewidth /currentmatrix
  73. % 40
  74.     /currentpoint /currentrgbcolor /currentshared /curveto /cvi
  75.     /cvlit /cvn /cvr /cvrs /cvs
  76.     /cvx /def /defineusername /dict /div
  77.     /dtransform /dup /end /eoclip /eofill
  78. % 60
  79.     % ... 160 more
  80. % 220
  81.     /makepattern /setcolor /setcolorspace /setglobal /setpagedevice
  82.     /setpattern //null //null //null //null
  83.     //null //null //null //null //null
  84.     //null //null //null //null //null
  85. % 240
  86.     //null //null //null //null //null
  87.     //null //null //null //null //null
  88.     //null //null //null //null //null
  89.     //null /= /== /ISOLatin1Encoding /StandardEncoding
  90. % 260
  91.     /[ /] /atan /banddevice /bytesavailable
  92.     /cachestatus /closefile /colorimage /condition /copypage
  93.     /cos /countdictstack /countexecstack /cshow /currentblackgeneration
  94.     /currentcacheparams /currentcolorscreen /currentcolortransfer /currentcontext /currentflat
  95. % 280
  96.     /currenthalftone /currenthalftonephase /currentmiterlimit /currentobjectformat /currentpacking
  97.     /currentscreen /currentstrokeadjust /currenttransfer /currentundercolorremoval /defaultmatrix
  98.     /definefont /deletefile /detach /deviceinfo /dictstack
  99.     /echo /erasepage /errordict /execstack /executeonly
  100. % 300
  101.     % ... 76 more
  102. % 376
  103.     /A /B /C /D /E /F /G /H /I /J /K /L /M
  104.     /N /O /P /Q /R /S /T /U /V /W /X /Y /Z
  105.     /a /b /c /d /e /f /g /h /i /j /k /l /m
  106.     /n /o /p /q /r /s /t /u /v /w /x /y /z
  107. % 428
  108.     % ... 50 more
  109. } cvlit readonly /SystemNames exch def
  110.