home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 16 / 16.iso / w / w058 / 6.img / HEADER.PS_ / HEADER.bin
Encoding:
Text File  |  1993-09-15  |  590 b   |  16 lines
  1. % Copyright (c) 1986-1993 Frame Technology Corporation.
  2. gsave clippath 1 setgray fill grestore 
  3. /FMcmyk 100 dict def
  4. /FMc {
  5.  FMcmyk length FMcmyk maxlength ge { /FMcmyk FMcmyk dup length dup add dict copy def } if
  6.  4 array astore 4 1 roll 8 bitshift add 8 bitshift add exch FMcmyk 3 1 roll put
  7. } bind def
  8. /setcmykcolor where { pop
  9.  /sc where { pop /sc load 0 get /scignore eq {
  10.   /FMsc /sc load def
  11.   /sc { 3 copy 8 bitshift add 8 bitshift add FMcmyk 1 index known
  12.    { FMcmyk exch get aload pop setcmykcolor pop pop pop } { pop FMsc } ifelse
  13.   } bind def
  14.  } if } if
  15. } if
  16.