home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 September / PCWK996.iso / sharewar / 95 / narzedzi / ambra / ambr32a1.exe / FILE / ARCHIVE.Z / ACROBAT / VIEWER32.EXE / PSPROCSET / 4 < prev    next >
Text File  |  1996-02-22  |  1KB  |  46 lines
  1. %%BeginFile: l2compat
  2. %%Copyright: Copyright 1987-1993 Adobe Systems Incorporated. All Rights Reserved.
  3. % Level 1 emulation of level 2 operators
  4.  
  5. % proc string cshow -
  6. /cshow isdefined? not StartLoad {
  7.     /cshow {
  8.         exch /_cshow xdd            % allows proc to use stack params
  9.         { 0 0 _cshow exec } forall    % char 0 0 proc -
  10.     } bd
  11. } EndLoad
  12.  
  13. % cyan magenta yellow black setcmykcolor -
  14. /setcmykcolor isdefined? not StartLoad {
  15.     /setcmykcolor {
  16.         1 sub 4 1 roll    % (1-k) c m y
  17.         3 {                % for (c m y): add (1-k), make >= 0
  18.             3 index add neg dup 0 lt { pop 0 } if
  19.             3 1 roll
  20.         } repeat
  21.         setrgbcolor
  22.         pop
  23.     } bd
  24. } EndLoad
  25.  
  26. % x y width height rectclip -
  27. /rectclip isdefined? not StartLoad {
  28.     /re 0 def % to be defined in pdf.prc
  29.     /rectclip { newpath re clip newpath } bd
  30. } EndLoad
  31.  
  32. % formdict execform -
  33. /execform isdefined? not StartLoad {
  34.     /execform {
  35.         gsave dup begin        % Stack:  dict
  36.         Matrix concat
  37.         BBox aload pop        % Stack:  dict llx lly urx ury
  38.         exch 3 index sub
  39.         exch 2 index sub    % Stack:  dict llx lly w h
  40.         rectclip
  41.         PaintProc end grestore
  42.     } def    % not bd to not bind Matrix, BBox, PaintProc
  43. } EndLoad
  44.  
  45. %%EndFile
  46.