home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / ghostscript / 8.64 / Resource / Init / pdf_cslayer.ps < prev    next >
Encoding:
Text File  |  2009-04-17  |  4.0 KB  |  122 lines
  1. % Copyright (C) 2007 Artifex Software, Inc.
  2. % All Rights Reserved.
  3. %
  4. % This software is provided AS-IS with no warranty, either express or
  5. % implied.
  6. %
  7. % This software is distributed under license and may not be copied, modified
  8. % or distributed except as expressly authorized under the terms of that
  9. % license.  Refer to licensing information at http://www.artifex.com/
  10. % or contact Artifex Software, Inc.,  7 Mt. Lassen Drive - Suite A-134,
  11. % San Rafael, CA  94903, U.S.A., +1(415)492-9861, for further information.
  12. %
  13. % $Id: pdf_cslayer.ps 8954 2008-08-08 04:22:38Z ray $
  14. % 
  15. % Layer data extraction from Illustator CS2/CS3 files
  16. % 
  17.  
  18. .languagelevel dup 2 .max .setlanguagelevel
  19. .currentglobal //true .setglobal
  20. /pdfdict load dup /pdfopdict get dup length dict copy dup begin /pdfopdict exch put
  21.  
  22. /BMC {
  23.   currentdevice //null //false mark
  24.   /MarkType (BMC)
  25.   /BMC_Tag  8 1 roll 256 string cvs
  26.   //systemdict /CSLAYERDEBUG .knownget {
  27.     { (### BMC to deviceparams, tag: ) print dup = flush } if
  28.   } if
  29.   .putdeviceparamsonly dup type /booleantype ne {
  30.      cleartomark pop
  31.   } if
  32.   pop pop     % discard the device and flag
  33.   pop pop     % discard /BMC_Tag and the tag name
  34. } bind def
  35.  
  36. /BDC {    % send selected BDC info to the device as properties
  37.   10 dict begin    % private working dictionary
  38.   /MarkType (BDC) def    % BDC code
  39.   % process the tag and Title for now
  40.   exch 256 string cvs /BDC_Tag exch def    % convert tag to a string
  41.   dup type /nametype eq {
  42.     dup Page /Properties rget not {
  43.       pop 0 dict    % empty dict in case missing Properties Resource
  44.     } if
  45.     exch pop        % discard the resource name
  46.   } if
  47.  
  48.   dup /Type knownoget { /OCG eq } { //false } ifelse {
  49.     % Illustrator CS3 and higher
  50.     dup /Name knownoget not { () } if    % no Name, use an empty string
  51.     /BDC_Title exch def
  52.  
  53.     dup /Usage knownoget not { 0 dict } if
  54.     dup /View knownoget { /ViewState knownoget { /OFF ne } { //true } ifelse } { //true } ifelse
  55.     /BDC_Visible exch def
  56.     dup /Print knownoget { /PrintState knownoget { /OFF ne } { //true } ifelse } { //true } ifelse
  57.     /BDC_Printed exch def
  58.     pop  % Usage dict
  59.  
  60.     dup /Intent knownoget {
  61.       dup type /nametype eq {
  62.         /Design eq
  63.       } {
  64.         //false exch { oforce /Design eq or } forall
  65.       } ifelse
  66.     } {
  67.       //false
  68.     } ifelse
  69.     /BDC_Editable exch def
  70.  
  71.     /BDC_Preview //true def
  72.     /BDC_Dimmed //false def
  73.     /BDC_Transparency //true def
  74.     /BDC_FlatLayer //true def
  75.   } {
  76.     % Illustrator CS2
  77.     dup /Title knownoget not { () } if    % no Title, use an empty string
  78.     /BDC_Title exch def
  79.     dup /Visible knownoget not { //true } if % no Visible flag, set true
  80.     /BDC_Visible exch def
  81.     dup /Preview knownoget not { //true } if % no preview flag, set true
  82.     /BDC_Preview exch def
  83.     dup /Editable knownoget not { //true } if % no Editable flag, set true
  84.     /BDC_Editable exch def
  85.     dup /Printed knownoget not { //true } if % no printed flag, set true
  86.     /BDC_Printed exch def
  87.     dup /Dimmed knownoget not { //true } if % no dimmed flag, set true
  88.     /BDC_Dimmed exch def
  89.     dup /Transparency knownoget not { //true } if % no Transparency flag, set true
  90.     /BDC_Transparency exch def
  91.     dup /FlatLayer knownoget not { //true } if % no flat layer flag, set true
  92.     /BDC_FlatLayer exch def
  93.   } ifelse
  94.  
  95.   % now send the collected info to the device
  96.   //systemdict /CSLAYERDEBUG .knownget {
  97.     { (### BDC info to deviceparams: ) print currentdict === flush } if
  98.   } if
  99.   currentdevice //null //false mark currentdict { } forall
  100.   .putdeviceparamsonly dup type /booleantype ne {
  101.     cleartomark pop
  102.   } if
  103.   pop pop     % discard the device and flag
  104.   end        % discard private dict
  105.   pop        % done with properties dict
  106. } bind def
  107.  
  108. /EMC {
  109.   currentdevice //null //false mark /MarkType (EMC)
  110.   //systemdict /CSLAYERDEBUG .knownget {
  111.     { (### EMC to deviceparams) = flush } if
  112.   } if
  113.   .putdeviceparamsonly dup type /booleantype ne {
  114.        cleartomark pop
  115.   } if
  116.   pop pop     % discard the device and flag
  117. } bind def
  118.  
  119. currentdict readonly pop end
  120. .setglobal
  121. .setlanguagelevel
  122.