home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1995 December / buyer-1295.iso / borland / viewer4 / header.ps_ / header.bin
Text File  |  1994-03-02  |  590b  |  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.