home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / sharewar / dos / inne / gs300ini / gs_dps1.ps < prev    next >
Encoding:
Text File  |  1994-08-02  |  4.6 KB  |  158 lines
  1. %    Copyright (C) 1990, 1991, 1993, 1994 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Initialization file for analogs of Display PostScript functions
  19. % that are also included in Level 2.
  20. % When this is run, systemdict is still writable,
  21. % but everything defined here goes into level2dict.
  22.  
  23. level2dict begin
  24.  
  25. % ------ Virtual memory ------ %
  26.  
  27. /currentshared /.currentglobal load def
  28. /scheck /.gcheck load def
  29. /setshared /.setglobal load def
  30. %****** FOLLOWING IS WRONG ******
  31. /shareddict currentdict /globaldict .knownget not { 20 dict } if def
  32. /SharedFontDirectory 2 dict def        % will auto-expand
  33.  
  34. % ------ Fonts ------ %
  35.  
  36. /selectfont
  37.     { exch findfont exch
  38.       dup type /arraytype eq { makefont } { scalefont } ifelse
  39.       setfont
  40.     } odef
  41. /undefinefont
  42.     { FontDirectory exch undef
  43.     } odef
  44.  
  45. % ------ Halftones ------ %
  46.  
  47. /.makestackdict
  48.     { { counttomark -1 roll } forall .dicttomark
  49.     } bind def
  50. /currenthalftone
  51.     { mark .currenthalftone
  52.        { { exch pop }        % halftone
  53.          { /HalftoneType 1        % screen
  54.         { /Frequency /Angle /SpotFunction }
  55.            .makestackdict
  56.          }
  57.          { /HalftoneType 2        % colorscreen
  58.         { /RedFrequency /RedAngle /RedSpotFunction
  59.           /GreenFrequency /GreenAngle /GreenSpotFunction
  60.           /BlueFrequency /BlueAngle /BlueSpotFunction
  61.           /GrayFrequency /GrayAngle /GraySpotFunction
  62.         }
  63.            .makestackdict
  64.          }
  65.        }
  66.       exch get exec
  67.     } odef
  68. % Define sethalftone so it converts all other types to type 5.
  69. /.sethalftoneRGBV    % <dict> <type> <keys> <keysRGBV>
  70.     { 4 -1 roll exch { 1 index exch get exch } forall 15 1 roll
  71.       14 -2 roll mark 15 1 roll { /Gray /Blue /Green /Red }
  72.        {        % stack: v0 v1 v2 type keys comp
  73.          mark
  74.          2 index 0 get 8 -1 roll
  75.          4 index 1 get 9 -1 roll
  76.          6 index 2 get 10 -1 roll
  77.             % stack: type keys comp mark k0 v0 k1 v1 k2 v2
  78.          /HalftoneType 10 index .dicttomark
  79.          counttomark 2 roll
  80.        }
  81.       forall pop pop
  82.       /Default 1 index .dicttomark .sethalftone5
  83.     } bind def
  84. /sethalftone
  85.     { dup /HalftoneType get 1 sub
  86.        {  { mark /Default 2 index .dicttomark .sethalftone5 }
  87.           { 1 { /Frequency /Angle /SpotFunction }
  88.         { /RedFrequency /RedAngle /RedSpotFunction
  89.           /GreenFrequency /GreenAngle /GreenSpotFunction
  90.           /BlueFrequency /BlueAngle /BlueSpotFunction
  91.           /GrayFrequency /GrayAngle /GraySpotFunction
  92.         } .sethalftoneRGBV
  93.           }
  94.           { mark /Default 2 index .dicttomark .sethalftone5 }
  95.           { 3 { /Width /Height /Thresholds }
  96.         { /RedWidth /RedHeight /RedThresholds
  97.           /GreenWidth /GreenHeight /GreenThresholds
  98.           /BlueWidth /BlueHeight /BlueThresholds
  99.           /GrayWidth /GrayHeight /GrayThresholds
  100.         } .sethalftoneRGBV
  101.           }
  102.           { dup .sethalftone5 }
  103.        } exch get exec
  104.     } odef
  105. % Redefine setscreen to recognize halftone dictionaries.
  106. /setscreen
  107.     { dup type /dicttype eq
  108.        { sethalftone pop pop }
  109.        { //setscreen }
  110.       ifelse
  111.     } odef
  112.  
  113. % ------ User objects ------ %
  114.  
  115. /.localarray
  116.     { currentglobal false setglobal
  117.       exch array exch setglobal
  118.     } bind def
  119. /defineuserobject
  120.     { userdict /UserObjects known
  121.        { 1 index userdict /UserObjects get length ge
  122.           { 1 index 1 add .localarray userdict /UserObjects get
  123.         1 index copy pop
  124.         userdict /UserObjects 3 -1 roll put
  125.           }
  126.          if
  127.        }
  128.        { userdict /UserObjects 3 index 1 add .localarray put
  129.        }
  130.       ifelse
  131.       userdict /UserObjects get 3 1 roll put
  132.     } odef
  133. /execuserobject
  134.     { userdict /UserObjects get exch get exec
  135.     } odef
  136. /undefineuserobject
  137.     { userdict /UserObjects get exch null put
  138.     } odef
  139.  
  140. % ------ User paths ------ %
  141.  
  142. /upath
  143.     { [ exch {/ucache cvx} if pathbbox /setbbox cvx
  144.       {/moveto cvx} {/lineto cvx} {/curveto cvx} {/closepath cvx}
  145.       pathforall ] cvx
  146.     } odef
  147.  
  148. % Dummy definitions for cache control operators
  149.  
  150. /ucachestatus
  151.     { mark 0 0 0 0 0 } odef
  152. /setucacheparams
  153.     { cleartomark } odef
  154.  
  155. % End of level2dict
  156.  
  157. end
  158.